Pushbutton in Subfile?

[B.Hauser]

Hi,

pushbuttons sind vielleicht nicht möglich, wohl aber cursorsensitive Auswahlen.

Dazu muss im DDS das Schlüssel-Wort SFLCSRRRN(&VAR) definiert werden. Ist der Cursor auf der Subfile positioniert, steht in VAR die Satz-Nr. des Subfile-Satzes, auf dem der Cursor positioniert ist.

Beispiel DDS:

A                                      SFLCSRRRN(&C1RSNR) 
A            C1RSNR         5S 0H 

Im RPG-Programm muss man dann nur noch den Subfile-Satz mit Chain einlesen und die gewünschten Werte in die Ausgabe-Parameter-Felder umladen und das Matchcode-Programm verlassen.

 /Free
     If C1RSNR > *Zeros;
        Chain (C1RSNR) SflFmt;
        If %Found;
           ParOutFld1 = S1Fld1;
           ...
           --> Programm-Ende
        EndIf;
     EndIf;
 /End-Free 

Birgitta