MVSFORUMS.com

[vijay]

Hi,
Can u guys give me any rexx routine or edit macro that displays the para or section name after each and every para or section in a cobol pgm. .
I just need a display 'para or section name' as the first line in
each para or section.Any help would be great.

Thanks,
Vijay

[taltyman]

try this in your edit command line....

X ALL;F ALL para

Not really sure of what you want to display though.
Basically the X ALL excludes all lines then the F ALL xxxx displays all lines containing xxxx

[slade]

Hi Taltyman,

I think Vijay wants to DISPLAY the pgraph names as the pgm executes.

Vijay,

I have a version written in CLIST/ISPF Macros. If you want a copy let me know.

Regards, Jack.

[vijay]

Slade ,
U're right.CLIST is fine too.Can u post that please ...

Thanks,
Vijay

[slade]

Here's something I wrote when the rumors that TRACE was going bye-bye were rampant. I understand it is still scheduled to be withdrawn, but I'm not sure when.

DISPARA is an ISPF macro that simulates the READY TRACE
function by inserting DISPLAY statements behind
all Procedure Division paragraph and section headings
(including exit paragraphs) in a COBOLII and above program.

One advantage over TRACE is that DISPARA presents each pgraph
name on its own line, making it easier to read and/or to find
pgraph names in the SYSOUT. TRACE, on the other hand, strings
the pgraph names on the line until it is full.

Each DISPLAY presents the heading to sysout in the form:

"DEBUG~ PARAGRAPH-SECTION-NAME."

along with your other DISPLAYed data.

To rid the code of these displays when no longer needed, enter the following on the command line of your ISPF edit session after loading the program code:

x all;f all debug~;del all nx

For the more cautious among us these commands can, of course, be issued individually and after review of the results from the previous command.

As an alternative, you can temporarily suspend the DISPLAYs with the following:

x all;f all debug~;c all nx 7 ' ' '*'


and reactivate them with:

x all;f all debug~;c all nx 7 ' ' '*'


The Macro code follows. Some shops have their TSO logon procs set up to concatenate a user clist file to the SYSPROC DD statement. The dsname form is usually ?yourtsoid.CLIST?. Some shops have a ?community? CLIST dataset for use by application types. Put the macro code into the dataset as member name DISPARA or whatever. If TSO doesn't recognize the CLIST dataset, contact your friendly sysprog for help.

P.S. The formatting when displayed here is a little funky. Especially the comments. If you want a .txt attachment, contact me via private msg (click on my handle) and leave your e-mail addr.