PERFORM pragaraph

[sganti]

Hi,
Is there any way of expanding PERFORM Pragraph in compile listing? I mean to say, For example... "COPY copybook" will show all the contents of that copybook in compile listing.
Similarly is there any way for "PERFORM paragragh" to show actual code written in that paragraph?
Thanks,
Sri

 

[Crox]

Hi,

The idea is that you look up that paragraph.

Suppose if you expand every perform every time, you would get lots of duplicate sources in your listing, something that doesn't help you.

You can make your sources easier to look at by giving the paragraph a good place and/or a good name.

Most of the compilers are able to create an index so using that index, you can find the paragraph fast.

Some workbenches make it possible to zoom in a perform.

Regards,

Crox

 

[sganti]

Hello Good Morning.

Thank you so much for your help.Can you please let me know
where to look at the Index you mentioned, in OS-390 environment.

Thanks,Sri

 

[Crox]

Hi,

This is a compiler option when it makes a listing. When it is there, it is somewhere at the end of the listing. The compiler option that does the work, is XREF.

You can look it up in the manuals.

You can change compiler options also in your COBOL listing with the CBL or PROCESS statement.

The manuals you need are at:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library

Regards,

Crox

 

[slade]

Hi Sri,

If you're using a physical listing (on that stuff they used to call paper ), Crox's suggestion is right on.

If you are looking at the listing (or the code itself) on-line via ISPF, just enter a "find" command on the command line, "f the name of the pgraph", E.G.:

f 2000-READ-INPUT-REC 8

The "8" tells ISPF to look only at column 8 for the string
"2000-READ-INPUT-REC"

HTH, Jack.

 

[Crox]

Hi,

Even on-line it is good to look at the index, just to be sure. All references are there, even the ones that are difficult to be found with ISPF.

Using ISPF, look at the listing in view mode.
To find all references, enter:

X ALL;F 2000-READ-INPUT-REC ALL

If you code always the way Jack suggests, to find all the paragraphs you can enter:

X ALL;F P' #' 7 ALL

Which shows all the lines that are blanc at column 7 and has a numeric value at column 8.

If you want to be in normal mode again and locate that line you are interested in, put the cursor on the left position of that line and enter something like:

.B

After that, position the cursor behind the ==> commandline and enter

res;l .b

After that, the editor is positioned on the line with the label .b, the label you made with that .b as a line command.

Regards,

Crox