home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / elookup1 / thedata.cpv < prev    next >
Text File  |  1997-07-25  |  2KB  |  75 lines
  1.  
  2.       * Feature source code generation begins here...
  3.        01  iADataBlk.
  4.            COPY 'dataarea.cpy'.
  5.  
  6.        01 iNumResults.
  7.           03 iNumResults-Length      PIC 9(9) COMP-5.
  8.           03 iNumResults-String.
  9.              05 iNumResults-Chars  PIC X
  10.                   OCCURS 1 TO 255 TIMES
  11.                   DEPENDING ON iNumResults-Length.
  12.  
  13.        01 iEmpname.
  14.           03 iEmpname-Length      PIC 9(9) COMP-5.
  15.           03 iEmpname-String.
  16.              05 iEmpname-Chars  PIC X
  17.                   OCCURS 1 TO 255 TIMES
  18.                   DEPENDING ON iEmpname-Length.
  19.  
  20.        01 iEmpdep.
  21.           03 iEmpdep-Length      PIC 9(9) COMP-5.
  22.           03 iEmpdep-String.
  23.              05 iEmpdep-Chars  PIC X
  24.                   OCCURS 1 TO 255 TIMES
  25.                   DEPENDING ON iEmpdep-Length.
  26.  
  27.        01 iEmpfone.
  28.           03 iEmpfone-Length      PIC 9(9) COMP-5.
  29.           03 iEmpfone-String.
  30.              05 iEmpfone-Chars  PIC X
  31.                   OCCURS 1 TO 255 TIMES
  32.                   DEPENDING ON iEmpfone-Length.
  33.  
  34.        01 iEmphire.
  35.           03 iEmphire-Length      PIC 9(9) COMP-5.
  36.           03 iEmphire-String.
  37.              05 iEmphire-Chars  PIC X
  38.                   OCCURS 1 TO 255 TIMES
  39.                   DEPENDING ON iEmphire-Length.
  40.  
  41.        01 iEmpserv.
  42.           03 iEmpserv-Length      PIC 9(9) COMP-5.
  43.           03 iEmpserv-String.
  44.              05 iEmpserv-Chars  PIC X
  45.                   OCCURS 1 TO 255 TIMES
  46.                   DEPENDING ON iEmpserv-Length.
  47.  
  48.  
  49.        01 iProcessIDX PIC 9(9) COMP-5.
  50.  
  51.        01 iEmplastn.
  52.           03 iEmplastn-Length      PIC 9(9) COMP-5.
  53.           03 iEmplastn-String.
  54.              05 iEmplastn-Chars  PIC X
  55.                   OCCURS 1 TO 255 TIMES
  56.                   DEPENDING ON iEmplastn-Length.
  57.  
  58.        01 iEmpfirstn.
  59.           03 iEmpfirstn-Length      PIC 9(9) COMP-5.
  60.           03 iEmpfirstn-String.
  61.              05 iEmpfirstn-Chars  PIC X
  62.                   OCCURS 1 TO 255 TIMES
  63.                   DEPENDING ON iEmpfirstn-Length.
  64.  
  65.        01 iEmpmidn.
  66.           03 iEmpmidn-Length      PIC 9(9) COMP-5.
  67.           03 iEmpmidn-String.
  68.              05 iEmpmidn-Chars  PIC X
  69.                   OCCURS 1 TO 255 TIMES
  70.                   DEPENDING ON iEmpmidn-Length.
  71.  
  72.        01 iFirstRecID PIC 9(9) COMP-5.
  73.  
  74.       * Feature source code generation ends here.
  75.