003000   01 AIB.
003100      05 AIBID PIC X(8) VALUE "DFSAIB  ".
003200      05 LEN PIC S9(8) COMP VALUE +128.
003300      05 SUB-FUNCTION PIC X(8).
003400      05 PCB-NAME PIC X(8).
003500      05 FILLER PIC X(8).
003600      05 FILLER PIC X(8).
003700      05 IOAREA-LENGTH PIC S9(8) COMP VALUE +80.
003800      05 IOAREA-USED PIC 9(9) COMP.
003900      05 FILLER PIC X(8).
004000      05 FILLER PIC X(2).
004100      05 FILLER PIC X(2).
004200      05 CALL-RETURN-CODE PIC 9(9) COMP.
004300      05 REASON-CODE PIC 9(9) COMP.
004400      05 FILLER PIC X(4).
004500      05 RSA1-PTR POINTER.
004600      05 RSA2-PTR POINTER.
004700      05 RSA3-PTR POINTER.
004800      05 FILLER PIC X(40).