home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / sub2prg.cbl < prev    next >
Text File  |  1996-05-29  |  2KB  |  30 lines
  1.       PROCESS LIB                                                       SUB00010
  2.       *************************************************************     SUB00020
  3.       *                                                           *     SUB00030
  4.       *    Licensed Material - Property of IBM                    *     SUB00040
  5.       *                                                           *     SUB00050
  6.       *    83H9095 (C) Copyright IBM Corp., 1996                  *     SUB00060
  7.       *    All rights reserved                                    *     SUB00070
  8.       *                                                           *     SUB00080
  9.       *    US Government Users Restricted Rights - Use,           *     SUB00090
  10.       *    duplication or disclosure restricted by GSA ADP        *     SUB00100
  11.       *    Schedule Contract with IBM Corp.                       *     SUB00110
  12.       *                                                           *     SUB00120
  13.       *************************************************************     SUB00130
  14.       * File SUB2PRG  COBOL                                             SUB00140
  15.        IDENTIFICATION DIVISION.                                         SUB00150
  16.          PROGRAM-ID.    SUB2PRG.                                        SUB00160
  17.        ENVIRONMENT DIVISION.                                            SUB00170
  18.        DATA DIVISION.                                                   SUB00180
  19.                                                                         SUB00190
  20.        WORKING-STORAGE SECTION.                                         SUB00200
  21.          COPY RECOUT.                                                   SUB00210
  22.                                                                         SUB00220
  23.        PROCEDURE DIVISION.                                              SUB00230
  24.                                                                         SUB00240
  25.              DISPLAY 'SUB2PRG BEGINS'.                                  SUB00250
  26.                                                                         SUB00260
  27.              DISPLAY 'SUB2PRG ENDS'.                                    SUB00270
  28.                                                                         SUB00280
  29.              GOBACK.                                                    SUB00290
  30.