Hallo, da es bei RPG funktioniert, muß es auch bei Cobol klappen.
A PUTOVR
A (evtl) KEEP
A....
A....
A 21 T§MEN0 9Y 0B 20 20CHECK(RB)
A CHECK(ER)
A OVRDTA
A 25 DSPATR(PR)
A 83 DSPATR(PC)
A 22 T§MEN1 9Y 1B 20 20CHECK(RB)
A CHECK(ER)
A OVRDTA
A 25 DSPATR(PR)
A 83 DSPATR(PC)