Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How do I change default "Pack ON" to "Pack OF

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
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    Post subject: How do I change default "Pack ON" to "Pack OF
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Tue May 27, 2008 11:56 am    Post subject: Reply to: How do I change default "Pack ON" to &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    Post subject:
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Tue May 27, 2008 3:23 pm    Post subject: Reply to: How do I change default "Pack ON" to &am
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: 6968
Location: porcelain throne

PostPosted: Tue May 27, 2008 4:26 pm    Post subject:
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    Post subject: PACK ON for all newly created PDS members
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: 1894
Location: UK

PostPosted: Fri Dec 23, 2011 1:13 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Fri Dec 23, 2011 1:27 pm    Post subject: Reply to: How do I change default "Pack ON" to &am
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 )
http://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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm
No new posts Default FTP options vasanthz All Other Mainframe Topics 2 Fri Aug 25, 2017 5:58 am
No new posts change string before sertan string anatol DFSORT/ICETOOL 8 Tue Aug 15, 2017 5:43 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us