CA Panvalet program PAN#2 is getting S0C4 in module PVPRNTDS while running compiles.

book

Article ID: 8125

calendar_today

Updated On:

Products

CA Database Analyzer (IMS Tools) CA Mainframe Configuration Manager for IMS for z/OS IMS TOOLS - MISC CA Compress Data Compression (IMS Tools) CA Database Analyzer for IMS for z/OS CA Database Copier for IMS for z/OS CA Database Organizer for IMS for z/OS CA Mainframe Extended Terminal Manager (IMS Tools) CA High Performance Recovery for IMS for z/OS CA Database Organizer (IMS Tools) CA Mainframe Program Restart Manager for IMS for z/OS CA Secondary Index Builder for IMS for z/OS CA Secondary Index for IMS for z/OS CA JARS CA JARS Resource Accounting CA JARS SMF Director CA JMR CA MIM Resource Sharing (MIM) CA MIM Data Sharing (MII) CA MIM Tape Sharing (MIA) CA MIM Message Sharing (MIC) MIM BASE Nastel AutoPilot for WebSphere MQ CA Panvalet CA QuickFetch CA Raps VSE CA Scheduler VSE CA SMR CA SOLVE:Operations Automation SOLVE:Access Session Management CA SOLVE:CA Mainframe Connector CA SOLVE:FTS CA SYSVIEW Performance Management NXBRIDGE - SYSYVIEW/ENDEVOR CA SOLVE

Issue/Introduction

CA Panvalet program PAN#2 is getting S0C4 in module PVPRNTDS while running compiles. 

Environment

Panvalet V14.6

Resolution

The source for the exit is EFF005 and is located in the Panvalet OPTLIB(options) PANLIB.

First write the source EFF005 out to your object file (PDS) from the OTPLIB(options) PANLIB.

Example below: 

//STEP1       EXEC  PGM=PAN#1
//STEPLIB     DD  DSN=YOUR.PANV.V14R6.CBA3LINK,DISP=SHR
//PANDD1      DD  DSN=YOUR.PANVALET.OPTLIB.PANLIB,DISP=SHR
//PDSOUT      DD  DSN=YOUR.SOURCE.OBJECT,DISP=OLD
//SYSPRINT    DD  SYSOUT=*
//SYSPUNCH    DD  SYSOUT=*
//SYSIN       DD *
++OPTION OUTPUT,PDSOUT,EFF000                                           0   <<<< in col 72 >>>>
++WRITE WORK,EFF000                                                     E   <<<< in col 72 >>>>
//

 

EFF005 is the source for module called PANEXIT but this is linked as module PVPRNTDS.

Example JCL:

//ASSEMBLE EXEC PGM=ASMA90,REGION=0M,PARM=(TERM,OBJ) 
//SYSPRINT DD SYSOUT=* 
//SYSOUT DD SYSOUT=* 
//SYSTERM DD SYSOUT=* 
//SYSUT1 DD SPACE=(TRK,(50,10)),UNIT=SYSDA,DISP=NEW 
//SYSUT2 DD SPACE=(TRK,(50,10)),UNIT=SYSDA,DISP=NEW 
//SYSUT3 DD SPACE=(TRK,(50,10)),UNIT=SYSDA,DISP=NEW 
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 
//SYSLIN DD DISP=SHR,DSN=YOUR.SOURCE.OBJECT(EFF005) 
//SYSPUNCH DD SPACE=(TRK,10),UNIT=SYSDA,DISP=(NEW,PASS) 
//SYSIN DD * 
+INC EFF005 
//* 
//LINKEDIT EXEC PGM=IEWL, 
// PARM='NORENT,LIST,MAP,XREF' 
//SYSPRINT DD SYSOUT=* 
//SYSUT1 DD SPACE=(TRK,(50,10)),UNIT=SYSDA,DISP=NEW 
//SYSUT2 DD SPACE=(TRK,(50,10)),UNIT=SYSDA,DISP=NEW 
//SYSUT3 DD SPACE=(TRK,(50,10)),UNIT=SYSDA,DISP=NEW 
//SYSLMOD DD DISP=SHR,DSN=YOUR.PANVALET.LOADLIB 
//OBJT DD DISP=SHR,DSN=YOUR.SOURCE.OBJECT 
//SYSPUNCH DD SPACE=(TRK,10),UNIT=SYSDA,DISP=(NEW,PASS) 
//SYSLIN DD * 
ENTRY PANEXIT 
INCLUDE OBJT(EFF005) 
NAME PVPRNTDS(R) 
// 

 

This does not use temporary dataset for OBJECT and explicitly names the entry point object and module name.