home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / add2prg.cbl < prev    next >
Text File  |  1996-05-29  |  3KB  |  32 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 ADD2PRG  COBOL                                             ADD00140
  15.        IDENTIFICATION DIVISION.                                         ADD00150
  16.          PROGRAM-ID.    ADD2PRG.                                        ADD00160
  17.        ENVIRONMENT DIVISION.                                            ADD00170
  18.        DATA DIVISION.                                                   ADD00180
  19.                                                                         ADD00190
  20.        WORKING-STORAGE SECTION.                                         ADD00200
  21.          COPY RECIN.                                                    ADD00210
  22.                                                                         ADD00220
  23.        PROCEDURE DIVISION.                                              ADD00230
  24.                                                                         ADD00240
  25.              INITIALIZE INBUFVARDS.                                     ADD00250
  26.                                                                         ADD00260
  27.              DISPLAY 'ADD2PRG BEGINS'.                                  ADD00270
  28.                                                                         ADD00280
  29.              DISPLAY 'ADD2PRG ENDS'.                                    ADD00290
  30.                                                                         ADD00300
  31.              GOBACK.                                                    ADD00310
  32.