| View previous topic :: View next topic |
| Author |
Message |
psmadhusudhan
Beginner
Joined: 28 Nov 2006
Posts: 143
Topics: 48
|
 Posted: Thu Sep 27, 2007 3:33 am Post subject: Convergting PS to PDS |
 |
|
I have one sequential file which is created by
merging members of one PDS using IEBPTPCH.
In sequential file each member is differentiated by
a row for example as:
| Code: | ----+----1----+----2-
MEMBER NAME ARRAY010 |
I want to split this PS to PDS in such a way that
all the line of code between one member name and
other member name should go into one member and the
member should be named by taking the field from
14th byte to 21st bye(8 bytes length). Member name
won't excedd this length.
For example first record contain as member name as
specified above and suppose there is 1000 line of
code upto next member name. This 1000 lines should
go into one member and it should be name as "ARRAY010".
I had thought of using IEBGENER but my PS contains
100s of members, so it will very difficult to specify
each member name. Could somebody help me in
achieving this.
_________________
Thanks
Madhu Sudhan |
|
| Back to top |
|
 |
CICS Guy
Intermediate
Joined: 30 Apr 2007
Posts: 292
Topics: 3
|
| Posted: Thu Sep 27, 2007 3:45 am Post subject: |
|
|
| Using a sort, you could copy the records while converting the "MEMBER NAME" records into utility add member (./ ADD?) statements.... |
|
| Back to top |
|
|
psmadhusudhan
Beginner
Joined: 28 Nov 2006
Posts: 143
Topics: 48
|
| Posted: Thu Sep 27, 2007 4:41 am Post subject: |
|
|
CICS Guy
Can u please help me with the jcl.
_________________
Thanks
Madhu Sudhan |
|
| Back to top |
|
|
expat
Intermediate
Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales
|
| Posted: Thu Sep 27, 2007 10:41 am Post subject: |
|
|
Or use SORT or REXX to convert the MEMBER NAME line into
./ ADD NAME=xxxxxxx
And run the output through IEBUPDTE
_________________
If it's true that we are here to help others,
then what exactly are the others here for ? |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
