home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / o22516d1.zip / DSDEMO.@IP / COMMAREA.CBL < prev    next >
Text File  |  1992-07-29  |  1KB  |  29 lines

  1.           01 COMM-AREA.
  2.              05  COMM-FLAGS.
  3.                  10  COMM-REQUEST            PIC 9.
  4.                  10  COMM-RETURN             PIC 9.
  5.                  10  COMM-DELETE-FLAG        PIC 9.
  6.                      88 COMM-DELETE-FLAG-TRUE VALUE 1.
  7.                  10  COMM-LOAD-FLAG          PIC 9.
  8.                      88  COMM-LOAD-FLAG-TRUE  VALUE 1.
  9.                  10  COMM-SAVE-FLAG          PIC 9.
  10.                      88  COMM-SAVE-FLAG-TRUE  VALUE 1.
  11.                  10  COMM-MESSAGE                PIC X(40).
  12.              05  CUSTOMER-RECORD.
  13.                  10  FILE-C-CODE             PIC X(5).
  14.                  10  FILE-C-NAME             PIC X(15).
  15.                  10  FILE-C-ADDR1            PIC X(15).
  16.                  10  FILE-C-ADDR2            PIC X(15).
  17.                  10  FILE-C-ADDR3            PIC X(15).
  18.                  10  FILE-C-ADDR4            PIC X(15).
  19.                  10  FILE-C-LIMIT            PIC 9(4) COMP-3.
  20.                  10  FILE-C-AREA             PIC X.
  21.                  10  FILE-C-ORDER-ENTRY OCCURS 10 TIMES.
  22.                      15  FILE-ORD-NO     PIC 9(6).
  23.                      15  FILE-ORD-DATE.
  24.                          20  FILE-ORD-MM PIC 99.
  25.                          20  FILE-ORD-DD PIC 99.
  26.                          20  FILE-ORD-YY PIC 99.
  27.                      15  FILE-ORD-VAL    PIC 9(4)V99 COMP-3.
  28.                      15  FILE-PAY-VAL    PIC 9(4)V99 COMP-3.
  29.