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