|
View previous topic :: View next topic
|
| Author |
Message |
subbuy2k
New User
Joined: 17 Apr 2009
Posts: 8
Location: milford
|
|
|
|
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 |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
| Back to top |
|
|
subbuy2k
New User
Joined: 17 Apr 2009
Posts: 8
Location: milford
|
|
|
|
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 |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
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 |
|
|
subbuy2k
New User
Joined: 17 Apr 2009
Posts: 8
Location: milford
|
|
|
|
| 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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
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 |
|
|
|
|
