For SYSTEM 2000 Version: 12.1
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
AUTO-INSTALL TERMINALS BEING DELETED FROM A CICS MRO ENVIRONMENT ARE NOT BEING RECOGNIZED IN THE DFHZNEP PROCESSING. USERS THAT ARE ASSOCIATED WITH TH
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.1 BUG 4842 MVS
./ CHANGE NAME=DFHZATDX
*
* THE FOLLOWING EXEC CICS COMMAND IS TO BE PLACED IN THE DFHZATDX
* EXIT IN THE DELETE ROUTINE. IF YOU ALREADY HAVE YOUR OWN CODE
* THERE, PLACE THIS EXEC AFTER YOUR CODE, ELSE PLACE IN THE SPOT
* INDICATED FOR USER CODE. THE NUMBERING USED HERE IS FOR THE
* DEFAULT DFHZATDX ROUTINE AND WILL HAVE TO BE CHANGED IF YOU HAVE
* ADDITIONAL USER CODE ALREADY AT THIS LOCATION.
*
EXEC CICS START TRANSID('SCFD') FROM(DELETE_TERM_ID) LENGTH(=H'4') 96700010
./ CHANGE NAME=CSDS2K
* *05* 19JUN96 GOH B4842 ADD ENTRY FOR SCFD AND SCFDLET RESOURCES *05* 00009990
DEFINE TRANSACTION(SCFD) PROGRAM(SCFDLET) GROUP(S2K) 00019990
DEFINE PROGRAM(SCFDLET) GROUP(S2K) LANGUAGE(ASSEMBLER) 00045990
./ ADD NAME=SCFDLET
********************************************************************* 00001000
*** THIS TRANSACTION WILL BE INVOKED IN THE TOR WHEN AN AUTO *** 00002000
*** INSTALL TERMINAL IS BEING DELETED FROM A CICS SYSTEM. A *** 00003000
*** TERMINAL THAT IS EXECUTING A TRANSACTION IN AN AOR WILL *** 00004000
*** CAUSE THE ZATDX EXIT TO BE INVOKED IN THE AOR ALSO. A *** 00005000
*** COPY OF THIS PROGRAM WILL BE REQUIRED IN ALL AOR'S THAT *** 00006000
*** RUN S2K TRANSACTIONS. *** 00007000
*** *** 00008000
********************************************************************* 00009000
* *00* 19JUN96 B4842 ORIGINAL MODULE 00010000
DFHEISTG DSECT 00011000
DLETILEN DS H 00012000
SCFDLET CSECT 00013000
EXEC CICS HANDLE CONDITION ERROR(RETURN) 00014000
EXEC CICS RETRIEVE SET(R8) LENGTH(DLETILEN) 00015000
* 00016000
* AT THIS POINT, R8 SHOULD POINT TO THE TERMINAL ID 00017000
* 00018000
EXEC CICS HANDLE CONDITION ERROR(RETURN) 00019000
EXEC CICS LOAD PROGRAM('S2KCUSE') SET(1) 00020000
L R1,S2KSCFU-DS2KCUSE(R1) ADDR SCF URBS 00021000
USING DURB,R1 00022000
SCFDURBL EQU * 00023000
CLC 0(4,R8),URBUSER THIS URB ? 00024000
BE SCFDURBS YES. SET ERROR TASK 00025000
TM URBFLAG1,URBLAST LAST URB ? 00026000
BO SCFDSTAC YES. CHECK STACE TABLE 00027000
AH R1,URBLEN NO. NEXT URB 00028000
B SCFDURBL CHECK IT 00029000
SCFDURBS EQU * 00030000
OI URBFLAG1,URBERR SET URB IN ERROR TASK 00031000
B SCFDSCFZ GET OUT OF SCFD 00032000
SCFDSTAC EQU * 00033000
L R1,DFHEITP1 ADDRESS LOADED PROGRAM 00034000
L R1,S2KSTAC-DS2KCUSE(R1) ADDRESS STACE TABLE 00035000
USING DSTACE,R1 00036000
SCFDSTAL EQU * 00037000
CLC 0(4,R8),STACENAM THIS ENTRY ? 00038000
BE SCFDSTAS YES. SET IN ERROR 00039000
CLI STACENAM,X'FF' END OF LIST ? 00040000
BE RETURN YES. FINISH UP 00041000
LA R1,STACEL$(R1) NO. NEXT ENTRY 00042000
B SCFDSTAL CONTINUE 00043000
SCFDSTAS EQU * 00044000
OI STACEFLG,#STACEAB SET ERROR TASK IN CONTROL 00045000
SCFDSCFZ EQU * 00046000
EXEC CICS START TRANSID('SCFZ') 00047000
RETURN DS 0H 00048000
EXEC CICS RETURN 00049000
DS2KCUSE 00050000
DURBMU 00051000
END SCFDLET 00052000
End of Zap Deck