home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
library
/
cwindow
/
fm01dr.cbl
< prev
next >
Wrap
Text File
|
1993-07-28
|
759b
|
15 lines
01 fm01dr.
05 dname PIC X(15).
05 r-dname redefines dname PIC X(1) occurs 15.
05 dvorname PIC X(15).
05 r-dvorname redefines dvorname PIC X(1) occurs 15.
05 dort PIC X(15).
05 r-dort redefines dort PIC X(1) occurs 15.
05 dstr PIC X(15).
05 r-dstr redefines dstr PIC X(1) occurs 15.
05 dart PIC X(19).
05 r-dart redefines dart PIC X(1) occurs 19.
05 dbst PIC X(20).
05 r-dbst redefines dbst PIC X(1) occurs 20.
05 dpreis PIC S99999V99 value 0.0.