MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

XPEDITER/CICS - NO SOURCE AVAILABLE

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware
View previous topic :: View next topic  
Author Message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA

PostPosted: Thu Dec 12, 2002 3:31 am    Post subject: XPEDITER/CICS - NO SOURCE AVAILABLE Reply with quote

1 We often get 'No Source Available' if we expedite a program which has been compiled long time ago. I this case we go through entire process 'compile to newcopy' again and the it becomes available. Is there any CICS command to make the source available.

2 Sometimes while expediting if we don't come out properly then the program gets trapped there and no body is able to do any changes after that. If you newcopy it then message comes 'Program is in Use'. Generally we wait for a day and it gets released. Let me know what can be done in such case.

Thanks,
Dibakar
Back to top
View user's profile Send private message Send e-mail
Abhi
Beginner


Joined: 03 Dec 2002
Posts: 21
Topics: 4
Location: India, Pune

PostPosted: Thu Dec 12, 2002 4:07 am    Post subject: Reply with quote

Dibakar,

1. Even we face this problem occasionally. I don't know the real reason
for this but we try loading the program again using the CECI
transaction. Sometimes this works and if it does not then we also go
through the whole process.

Code:
 CECI LOAD PROG(program name)



2. Have u tried logging off and then logging in again.
Back to top
View user's profile Send private message Send e-mail
warp5
Intermediate


Joined: 02 Dec 2002
Posts: 429
Topics: 18
Location: Germany

PostPosted: Thu Dec 12, 2002 4:18 am    Post subject: Reply with quote

The no source available occurs because the program has not been compiled with Xpediter and therefore Xpediter has not stored the source in its own dataset. Take a closer look at your utilities - there is a utility that will show which source members are in your Xpediter file. Take a look in the manuals or even better let one of your co-workers show you this stuff - how it is setup is site dependent.
The way you described this problem leads me to think that you might be compiling all your programs with Xped. I do not think it is advisable to have programs that have been compiled with Xped in production - we certainly do not do that in our shop. Compile with Xped to test, compile without Xped before moving to production.
The main problem with locked up Xped programs in CICS is that the user does not properly leave Xped when testing or when logging off. Then the program is still being used by Xped even though the user is not online anymore. To correct the situation use a CECI RELEASE PROG(.....) and then you can set the program new.
Back to top
View user's profile Send private message Visit poster's website
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA

PostPosted: Thu Dec 12, 2002 5:23 am    Post subject: Reply with quote

1 No source available is not happening due to non-xped compilation. All programs become like that after about a week from last compilation. yes, we are using all programs with xped option and, I guess, thats how it is going into production. I was not aware of the problems but it is going like that for some years, and my boss doesn't seem to mind.

2 When program is held by XPED, even CECI REL Prog dedn't help. We were forced to wait a day for the region to refresh.
Back to top
View user's profile Send private message Send e-mail
warp5
Intermediate


Joined: 02 Dec 2002
Posts: 429
Topics: 18
Location: Germany

PostPosted: Thu Dec 12, 2002 6:49 am    Post subject: Reply with quote

1. Then the list is deleted out of the DDIO file due to date or some other option to reclaim space and prevent the DDIO from being too large. Check how your DDIO is set up in your shop - talk to the guy who is responsible for XPED.
2. It sounds like that program is actually being used by someone or a Xped session is using it - check with CEMT I TASK if the trans id is being used - if you have a monitor you can see exactly who is still in CICS and which transactions are active - then you can kill the transaction (if it is a hanger) and CECI.
Back to top
View user's profile Send private message Visit poster's website
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA

PostPosted: Thu Dec 12, 2002 9:08 am    Post subject: Reply with quote

I will check that next time I get this error. Thanks.
Back to top
View user's profile Send private message Send e-mail
faisal
Beginner


Joined: 05 Dec 2002
Posts: 8
Topics: 1

