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
 
Deleting the sequence number from the first 6 columns

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

Active User


Joined: 23 May 2006
Posts: 166
Location: chennai

PostPosted: Thu Mar 01, 2007 3:37 pm    Post subject: Deleting the sequence number from the first 6 columns
Reply with quote

When i open a PDS member ( it contains a program ), the first 6 columns are occupied by sequence numbers. I want to delete those sequence numbers. I know it can be done by using the keyword UNNUM.

But my problem is, as it is a program which is continously being changed ( as part of enhancements ), some tags are given at the 1-6 columns of the lines which has been changed.
I mean some of the lines in the program has some tags attached to it in columns 1-6 for identification.
So when i use UNNUM i lose these tags also, which i dont want to happen.

Is there any way by which i can delete only the sequence numbers and not the Tags??
Back to top
View user's profile Send private message

agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 686
Location: Earth

PostPosted: Thu Mar 01, 2007 4:28 pm    Post subject:
Reply with quote

use c all p'######' 1 ' '

# signifies numbers, so only number will get repalced
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Thu Mar 01, 2007 5:50 pm    Post subject:
Reply with quote

agkshirsagar wrote:
use c all p'######' 1 ' '
# signifies numbers, so only number will get repalced
but what if some of the "tags" have numbers in them?
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 686
Location: Earth

PostPosted: Thu Mar 01, 2007 6:14 pm    Post subject:
Reply with quote

The command will replace numbers if there are consecutive 6 nueric digits, otherwise not.
Back to top
View user's profile Send private message
raak

Active User


Joined: 23 May 2006
Posts: 166
Location: chennai

PostPosted: Thu Mar 01, 2007 6:46 pm    Post subject:
Reply with quote

William,

If there is an alphabet in any of the columns from 1-6, it wont be replaced by the command given above.

Only if all the positions are numbers, it will be replaced.

Just tried it out and found icon_smile.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Thu Mar 01, 2007 6:50 pm    Post subject:
Reply with quote

Thank you Abhijit and raak, it is always nice to learn something....
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 Repeat Sequence Number Until change i... rahulabvp DFSORT/ICETOOL 6 Thu Mar 29, 2018 12:51 pm
No new posts Detect break in the sequence tuxama DFSORT/ICETOOL 6 Tue Mar 20, 2018 1:35 pm
No new posts help to replace columns by rows Vikas Maharnawar DFSORT/ICETOOL 8 Tue Mar 06, 2018 3:27 pm
No new posts add sequence number for duplicate rec... SRUTHI DRAVIDAMANI COBOL Programming 11 Thu Feb 22, 2018 5:37 pm
No new posts PARSE GDG name to separate generation... Abid Hasan SYNCSORT 2 Sun Feb 11, 2018 3:40 pm

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