IBM Mainframe Forum

Can someone plz help me with this challenge. I have the following set in CICS.

TRANSaction : FSIV
Group : CSIRECOV
DEScription :
PROGram : BIMRECVU
TWasize : 00000
PROFile : DFHCICST
PArtitionset :
STAtus : Enabled
PRIMedsize : 00000
TASKDATALoc : Below
TASKDATAKey : User
STOrageclear : No
RUnaway : System
SHutdown : Disabled
ISolate : Yes
Brexit :
REMOTE ATTRIBUTES
DYnamic : No
ROutable : No
REMOTESystem :
REMOTEName :
TRProf :
Localq :
SCHEDULING
PRIOrity : 001
TClass : No
TRANClass : DFHTCL00
ALIASES
ALias :
TASKReq :
XTRanid :
TPName :
:
XTPname :
RECOVERY
DTimout : No
RESTart : No
SPurge : No
TPUrge : No
DUmp : Yes
=================
CEDA View PROGram( BIMRECVU
PROGram : BIMRECVU
Group : CSIRECOV
DEScription :
Language : CObol
RELoad : No
RESident : No
USAge : Normal
USElpacopy : No
Status : Enabled
RSl : 00
CEdf : Yes
DAtalocation : Below
EXECKey : User
COncurrency : Quasirent
Api : Cicsapi
REMOTE ATTRIBUTES
DYnamic : No
REMOTESystem :
REMOTEName :
Transid : FSIV
EXECUtionset : Fullapi
JVM ATTRIBUTES
JVM : No
JVMClass :
(Mixed Case) :
JVMProfile : DFHJVMPR
JAVA PROGRAM OBJECT ATTRIBUTES
Hotpool : No
========================
//DFHRPL DD DSN=&INDEX2..SDFHLOAD,DISP=SHR
// DD DSN=CEE.SCEECICS,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
// DD DSN=TEST.VSHARE.R41A.CICSCOB.LOAD,DISP=SHR
// DD DSN=TEST.VSHARE.R41A.CICS.LOAD,DISP=SHR
// DD DSN=FSIRECOV.V31A.LOAD,DISP=SHR
==========================
FSIRECOV.V31A.LOAD(BIMRECVU)

Sorry, I just don't get why this module would NOT BE AVAILABLE.
Woulds really appreciate some help sith this. Thanx in advance.
When I perform a CEMT INQ PROG(BIMRECVU), I get the following:

INQ PROG
STATUS: RESULTS - OVERTYPE TO MODIFY
Prog(BIMRECVU) Leng(0000022704) Cob Pro Ena Pri Req Ced
Res(000) Use(0000000000) Bel Uex Ful Qua Cic

==========================
fsiv
STATUS: SESSION ENDED

==========================
DFHAC2016 02/24/2011 05:59:12 CICS41 Transaction FSIV cannot run because
program BIMRECVU is not available.
==========================
I am still unsure why this is happening.

Jerry

I have found the issue, but do not know how to resolve. The module is not being loaded properly when I startup CICS.
I perform the following steps:

1. CEMT INQ PROG(BIMRECVU)

STATUS: RESULTS - OVERTYPE TO MODIFY
Prog(BIMRECVU) Leng(0000000000) Cob Pro Ena Pri Ced
Res(000) Use(0000000000) Bel Cex Ful Qua Cic


2. Tab over to the 'Ena" field and press enter

RESULT - OVERTYPE TO MODIFY
Program(BIMRECVU)
Length(0000000000)
Language(Cobol)
Progtype(Program)
Status( Enabled )
Sharestatus( Private )
Copystatus( Notrequired )
Cedfstatus( Cedf )
Dynamstatus(Notdynamic)
Rescount(000)
Usecount(0000000000)
Dataloc(Below)
Execkey(Cexeckey)
Executionset( Fullapi )
Concurrency(Quasirent)
Apist(Cicsapi)
Remotesystem()
+ Runtime( Notknown )
Remotename()
Library()
Librarydsn()
Jvmclass(
Jvmclass(
Jvmclass(
Jvmclass(
Jvmclass( )

3. I need to set the LIBRARY and LIBRARYDSN fields to the correct values.
Yet, I have not been able to figure out how to set them. I have placed
the load library in the DFHRPL concat list for the startup job, but this
program is not getting set correctly. It is in the load library though,
see previous notes.

4. Question 1: How can I get this module to have the LIBRARY and LIBRARYDSN
fields to be set to the correct values when I start CICS?
Question 2: Or how can I change these values for this program?

Once I have these values set, then the module will be found and there will
not be an issue. Thanx in advance.

Jerry

Well, CICS is not finding the program. Double check if the module is in the library, the library is in the DFHRPL chain, etc. Are you sure the program is Cobol and not Assembler? There is a CICS program PINQPGM from Jack Hwang that determines where a program is found in the DFHRPL chain, you might want to install it.

Issue resolved. Recompiled OS/VS Cobol module into Enterprise Cobol module and everything worked fine.
CICS now finds and loads tthe module properly. The Transaction runs great now. Thanx.

Jerry