home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / addprg.cbl < prev    next >
Text File  |  1996-05-29  |  4KB  |  46 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 ADDPRG   COBOL                                             ADD00140
  15.        IDENTIFICATION DIVISION.                                         ADD00150
  16.          PROGRAM-ID.    ADDPRG.                                         ADD00160
  17.        ENVIRONMENT DIVISION.                                            ADD00170
  18.        DATA DIVISION.                                                   ADD00180
  19.                                                                         ADD00190
  20.        WORKING-STORAGE SECTION.                                         ADD00200
  21.                                                                         ADD00210
  22.        LINKAGE SECTION.                                                 ADD00220
  23.          COPY RECOUT.                                                   ADD00230
  24.                                                                         ADD00240
  25.        PROCEDURE DIVISION USING OUTBUFVARDS.                            ADD00250
  26.                                                                         ADD00260
  27.              DISPLAY 'ADDPRG BEGINS'.                                   ADD00270
  28.                                                                         ADD00280
  29.              CALL 'ADD1PRG'.                                            ADD00290
  30.                                                                         ADD00300
  31.              CALL 'ADDUTPRG'.                                           ADD00310
  32.                                                                         ADD00320
  33.              CALL 'UTIL1'.                                              ADD00330
  34.                                                                         ADD00340
  35.              CALL 'UTILPRG'.                                            ADD00350
  36.                                                                         ADD00360
  37.              CALL 'ADD3' USING COSTVAR.                                 ADD00370
  38.                                                                         ADD00380
  39.              ADD 1 TO COSTVAR.                                          ADD00390
  40.                                                                         ADD00400
  41.              DISPLAY 'COSTVAR = ' COSTVAR.                              ADD00410
  42.                                                                         ADD00420
  43.              DISPLAY 'ADDPRG ENDS'.                                     ADD00430
  44.                                                                         ADD00440
  45.              GOBACK.                                                    ADD00450
  46.