SETGT *HIVAL DATW111;

[Pikachu]

Muß das nicht *in08 und *in50 heißen?

[woki]

huch, stimmt genau ...
hab´s geändert.

[DISCOME]

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.