For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
CHANGE MACROS TO GENERATE JCL FOR CICS 3.3 COMPILES OF JCLCEDIT,JCLCPLEXAND JCLCSCF.
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM R11.63 BUG 4737 OS
./ CHANGE NAME=MACCPLEX
.* *04* BWC 11/15/93 BUG 4737 ADD 'SP' PARM TO TRANSLATE,ADD PLXSTOP 00007900
PUNCH '//CICSEIP EXEC PGM=DFHEAP1$,PARM=''SP'' ' *04* 00046000
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00071000
* REMOVED BY BUG FIX 4737 *04* 00075000
* REMOVED BY BUG FIX 4737 *04* 00078000
PUNCH '//PLEX7 EXEC CLTPASM,S=PLXSTOP,A=24,R=24' *04* 00080100
./ CHANGE NAME=MACCSCF
.* *04* BWC 11/15/93 BUG 4737 ADD 'SP' PARM TO TRANSLATE 00007900
PUNCH '//CICSEIP EXEC PGM=DFHEAP1$,PARM=''SP'' ' *04* 00046000
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00071000
./ CHANGE NAME=MACCEDIT
.* *02* BWC 11/15/93 BUG 4737 ADD 'SP' PARM TO TRANSLATE 00007900
PUNCH '//CICSEIP EXEC PGM=DFHEAP1$,PARM=''SP'' ' *02* 00045000
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00070000
./ CHANGE NAME=CLMASMC
.* *04* BWC 11/15/93 BUG 4737 ADD DFHPEP 00006900
PUNCH '//LKED EXEC PGM=IEWL,' 00075000
PUNCH '// PARM=(LIST,XREF,LET,''SIZE=(400K,48K)'', ' 00076000
PUNCH '// ''AMODE=24'',''RMODE=24'') ' *04* 00076100
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00081000
PUNCH '// EXEC CLCICS2K,S=DFHPEP' 00085100
./ CHANGE NAME=CLMASML
.* *08* BWC 01FEB94 DELETE S2KSRTRR,DFHPEP,XKCREQ FOR 3.3 *08* 00012100
PUNCH '//ASM1 EXEC CLTPASM,S=S2KCUSE' 00064000
* REMOVED BY BUG FIX 4737 *08* 00065000
* REMOVED BY BUG FIX 4737 *08* 00066000
* REMOVED BY BUG FIX 4737 *08* 00067000
End of Zap Deck