For SYSTEM 2000 Version: 1.0
Problem Status: ZD -- V1 FFD1
Description of Problem:
ASSEMBLY RC=12 WITH JCLCSCF AND JCLCPLEX SHOW UNDEFINED SYMBOL DS2KLOG DUE TO MISSING V1 MACRO DS2KLOG. THIS FIX IEBUPDTE PUNCHES THE MACRO INTO THE S
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 V1.0 BUG 4936 MVS
*
* ADD MISSING DS2KLOG AND RSETCOM MACRO'S TO SOURCE LIBRARY
* WITH IEBUPDTE UTILITY
*
./ ADD NAME=DS2KLOG,SEQFLD=738
./ NUMBER NEW1=1000,INCR=1000
MACRO
DS2KLOG
.* THIS DSECT IS OUTPUT FORMAT FOR CICS LOGGING.
DS2KLOG DSECT
* LOGGING OUTPUT LINE
OLOG DS 0CL128
OLOGID DS CL7 MESSAGE IDENTIFIER.
DS CL1
ODATE DS CL10 DATE.
DS CL1
OTIME DS CL8 TIME.
DS CL2
OPROGRAM DS CL8 PROGRAM NAME.
DS CL2
OTERM DS CL4 TERMINAL ID OR 'NONE'.
DS CL3
OTRAN DS CL4 TRAN CODE.
DS CL4
OUSERID DS CL8 USERID/OPID.
DS CL3
OTXT DS CL63 VARIABLE TEXT.
MEND
./ ADD NAME=RSETCOM,SEQFLD=738
./ NUMBER NEW1=1000,INCR=1000
MACRO 00001000
RSETCOM 00002000
**************************************************************** 00003000
* RESET TRANSACTION COMMON AREA * 00004000
* * 00005000
* CONTAINS INFORMATION TO BE USED BY RESET PROCESS * 00006000
* * 00007000
**************************************************************** 00008000
RSETCOM DSECT 00009000
RSTCID DS CL4 ALWAYS 'RSET' 00010000
RSTCRTCD DS F RETURN CODE 00011000
RSTCISCR DS F S2KISCRN COMMON ADDRESS 00012000
RSTCOSCR DS F S2KOSCRN COMMON ADDRESS 00013000
RSTCOUTA DS F OUTPUT DATA ADDRESS 00014000
RSTCOFLG DS CL1 OPTION FLAG 00015000
FLGOPT1 EQU 1 00016000
FLGOPT2 EQU 2 00017000
FLGOPT3 EQU 3 00018000
RSTCRSW DS CL1 READ SWITH SET FLAG 00019000
RSTCRSF DS CL1 ON / OFF SETTING 00020000
RSTCOS1 DS CL1 S2KADRC READ SW SET 00021000
RSTCOS2 DS CL1 PLXFRMT READ SW SET 00022000
RSTCLEN EQU *-RSETCOM 00023000
MEND 00024000
End of Zap Deck