|
View previous topic :: View next topic
|
| Author |
Message |
sunil kumar purohit
New User
Joined: 10 Sep 2009
Posts: 37
Location: bangalore
|
|
|
|
Hi,
Can anyone suggest me how to unpack a pds?
I know we can unpack a member using PROF than PACK OFF command.
But if PDS contain 1000 member than this solution is not feasible.
Can anyone suggest alternate. |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| I would suggest a REXX that edits each member of the PDS and executes an ISPF edit macro to issue the PACK OFF command. |
|
| Back to top |
|
|
sunil kumar purohit
New User
Joined: 10 Sep 2009
Posts: 37
Location: bangalore
|
|
|
|
| Could you please eloberate how can i achieve in rexx?? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Click HERE to see a helpful topic.
What you will need to do is to to put the main rexx exec into a PDS, and also include the following line after the first line
"ALTLIB ACTIVATE APPL(EXEC) DA('Your PDS')"
And
"ALTLIB DEACTIVATE APPL(EXEC)" as the last line.
The macro which goes in the same library is very similar to what you would type for each member
| Code: |
"ISREDIT MACRO"
"ISREDIT PACK OFF"
"ISREDIT END" |
Then you just type EX next to the main exec in 3.4 and off you go.
It gets a little more complicated in batch, but the online exec shouldn't take more than 5 minutes at most to process the whole PDS. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006
Posts: 1042
Location: Richmond, Virginia
|
|
|
|
| Try renaming it, then reallocating a new PDS with pack off, then copy all members. |
|
| Back to top |
|
|
|
|
