home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / cicssmp / clidir / eci.cpv < prev    next >
Text File  |  1997-04-17  |  823b  |  25 lines
  1.  
  2.       * Feature source code generation begins here...
  3.        01 iTheTime.
  4.            03 iTheTime-Length      PIC 9(9) COMP-5.
  5.            03 iTheTime-String.
  6.            05 iTheTime-Chars  PIC X
  7.                   OCCURS 1 TO 255 TIMES
  8.                   DEPENDING ON iTheTime-Length.
  9.  
  10.        01 iTheDate.
  11.            03 iTheDate-Length      PIC 9(9) COMP-5.
  12.            03 iTheDate-String.
  13.            05 iTheDate-Chars  PIC X
  14.                   OCCURS 1 TO 255 TIMES
  15.                   DEPENDING ON iTheDate-Length.
  16.  
  17.        01 iErrorCode.
  18.            03 iErrorCode-Length      PIC 9(9) COMP-5.
  19.            03 iErrorCode-String.
  20.            05 iErrorCode-Chars  PIC X
  21.                   OCCURS 1 TO 255 TIMES
  22.                   DEPENDING ON iErrorCode-Length.
  23.  
  24.       * Feature source code generation ends here.
  25.