How to remove tag lines in COBOL using ISPF commands?

OS/VS COBOL, COBOL II, Enterprise COBOL for z/OS. OpenCOBOL and OOCobol.
Post Reply
RaOne
Registered Member
Posts: 27
Joined: Fri Aug 16, 2013 11:46 pm

How to remove tag lines in COBOL using ISPF commands?

Post by RaOne »

Hi.

How to remove tag lines in COBOL using ISPF commands?
zprogrammer
Global Moderator
Global Moderator
Posts: 588
Joined: Wed Nov 20, 2013 11:53 am
Location: Mars

Re: How to remove tag lines in COBOL using ISPF commands?

Post by zprogrammer »

Tag lines => what do you mean by that?
zprogrammer
ShilpiSRE
Registered Member
Posts: 23
Joined: Sat Aug 17, 2013 12:28 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by ShilpiSRE »

Something of this sort help you:

Code: Select all

C ALL P'========' '' 73
zprogrammer
Global Moderator
Global Moderator
Posts: 588
Joined: Wed Nov 20, 2013 11:53 am
Location: Mars

Re: How to remove tag lines in COBOL using ISPF commands?

Post by zprogrammer »

Try

Code: Select all

NOM
on command line
zprogrammer
ShilpiSRE
Registered Member
Posts: 23
Joined: Sat Aug 17, 2013 12:28 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by ShilpiSRE »

Pandora-Box wrote:Try

Code: Select all

NOM
on command line
What is this command used for? I searched in TSO command manual and I did not find a reference to it, in the interest of this topic. May be I did not search well, can you please help.
zprogrammer
Global Moderator
Global Moderator
Posts: 588
Joined: Wed Nov 20, 2013 11:53 am
Location: Mars

Re: How to remove tag lines in COBOL using ISPF commands?

Post by zprogrammer »

That is a inhouse macro :oops: :oops: I kept calling that way :oops: :oops:

Code: Select all

/*REXX*/
"ISREDIT MACRO"
"ISREDIT NUM ON STD COB"
"ISREDIT UNNUM"
"ISREDIT NUM ON COB"
"ISREDIT RENUM"
EXIT
Try this
zprogrammer
zprogrammer
Global Moderator
Global Moderator
Posts: 588
Joined: Wed Nov 20, 2013 11:53 am
Location: Mars

Re: How to remove tag lines in COBOL using ISPF commands?

Post by zprogrammer »

zprogrammer
RaOne
Registered Member
Posts: 27
Joined: Fri Aug 16, 2013 11:46 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by RaOne »

Pandora-Box wrote:That is a inhouse macro :oops:  :oops: I kept calling that way  :oops:  :oops:  

Code: Select all

/*REXX*/
"ISREDIT MACRO"
"ISREDIT NUM ON STD COB"
"ISREDIT UNNUM"
"ISREDIT NUM ON COB"
"ISREDIT RENUM"
EXIT
Try this
What is COB in your macro?

I looked at the link you later provided but it is not working. It shows the error "The requested resource is not found: /support/knowledgecenter/en/SSLTBW_1.1"
enrico-sorichetti
Global Moderator
Global Moderator
Posts: 825
Joined: Wed Sep 11, 2013 3:57 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by enrico-sorichetti »

what a waste of time with useless replies...
looks like nobody knows the ispf RESET command :twisted:  
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort 8-)
nicc
Global Moderator
Global Moderator
Posts: 691
Joined: Wed Apr 23, 2014 8:45 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by nicc »

Basically all responses to this topic are invalid except the first. That asked for a definition of "tag lines" but that was not provided. Therefore all later pposts are just a waste of space as they may not refer to what the topic starter meant.

RaOne

You started this topic 2 years ago and your only reponse is to say something did not work. This is not surprising as you have not specified what you meant.

Please specify what you meant by 'tag lines'.
Regards
Nic
RaOne
Registered Member
Posts: 27
Joined: Fri Aug 16, 2013 11:46 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by RaOne »

Sorry for the confusion. By tag-lines I meant the markers different users has added to identify their codes. For example:

Code: Select all

#PRJ01  PROCEDURE DIVISION.
0#RAM **   Please keep the first part of your program simple
0#RAM **   perform beginning, perform main loop til no more records,
0#RAM **   perform the end
0#AA00     PERFORM INITIALIZATION
008300     PERFORM PROCESS-ALL
0#AA00**       UPPER CASE Y, PLEASE
008500         UNTIL FILE-AT-END = 'Y'
008600     PERFORM TERMINATION
008700     GOBACK.
In above #RAM, #AA etc are tag-lines, I just wanted to remove them.
nicc
Global Moderator
Global Moderator
Posts: 691
Joined: Wed Apr 23, 2014 8:45 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by nicc »

So you want the lines
[ul][li]PROCEDURE DIVISION[/li]
[li]PERFORM INITIALISATION[/li]
[li]UPPER CASE Y, PLEASE[/li][/ul]
to be deleted along with the comment lines leaving you with
[ul][li]PERFORM PROCESS-ALL[/li]
[li]UNTIL FILE-AT-END = 'Y'[/li]
[li]PERFORM TERMINATION[/li]
[li]GOBACK[/li][/ul]
?
That will leave you with a program that does not compile.
Do you mean that you want the tags converted to line numbers? If so, you should not do that - they are part of the audit trail of changes made to the program.
Regards
Nic
RaOne
Registered Member
Posts: 27
Joined: Fri Aug 16, 2013 11:46 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by RaOne »

No not like that. There is one more column before the colmn which has 'tags' like #RAM etc which has got line number. And I just want to remove the tags not the entire line of code.
they are part of the audit trail of changes made to the program.
Many of them no longer make any sense and some programmers have manually added them which are of audit use. So we want to remove them.
nicc
Global Moderator
Global Moderator
Posts: 691
Joined: Wed Apr 23, 2014 8:45 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by nicc »

Well, as the tags are in the COBOL line numbers columns (1-6) you can change all non-blanks to blanks in those columns. If you now want cobol line numbers in those columns set the profile to do so.

If, for some strange reason, you do not know how to do the first part then I suggest you press (P)F1 and select FIND/CHANGE and read up on picture strings within that section. IF you do not know how to do the second part then use the Help key again and look for NUMBER.
Regards
Nic
ossodue
New Member
Posts: 2
Joined: Fri Jul 15, 2016 7:51 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by ossodue »

To have spaces from 1 to 6 column you have to
1) shift left 6 time with the block command ((6
2) shift right 6 time with the block command ))6
nicc
Global Moderator
Global Moderator
Posts: 691
Joined: Wed Apr 23, 2014 8:45 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by nicc »

Or you can do it with one simple change all command restricted to columns 1-6 and specify the data to be changed using one of the PIC formats and specifying space(s) as the replacement data.
Regards
Nic
ShilpiSRE
Registered Member
Posts: 23
Joined: Sat Aug 17, 2013 12:28 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by ShilpiSRE »

Thanks last two options were useful for me.
RaOne
Registered Member
Posts: 27
Joined: Fri Aug 16, 2013 11:46 pm

Re: How to remove tag lines in COBOL using ISPF commands?

Post by RaOne »

Thanks all.
Post Reply

Create an account or sign in to join the discussion

You need to be a member in order to post a reply

Create an account

Not a member? register to join our community
Members can start their own topics & subscribe to topics
It’s free and only takes a minute

Register

Sign in

Return to “IBM COBOL, GnuCOBOL (OpenCOBOL), OOCobol.”