View previous topic :: View next topic |
Author |
Message |
vak255 Intermediate
Joined: 10 Sep 2004 Posts: 384 Topics: 79
|
Posted: Fri Aug 12, 2005 5:45 am Post subject: how to display only paragraph names in a cobol program |
|
|
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. |
|
Back to top |
|
|
shivashunmugam Muthu Beginner
Joined: 11 Aug 2005 Posts: 5 Topics: 0 Location: Chennai, India
|
Posted: Fri Aug 12, 2005 6:52 am Post subject: |
|
|
Quote: |
how to display only paragraph names in a cobol program
|
IF your paragraph ends with 'SECTION', you can give this command..in ISPF
X ALL;F SECTION ALL
it may be section or anuy word which was used to identify the para's name in that srce. |
|
Back to top |
|
|
vak255 Intermediate
Joined: 10 Sep 2004 Posts: 384 Topics: 79
|
Posted: Fri Aug 12, 2005 7:18 am Post subject: |
|
|
my para name does not end with a specific name. Is there any way to display all the lines which start at col 8. |
|
Back to top |
|
|
shivashunmugam Muthu Beginner
Joined: 11 Aug 2005 Posts: 5 Topics: 0 Location: Chennai, India
|
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 |
|
Back to top |
|
|
Cogito-Ergo-Sum Advanced
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
|
Posted: Fri Aug 12, 2005 7:26 am Post subject: |
|
|
Since,
Quote: | I want to mask other lines. | try this at the command line:
Code: | x all;f ' ' 8 all;flip |
_________________ 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. |
|
Back to top |
|
|
vak255 Intermediate
Joined: 10 Sep 2004 Posts: 384 Topics: 79
|
Posted: Fri Aug 12, 2005 7:45 am Post subject: |
|
|
Thanks, ergo.
why you are searching for ' ' and then flip.could you pls explain. |
|
Back to top |
|
|
vak255 Intermediate
Joined: 10 Sep 2004 Posts: 384 Topics: 79
|
Posted: Fri Aug 12, 2005 7:49 am Post subject: |
|
|
I got it.Thanks. |
|
Back to top |
|
|
shivashunmugam Muthu Beginner
Joined: 11 Aug 2005 Posts: 5 Topics: 0 Location: Chennai, India
|
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 |
|
Back to top |
|
|
Cogito-Ergo-Sum Advanced
Joined: 15 Dec 2002 Posts: 637 Topics: 43 Location: Bengaluru, INDIA
|
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. |
|
Back to top |
|
|
vak255 Intermediate
Joined: 10 Sep 2004 Posts: 384 Topics: 79
|
Posted: Fri Aug 12, 2005 8:07 am Post subject: |
|
|
Thanks Muthu....for your help and efforts.I never thought i will get a reply so soon even for the basic stuff. |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12372 Topics: 75 Location: San Jose
|
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 |
|
Back to top |
|
|
Mervyn Moderator
Joined: 02 Dec 2002 Posts: 415 Topics: 6 Location: Hove, England
|
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 |
|
Back to top |
|
|
|
|