home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / order.cbl < prev    next >
Text File  |  1993-07-28  |  486b  |  10 lines
  1.             01 order.
  2.              05 product                PIC X(20).
  3.              05 r-product redefines product PIC X(1) occurs 20.
  4.              05 orderdate              PIC X(8).
  5.              05 r-orderdate redefines orderdate PIC X(1) occurs 8.
  6.              05 nr                     PIC X(20).
  7.              05 r-nr redefines nr PIC X(1) occurs 20.
  8.              05 quantity               PIC S999 value 0.
  9.              05 price                  PIC S99999V99 value 0.0.
  10.