home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / fm01ar.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  2.8 KB  |  52 lines
  1.             01 fm01ar.
  2.              05 art1                   PIC X(19).
  3.              05 r-art1 redefines art1 PIC X(1) occurs 19.
  4.              05 preis1                 PIC S99999V99 value 0.0.
  5.              05 bst1                   PIC X(20).
  6.              05 r-bst1 redefines bst1 PIC X(1) occurs 20.
  7.              05 art2                   PIC X(19).
  8.              05 r-art2 redefines art2 PIC X(1) occurs 19.
  9.              05 preis2                 PIC S99999V99 value 0.0.
  10.              05 bst2                   PIC X(20).
  11.              05 r-bst2 redefines bst2 PIC X(1) occurs 20.
  12.              05 art3                   PIC X(19).
  13.              05 r-art3 redefines art3 PIC X(1) occurs 19.
  14.              05 preis3                 PIC S99999V99 value 0.0.
  15.              05 bst3                   PIC X(20).
  16.              05 r-bst3 redefines bst3 PIC X(1) occurs 20.
  17.              05 art4                   PIC X(19).
  18.              05 r-art4 redefines art4 PIC X(1) occurs 19.
  19.              05 preis4                 PIC S99999V99 value 0.0.
  20.              05 bst4                   PIC X(20).
  21.              05 r-bst4 redefines bst4 PIC X(1) occurs 20.
  22.              05 art5                   PIC X(19).
  23.              05 r-art5 redefines art5 PIC X(1) occurs 19.
  24.              05 preis5                 PIC S99999V99 value 0.0.
  25.              05 bst5                   PIC X(20).
  26.              05 r-bst5 redefines bst5 PIC X(1) occurs 20.
  27.              05 art6                   PIC X(19).
  28.              05 r-art6 redefines art6 PIC X(1) occurs 19.
  29.              05 preis6                 PIC S99999V99 value 0.0.
  30.              05 bst6                   PIC X(20).
  31.              05 r-bst6 redefines bst6 PIC X(1) occurs 20.
  32.              05 art7                   PIC X(19).
  33.              05 r-art7 redefines art7 PIC X(1) occurs 19.
  34.              05 preis7                 PIC S99999V99 value 0.0.
  35.              05 bst7                   PIC X(20).
  36.              05 r-bst7 redefines bst7 PIC X(1) occurs 20.
  37.              05 art8                   PIC X(19).
  38.              05 r-art8 redefines art8 PIC X(1) occurs 19.
  39.              05 preis8                 PIC S99999V99 value 0.0.
  40.              05 bst8                   PIC X(20).
  41.              05 r-bst8 redefines bst8 PIC X(1) occurs 20.
  42.              05 art9                   PIC X(19).
  43.              05 r-art9 redefines art9 PIC X(1) occurs 19.
  44.              05 preis9                 PIC S99999V99 value 0.0.
  45.              05 bst9                   PIC X(20).
  46.              05 r-bst9 redefines bst9 PIC X(1) occurs 20.
  47.              05 arta                   PIC X(19).
  48.              05 r-arta redefines arta PIC X(1) occurs 19.
  49.              05 preisa                 PIC S99999V99 value 0.0.
  50.              05 bsta                   PIC X(20).
  51.              05 r-bsta redefines bsta PIC X(1) occurs 20.
  52.