home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / subutprg.cbl < prev    next >
Text File  |  1996-05-29  |  3KB  |  42 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 SUBUTPRG COBOL                                             SUB00140
  15.        IDENTIFICATION DIVISION.                                         SUB00150
  16.          PROGRAM-ID.    SUBUTPRG.                                       SUB00160
  17.        ENVIRONMENT DIVISION.                                            SUB00170
  18.        DATA DIVISION.                                                   SUB00180
  19.                                                                         SUB00190
  20.        WORKING-STORAGE SECTION.                                         SUB00200
  21.          COPY RECOUT.                                                   SUB00210
  22.                                                                         SUB00220
  23.          01  CHECKVAR                         PIC 9(4).                 SUB00230
  24.                                                                         SUB00240
  25.        PROCEDURE DIVISION.                                              SUB00250
  26.                                                                         SUB00260
  27.              DISPLAY 'SUBUTPRG BEGINS'.                                 SUB00270
  28.                                                                         SUB00280
  29.              MOVE 2 TO COSTVAR.                                         SUB00290
  30.                                                                         SUB00300
  31.              MOVE COSTVAR TO CHECKVAR.                                  SUB00310
  32.                                                                         SUB00320
  33.              CALL 'ADD3' USING CHECKVAR.                                SUB00330
  34.                                                                         SUB00340
  35.              CALL 'SUB2PRG'.                                            SUB00350
  36.                                                                         SUB00360
  37.              CALL 'ERRCHEK'.                                            SUB00370
  38.                                                                         SUB00380
  39.              DISPLAY 'SUBUTPRG ENDS'.                                   SUB00390
  40.                                                                         SUB00400
  41.              GOBACK.                                                    SUB00410
  42.