| View previous topic :: View next topic |
| Author |
Message |
anandrk
Beginner
Joined: 19 Jan 2003
Posts: 7
Topics: 4
Location: Hyderabad
|
 Posted: Fri Oct 08, 2004 4:33 pm Post subject: Copying 1st line of every PDS member into a sequential file |
 |
|
Hello Everybody,
Just wanted to know if it is possible to copy the 1st line of every member in a PDS into some PS dataset using File-Aid.
WE have a PDS which contains some 9000 members. I need to copy the 1st line of each member into some sequential dataset. I know it can be done via REXX, but I would appreciate, if someone can suggest a way to do this via File-Aid Batch.
Thanks
Anand |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
|
| Posted: Sat Oct 09, 2004 5:52 am Post subject: |
|
|
Anandrk,
The following JCL will give you the desired results.
| Code: |
//*******************************************************************
//* THE FOLLOWING STEP PRINTS THE FIRST LINE OF EVERY MEMBER OF PDS *
//*******************************************************************
//STEP0100 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=YOUR PDS,
// DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSIN DD *
PUNCH TYPORG=PO,STOPAFT=1
/*
|
Btw check this link which discusses similar requirement
http://www.mvsforums.com/helpboards/viewtopic.php?t=2299
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
anandrk
Beginner
Joined: 19 Jan 2003
Posts: 7
Topics: 4
Location: Hyderabad
|
| Posted: Mon Oct 11, 2004 4:48 am Post subject: Thanks a ton |
|
|
Kolusu,
The answer is exactly as I wanted. Thanks a ton for your help. I really appreciate your help.
Thanks
Anand |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
