home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / elookup1 / copy / servsc.cpy < prev   
Text File  |  1998-01-10  |  2KB  |  31 lines
  1.       *************************************************************
  2.       *  Name:          SERVSC.CPY                                *
  3.       *  Description:   Copy file for Service Calculation         *
  4.       *                 Subroutine parameter list                 *
  5.       *************************************************************
  6.  
  7.            05  SC-Hire-Date.
  8.                10  SC-Hire-Month            PIC 9(2).
  9.                10  filler1                  pic X.
  10.                10  SC-Hire-Day              PIC 9(2).
  11.                10  filler2                  pic X.
  12.                10  SC-Hire-Year             PIC 9(4).
  13.            05  SC-Service-Length            PIC 9(2).
  14.  
  15.            05  SC-Return-Code               PIC 9(1).
  16.  
  17.       *************************************************************
  18.       *              END  COPYMEMBER:  SERVCC.CPY                 *
  19.       *************************************************************
  20.  
  21.       *************************************************************
  22.       *    Licensed Materials - Property of IBM                   *
  23.       *                                                           *
  24.       *    (C) Copyright IBM Corp. 1995, 1998                     *
  25.       *    All rights reserved                                    *
  26.       *                                                           *
  27.       *    US Government Users Restricted Rights - Use,           *
  28.       *    duplication, or disclosure restricted by GSA ADP       *
  29.       *    Schedule Contract with IBM Corp.                       *
  30.       *************************************************************
  31.