| View previous topic :: View next topic |
| Author |
Message |
Vishwakiran
Beginner
Joined: 29 Jun 2004
Posts: 11
Topics: 8
Location: Bangalore
|
 Posted: Thu Jul 06, 2006 8:23 am Post subject: REXX code for putting displays |
 |
|
Friends,
My requirement is like this.
I want to display the procedure names in all procedures of a cobol program so that it would be easy to track the flow.
I want to do this by a REXX program.
I want to place the command TSO putdisp in the command line. When I give this command REXX program should be called.
Does anybody have any REXX script with similar function.
_________________
Regards,
Vishwakiran |
|
| Back to top |
|
 |
Bill Dennis
Advanced
Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA
|
| Posted: Thu Jul 06, 2006 11:22 am Post subject: |
|
|
How will you identify procedure names from data area names? Do you have a standard name format? Will you need to deduce the names based on PERFORM syntax, etc.?
_________________
Regards,
Bill Dennis
Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity. |
|
| Back to top |
|
|
sriramla
Beginner
Joined: 22 Feb 2003
Posts: 74
Topics: 1
|
|
| Back to top |
|
|
s_shivaraj
Beginner
Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India
|
| Posted: Fri Jul 07, 2006 7:43 am Post subject: |
|
|
Try this Out and let me know you face any problem// good chances are there for Cut and Paste Mistakes
| Code: | ADDRESS ISREDIT
'MACRO (SHIVA) NOPROCESS'
"(CurLoca) = LINENUM .ZCSR"
IF RC <0> 0 )
"(HERE) = LINENUM .ZCSR"
"(dline) = LINE .ZCSR"
PARSE VAR dline 8 COBLINE .
PROC = (ZCSR + 1)
"LABEL" PROC "= .PRO"
dline = "*TRACE DISPLAY '" COBLINE "'."
HERE = HERE + 1
"LINE_AFTER "HERE" = DATALINE (dline)"
IF FIND_RC = 0 THEN
DO
"FIND ' EXIT.' 8 50"
FIND_RC = RC
IF FIND_RC = 0 THEN
DO
"(HERE) = LINENUM .ZCSR"
"(dline) = LINE .ZCSR"
PARSE VAR dline 8 COBLINE .
dline = "*TRACE DISPLAY '" COBLINE "'."
"LINE_BEFORE "HERE" = DATALINE (WRKLINE)"
END
END
"FIND 'SECTION.' 8 50"
FIND_RC = RC
END
"RESET"
ZEDLMSG = 'Prgm Expanded With Display Statements'
EXIT_RC = 0
Address ISPEXEC "SETMSG MSG(ISRZ000)"
"CURSOR =" CurLoca "1" |
Customizing it more to have both insert and delete option, will update once complete.
_________________
Cheers
Sivaraj S
'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity' |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
