home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / multprg.cbl < prev    next >
Text File  |  1996-07-01  |  4KB  |  55 lines
  1.       PROCESS LIB                                                       MUL00010
  2.       *************************************************************     MUL00020
  3.       *                                                           *     MUL00030
  4.       *    Licensed Material - Property of IBM                    *     MUL00040
  5.       *                                                           *     MUL00050
  6.       *    83H9095 (C) Copyright IBM Corp., 1996                  *     MUL00060
  7.       *    All rights reserved                                    *     MUL00070
  8.       *                                                           *     MUL00080
  9.       *    US Government Users Restricted Rights - Use,           *     MUL00090
  10.       *    duplication or disclosure restricted by GSA ADP        *     MUL00100
  11.       *    Schedule Contract with IBM Corp.                       *     MUL00110
  12.       *                                                           *     MUL00120
  13.       *************************************************************     MUL00130
  14.       * File MULTPRG  COBOL                                             MUL00140
  15.        IDENTIFICATION DIVISION.                                         MUL00150
  16.          PROGRAM-ID.    MULTPRG.                                        MUL00160
  17.        ENVIRONMENT DIVISION.                                            MUL00170
  18.        DATA DIVISION.                                                   MUL00180
  19.                                                                         MUL00190
  20.        WORKING-STORAGE SECTION.                                         MUL00200
  21.                                                                         MUL00210
  22.        LINKAGE SECTION.                                                 MUL00220
  23.          COPY RECOUT.                                                   MUL00230
  24.                                                                         MUL00240
  25.        PROCEDURE DIVISION USING OUTBUFVARDS.                            MUL00250
  26.                                                                         MUL00260
  27.              DISPLAY 'MULTPRG BEGINS'.                                  MUL00270
  28.                                                                         MUL00280
  29.              CALL 'MULUTPRG'.                                           MUL00290
  30.                                                                         MUL00300
  31.              MULTIPLY 3 BY COSTVAR.                                     MUL00310
  32.                                                                         MUL00320
  33.              DISPLAY 'MULTPRG ENDS'.                                    MUL00330
  34.                                                                         MUL00340
  35.              GOBACK.                                                    MUL00350
  36.                                                                         MUL00360
  37.        IDENTIFICATION DIVISION.                                         MUL00500
  38.          PROGRAM-ID.    MULUTPRG.                                       MUL00510
  39.        ENVIRONMENT DIVISION.                                            MUL00520
  40.        DATA DIVISION.                                                   MUL00530
  41.                                                                         MUL00540
  42.        WORKING-STORAGE SECTION.                                         MUL00550
  43.          COPY RECIN.                                                    MUL00560
  44.                                                                         MUL00570
  45.        PROCEDURE DIVISION.                                              MUL00580
  46.              DISPLAY 'MULUTPRG BEGINS'.                                 MUL00590
  47.                                                                         MUL00600
  48.              CALL 'ERRCHEK'.                                            MUL00610
  49.                                                                         MUL00620
  50.              DISPLAY 'MULUTPRG ENDS'.                                   MUL00630
  51.                                                                         MUL00640
  52.              GOBACK.                                                    MUL00650
  53.        END PROGRAM MULUTPRG.                                            MUL00660
  54.        END PROGRAM MULTPRG.                                             MUL00670
  55.