MVSFORUMS.com

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I got to see all the paras in cobol program of 35000 lines.how to display only paragraph names in a cobol program. I want to mask other lines.

shivashunmugam Muthu · Posted: Fri Aug 12, 2005 6:52 am Post subject:

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

my para name does not end with a specific name. Is there any way to display all the lines which start at col 8.

shivashunmugam Muthu · Posted: Fri Aug 12, 2005 7:25 am Post subject:

x all;f ' ' 8 all

give this command first...will give u rest of lines other than paragraph name

then give

FLIP

it will give the rest lines hided earlier

Cogito-Ergo-Sum · Posted: Fri Aug 12, 2005 7:26 am Post subject:

Since,

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

Thanks, ergo.
why you are searching for ' ' and then flip.could you pls explain.

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I got it.Thanks.

shivashunmugam Muthu · Posted: Fri Aug 12, 2005 7:50 am Post subject:

hey...

since the 8th column may hav any values (for paragraph's starting letter)...so we search for blank...then FLIP...

FLIP ---> JUS PROVIDING YOU THE EXACT OPPOSITE SCINARIO

Cogito-Ergo-Sum · Posted: Fri Aug 12, 2005 7:56 am Post subject:

You are welcome !
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

Thanks Muthu....for your help and efforts.I never thought i will get a reply so soon even for the basic stuff.

kolusu · Posted: Fri Aug 12, 2005 8:15 am Post subject:

vak255,

You can also try this one without the use of FLIP

[code:1:6dcd979a9d]
X ALL; F P'
_________________
Kolusu
www.linkedin.com/in/kolusu

Mervyn · Posted: Fri Aug 12, 2005 8:53 am Post subject:

This goes slightly further:

[code:1:d22feb56c7]
X ALL 8 ' ';X ALL 7 P'
_________________
The day you stop learning the dinosaur becomes extinct