Displayfile Attribut (ND) bei Bezugszahlgesteuertem Feld

[camouflage]

Lass mich auch noch mit tun. Das mit den fixen Attributen ist ja ganz schön, da gäbe es aber noch was...

DDS

A            ATR1           1A  P                                     
A            CLR1           1A   P                                         
A            INPUT          1A  B 10  2DSPATR(&ATR1)                  
A                                      DSPATR(&CLR1)                  

Declares

dcl-c  $white              const( x'22' );  
dcl-c  $NonDisplay         const( x'27' );
dcl-c  $Protect            const( x'80' );

Free RPG Statements

ATR1 = $Nondisplay;              // Nicht angezeigt                 
ATR1 = %bitOr(ATR1:$Protect);    // Nicht angezeigt/geschützt                 
CLR1 = $white; 

So kann man sich die entsprechenden Attribute wie man will zusammenbasteln, ebenso die Farbe.