home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv6.zip
/
vac22os2
/
ibmcobol
/
samples
/
putut
/
utilprg.cbl
< prev
Wrap
Text File
|
1996-05-29
|
3KB
|
42 lines
PROCESS LIB UTI00010
************************************************************* UTI00020
* * UTI00030
* Licensed Material - Property of IBM * UTI00040
* * UTI00050
* 83H9095 (C) Copyright IBM Corp., 1996 * UTI00060
* All rights reserved * UTI00070
* * UTI00080
* US Government Users Restricted Rights - Use, * UTI00090
* duplication or disclosure restricted by GSA ADP * UTI00100
* Schedule Contract with IBM Corp. * UTI00110
* * UTI00120
************************************************************* UTI00130
* File UTILPRG COBOL UTI00140
IDENTIFICATION DIVISION. UTI00150
PROGRAM-ID. UTILPRG. UTI00160
ENVIRONMENT DIVISION. UTI00170
DATA DIVISION. UTI00180
UTI00190
WORKING-STORAGE SECTION. UTI00200
COPY RECOUT. UTI00210
UTI00220
PROCEDURE DIVISION. UTI00230
UTI00240
DISPLAY 'UTILPRG BEGINS' UTI00250
UTI00260
GO TO ERRCHEK. UTI00270
UTI00280
ENTRY 'UTIL1'. UTI00290
IF NAME = 'SMITH' UTI00300
MOVE ZEROS TO COSTVAR. UTI00310
ENTRY 'UTIL2'. UTI00320
IF NAME = 'SMITH' UTI00330
MOVE ZEROS TO ACCOUNT-UPDT-DDMMYY. UTI00340
UTI00350
ERRCHEK. UTI00360
ENTRY 'ERRCHEK'. UTI00370
IF NAME = 'SMITH' AND COSTVAR IS NOT ZERO UTI00380
DISPLAY 'ERROR'. UTI00390
DISPLAY 'UTILPRG ENDS'. UTI00400
GOBACK. UTI00410