MOVE FENR ERMSG fficeffice" />>>
MOVEL 'MEB' ERMSG >>
Z-ADD 3 ERREBE >>
Z-ADD 132 ERRLNG >>
CALL 'SUBR23R3' >>
PARM ERMSG 7 >>
PARM ERRTXT 132 >>
PARM ERREBE 1 0 >>
PARM ERRRC 1 0 >>
PARM ERRLNG 4 0 >>
MOVEL ERRTXT ERRMSG 80 >>