EDTCDE(?)

[prsbrc]

Oder ganz auf das EDTCDE verzichten und im DSPF das Feld als Datenart M deklarieren und im Programm dann steuern ob der Wert angezeigt werden soll oder *blank.

fTST000DF  cf   e             workstn         
 /free                                        
      if    NUMFELD = 0; 
        b0numf = *blank;                      
      else;                                   
        evalr b0numf = '0000000' + %char(NUMFELD); 
      endif;                                  
                                              
      write mo0021b0;                         
      exfmt mo0021b0;                         
                                              
      *inlr = *on;                            
      return;                                 
                                              
 /end-free                                    

A          R MO0021B0                               
A*                                                  
A                                      OVERLAY      
A*                                                  
A            B0NUMF        08M  B 02 02DSPATR(HI)

Lg
Christian