For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- ZAP DISTRIBUTED IN FIELD FIX 12.1-01
Description of Problem:
JCLPROCL FAILS WITH SYSAB 013-018 IF BASE PRODUCT IS ONLY PRODUCT INSTALLED.
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.1 BUG 4815 OS
* JCLPROCL FAILS WITH 013-18 ABEND IF ONLY BASE PRODUCT IS INSTALLED.
* ALSO WITH MUP=NO SPECIFIED ON JCLS2KIV, S2KCOM FILE DSN IS UNNEEDED
* IN CLISTS S2K, SASS2K, QUEX AND QUVB.
./ CHANGE NAME=S2KIVJCL
.* *06* BWC 10/10/95 BUG 4815 CORRECT FOR MUP=NO 00062900
PARMDSN=&PARMDSX,SU11=&SU11,MUP=&MUP *06* 00391000
S2KCOM=&S2KCOM,XMS=&XMS,MUP=&MUP *06* 00396000
S2K MACS2K LOAD=&LOAD,SU11=&SU11,S2KCOM=&S2KCOM, *06*X00405100
PARMDSN=&PARMDSX,SUMU=&SUMU, *06*X00405110
XMS=&XMS,SOURCE=&SOURCE,MUP=&MUP *06* 00405120
.* 00405130
S2K MACS2KH LOAD=&LOAD,SOURCE=&SOURCE,SU11=&SU11,S2KCOM=&S2KCOM, X00405140
PARMDSN=&PARMDSX,SUMU=&SUMU, *06*X00405150
FREE=&FREE,XMS=&XMS,MUP=&MUP *06* 00405160
.* *06* 00405170
.* REMOVED BY B4815 *06* 00502000
.* REMOVED BY B4815 *06* 00503000
.* REMOVED BY B4815 *06* 00504000
.* REMOVED BY B4815 *06* 00506000
.* REMOVED BY B4815 *06* 00507000
.* REMOVED BY B4815 *06* 00508000
PARMDSN=&PARMDSX,MUP=&MUP *06* 00663000
PARMDSN=&PARMDSX,MUP=&MUP *06* 00669000
./ CHANGE NAME=MACS2K
&SUMU=,&XMS=,&MUP= *02* 00003000
.* *02* BWC 10/10/95 BUG 4815 CORRECT FOR MUP=NO *02* 00003900
AIF ('&MUP' EQ 'NO').NOCOM *02* 00009900
./ CHANGE NAME=MACS2KH
MACRO 00001000
.* *02* BWC 10/10/95 BUG 4815 CORRECT FOR MUP=NO *02* 00001900
&SUMU=,&FREE=,&XMS=,&MUP= *02* 00004000
AIF ('&MUP' EQ 'NO').CONT2 *02* 00035900
./ CHANGE NAME=MACBSS2K
MACRO 00001000
&S2KCOM=,&XMS=,&MUP= *04* 00003000
.* BWC 10OCT95 BUG 4815 CORRECT FOR MUP=NO *04* 00003900
AIF ('&MUP' EQ 'NO').NOCOM2 *04* 00011900
AIF ('&MUP' EQ 'NO').NOCOM1 *04* 00027900
AIF ('&MUP' EQ 'NO').NOCOM *04* 00036900
./ CHANGE NAME=MACSAS2K
&S2KCOM=,&XMS=,&PARMDSN=,&MUP= *03* 00003000
.* *03* BWC 10/10/95 BUG 4815 CORRECT FOR MUP=NO *03* 00003900
AIF ('&MUP' EQ 'NO').NOCOM1 *03* 00012900
AIF ('&MUP' EQ 'NO').NOCOM2 *03* 00026900
AIF ('&MUP' EQ 'NO').NOCOM3 *03* 00038900
AIF ('&MUP' EQ 'NO').NOCOM4 *03* 00044900
./ CHANGE NAME=MQXQUEX
&MACNME MQXQUEX &SOURCE=,&LOAD=,&PARMDSN=,&S2KCOM=,&MUP= *01* 00002000
.* *01* BWC 10/10/95 BUG 4815 CORRECT FOR MUP=NO *01* 00002900
AIF ('&MUP' EQ 'NO').SETCOM *01* 00018900
./ CHANGE NAME=MQXQUVB
&MACNME MQXQUVB &SOURCE=,&LOAD=,&PARMDSN=,&S2KCOM=,&MUP= *01* 00002000
.* *01* BWC 10/10/95 BUG 4815 CORRECT FOR MUP=NO *01* 00002900
AIF ('&MUP' EQ 'NO').SETCOM *01* 00018900
End of Zap Deck