000010 //IGYWCL PROC LNGPRFX='IGY',SYSLBLK=3200, 000020 // LIBPRFX='CEE', 000030 // PGMLIB='...
000020 // LIBPRFX='CEE',
000030 // PGMLIB='&&GOSET',GOPGM=GO
000040 //*
000050 //*********************************************************************
000060 //* *
000070 //* Enterprise COBOL for z/OS *
000080 //* Version 3 Release 4 Modificat *
000090 //* *
000100 //* LICENSED MATERIALS - PROPERTY OF IBM. *
000110 //* *
000120 //* 5655-G53 5648-A25 (C) COPYRIGHT IBM CORP. 1991, 2005 *
000130 //* ALL RIGHTS RESERVED *
000140 //* *
000150 //* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, *
000160 //* DUPLICATION OR DISCLOSURE RESTRICTED BY GSA *
000170 //* ADP SCHEDULE CONTRACT WITH IBM CORP. *
000180 //* *
000190 //*********************************************************************
000200 //*
000210 //* COMPILE AND LINK EDIT A COBOL PROGRAM
000220 //*
000230 //* PARAMETER DEFAULT VALUE USAGE
000240 //* LNGPRFX IGY.V3R4M0 PREFIX FOR LANGUAGE DATA SET NAMES
000250 //* SYSLBLK 3200 BLOCKSIZE FOR OBJECT DATA SET
000260 //* LIBPRFX CEE PREFIX FOR LIBRARY DATA SET NAMES
000270 //* PGMLIB &&GOSET DATA SET NAME FOR LOAD MODULE
000280 //* GOPGM GO MEMBER NAME FOR LOAD MODULE
000290 //*
000300 //* CALLER MUST SUPPLY //COBOL.SYSIN DD ...
000310 //*
000320 //* CALLER MUST ALSO SUPPLY //COBOL.SYSLIB DD ... for COPY statements
000330 //*
000340 //COBOL EXEC PGM=IGYCRCTL,REGION=2048K
000350 //STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,
000360 // DISP=SHR
000370 //SYSPRINT DD SYSOUT=*
000380 //SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSALLDA,
000390 // DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
000400 // DCB=(BLKSIZE=&SYSLBLK)
000410 //SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
000420 //SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
000430 //SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
000440 //SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
000450 //SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
000460 //SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
000470 //SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
000480 //LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
000490 //SYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
000500 // DISP=SHR
000510 //SYSPRINT DD SYSOUT=*
000520 //SYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)
000530 // DD DDNAME=SYSIN
000540 //SYSLMOD DD DSNAME=&PGMLIB(&GOPGM),
000550 // SPACE=(TRK,(10,10,1)),
000570 // UNIT=SYSALLDA,DISP=(MOD,PASS)
000580 //SYSUT1 DD UNIT=SYSALLDA,SPACE=(TRK,(10,10))
No comments
Post a Comment