B BBFBpCUSAGE_RECORD
CFB)B,SOURCE_ENTRY_TYPEX(4)
CF BTX(1)
CF(B}CSOURCE_RECORD_SEQUENCE_NUMBERX
CF0C*X(294)DEFINE RECORD USAGE-RECORD USING 01 USAGE-RECORD. 02 SOURCE-ENTRY-TYPE PIC X(4). 02 FILLER PIC X(1). 02 SOURCE-RECORD-SEQUENCE-NUMBER PIC X.
02 FILLER PIC X(294). ;