MVSFORUMS.com

Dibakar

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

Abhi · Posted: Thu Dec 12, 2002 4:07 am Post subject:

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.

warp5 · Posted: Thu Dec 12, 2002 4:18 am Post subject:

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.

Dibakar · Posted: Thu Dec 12, 2002 5:23 am Post subject:

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.

warp5 · Posted: Thu Dec 12, 2002 6:49 am Post subject:

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.

Dibakar · Posted: Thu Dec 12, 2002 9:08 am Post subject:

I will check that next time I get this error. Thanks.

faisal · Beginner Joined: 05 Dec 2002 Posts: 8 Topics: 1

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

Nossac · Posted: Mon Dec 16, 2002 12:57 am Post subject:

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.

Dibakar · Posted: Mon Dec 16, 2002 4:51 am Post subject:

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 -

Nossac · Posted: Wed Dec 18, 2002 10:44 pm Post subject:

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.