EDTCDE(?)

[easchbac]

hallo,

ich brauche bitte eure hilfe bezüglich EDTCDEs. ich habe eine 9-stelliges numerisches feld auf einem bildschirm und will folgende darstellung erreichen:

- wenn die nummer z.b. 12345 ist dann soll sie am bildschrim vorne mit nullen aufgefüllt werden -> 000012345

- wenn die nummer 0 bzw. leer ist soll das feld leer sein -> also nicht 000000000


hab leider noch keine lösung für das problem gefunden. bin für jeden tip dankbar.


lg

[Dschainers]

ohne EDTCDE ausgeben und wenn 0 dann nicht ausgeben mit BZZ gesteuert

[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

[easchbac]

hallo christian,

vielen dank für deinen tipp... jetzt funktionierts prächtig...

lg ernst