Code: Alles auswählen.
REPORT Z_TEMP.
data: feld(10),
laenge type i.
move 'ABCDE' to feld.
describe field feld length laenge in character mode.
* n-tes Zeichen (hier n=2 -> Dritte Stelle)
write / feld+2(1).
* Letztes Zeichen:
shift feld right DELETING TRAILING SPACE.
laenge = laenge - 1.
write / feld+laenge(1).
shift feld left DELETING leading SPACE. " Ursprünglicher Zustand