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
 

 

Unpack a PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
sunil kumar purohit

New User


Joined: 10 Sep 2009
Posts: 37
Location: bangalore

PostPosted: Wed Apr 14, 2010 2:51 pm    Post subject: Unpack a PDS
Reply with quote

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
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Apr 14, 2010 3:11 pm    Post subject:
Reply with quote

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
View user's profile Send private message
sunil kumar purohit

New User


Joined: 10 Sep 2009
Posts: 37
Location: bangalore

PostPosted: Wed Apr 14, 2010 3:14 pm    Post subject:
Reply with quote

Could you please eloberate how can i achieve in rexx??
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Apr 14, 2010 3:50 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Wed Apr 14, 2010 7:28 pm    Post subject: Reply to: Unpack a PDS
Reply with quote

see
http://ibmmainframes.com/viewtopic.php?t=25947&highlight=
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 962
Location: Richmond, Virginia

PostPosted: Fri Apr 16, 2010 7:07 pm    Post subject:
Reply with quote

Try renaming it, then reallocating a new PDS with pack off, then copy all members.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Unpack COMP/COMP-3 fields vinodh k r COBOL Programming 6 Thu Jul 03, 2014 11:56 am
No new posts How to Unpack the Packed decimal data... latheef COBOL Programming 5 Thu Jul 04, 2013 1:39 pm
No new posts Algorithm to unpack ISPF PACKED format Robert Robinson TSO/ISPF 21 Tue Oct 23, 2012 9:43 pm
No new posts How to UNPACK variable felds in a Cop... ksannigeri COBOL Programming 9 Wed May 30, 2012 10:09 am
No new posts How to unpack the comp-3 field. arvind.m JCL & VSAM 1 Tue May 19, 2009 5:09 pm


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