01  CUSTOMER-ACCOUNT-RECORD.
           05 CR-CUSTOMER-ID              PIC X(12).
           05 CR-CUSTOMER-NAME            PIC X(60).
           05 CR-ACCOUNT-ID               PIC X(18).
           05 CR-ACCOUNT-BALANCE          PIC S9(11)V99 COMP-3.
           05 CR-ACCOUNT-STATUS           PIC X(1).
           05 CR-SECURITY-GROUP           PIC X(8).
           05 CR-RAW-DATA                 PIC X(120).
           05 CR-REDEFINED-DATA REDEFINES CR-RAW-DATA.
              10 CR-SEGMENT-CODE          PIC X(4).
              10 CR-SEGMENT-PAYLOAD       PIC X(116).