For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
CICS ABEND -AEYH- WHEN MJCL QUEUE NOT DEFINED AND USER DOES COMMAND EDITOR SUBMIT COMMAND IN 12.0 INTERFACE.
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 R12.0 BUG 4634 OS
./ CHANGE NAME=S2KSBMT
* *04* 15OCT92 GOH DO NOT ABEND IF MJCL NOT DEFINED TO CICS *04* 00005016
QIDERR EQU * *04* 00087016
LA R1,L'QIDMSG SET MESSAGE LENGTH *04* 00087026
STH R1,OUTLEN *04* 00087036
MVC OUTMSG(L'QIDMSG),QIDMSG IDENT QUEUE ID ERR *04* 00087046
B SENDOUT PUT TO TERMINAL *04* 00087056
* *04* CATCH QUEUE ID ERROR AND MESSAGE USER 00123010
EXEC CICS HANDLE CONDITION ERROR(QIDERR) 00123020
QIDMSG DS 0CL80 *04* 00157010
DC XL3'114040' SBA FOR ROW1 COL1 *04* 00157020
DC CL77'SUBMIT FAILED, ERROR IN WRITE TO MJCL' *04* 00157030
End of Zap Deck