home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / subprg.cbl < prev    next >
Text File  |  1996-05-29  |  4KB  |  46 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 SUBPRG   COBOL                                             SUB00140
  15.        IDENTIFICATION DIVISION.                                         SUB00150
  16.          PROGRAM-ID.    SUBPRG.                                         SUB00160
  17.        ENVIRONMENT DIVISION.                                            SUB00170
  18.        DATA DIVISION.                                                   SUB00180
  19.                                                                         SUB00190
  20.        WORKING-STORAGE SECTION.                                         SUB00200
  21.                                                                         SUB00210
  22.        LINKAGE SECTION.                                                 SUB00220
  23.          COPY RECOUT.                                                   SUB00230
  24.                                                                         SUB00240
  25.        PROCEDURE DIVISION USING OUTBUFVARDS.                            SUB00250
  26.                                                                         SUB00260
  27.              DISPLAY 'SUBPRG BEGINS'.                                   SUB00270
  28.                                                                         SUB00280
  29.              CALL 'SUB1PRG'.                                            SUB00290
  30.                                                                         SUB00300
  31.              CALL 'SUBUTPRG'.                                           SUB00310
  32.                                                                         SUB00320
  33.              CALL 'UTIL2'.                                              SUB00330
  34.                                                                         SUB00340
  35.              CALL 'UTILPRG'.                                            SUB00350
  36.                                                                         SUB00360
  37.              IF COSTVAR > 1                                             SUB00370
  38.                 SUBTRACT 1 FROM COSTVAR                                 SUB00380
  39.              ELSE                                                       SUB00390
  40.                 DISPLAY 'SUBTRACT CANNOT BE PERFORMED ON COSTVAR'       SUB00400
  41.                 DISPLAY 'COSTVAR IS:' COSTVAR.                          SUB00410
  42.                                                                         SUB00420
  43.              DISPLAY 'SUBPRG ENDS'.                                     SUB00430
  44.                                                                         SUB00440
  45.              GOBACK.                                                    SUB00450
  46.