home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / feld.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  6.3 KB  |  110 lines
  1.             01 feld.
  2.              05 fld0                   PIC S99999999V99999999 value 0.0.
  3.              05 fld1                   PIC S999999999999999 value 0.
  4.              05 fld2                   PIC X(15).
  5.              05 r-fld2 redefines fld2 PIC X(1) occurs 15.
  6.              05 fld3                   PIC S9999999999 value 0.
  7.              05 fld4                   PIC S999999999 value 0.
  8.              05 fld5                   PIC S9V99 value 0.0.
  9.              05 fld6                   PIC S9V999 value 0.0.
  10.              05 fld7                   PIC S9V9999 value 0.0.
  11.              05 fld8                   PIC S9V99999 value 0.0.
  12.              05 fld9                   PIC S9V999999999999999 value 0.0.
  13.              05 fld10                  PIC S999 value 0.
  14.              05 fld11                  PIC S99999 value 0.
  15.              05 fld12                  PIC X(4).
  16.              05 r-fld12 redefines fld12 PIC X(1) occurs 4.
  17.              05 fld13                  PIC S999999V9 value 0.0.
  18.              05 fld14                  PIC S9V9 value 0.0.
  19.              05 fld15                  PIC X(1).
  20.              05 fld16                  PIC S9V9 value 0.0.
  21.              05 fld17                  PIC S9V9 value 0.0.
  22.              05 fld18                  PIC S9V99 value 0.0.
  23.              05 fld19                  PIC S999 value 0.
  24.              05 fld20                  PIC S9 value 0.
  25.              05 fld21                  PIC S99V99999 value 0.0.
  26.              05 fld22                  PIC S999999999999999V9 value 0.0.
  27.              05 fld23                  PIC S99999V99999 value 0.0.
  28.              05 fld24                  PIC X(3).
  29.              05 r-fld24 redefines fld24 PIC X(1) occurs 3.
  30.              05 fld25                  PIC S999 value 0.
  31.              05 fld26                  PIC X(6).
  32.              05 r-fld26 redefines fld26 PIC X(1) occurs 6.
  33.              05 fld27                  PIC X(6).
  34.              05 r-fld27 redefines fld27 PIC X(1) occurs 6.
  35.              05 fld28                  PIC S99V999999 value 0.0.
  36.              05 fld29                  PIC X(5).
  37.              05 r-fld29 redefines fld29 PIC X(1) occurs 5.
  38.              05 fld30                  PIC X(4).
  39.              05 r-fld30 redefines fld30 PIC X(1) occurs 4.
  40.              05 fld31                  PIC X(6).
  41.              05 r-fld31 redefines fld31 PIC X(1) occurs 6.
  42.              05 fld32                  PIC S99 value 0.
  43.              05 fld33                  PIC S9 value 0.
  44.              05 fld34                  PIC S999999999 value 0.
  45.              05 fld35                  PIC S999999999 value 0.
  46.              05 fld36                  PIC S999999999 value 0.
  47.              05 fld37                  PIC X(1).
  48.              05 fld38                  PIC S999999999 value 0.
  49.              05 fld39                  PIC S9V9 value 0.0.
  50.              05 fld40                  PIC S9 value 0.
  51.              05 fld41                  PIC S9 value 0.
  52.              05 fld42                  PIC S99 value 0.
  53.              05 fld43                  PIC S999 value 0.
  54.              05 fld44                  PIC S9999 value 0.
  55.              05 fld45                  PIC S99999 value 0.
  56.              05 fld46                  PIC S99999999999999V99 value 0.0.
  57.              05 fld47                  PIC S999999999999999 value 0.
  58.              05 fld48                  PIC S999999999999 value 0.
  59.              05 fld49                  PIC S9 value 0.
  60.              05 fld50                  PIC X(7).
  61.              05 r-fld50 redefines fld50 PIC X(1) occurs 7.
  62.              05 fld51                  PIC X(9).
  63.              05 r-fld51 redefines fld51 PIC X(1) occurs 9.
  64.              05 fld52                  PIC X(2).
  65.              05 r-fld52 redefines fld52 PIC X(1) occurs 2.
  66.              05 fld53                  PIC S99 value 0.
  67.              05 fld54                  PIC S9 value 0.
  68.              05 fld55                  PIC S999999999 value 0.
  69.              05 fld56                  PIC S999999 value 0.
  70.              05 fld57                  PIC S999999999 value 0.
  71.              05 fld58                  PIC S99V9999999999999 value 0.0.
  72.              05 fld59                  PIC X(3).
  73.              05 r-fld59 redefines fld59 PIC X(1) occurs 3.
  74.              05 fld60                  PIC S99999999 value 0.
  75.              05 fld61                  PIC S9999999 value 0.
  76.              05 fld62                  PIC X(2).
  77.              05 r-fld62 redefines fld62 PIC X(1) occurs 2.
  78.              05 fld63                  PIC X(2).
  79.              05 r-fld63 redefines fld63 PIC X(1) occurs 2.
  80.              05 fld64                  PIC X(6).
  81.              05 r-fld64 redefines fld64 PIC X(1) occurs 6.
  82.              05 fld65                  PIC X(3).
  83.              05 r-fld65 redefines fld65 PIC X(1) occurs 3.
  84.              05 fld66                  PIC X(2).
  85.              05 r-fld66 redefines fld66 PIC X(1) occurs 2.
  86.              05 fld67                  PIC S99999 value 0.
  87.              05 fld68                  PIC S9999 value 0.
  88.              05 fld69                  PIC S999 value 0.
  89.              05 fld70                  PIC S99 value 0.
  90.              05 fld71                  PIC S9 value 0.
  91.              05 fld72                  PIC S999999V99999999 value 0.0.
  92.              05 fld73                  PIC S9 value 0.
  93.              05 fld74                  PIC S99999V99 value 0.0.
  94.              05 fld75                  PIC S9999V99 value 0.0.
  95.              05 fld76                  PIC S999V9999 value 0.0.
  96.              05 fld77                  PIC S999999V9 value 0.0.
  97.              05 fld78                  PIC S9V9 value 0.0.
  98.              05 fld79                  PIC X(1).
  99.              05 fld80                  PIC S99999999999 value 0.
  100.              05 fld81                  PIC S9V9 value 0.0.
  101.              05 fld82                  PIC S999V999 value 0.0.
  102.              05 fld83                  PIC S9999V9 value 0.0.
  103.              05 fld84                  PIC S99V99 value 0.0.
  104.              05 fld85                  PIC S9999999 value 0.
  105.              05 fld86                  PIC S9999999 value 0.
  106.              05 fld87                  PIC X(5).
  107.              05 r-fld87 redefines fld87 PIC X(1) occurs 5.
  108.              05 fld88                  PIC X(1).
  109.              05 fld89                  PIC S9999999999999 value 0.
  110.