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