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