home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / utilprg.cbl < prev   
Text File  |  1996-05-29  |  3KB  |  42 lines
  1.       PROCESS LIB                                                       UTI00010
  2.       *************************************************************     UTI00020
  3.       *                                                           *     UTI00030
  4.       *    Licensed Material - Property of IBM                    *     UTI00040
  5.       *                                                           *     UTI00050
  6.       *    83H9095 (C) Copyright IBM Corp., 1996                  *     UTI00060
  7.       *    All rights reserved                                    *     UTI00070
  8.       *                                                           *     UTI00080
  9.       *    US Government Users Restricted Rights - Use,           *     UTI00090
  10.       *    duplication or disclosure restricted by GSA ADP        *     UTI00100
  11.       *    Schedule Contract with IBM Corp.                       *     UTI00110
  12.       *                                                           *     UTI00120
  13.       *************************************************************     UTI00130
  14.       * File UTILPRG  COBOL                                             UTI00140
  15.        IDENTIFICATION DIVISION.                                         UTI00150
  16.          PROGRAM-ID.    UTILPRG.                                        UTI00160
  17.        ENVIRONMENT DIVISION.                                            UTI00170
  18.        DATA DIVISION.                                                   UTI00180
  19.                                                                         UTI00190
  20.        WORKING-STORAGE SECTION.                                         UTI00200
  21.          COPY RECOUT.                                                   UTI00210
  22.                                                                         UTI00220
  23.        PROCEDURE DIVISION.                                              UTI00230
  24.                                                                         UTI00240
  25.             DISPLAY 'UTILPRG BEGINS'                                    UTI00250
  26.                                                                         UTI00260
  27.             GO TO ERRCHEK.                                              UTI00270
  28.                                                                         UTI00280
  29.             ENTRY 'UTIL1'.                                              UTI00290
  30.                   IF NAME = 'SMITH'                                     UTI00300
  31.                      MOVE ZEROS TO COSTVAR.                             UTI00310
  32.             ENTRY 'UTIL2'.                                              UTI00320
  33.                   IF NAME = 'SMITH'                                     UTI00330
  34.                      MOVE ZEROS TO ACCOUNT-UPDT-DDMMYY.                 UTI00340
  35.                                                                         UTI00350
  36.        ERRCHEK.                                                         UTI00360
  37.             ENTRY 'ERRCHEK'.                                            UTI00370
  38.                   IF NAME = 'SMITH' AND COSTVAR IS NOT ZERO             UTI00380
  39.                      DISPLAY 'ERROR'.                                   UTI00390
  40.             DISPLAY 'UTILPRG ENDS'.                                     UTI00400
  41.             GOBACK.                                                     UTI00410
  42.