home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / minivb / con1 / con1nv.cpv < prev   
Text File  |  1997-11-19  |  586b  |  17 lines
  1.       * Feature source code generation begins here...
  2.        01 iCon1col1.
  3.           03 iCon1col1-Length      PIC 9(9) COMP-5.
  4.           03 iCon1col1-String.
  5.              05 iCon1col1-Chars  PIC X
  6.                   OCCURS 1 TO 255 TIMES
  7.                   DEPENDING ON iCon1col1-Length.
  8.  
  9.        01 iCon1col2.
  10.           03 iCon1col2-Length      PIC 9(9) COMP-5.
  11.           03 iCon1col2-String.
  12.              05 iCon1col2-Chars  PIC X
  13.                   OCCURS 1 TO 255 TIMES
  14.                   DEPENDING ON iCon1col2-Length.
  15.  
  16.       * Feature source code generation ends here.
  17.