home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / init2prg.cbl < prev    next >
Text File  |  1996-05-29  |  2KB  |  29 lines
  1.       PROCESS LIB                                                       INI00010
  2.       *************************************************************     INI00020
  3.       *                                                           *     INI00030
  4.       *    Licensed Material - Property of IBM                    *     INI00040
  5.       *                                                           *     INI00050
  6.       *    83H9095 (C) Copyright IBM Corp., 1996                  *     INI00060
  7.       *    All rights reserved                                    *     INI00070
  8.       *                                                           *     INI00080
  9.       *    US Government Users Restricted Rights - Use,           *     INI00090
  10.       *    duplication or disclosure restricted by GSA ADP        *     INI00100
  11.       *    Schedule Contract with IBM Corp.                       *     INI00110
  12.       *                                                           *     INI00120
  13.       *************************************************************     INI00130
  14.       * File INIT2PRG COBOL                                             INI00140
  15.        IDENTIFICATION DIVISION.                                         INI00150
  16.          PROGRAM-ID.    INIT2PRG.                                       INI00160
  17.        ENVIRONMENT DIVISION.                                            INI00170
  18.        DATA DIVISION.                                                   INI00180
  19.        WORKING-STORAGE SECTION.                                         INI00190
  20.          COPY RECIN.                                                    INI00200
  21.                                                                         INI00210
  22.        PROCEDURE DIVISION.                                              INI00220
  23.                                                                         INI00230
  24.                  DISPLAY 'INIT2PRG BEGINS'.                             INI00240
  25.                                                                         INI00250
  26.                  DISPLAY 'INIT2PRG ENDS'.                               INI00260
  27.                                                                         INI00270
  28.                  GOBACK.                                                INI00280
  29.