home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / DSDEMO.@IP / DSCCIECI.CPB < prev    next >
Text File  |  1992-07-29  |  4KB  |  85 lines
  1.  
  2.       *****************************************************************
  3.       *   Data Block
  4.       *****************************************************************
  5.  
  6.        01 DATA-BLOCK-VERSION-NO              PIC 9(8) COMP-5
  7.                                                   VALUE 40.
  8.  
  9.        01 VERSION-NO                         PIC 9(2) COMP-5 VALUE 2.
  10.  
  11.        01 SET-BUILD-NO                       PIC 9(4) COMP-5
  12.                                                   VALUE 48.
  13.  
  14.        01 DATA-BLOCK.
  15.           03 C-CODE                          PIC X(5).
  16.           03 C-NAME                          PIC X(15).
  17.           03 C-ADDR1                         PIC X(15).
  18.           03 C-ADDR2                         PIC X(15).
  19.           03 C-ADDR3                         PIC X(15).
  20.           03 C-ADDR4                         PIC X(15).
  21.           03 C-LIMIT                         PIC 9(4).
  22.           03 C-AREA                          PIC X.
  23.           03 GROUP-001.
  24.              04 GROUP-001-ITEM OCCURS 10.
  25.                 05 ORD-NO                    PIC 9(6).
  26.                 05 ORD-DATE                  PIC 9(6).
  27.                 05 ORD-VAL                   PIC S9(4)V9(2).
  28.                 05 PAY-VAL                   PIC S9(4)V9(2).
  29.                 05 ORD-BAL                   PIC S9(4)V9(2).
  30.           03 C-BAL                           PIC S9(5)V9(2).
  31.           03 GROUP-002.
  32.              05 DEL-FLG                      PIC 9.
  33.                     88  DEL-FLG-TRUE VALUE 1.
  34.              05 LOAD-FLG                     PIC 9.
  35.                     88  LOAD-FLG-TRUE VALUE 1.
  36.              05 SAVE-FLG                     PIC 9.
  37.                     88  SAVE-FLG-TRUE VALUE 1.
  38.              05 CLR-FLG                      PIC 9.
  39.                     88  CLR-FLG-TRUE VALUE 1.
  40.              05 EXIT-FLG                     PIC 9.
  41.                     88  EXIT-FLG-TRUE VALUE 1.
  42.           03 ERR-MSG                         PIC X(40).
  43.           03 C-ORD-NO                        PIC 9(6).
  44.           03 C-ORD-DT                        PIC 9(6).
  45.           03 C-ORD-VL                        PIC S9(4)V9(2).
  46.           03 C-PAY-VL                        PIC S9(4)V9(2).
  47.  
  48.       *****************************************************************
  49.       *   End of Data Block
  50.       *****************************************************************
  51.  
  52.       *****************************************************************
  53.       *   Field Numbers
  54.       *****************************************************************
  55.  
  56.        01 FIELD-NUMBERS.
  57.           03 FLD-NO-C-CODE                   PIC 9(4) COMP-5 VALUE 1.
  58.           03 FLD-NO-C-NAME                   PIC 9(4) COMP-5 VALUE 2.
  59.           03 FLD-NO-C-ADDR1                  PIC 9(4) COMP-5 VALUE 3.
  60.           03 FLD-NO-C-ADDR2                  PIC 9(4) COMP-5 VALUE 4.
  61.           03 FLD-NO-C-ADDR3                  PIC 9(4) COMP-5 VALUE 5.
  62.           03 FLD-NO-C-ADDR4                  PIC 9(4) COMP-5 VALUE 6.
  63.           03 FLD-NO-C-LIMIT                  PIC 9(4) COMP-5 VALUE 7.
  64.           03 FLD-NO-C-AREA                   PIC 9(4) COMP-5 VALUE 8.
  65.           03 FLD-NO-ORD-NO                   PIC 9(4) COMP-5 VALUE 10.
  66.           03 FLD-NO-ORD-DATE                 PIC 9(4) COMP-5 VALUE 11.
  67.           03 FLD-NO-ORD-VAL                  PIC 9(4) COMP-5 VALUE 12.
  68.           03 FLD-NO-PAY-VAL                  PIC 9(4) COMP-5 VALUE 13.
  69.           03 FLD-NO-ORD-BAL                  PIC 9(4) COMP-5 VALUE 14.
  70.           03 FLD-NO-C-BAL                    PIC 9(4) COMP-5 VALUE 15.
  71.           03 FLD-NO-DEL-FLG                  PIC 9(4) COMP-5 VALUE 17.
  72.           03 FLD-NO-LOAD-FLG                 PIC 9(4) COMP-5 VALUE 18.
  73.           03 FLD-NO-SAVE-FLG                 PIC 9(4) COMP-5 VALUE 19.
  74.           03 FLD-NO-CLR-FLG                  PIC 9(4) COMP-5 VALUE 20.
  75.           03 FLD-NO-EXIT-FLG                 PIC 9(4) COMP-5 VALUE 21.
  76.           03 FLD-NO-ERR-MSG                  PIC 9(4) COMP-5 VALUE 22.
  77.           03 FLD-NO-C-ORD-NO                 PIC 9(4) COMP-5 VALUE 23.
  78.           03 FLD-NO-C-ORD-DT                 PIC 9(4) COMP-5 VALUE 24.
  79.           03 FLD-NO-C-ORD-VL                 PIC 9(4) COMP-5 VALUE 25.
  80.           03 FLD-NO-C-PAY-VL                 PIC 9(4) COMP-5 VALUE 26.
  81.  
  82.       *****************************************************************
  83.       *   End of Field Numbers
  84.       *****************************************************************
  85.