|
|
| Author |
Message |
Wallaby Bob
New User
Joined: 03 Feb 2004 Posts: 2 Location: Sydney
|
|
|
|
Does anybody know of or have any JCL for a utility that will write a PDS member list to a sequential file?
I did this about 8 years ago but can't remember the tool I used to generate the PDS member list.
Examples of JCL would be greatly apreciated.
 |
|
| Back to top |
|
 |
References
|
Posted: Tue Feb 03, 2004 9:34 am Post subject: Re: Batch utility to write PDS member list to sequential file |
 |
|
|
 |
bluebird
Specialist
Joined: 03 Feb 2004 Posts: 144
|
|
|
|
| you can use tso in batch with litds or listdsi command |
|
| Back to top |
|
 |
Wallaby Bob
New User
Joined: 03 Feb 2004 Posts: 2 Location: Sydney
|
|
|
|
I recieved the following suggestion;
Wallaby Bob,
The following JCL will give you the desired results.
Code:
//STEP10 EXEC PGM=IKJEFT01
//SYSTSPRT DD DSN=YOUR PDS MEM LISTING
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,1),RLSE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSTSIN DD *
LISTDS 'your pds name' MEMBERS
/*
|
|
| Back to top |
|
 |
mdtendulkar
Active User
Joined: 29 Jul 2003 Posts: 257 Location: USA
|
|
|
|
Hello Wallaby Bob,
Please find the below mentioned rexx routine to get the desired results
| Code: |
SAY 'PLEASE ENTER YOUR PDS NAME YOU WANT TO LIST : '
SAY 'PLEASE GIVE THE PDS NAME IN QUOTES'
PARSE PULL DSN
ID = USERID()
NAME = '.PDS.LIST'
OUTNAME = ID || NAME
"ALLOC F(OUTPUT) DA('"OUTNAME"') NEW UNIT(SYSDA) DSORG(PS)",
"SPACE(2 1) Tracks LRECL(80) RECFM(F,B)"
x = OUTTRAP(ListMem.,"*")
"listds " DSN " mem "
x = OUTTRAP("off")
MemDis = 'N'
Mcnt = 0
DO Cnt = 7 to ListMem.0
MCnt = MCnt + 1
Mem = strip(ListMem.Cnt)
LOC.Mcnt = Mem
SAY 'mem ' mem
END
"EXECIO * DISKW OUTPUT (STEM LOC. FINIS"
"FREE FI(OUTPUT)"
SAY 'PLEASE CHECK THE PDS CONTENTS IN : ' OUTNAME
|
Hope this helps
Regards
Mayuresh Tendulkar |
|
| Back to top |
|
 |
bluebird
Specialist
Joined: 03 Feb 2004 Posts: 144
|
|
|
|
IKJEFT01 is TSO in batch program.
so basically use this program to issue the cmd I showed you.
sorry for forgetting the jcl deck. |
|
| Back to top |
|
 |
|
|