For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
CICS USER GETS 0C4 ABENDS OR SYSTEM 301 ABENDS FOLLOWING INSTALLATION OF THE FIELD FIX 4 DISTRIBUTION.
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 4791 OS
./ CHANGE NAME=SCFTERM
* *14* 16AUG94 GOH B4791 FIX ERRORS AND CHECK FOR ACTIVE TASK *14* 00026940
B TERM9900 NO. RETURN TO CALLER *14* 00174010
L R8,S2KSCFU-DS2KCUSE(R1) RESET URB ADDRESS *14* 00366015
CLI URBTCHAR,C'N' STILL SCF URBS ? *14* 00367000
BNE TERM8100 NO. CHECK STACE TABLE *14* 00368000
CLC SCFCUID,URBUSER OUR URB ? *14* 00370000
BE TERM8030 YES. PROCESS IT *14* 00371000
TM URBFLAG1,URBLAST END OF URBS ? *14* 00372000
BO TERM8100 YES. TRY STACE TABLE *14* 00373000
./ CHANGE NAME=S2KTRMZX
* *04* 17AUG94 GOH B4791 CHECK ACTIVE TASK BEFORE PROCESSING *04* 00014990
L R15,TWATCTA ADDRESS TCT *04* 00022010
L R15,TCTTECA-DFHTCTTE(R15) ADDRESS CURR TCA *04* 00022020
LTR R15,R15 ZERO IF NO TASK *04* 00022030
BNZ RETURN1 ACTIVE TASK, FORGET IT *04* 00022040
./ CHANGE NAME=S2KTRM32
* *01* 22AUG94 GOH B4791 CHECK ACTIVE TASK BEFORE PROCESSING *01* 00014990
*01* CHECK FOR ACTIVE TASK BEFORE PROCEDING 00019010
* EXEC CICS HANDLE CONDITION ERROR(RETURN) 00019020
DFHECALL =X'02048000080100000000000000000000000000000000',(LAB*00019030
,RETURN) 00019040
* EXEC CICS INQUIRE TERMINAL(TWANID) TASKID(ZNETID) 00019050
DFHECALL =X'52028002088002000000000000',(CHA4,TWANID),,,,,,,,,*00019060
,,,,,(FB_4__RF,ZNETID) 00019070
OC ZNETID,ZNETID TASK ID SET ? *01* 00019080
BNZ RETURN YES. SKIP PROCESSING *01* 00019090
B ZNE0001 NO. PROCESS USER *01* 00019100
ZNETID DC F'0' *01* 00019110
ZNE0001 EQU * *01* 00019120
End of Zap Deck