home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / fm01bs.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.1 KB  |  21 lines
  1.             01 fm01bs.
  2.              05 bname                  PIC X(15).
  3.              05 r-bname redefines bname PIC X(1) occurs 15.
  4.              05 bbst                   PIC X(20).
  5.              05 r-bbst redefines bbst PIC X(1) occurs 20.
  6.              05 bvorname               PIC X(15).
  7.              05 r-bvorname redefines bvorname PIC X(1) occurs 15.
  8.              05 bart                   PIC X(19).
  9.              05 r-bart redefines bart PIC X(1) occurs 19.
  10.              05 bort                   PIC X(15).
  11.              05 r-bort redefines bort PIC X(1) occurs 15.
  12.              05 bpreis                 PIC S99999V99 value 0.0.
  13.              05 bstr                   PIC X(15).
  14.              05 r-bstr redefines bstr PIC X(1) occurs 15.
  15.              05 btel                   PIC X(15).
  16.              05 r-btel redefines btel PIC X(1) occurs 15.
  17.              05 bblz                   PIC X(15).
  18.              05 r-bblz redefines bblz PIC X(1) occurs 15.
  19.              05 bkonto                 PIC X(15).
  20.              05 r-bkonto redefines bkonto PIC X(1) occurs 15.
  21.