Code: Alles auswählen.
data pp(5) type p decimals 2 value '34.55-'. data pc(20). write pp using edit mask 'RRV_______.__' to pc. condense pc no-gaps. shift pc right deleting trailing space. write: / pc.