MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Unnumber

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Tue Sep 13, 2022 8:15 am    Post subject: Unnumber Reply with quote

I'm having the following problem and wonder if there is a simple way round it (or if there's another solution I can use).
At the moment, I have a source PDS (FB 80) that contains the Rexx scripts I'm working on.
Once they're good to go, I copy them to a "public" library that users have access to.
The problem I'm having is that the public library is defined as VB 255 so that it can be concatenated to existing script libraries when the user logs on.
The private library has loads of scripts that have numbering in positions 73-80. When I copy these to the public library, that numbering remains and the script crashes until I remove the numbering with num on;unnumber

Is there some way of, say, defining the profile for my CLIST library (called 'myuser.TEST.CLIST') such that num on;unnumber is the default for all members (existing or new) or something similar for the public library such that when I copy from private to public, the numbering disappears?

Or do I have to remember to run these commands EVERY time I edit the private PDS?
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Tue Sep 13, 2022 11:33 pm    Post subject: Reply with quote

misi01,

Why dont you update the private pds to remove line numbers in ALL members and then change to num off in profile so that you would never have line numbers at all.

Alternatively how are you copying to public pds? Utility or 3.3 copy ? You can copy bytes 1 thru 72 so that you would never copy the line numbers.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Sep 14, 2022 12:28 am    Post subject: Reply with quote

I followed your first suggestion (remove line numbers in all members).

What I didn't understand how to do was to change the profile for the PDS to num off.
Do I do it from one of the menu options after I've selected edit under 3.4 (couldn't see anything obvious)?
Do I have to edit a member and enter "num off" which then applies to all members (existing or new)?
I googled but all I could seem to find was that you could do it, but not how.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Wed Sep 14, 2022 10:14 pm    Post subject: Reply with quote

misi01,

Open the PDS in EDIT mode from 3.4 or option 2 and select any member and type PROF to see the current profile. Check if the PROF shows LOCKED.

Code:

...JCL (FIXED - 80)....RECOVERY OFF WARN....NUMBER OFF.................
...CAPS ON....HEX OFF....NULLS ON STD....TABS OFF......................
...AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
...PROFILE LOCK....IMACRO NONE....PACK OFF....NOTE ON..................
...HILITE JCL CURSOR FIND..............................................


If that is the case first issue PROFILE UNLOCK and the NUM OFFF and once the change is reflected LOCK the PROFILE
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Thu Sep 15, 2022 3:56 am    Post subject: Reply with quote

Perfect. Thanks a lot.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group