For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
SOMETIMES AREAS IN THE CICS REGION GET OVERLAYED RESULTING IN STORAGE VIOLATIONS AND SUCH.
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 4649 MVS
./ CHANGE NAME=SCFPGMG
* *07* 24NOV92 GOH B4649 FIX FOR USING BUFFER FROM S2KLIST FOR OUTPUT 00039940
PGMG0095 LA R1,PM4A *07* 00171010
* ST R1,PGMGMSGA *07* 00171020
BAL R2,PGMG0360 *07* 00171030
B PGMG0330 *07* 00171040
* CHANGE ERROR ROUTINE FOR QUEUE ID ERROR *07* 00376010
EXEC CICS HANDLE CONDITION QIDERR(PGMG0095) 00377000
CLC 0(4,R10),CLIST FROM LIST ? *07* 00405010
BNE PGMG0363 NO. JUST CONTINUE *07* 00405020
L R8,LSTSCRN-LSTCOMM(R10) ADDR SCREEN AREA *07* 00405030
ST R8,PGMGMSGA RESET MESSAGE ADDRESS *07* 00405040
PGMG0363 EQU * *07* 00405050
PM4A DC H'40',H'0',CL36'QUEUE ID ERROR ON READ' *07* 00535010
End of Zap Deck