PostPosted: Fri Dec 13, 2002 1:17 pm    Post subject: Reply with quote

If you'd like to release a program held by xpeditor, you could release it through xpeditor itself by going to option "XPSP 9.P" then type R against the program to be released, if any
Back to top
View user's profile Send private message
Nossac
Beginner


Joined: 15 Dec 2002
Posts: 3
Topics: 0
Location: Australia

PostPosted: Mon Dec 16, 2002 12:57 am    Post subject: Reply with quote

If you have trouble finding out the DDIO properties you can run a report that will show you how the file is defined.
If the sample library there should be a job call CWFXSDUT if you run that with a DIRX parm it should show you what the retention of the members is.
Back to top
View user's profile Send private message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA

PostPosted: Mon Dec 16, 2002 4:51 am    Post subject: Reply with quote

1 XPSP seems to work. Hope this will work when I face the actual problem again.

2 I am still having problem with DDIO. I don't have any job CWFXSDUT. My job makes a call to CWPCMAIN and I ran it with DIRX option. But still I am unable to find retention period, or maybe I don't know where to look. Below is the step, let me know if I am on the right track -
Code:

//CWPCMAIN EXEC PGM=CWPCMAIN,COND=(8,LT,DFHECP1$),REGION=4M,
//             PARM=('LIST,MAP,NONUM,APOST,OFFSET,XREF,DIRX',
//             '')
//SYSIN    DD  DSN=*.DFHECP1$.SYSPUNCH,
//             DISP=(OLD,DELETE)
//SYSLIB   DD  DISP=SHR,DSN=CICS410.SDFHCOB
//         DD  DISP=SHR,DSN=SYS7.MDP.MDARNDP.COPYLIB
//         DD  DISP=SHR,DSN=TSO.MDP.MDARNDS.COPYLIB
//SYSLIN   DD  DISP=(,PASS),
//             DCB=(LRECL=80,RECFM=FB),
//             SPACE=(TRK,(75,15),RLSE),
//             UNIT=SYSDA
//SYSPRINT DD  SYSOUT=*
//SYSPUNCH DD  DUMMY
//SYSUT1   DD  SPACE=(CYL,(2,2)),UNIT=SORT
//SYSUT2   DD  SPACE=(CYL,(2,2)),UNIT=SORT
//SYSUT3   DD  SPACE=(CYL,(2,2)),UNIT=SORT
//SYSUT4   DD  SPACE=(CYL,(2,2)),UNIT=SORT
//SYSUT5   DD  SPACE=(CYL,(2,2)),UNIT=SORT
//SYSUT6   DD  SPACE=(CYL,(2,2)),UNIT=SORT
//SYSUT7   DD  SPACE=(CYL,(2,2)),UNIT=SORT
//CWPDDIO  DD  DSN=SYS7.XPEDITER.CICS.CITCPTBN.DDIO,
//             DISP=SHR
//CWPERRM  DD  SYSOUT=(*)
//CWPPRMO  DD  *
COBOL(OUTPUT(PRINT,DDIO))
PROCESSOR(OUTPUT(NOPRINT,NODDIO),TEXT(NONE))
LANGUAGE(VSCOBOLII)
DDIO(OUTPUT(NOLIST,NOXREF,FIND,NODMAP,NOOFFSET,COMPRESS))
//SYSTERM  DD  SYSOUT=(*)
//XOPTIONS DD  DSN=SHRSYS.XPEDITER.XOPTIONS,
//             DISP=SHR
Back to top
View user's profile Send private message Send e-mail
Nossac
Beginner


Joined: 15 Dec 2002
Posts: 3
Topics: 0
Location: Australia

PostPosted: Wed Dec 18, 2002 10:44 pm    Post subject: Reply with quote

Sorry, the program you want is cwddsutl. The util that you are running is for compilation not reporting on DDIO files.
If you can find out from your installer where the shared services example lib is then you can get the util from there.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group