Das mit dem Sternchen habe ich mitbekommen...

aber wo setze ich den Code hin...

das PGM fliegt nach dem Drücken von F8 raus...


/free
SETGT*HIVAL CSTP111;
READP CSTP111;
D_ORDERSALL = F_ORDERSALL;
D_ORDERS2DAY = F_ORDERS2DAY;
.
.
.
.

READP CSTP111;
D_ORDERSALLV = F_ORDERSALL;
D_ORDERS2DAV = F_ORDERS2DAY;
.
.
.
.
EXFMT MAIN;
*inlr = *on;
// F8 Funktion
if *in08; // F8 gedrückt
*in50 = *off; // Feld MONSCHICHV anzeigen
else;
*in50 = *on; // Feld MONSCHICHV verbergen
endif;

if Not %EOF(CSTP111);
ENDIF;

/end-free

Ist dann doch nicht so leicht wie ich erst dachte.

Aber aller Anfang ist schwer.