Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Copy PS to PDS member

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
subbuy2k

New User


Joined: 17 Apr 2009
Posts: 8
Location: milford

PostPosted: Sat Apr 25, 2009 12:53 am    Post subject: Copy PS to PDS member
Reply with quote

Hi ,
I have a PS with many records. The first 5 digit of the record shows the record belong to what group(PDS member).
eg)
a00101 ******
a00101 ******
a00101 ******
a00201 ******
a00201 ******
a00201 ******

Now based on the first 5 digit of the records I have to create member and want to copy corresponding records to that member.

Thanks
subash
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4649
Location: Raleigh, NC, USA

PostPosted: Sat Apr 25, 2009 1:25 am    Post subject: Reply to: Copy PS to PDS member
Reply with quote

Sounds like the same process that this recent topic would use.
Back to top
View user's profile Send private message
subbuy2k

New User


Joined: 17 Apr 2009
Posts: 8
Location: milford

PostPosted: Sat Apr 25, 2009 2:20 am    Post subject:
Reply with quote

Hi Superk,
No this is different from what was posted already. I have already tried that but it didnt work for my requirement.
Thanks.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Sat Apr 25, 2009 2:39 am    Post subject:
Reply with quote

You could use something like this IEBUPDTE example to create and insert the members.
Code:
//UPDATE   JOB  ...
//STEP1    EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DSNAME=OUTLIB,UNIT=disk,DISP=(NEW,CATLG),
//             VOLUME=SER=111112,SPACE=(TRK,(50,,10)),
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYSIN    DD  DATA
./        ADD   NAME=MEMB1,LEVEL=00,SOURCE=0,LIST=ALL
(Data statements, sequence numbers in columns 73 through 80)
./ ADD NAME=MEMB2,LEVEL=00,SOURCE=0,LIST=ALL
(Data statements, sequence numbers in columns 73 through 80)
./ ADD NAME=MEMB3,LEVEL=00,SOURCE=0,LIST=ALL
(Data statements, sequence numbers in columns 73 through 80)
./ ENDUP /*

The ADDs and data could be easely generated by sort to a temp file that will be the IEBUPDTE's SYSIN.
Back to top
View user's profile Send private message
subbuy2k

New User


Joined: 17 Apr 2009
Posts: 8
Location: milford

PostPosted: Mon Apr 27, 2009 9:12 am    Post subject:
Reply with quote

In the above IEBUPDTE example How to check the first 5 bytes? I want to copy to new member based on the first 5 bytes only.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Apr 27, 2009 10:25 am    Post subject:
Reply with quote

Hello,

Quote:
In the above IEBUPDTE example How to check the first 5 bytes?

One of these:
Code:
./ ADD NAME=MEMB2,LEVEL=00,SOURCE=0,LIST=ALL
would be created each time the first 5 bytes change.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 7 Thu Apr 27, 2017 1:15 am
No new posts Copy load modules and alias vasanthz IBM Tools 5 Thu Apr 20, 2017 6:31 am
No new posts Browsing member from any PDS shiitiizz CLIST & REXX 7 Wed Mar 08, 2017 1:17 am
No new posts Bind plan as a member to another bind... rexx77 DB2 0 Thu Feb 16, 2017 2:02 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us