Help in listing PROCs.

[dafpadilla]

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.

[enrico-sorichetti]

IEBPTPCH

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

Code: 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 ****************************

[dafpadilla]

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

[steve-myers]

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 ...

Code: 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.

[enrico-sorichetti]

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

[steve-myers]

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