
      *****************************************************************
      *   Data Block for Set
      *****************************************************************

       01  CUSTOMER-DATA-BLOCK-VERSION-NO    PIC 9(4) VALUE 1.

       01  CUSTOMER-VERSION-NO               PIC 9 VALUE 1.

       01  CUSTOMER-SET-BUILD-NO             PIC 9(4) VALUE 49.

       01  CUSTOMER-DATA-BLOCK.
           03  CUSTOMER-C-CODE               PIC X(5).
           03  CUSTOMER-C-NAME               PIC X(15).
           03  CUSTOMER-C-ADDR1              PIC X(15).
           03  CUSTOMER-C-ADDR2              PIC X(15).
           03  CUSTOMER-C-ADDR3              PIC X(15).
           03  CUSTOMER-C-ADDR4              PIC X(15).
           03  CUSTOMER-C-LIMIT              PIC S9(4).
           03  CUSTOMER-C-AREA               PIC X.
           03  CUSTOMER-GROUP-001.
               04  CUSTOMER-GROUP-ITEM-001 OCCURS 10.
                   05  CUSTOMER-ORD-NO       PIC S9(6).
                   05  CUSTOMER-ORD-DATE     PIC 9(6).
                   05  CUSTOMER-ORD-VAL      PIC 9(4)V9(2).
                   05  CUSTOMER-PAY-VAL      PIC S9(4)V9(2).
                   05  CUSTOMER-ORD-BAL      PIC S9(4)V9(2).
           03  CUSTOMER-C-BAL                PIC S9(5)V9(2).
           03  CUSTOMER-GROUP-002.
               05  CUSTOMER-DEL-FLG          PIC 9.
                     88  CUSTOMER-DEL-FLG-TRUE VALUE 1.
               05  CUSTOMER-LOAD-FLG         PIC 9.
                     88  CUSTOMER-LOAD-FLG-TRUE VALUE 1.
               05  CUSTOMER-SAVE-FLG         PIC 9.
                     88  CUSTOMER-SAVE-FLG-TRUE VALUE 1.
               05  CUSTOMER-CLR-FLG          PIC 9.
                     88  CUSTOMER-CLR-FLG-TRUE VALUE 1.
               05  CUSTOMER-EXIT-FLG         PIC 9.
                     88  CUSTOMER-EXIT-FLG-TRUE VALUE 1.
           03  CUSTOMER-ERR-MSG              PIC X(20).
           03  CUSTOMER-C-ORD-NO             PIC 9(6).
           03  CUSTOMER-C-ORD-DT             PIC 9(6).
           03  CUSTOMER-C-ORD-VL             PIC S9(4)V9(2).
           03  CUSTOMER-C-PAY-VL             PIC S9(4)V9(2).

      *****************************************************************
      *   End of Data Block for Set
      *****************************************************************

      *****************************************************************
      *   Field Numbers for Set
      *****************************************************************

       01  CUSTOMER-FIELD-NUMBERS.
           03  CUSTOMER-FLD-NO-C-CODE        PIC 9(4) COMP VALUE 1.
           03  CUSTOMER-FLD-NO-C-NAME        PIC 9(4) COMP VALUE 2.
           03  CUSTOMER-FLD-NO-C-ADDR1       PIC 9(4) COMP VALUE 3.
           03  CUSTOMER-FLD-NO-C-ADDR2       PIC 9(4) COMP VALUE 4.
           03  CUSTOMER-FLD-NO-C-ADDR3       PIC 9(4) COMP VALUE 5.
           03  CUSTOMER-FLD-NO-C-ADDR4       PIC 9(4) COMP VALUE 6.
           03  CUSTOMER-FLD-NO-C-LIMIT       PIC 9(4) COMP VALUE 7.
           03  CUSTOMER-FLD-NO-C-AREA        PIC 9(4) COMP VALUE 8.
           03  CUSTOMER-FLD-NO-ORD-NO        PIC 9(4) COMP VALUE 9.
           03  CUSTOMER-FLD-NO-ORD-DATE      PIC 9(4) COMP VALUE 10.
           03  CUSTOMER-FLD-NO-ORD-VAL       PIC 9(4) COMP VALUE 11.
           03  CUSTOMER-FLD-NO-PAY-VAL       PIC 9(4) COMP VALUE 12.
           03  CUSTOMER-FLD-NO-ORD-BAL       PIC 9(4) COMP VALUE 13.
           03  CUSTOMER-FLD-NO-C-BAL         PIC 9(4) COMP VALUE 14.
           03  CUSTOMER-FLD-NO-DEL-FLG       PIC 9(4) COMP VALUE 15.
           03  CUSTOMER-FLD-NO-LOAD-FLG      PIC 9(4) COMP VALUE 16.
           03  CUSTOMER-FLD-NO-SAVE-FLG      PIC 9(4) COMP VALUE 17.
           03  CUSTOMER-FLD-NO-CLR-FLG       PIC 9(4) COMP VALUE 18.
           03  CUSTOMER-FLD-NO-EXIT-FLG      PIC 9(4) COMP VALUE 19.
           03  CUSTOMER-FLD-NO-ERR-MSG       PIC 9(4) COMP VALUE 20.
           03  CUSTOMER-FLD-NO-C-ORD-NO      PIC 9(4) COMP VALUE 21.
           03  CUSTOMER-FLD-NO-C-ORD-DT      PIC 9(4) COMP VALUE 22.
           03  CUSTOMER-FLD-NO-C-ORD-VL      PIC 9(4) COMP VALUE 23.
           03  CUSTOMER-FLD-NO-C-PAY-VL      PIC 9(4) COMP VALUE 24.

      *****************************************************************
      *   End of Field Numbers for Set
      *****************************************************************
