home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / putut / divutprg.cbl < prev    next >
Text File  |  1996-05-29  |  3KB  |  34 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 DIVUTPRG COBOL                                             DIV00140
  15.        IDENTIFICATION DIVISION.                                         DIV00150
  16.          PROGRAM-ID.    DIVUTPRG.                                       DIV00160
  17.        ENVIRONMENT DIVISION.                                            DIV00170
  18.        DATA DIVISION.                                                   DIV00180
  19.                                                                         DIV00190
  20.        WORKING-STORAGE SECTION.                                         DIV00200
  21.          COPY RECIN.                                                    DIV00210
  22.                                                                         DIV00220
  23.        PROCEDURE DIVISION.                                              DIV00230
  24.                                                                         DIV00240
  25.              DISPLAY 'DIVUTPRG BEGINS'.                                 DIV00250
  26.                                                                         DIV00260
  27.              INITIALIZE INBUFVARDS.                                     DIV00270
  28.                                                                         DIV00280
  29.              CALL 'ERRCHEK'.                                            DIV00290
  30.                                                                         DIV00300
  31.              DISPLAY 'DIVUTPRG ENDS'.                                   DIV00310
  32.                                                                         DIV00320
  33.              GOBACK.                                                    DIV00330
  34.