View previous topic :: View next topic
|
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 |
|
|
bluebird
Active User
Joined: 03 Feb 2004 Posts: 127
|
|
|
|
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: 237 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
Active User
Joined: 03 Feb 2004 Posts: 127
|
|
|
|
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 |
|
|
|