How to remove tag lines in COBOL using ISPF commands?

[RaOne]

Hi.

How to remove tag lines in COBOL using ISPF commands?

[zprogrammer]

Tag lines => what do you mean by that?

[ShilpiSRE]

Something of this sort help you:

Code: Select all

C ALL P'========' '' 73

[zprogrammer]

Try

Code: Select all

NOM

on command line

[ShilpiSRE]

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]

That is a inhouse macro I kept calling that way

Code: Select all

/*REXX*/
"ISREDIT MACRO"
"ISREDIT NUM ON STD COB"
"ISREDIT UNNUM"
"ISREDIT NUM ON COB"
"ISREDIT RENUM"
EXIT

Try this

[zprogrammer]

For more details check here

http://www-01.ibm.com/support/knowledge ... %23mnumber

[RaOne]

That is a inhouse macro  :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]

what a waste of time with useless replies...
looks like nobody knows the ispf RESET command  

[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'.

[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]

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.

[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]

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.

[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]

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.

[ShilpiSRE]

Thanks last two options were useful for me.

[RaOne]

Thanks all.