home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / divprg.cbl < prev    next >
Text File  |  1996-05-29  |  3KB  |  36 lines
  1.       PROCESS LIB                                                       DIV00010
  2.       *************************************************************     DIV00020
  3.       *                                                           *     DIV00030
  4.       *    Licensed Material - Property of IBM                    *     DIV00040
  5.       *                                                           *     DIV00050
  6.       *    83H9095 (C) Copyright IBM Corp., 1996                  *     DIV00060
  7.       *    All rights reserved                                    *     DIV00070
  8.       *                                                           *     DIV00080
  9.       *    US Government Users Restricted Rights - Use,           *     DIV00090
  10.       *    duplication or disclosure restricted by GSA ADP        *     DIV00100
  11.       *    Schedule Contract with IBM Corp.                       *     DIV00110
  12.       *                                                           *     DIV00120
  13.       *************************************************************     DIV00130
  14.       * File DIVPRG   COBOL                                             DIV00140
  15.        IDENTIFICATION DIVISION.                                         DIV00150
  16.          PROGRAM-ID.    DIVPRG.                                         DIV00160
  17.        ENVIRONMENT DIVISION.                                            DIV00170
  18.        DATA DIVISION.                                                   DIV00180
  19.                                                                         DIV00190
  20.        WORKING-STORAGE SECTION.                                         DIV00200
  21.                                                                         DIV00210
  22.        LINKAGE SECTION.                                                 DIV00220
  23.          COPY RECOUT.                                                   DIV00230
  24.                                                                         DIV00240
  25.        PROCEDURE DIVISION USING OUTBUFVARDS.                            DIV00250
  26.                                                                         DIV00260
  27.              DISPLAY 'DIVPRG BEGINS'.                                   DIV00270
  28.                                                                         DIV00280
  29.              CALL 'DIVUTPRG'.                                           DIV00290
  30.                                                                         DIV00300
  31.              DIVIDE 2 INTO COSTVAR ROUNDED.                             DIV00310
  32.                                                                         DIV00320
  33.              DISPLAY 'DIVPRG ENDS'.                                     DIV00330
  34.                                                                         DIV00340
  35.              GOBACK.                                                    DIV00350
  36.