Existence of a member in a PDS

rehanaaigss · New User Joined: 30 Jan 2008 Posts: 8 Location: chennai

Hi,

please let me know if anyone knows how to find an existence of a member in a PDS? How to code it in JCL?

ofer71 · Posted: Fri Feb 08, 2008 12:51 pm

I would recommend using REXX's SYSDSN function and set a return code appropriately.

O.

rehanaaigss · New User Joined: 30 Jan 2008 Posts: 8 Location: chennai

I have heard of using GETPDS in JCL to find out the existence of a member in a PDS. But not sure how to make use of this? Can anyone please help me in this?

expat · Posted: Fri Feb 08, 2008 3:19 pm

Have you investigated the use of IDCAMS PRINT ?

You get RC12 if the member does bot exist

rehanaaigss · New User Joined: 30 Jan 2008 Posts: 8 Location: chennai

Can u please tell me how to code it using IDCAMS PRINT ? if member exists, what will happen?

rehanaaigss · New User Joined: 30 Jan 2008 Posts: 8 Location: chennai

If a particual member(job) exists in a PDS, that job has to be excuted; otherwise control has to come out.. How can i code this in JCL?

expat · Posted: Fri Feb 08, 2008 7:25 pm

Here is the link to the IDCAMS manual, so take a look at the PRINT command.

http://publib.boulder.ibm.com/cgi-bin/bookmgr/FINDBOOK?filter=access+method+services&Collection=0

How do you code what you want - execute, or not, the second step depending on the condition returned from the IDCAMS PRINT step.

rehanaaigss · New User Joined: 30 Jan 2008 Posts: 8 Location: chennai

Hi,

I made use of 'LISTDS' to findout the availability of a member in a PDS. It is working fine.

Thanks for all........

Agni · New User Joined: 22 Nov 2007 Posts: 83 Location: Chennai

Hi rehanaaigss,

Thanks for sharing this. It would be great if u post the JCL also.

Cheers
Agni.

rehanaaigss · New User Joined: 30 Jan 2008 Posts: 8 Location: chennai

Here is the JCL:

//P1 EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
LISTDS 'T54V01H.TEST.JCL(XXXX)'

If the specified member is not available, RC of this step will be 4. If the specified PDS itself doesn't exist, RC will be 8.