home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / addutprg.cbl < prev    next >
Text File  |  1996-05-29  |  4KB  |  45 lines
  1.       PROCESS LIB                                                       ADD00010
  2.       *************************************************************     ADD00020
  3.       *                                                           *     ADD00030
  4.       *    Licensed Material - Property of IBM                    *     ADD00040
  5.       *                                                           *     ADD00050
  6.       *    83H9095 (C) Copyright IBM Corp., 1996                  *     ADD00060
  7.       *    All rights reserved                                    *     ADD00070
  8.       *                                                           *     ADD00080
  9.       *    US Government Users Restricted Rights - Use,           *     ADD00090
  10.       *    duplication or disclosure restricted by GSA ADP        *     ADD00100
  11.       *    Schedule Contract with IBM Corp.                       *     ADD00110
  12.       *                                                           *     ADD00120
  13.       *************************************************************     ADD00130
  14.       * File ADDUTPRG COBOL                                             ADD00140
  15.        IDENTIFICATION DIVISION.                                         ADD00150
  16.          PROGRAM-ID.    ADDUTPRG.                                       ADD00160
  17.        ENVIRONMENT DIVISION.                                            ADD00170
  18.        DATA DIVISION.                                                   ADD00180
  19.                                                                         ADD00190
  20.        WORKING-STORAGE SECTION.                                         ADD00200
  21.          COPY RECIN.                                                    ADD00210
  22.                                                                         ADD00220
  23.        LINKAGE SECTION.                                                 ADD00230
  24.                                                                         ADD00240
  25.          01  CHECKVAR                        PIC 9(4).                  ADD00250
  26.                                                                         ADD00260
  27.        PROCEDURE DIVISION.                                              ADD00270
  28.                                                                         ADD00280
  29.              DISPLAY 'ADDUTPRG BEGINS'.                                 ADD00290
  30.                                                                         ADD00300
  31.              INITIALIZE INBUFVARDS.                                     ADD00310
  32.                                                                         ADD00320
  33.              CALL 'ADD2PRG'.                                            ADD00330
  34.                                                                         ADD00340
  35.              ENTRY 'ADD3' USING CHECKVAR.                               ADD00350
  36.                                                                         ADD00360
  37.              IF CHECKVAR > 0                                            ADD00370
  38.                 DISPLAY 'CHECKVAR = ' CHECKVAR.                         ADD00380
  39.                                                                         ADD00390
  40.              CALL 'ERRCHEK'.                                            ADD00400
  41.                                                                         ADD00410
  42.              DISPLAY 'ADDUTPRG ENDS'.                                   ADD00420
  43.                                                                         ADD00430
  44.              GOBACK.                                                    ADD00440
  45.