Pushbutton in Subfile?

[Mr.iSeries]

Habe ein Matchcodeprogramm geschrieben in dem die Daten dann in ein Subfile geschrieben werden und dann der gewünschte Satz ausgewählt werden kann. Im moment geschieht das noch über ein einstelliges Alpha Feld in dem der User ein X eingeben muss. Da wir seit einiger Zeit ML4 für die Guisierung einsetzen wäre es schön wenn der User per Mausklick auswählen könnte. Pushbuttons sind aber laut Umwandlungsliste in Subfiles nicht erlaubt. Gibt es noch eine andere Möglichkeit?

[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

[Mr.iSeries]

Vielen Dank! Funktioniert