home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / minivb / msgbox / msgbox.cpv < prev    next >
Text File  |  1997-11-04  |  350b  |  12 lines
  1.  
  2.       * Feature source code generation begins here...
  3.        01 iMgsTitle.
  4.           03 iMgsTitle-Length      PIC 9(9) COMP-5.
  5.           03 iMgsTitle-String.
  6.              05 iMgsTitle-Chars  PIC X
  7.                   OCCURS 1 TO 255 TIMES
  8.                   DEPENDING ON iMgsTitle-Length.
  9.  
  10.       * Feature source code generation ends here.
  11.  
  12.