For SYSTEM 2000 Version: 1.0
Problem Status: ZD -- V1 FFD1
Description of Problem:
QAEXIT WAS GETTING S0C4 ABENDS IN R11.6-03 WHEN RUNNING UNDER Z/OS. QASTAT WAS GETTING S0C4 ABENDS IN ALL RELEASES WHEN THE APPLICATION PROGRAM CALLIN
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 4967 MVS * * THIS FIX CORRECTS A PROBLEM WHERE QASTAT WAS GETTING AN S0C4 ABEND * WHEN CALLED FROM APPLICATION PROGRAMS RUNNING UNDER Z/OS THAT WERE * LINKED AMODE=24 AND RMODE=24. * * TO CORRECT THE PROBLEM A REPLACEMENT QAEXIT LOAD MODULE IS SENT TO * THE CUSTOMER TO BE LINKED WITH THE CUSTOMER'S EXISTING QAEXIT LOAD * MODULE. * * THE NEW QAEXIT LOAD MODULE IS STORED IN 'LIA.QAEXIT.LOAD'. * * FOLLOW THESE STEPS TO INSTALL THE REPLACEMENT QAEXIT MODULE: * * 1) SEND REPLACEMENT LOAD MODULE QAEXIT TO THE CUSTOMER. LOAD * MODULES ARE USUALLY CONVERTED TO TSO TRANSMIT FORMAT THEN * SENT TO THE CUSTOMER BY FTP OR EMAIL. * * WHEN THE CUSTOMER RECEIVES THE MODULE THEY USE THE TSO * RECEIVE COMMAND TO CONVERT THE MODULE BACK INTO A PARTITIONED * DATASET MEMBER. * * 2) LINK THE REPLACMENT QAEXIT MODULE WITH THE CUSTOMER'S EXISTING * QAEXIT LOAD MODULE USING THIS JCL: * * //JOBCARD * //* * //LINK EXEC PGM=IEWL, * // PARM=(MAP,XREF,LET,LIST,NCAL,'AMODE=31', * // 'RMODE=ANY','SIZE=(164K,24K)') * //SYSPRINT DD SYSOUT=* * //SYSUT1 DD UNIT=SYSDA, * // SPACE=(1024,(400,20)) * //* * //* THE DATASET NAME IN THE LOAD1 DD STATEMENT MUST REFERENCE * //* THE REPLACEMENT QAEXIT LOAD MODULE YOU RECEIVED FROM SAS. * //* * //LOAD1 DD DSNAME=NEW.QAEXIT.PDS, * // DISP=SHR * //* * //* THE DATASET NAME IN THE LOAD2 AND SYSLMOD DD STATEMENTS * //* MUST REFERENCE THE PARTITIONED DATASET THAT CONTAINS YOUR * //* CURRENT QAEXIT LOAD MODULE. * //* * //LOAD2 DD DSNAME=CURRENT.QAEXIT.PDS, * // DISP=SHR * //* * //SYSLMOD DD DSNAME=CURRENT.QAEXIT.PDS, * // DISP=OLD * //* * //SYSLIN DD * * ENTRY QAEXIT * INCLUDE LOAD1(QAEXIT) * ALIAS QASTAT * INCLUDE LOAD2(QAEXIT) * NAME QAEXIT(R) * /* * // * * 2) AFTER QAEXIT IS SUCCESSFULLY RELINKED, THE NEW QAEXIT MODULE * MUST BE LINKED WITH SYS2K. RUN THIS JCL TO RELINK SYS2K: * * //JOBCARD * //* * //LINK EXEC PGM=IEWL, * // PARM=(MAP,XREF,LET,LIST,NCAL,'AMODE=31', * // 'RMODE=ANY','SIZE=(164K,24K)') * //SYSPRINT DD SYSOUT=* * //SYSUT1 DD UNIT=SYSDA, * // SPACE=(1024,(400,20)) * //* * //* THE DATASET NAME IN THE LOAD1 DD STATEMENT MUST REFERENCE * //* THE NEW QAEXIT LOAD MODULE CREATED IN STEP 1. * //* * //LOAD1 DD DSNAME=NEW.QAEXIT.PDS, * // DISP=SHR * //* * //* THE DATASET NAME IN THE LOAD2 AND SYSLMOD DD STATEMENTS * //* MUST REFERENCE THE PARTITIONED DATASET THAT CONTAINS YOUR * //* CURRENT SYS2K LOAD MODULE. * //* * //LOAD2 DD DSNAME=CURRENT.SYS2K.PDS, * // DISP=SHR * //* * //SYSLMOD DD DSNAME=CURRENT.SYS2K.PDS, * // DISP=OLD * //* * //SYSLIN DD * * ENTRY S2K * INCLUDE LOAD1(QAEXIT) * INCLUDE LOAD2(SYS2K) * NAME SYS2K(R) * /* * //
End of Zap Deck