home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / elookup1 / copy / dataarea.cpy next >
Text File  |  1998-01-10  |  2KB  |  44 lines
  1.       *************************************************************
  2.       *  Name:          DATAAREA.CPY                              *
  3.       *  Description:   Copy file for the data area               *
  4.       *                                                           *
  5.       *************************************************************
  6.  
  7.            05  CS-Return-Code               PIC 9(1).
  8.                88  CS-OK                               VALUE 0.
  9.                88  CS-No-Match                         VALUE 1.
  10.                88  CS-DB-Error                         VALUE 2.
  11.                88  CS-Error                            VALUE 3.
  12.                88  CS-SC-Error                         VALUE 4.
  13.            05  Results-Knt                  PIC 9(2).
  14.            05  CS-SQL-Code                  PIC 9(9).
  15.  
  16.            05  CS-Result-Data.
  17.                10  CS-Result-Details    OCCURS 50 TIMES.
  18.                   15  CS-EMP-LASTNAME.
  19.                       20  CS-EMP-LAST-LEN   PIC S9(4) Comp-5.
  20.                       20  CS-EMP-LAST-DATA  PIC x(15).
  21.                   15  CS-EMP-FIRSTNAME.
  22.                       20  CS-EMP-FIRST-LEN  PIC S9(4) Comp-5.
  23.                       20  CS-EMP-FIRST-DATA PIC X(10).
  24.                   15  CS-EMP-INITIAL        PIC X(1).
  25.                   15  CS-EMP-DEPT           PIC X(3).
  26.                   15  CS-EMP-PHONE          PIC X(4).
  27.                   15  CS-EMP-HIRE-DATE      PIC X(10).
  28.                   15  CS-SERVICE-LENGTH     PIC 9(2).
  29.       ***************************************************************
  30.       *              END  COPY
  31.       **************************************************************
  32.  
  33.       *************************************************************
  34.       *    Licensed Materials - Property of IBM                   *
  35.       *                                                           *
  36.       *    28H2177 (C) Copyright IBM Corp. 1995, 1998             *
  37.       *    All rights reserved                                    *
  38.       *                                                           *
  39.       *    US Government Users Restricted Rights - Use,           *
  40.       *    duplication, or disclosure restricted by GSA ADP       *
  41.       *    Schedule Contract with IBM Corp.                       *
  42.       *                                                           *
  43.       *************************************************************
  44.