Auch das ist kein Hexenwerk:

DCL &NUM *DEC 9
DCL &CHR *CHAR 9
DCL &MBR *CHAR 10

RTVMBRD ... RTNMBR(&MBR)
CHGVAR &NUM (%SST(&MBR 1 9))
CHGVAR &NUM (&NUM + 1)
CHGVAR &CHR (&NUM)
CHGVAR &MBR ('X' *CAT &CHR)
ADDPFM ...

Vorausgesetzt, die MBR-Namen haben das Format 'XNNNNNNNNN', du kannst es natürlich auch variieren.