1 2 3 4 5 6
01 ERROR-PARAMETERS. * 05 ERR-RESP PIC S9(8) COMP. 05 ERR-RESP2 PIC S9(8) COMP. 05 ERR-TRNID PIC X(4) VALUE IS 99. 05 ERR-RSRCE PIC X(8).