Hallo zusammen
Wenn Du ein Feld mit Länge 4 (CHAR4) hast und es "umwandeln" willst in Länge 1 (CHAR1), dann geht das ganz einfach über Zuweisung.
z.B. DATA: LANG(4) , KURZ(1) .
LANG = 'MOND' .
KURZ = LANG(1) . " --> M
KURZ = LANG+1(1) . " --> O
KURZ = LANG+2(1) . " --> N
KURZ = LANG+3(1) . " --> D
Es kommt jetzt natürlich darauf an, von welcher Stelle du den Wert brauchst .
Wenn der FUBA irgendwo einen Wert in den CHAR4 schreibt, dann
SHIFT LANG LEFT DELETING LEADING SPACE .
KURZ = LANG(1) .
Sofern führenede Nullen drin und Null nicht der Wert ist:
SHIFT LANG LEFT DELETING LEADING '0' .
KURZ = LANG(1) .
mfg Urs
urs@schlatter-consulting.ch