SETGT *HIVAL DATW111;

[woki]

Zum Verbergen oder Anzeigen bestimmter Felder in einer Displayfile kannst du mit DSPATR(ND) arbeiten.

hier ein bißchen Codegeschnipsel:

DSPF:
 A                                      CF08(08 'Show Fields')
 A          R RECORD                   
 A            FLD1          10   B 11  2
 A 50                                   DSPATR(ND)

PGM:
/free
  if *in08;    // F8 gedrückt
    *in50 = *off;    // Feld FLD1 anzeigen
  else;
    *in50 = *on;        // Feld FLD1 verbergen
  endif;
/end-free

[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.