ALERT: Some images may not load properly within the Knowledge Base Article. If you see a broken image, please right-click and select 'Open image in a new tab'. We apologize for this inconvenience.

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

book

Article ID: 8125

calendar_today

Updated On:

Products

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