IBM Mainframe Forum

Posted: **Wed Apr 03, 2013 10:07 pm**

I need to list the PROCs used by a number of JCL members in a Partitioned Data set - is there any way to automate this?

I have been trying the IEBCOPY utility but it only gives me an Unloaded Sequential Dataset - which I don't know how to use.
I guess what would help me a lot is if anybody can teach me how to convert a Partitioned Dataset into a Sequential Dataset that I could probably use as input for my sort utility?

Thank you.

Posted: **Wed Apr 03, 2013 10:11 pm**

IEBPTPCH

ok... ok...
I am in a good mood today

Select all

EDIT ENRICO.TEST.JCL(IEBPTPCH) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //ENRICO1 JOB (ACCT#),'IEBPTPCH',NOTIFY=ENRICO,
000002 // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
000003 //*
000004 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
000005 //IEB EXEC PGM=IEBPTPCH
000006 //SYSIN DD *
000007 PRINT TYPORG=PO,MAXFLDS=1
000008 RECORD FIELD=(80)
000009 //SYSPRINT DD SYSOUT=*
000010 //SYSUT2 DD SYSOUT=*
000011 //SYSUT1 DD DISP=SHR,DSN=ENRICO.TEST.JCL
****** **************************** Bottom of Data ****************************

Posted: **Wed Apr 03, 2013 10:41 pm**

Thanks! Will Try this when I have access a termnal.

Posted: **Thu Apr 04, 2013 10:51 am**

Enrico's solution will list every member in the PDS, which I'm not sure is the topic starter's intent.

I'm not sure the following example is the intent, either, but ...

Select all

//A EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=MYID.CNTL
//SYSUT2 DD SYSOUT=*
//SYSIN DD *
PRINT TYPORG=PO,MAXFLDS=20,MAXNAME=20
MEMBER NAME=(JOBCARD)
RECORD FIELD=(80,1,,21)
MEMBER NAME=(STEPLIB)
RECORD FIELD=(80,1,,21)
MEMBER NAME=(JOBLIB)
RECORD FIELD=(80,1,,21)

In nearly 45 years, when I've used IEBPTPCH fairly often, it has always been to print all the members. I had to go to the manual to find out how to select members, and, in my opinion, the solution turned out to be depressingly kludgy.

Posted: **Thu Apr 04, 2013 11:15 am**

I guess what would help me a lot is if anybody can teach me how to convert a Partitioned Dataset into a Sequential Dataset that I could probably use as input for my sort utility?

my suggestion answered it :mrgreen:

Posted: **Thu Apr 04, 2013 11:26 am**

Enrico is correct, but I would use PUNCH rather than PRINT, and direct the SYSUT2 DD statement to disk rather than SYSOUT.

IBM Mainframe Forum

Help in listing PROCs.

Help in listing PROCs.

Re: Help in listing PROCs.

Re: Help in listing PROCs.

Re: Help in listing PROCs.

Re: Help in listing PROCs.

Re: Help in listing PROCs.