| View previous topic :: View next topic |
| Author |
Message |
relaxing
Beginner
Joined: 25 Aug 2003
Posts: 73
Topics: 29
|
 Posted: Thu Jun 21, 2007 4:51 pm Post subject: Copy PDS member names to sequential file. |
 |
|
Gurus,
Can we copy only member names of a PDS into sequential file. I have very limited knowledge on REXX. Any JCL or SORT utility will be great, else REXX is fine.
Thanks. |
|
| Back to top |
|
 |
relaxing
Beginner
Joined: 25 Aug 2003
Posts: 73
Topics: 29
|
| Posted: Thu Jun 21, 2007 4:54 pm Post subject: |
|
|
I have found this code here in the helpboards. I will try this code once I have my system on hand. Thanks.
//JS10 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=*
//DDNAME1 DD UNIT=3390,VOL=SER=SYSRES,DISP=OLD
//SYSIN DD *
LISTPDS DSNAME=SYS1.LINKLIB,FORMAT,VOL=3390=SYSRES
/* |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
kingo
Intermediate
Joined: 01 Sep 2006
Posts: 167
Topics: 40
Location: chennai
|
| Posted: Wed Jul 18, 2007 6:32 am Post subject: |
|
|
This program will cature tso command output to a dataset
| Code: |
/*REXX*/
DUMMY = OUTTRAP("OUTPUT_LINE.","*")
"LISTDS 'aaaa.xxxx.REXX' M"
NUMLINES = OUTPUT_LINE.0
SAY NUMLINES "LINES WERE CREATED"
DUMMY = OUTTRAP("OFF")
"DELETE mem.LIST"
"ALLOCATE DD(mem) DA(mem.LIST) NEW SPACE(15 15) TRACKS",
"LRECL(80) BLOCK(6160) RECFM(F B) RETPD(0)"
"EXECIO" OUTPUT_LINE.0 "DISKW mem (STEM OUTPUT_LINE. FINIS"
"FREE DDNAME(mem) DA(mem.LIST)"
ADDRESS "ISPEXEC" "EDIT DATASET(mem.LIST) "
|
Please try as I not very much sure
Regds,
Kingo
_________________
IF YOU ARE NOT FOCUSSED ON GOAL ALL YOU SEE IS OBSTACLE. |
|
| Back to top |
|
|
ofer71
Intermediate
Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel
|
| Posted: Wed Jul 18, 2007 7:57 am Post subject: |
|
|
If you have ISPF, you can use the SAVE command.
O.
________
sell vaporizers |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
