IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How do I change default "Pack ON" to "Pack OF


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ParagChouguley

Active User


Joined: 03 Feb 2007
Posts: 175
Location: PUNE(INDIA)

PostPosted: Tue May 27, 2008 11:41 am
Reply with quote

Hi All,
Whenever I create a new member in my PDS using my TSO ID, default attribute is "PACK ON". When I edit it to "PACK OFF" and come out of that member and when again I go for editing or viewing, I can see it "Pack On"

So how do I change this default "Pack ON" to "Pack OFF"

--Parag
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue May 27, 2008 11:56 am
Reply with quote

the pack setting should be saved in the edit profile..
so typing PACK OFF should do it
the edit profile is saved/retrieved using the last qualifier of the dataset name

it' s strange that it does not get saved across sessions after SAVING a member

if You want to unpack all the memebrs of a PDS search the forum for
"$APPLY" is edit macro to apply an inner macro to all the members of PDS
I posted it and there is also a $UNPACK macro to .. the name tells
Back to top
View user's profile Send private message
ParagChouguley

Active User


Joined: 03 Feb 2007
Posts: 175
Location: PUNE(INDIA)

PostPosted: Tue May 27, 2008 11:59 am
Reply with quote

enrico sorichetti,
Thanks a lot for your quick reply!
I will try it and let you know !

--Parag
Back to top
View user's profile Send private message
ParagChouguley

Active User


Joined: 03 Feb 2007
Posts: 175
Location: PUNE(INDIA)

PostPosted: Tue May 27, 2008 2:34 pm
Reply with quote

Hi Enrico sorichetti,
I did what you said. (defining & allocating sysproc to new PDS containing your code, and running command at a command prompt inside a new member of my PDS.) But I got following
Code:

NOT CHANGED   MY.PDS.NAME(MEM1)
NOT CHANGED   MY.PDS.NAME(MEM2)
NOT CHANGED   MY.PDS.NAME(MEM3)
.
.
and so on


None of the member was changed.
Please advice

--Parag
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Tue May 27, 2008 3:23 pm
Reply with quote

Hi Parag

change the following
Code:
      if 0 = $ispex(edit) then ,
         done = "SAVED"
      else ,
         done = "NOT CHANGED"


to
Code:

      zrc = $ispex(edit)
      if zrc = 0 then ,
         done = "SAVED"
      else if zrc = 4 then ,
         done = "NOT SAVED RC("zrc") "
      else ,
         done = "UNEXPECTED RC("zrc") " 


if the return code is 4 then the member was not saved because it was not modified
( the member was already unpacked )
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Tue May 27, 2008 4:26 pm
Reply with quote

might try using the profile lock command while in edit.
Back to top
View user's profile Send private message
Anjuman Hydros

New User


Joined: 19 Dec 2011
Posts: 1
Location: India

PostPosted: Fri Dec 23, 2011 8:56 am
Reply with quote

I also have the above stated issue. Whenever I copy or move a PDS member to another, the newly created member will have PACK ON. I have to then PACK OFF it and save it again. How can I eliminate this issue?
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Fri Dec 23, 2011 1:13 pm
Reply with quote

1) By not restarting an old topic - just reference it
2) by following the advice above
3) what does the profile of the output dataset show for the PACK option? Have you tried changing it?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Fri Dec 23, 2011 1:27 pm
Reply with quote

here is the link to the $APPLY and friends macros
( The fix to display the EDIT return code has been incorporated already )
www.ibmmainframes.com/viewtopic.php?p=106996#106996

invoice to Wipro Technologies will follow shortly
Back to top
View user's profile Send private message
GaganGarg

Active User


Joined: 31 Mar 2010
Posts: 134
Location: India

PostPosted: Mon Dec 26, 2011 9:34 am
Reply with quote

Do one thing like below:

Code:

  RefList  Help                                                               
------------------------------------------------------------------------------
                               COPY Entry Panel                               
Command ===>                                                                   
                                                                   More:     +
CURRENT from data set: 'SPUSER1.PFILE.PGMB497(BINDLIST)'                       
All selected Move/Copy actions will be processed.                             
To Library                       Options:                                     
   Project . . .                    Enter "/" to select option                 
   Group . . . .                    /  Replace like-named members             
   Type  . . . .                       Process member aliases                 
                                                                               
To Other Data Set Name                                                         
   Name  . . . . . . .                                                         
   Volume Serial . . .           (If not cataloged)                           
                                                                               
NEW member name  . . .           (Blank unless member to be renamed)           
                                                                               
Options                                                                       
   Sequential Disposition        Pack Option         SCLM Setting             
   2  1. Mod                     1  1. Default       3  1. SCLM               
      2. Old                        2. Pack             2. Non-SCLM           
                                                        3. As is               


While copying, when it asks the file(member) to which you want to copy, make the pack option as 1. After copying the file, once do the logoff to save the ISPF statistics. Do the proper logoff, don’t terminate the session. Logon the mainframe and start copying/viewing pds members. Now the option will not change to PACK ON automatically. try this.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts PuTTY - "User is not a surrogate... IBM Tools 5
No new posts Running a Job with the Default User ID JCL & VSAM 2
No new posts 3270 personal communications. Can't c... TSO/ISPF 2
No new posts SELECT from data change table DB2 5
No new posts Newbie Stuck on "Duplicate Datas... TSO/ISPF 5
Search our Forums:

Back to Top