For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
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 V12.0 BUG 4737 OS
./ CHANGE NAME=MACCPLEX
.* *01* BWC 11/15/93 BUG 4737 ADD 'SP' PARM TO TRANSLATE,ADD PLXSTOP 00007900
PUNCH '//CICSEIP EXEC PGM=DFHEAP1$,PARM=''SP'' ' *01* 00044000
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00069000
.* PLXFORR REMOVED BY B4737 *01* 00073000
.* PLXLINK REMOVED BY B4737 *01* 00076000
PUNCH '//PLEX7 EXEC CLTPASM,S=PLXSTOP,A=31,R=ANY' *01* 00078100
./ CHANGE NAME=MACCSCF
.* *03* BWC 11/15/93 BUG 4737 ADD 'SP' PARM TO TRANSLATE 00007900
PUNCH '//CLTPASM PROC S=NONAME,UNIT=&UNIT,A=31,R=ANY,' 00032000
PUNCH '//CICSEIP EXEC PGM=DFHEAP1$,PARM=''SP'' ' *03* 00045000
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00070000
./ CHANGE NAME=MACCEDIT
.* *01* BWC 11/15/93 BUG 4737 ADD 'SP' PARM TO TRANSLATE 00007900
PUNCH '//CLTPASM PROC S=NONAME,UNIT=&UNIT,A=31,R=ANY,' 00031000
PUNCH '//CICSEIP EXEC PGM=DFHEAP1$,PARM=''SP'' ' *01* 00044000
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00069000
./ CHANGE NAME=CLMASMC
.* *02* BWC 11/15/93 BUG 4737 ADD DFHPEP 00006900
PUNCH '//LKED EXEC PGM=IEWL,' 00073000
PUNCH '// PARM=(LIST,XREF,LET,''SIZE=(400K,48K)'', ' 00074000
PUNCH '// ''AMODE=31'',''RMODE=ANY'') ' *02* 00074100
PUNCH '//SYSLIN DD DISP=SHR,DSN=&&LIB04(DFHEILIA),DCB=BLKSIZE=400' 00079000
PUNCH '// EXEC CLCICS2K,S=DFHPEP' 00083100
./ CHANGE NAME=CLMASML
.* *07* BWC 01FEB94 DELETE S2KSRTRR,DFHPEP,XKCREQ FOR 3.3 *07* 00011100
PUNCH '//LKED EXEC PGM=IEWL,PARM=(MAP,LET,LIST,NCAL,' *07* 00055000
PUNCH '// ''AMODE=31,RMODE=24'') ' *07* 00055100
PUNCH '//ASM1 EXEC CLTPASM,S=S2KCUSE' 00063000
.* DFHPEP REMOVED BY FIX 4737 *07* 00064000
.* S2KSRTRR REMOVED BY FIX 4737 *07* 00065000
.* XKCREQ REMOVED BY FIX 4737 *07* 00066000
End of Zap Deck