home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / fm01dr.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  759 b   |  15 lines
  1.             01 fm01dr.
  2.              05 dname                  PIC X(15).
  3.              05 r-dname redefines dname PIC X(1) occurs 15.
  4.              05 dvorname               PIC X(15).
  5.              05 r-dvorname redefines dvorname PIC X(1) occurs 15.
  6.              05 dort                   PIC X(15).
  7.              05 r-dort redefines dort PIC X(1) occurs 15.
  8.              05 dstr                   PIC X(15).
  9.              05 r-dstr redefines dstr PIC X(1) occurs 15.
  10.              05 dart                   PIC X(19).
  11.              05 r-dart redefines dart PIC X(1) occurs 19.
  12.              05 dbst                   PIC X(20).
  13.              05 r-dbst redefines dbst PIC X(1) occurs 20.
  14.              05 dpreis                 PIC S99999V99 value 0.0.
  15.