Displayfile Attribut (ND) bei Bezugszahlgesteuertem Feld

[malzusrex]

Sehe ich anders

DDS

     A                                      DSPSIZ(24 80 *DS3)  
     A                                      CHGINPDFT(UL)       
     A                                      CA03(03 'EoJ')      
     A          R SCREEN                                        
     A            ATR2           1A  P                          
     A                                  3  3'Eingabe Feld 1:'   
     A            FLD001         6   B  3 19                    
     A                                  4  3'Eingabe Feld 2:'   
     A            FLD002         6   B  4 19DSPATR(&ATR2)       
     A                                  5  3'Eingabe Feld 3:'   
     A            FLD003         6   B  5 19 

RPG

ftest_n    cf   e             workstn        
d grn             c                   x'20'  
d grn_pr          c                   x'A0'  
d grn_nd          c                   x'27'  
d grn_nd_pr       c                   x'A7'  
  DoW not *In03;                             
    FLD002= 'Hallo';                         
    Select;                                  
    When FLD001 = 'NIX';                     
      atr2  =  grn_nd_pr;                    
    When FLD001 = 'GEHEIM';                  
      atr2  =  grn_nd;                       
    Other;                                   
      atr2  =  grn;                          
    EndSl;                                   
    ExFmt Screen;                            
  EndDo;                                     
  *InLr = *On; 

Feld2 wird nun in Abhänigkeit von Feld1 angezeigt (oder auch nicht)
bei NIX ist der Inhalt nicht zu sehen und wird auch nicht mit TAB angesprungen.
bei GEHEIM kann ich was eingeben, sehe es aber nicht.
Bei allen anderen Werten in FELD 1 ist FELD 2 halt ein normales Eingabefeld

Gruß
Ronald

Kleine Liste von HEX-Codes

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

[Matthias82]

Ok habs so umgesetzt und funktioniert. Vielen dank an alle