home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerDTA / DataTool.z / Data1.cbl next >
Text File  |  1997-01-14  |  708b  |  16 lines
  1. 000010*     URI          TEMPORARY LEVEL=3    DATE=92.08.03
  2. 000020 01  SALESREC.
  3. 000030     02  ORDERNO             PIC  X(10).
  4. 000040     02  PRODUCTNO           PIC  X(10).
  5. 000050     02  PRODUCTNAME         PIC  X(20).
  6. 000060     02  PRICE               PIC  9(05).
  7. 000070     02  SALESNUMBER         PIC S9(04).
  8. 000080     02  SALES               PIC S9(09).
  9. 000090     02  SALESDATE           PIC  9(08).
  10. 000100     02  DATEX      REDEFINES  SALESDATE.
  11. 000110         03  YEARE           PIC  9(04).
  12. 000120         03  MONTH           PIC  9(02).
  13. 000130         03  SALESDAY        PIC  9(02).
  14. 000140     02  CUSTOMERNAME        PIC  X(40).
  15. 000150     02  CUSTCODE            PIC  X(10).
  16.