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 >
Wrap
Text File
|
1996-05-29
|
3KB
|
34 lines
PROCESS LIB DIV00010
************************************************************* DIV00020
* * DIV00030
* Licensed Material - Property of IBM * DIV00040
* * DIV00050
* 83H9095 (C) Copyright IBM Corp., 1996 * DIV00060
* All rights reserved * DIV00070
* * DIV00080
* US Government Users Restricted Rights - Use, * DIV00090
* duplication or disclosure restricted by GSA ADP * DIV00100
* Schedule Contract with IBM Corp. * DIV00110
* * DIV00120
************************************************************* DIV00130
* File DIVUTPRG COBOL DIV00140
IDENTIFICATION DIVISION. DIV00150
PROGRAM-ID. DIVUTPRG. DIV00160
ENVIRONMENT DIVISION. DIV00170
DATA DIVISION. DIV00180
DIV00190
WORKING-STORAGE SECTION. DIV00200
COPY RECIN. DIV00210
DIV00220
PROCEDURE DIVISION. DIV00230
DIV00240
DISPLAY 'DIVUTPRG BEGINS'. DIV00250
DIV00260
INITIALIZE INBUFVARDS. DIV00270
DIV00280
CALL 'ERRCHEK'. DIV00290
DIV00300
DISPLAY 'DIVUTPRG ENDS'. DIV00310
DIV00320
GOBACK. DIV00330