home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv6.zip
/
vac22os2
/
ibmcobol
/
samples
/
putut
/
sub1prg.cbl
< prev
next >
Wrap
Text File
|
1996-05-29
|
2KB
|
30 lines
PROCESS LIB SUB00010
************************************************************* SUB00020
* * SUB00030
* Licensed Material - Property of IBM * SUB00040
* * SUB00050
* 83H9095 (C) Copyright IBM Corp., 1996 * SUB00060
* All rights reserved * SUB00070
* * SUB00080
* US Government Users Restricted Rights - Use, * SUB00090
* duplication or disclosure restricted by GSA ADP * SUB00100
* Schedule Contract with IBM Corp. * SUB00110
* * SUB00120
************************************************************* SUB00130
* File SUB1PRG COBOL SUB00140
IDENTIFICATION DIVISION. SUB00150
PROGRAM-ID. SUB1PRG. SUB00160
ENVIRONMENT DIVISION. SUB00170
DATA DIVISION. SUB00180
SUB00190
WORKING-STORAGE SECTION. SUB00200
COPY RECOUT. SUB00210
SUB00220
PROCEDURE DIVISION. SUB00230
SUB00240
DISPLAY 'SUB1PRG BEGINS'. SUB00250
SUB00260
DISPLAY 'SUB1PRG ENDS'. SUB00270
SUB00280
GOBACK. SUB00290