IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

REXX code to expand all submodules inside calling program


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Mon Jul 27, 2015 3:55 pm
Reply with quote

If all you need to see is your main program code and the code of the sub-program that is cuerrently the focus of your main program then why not use the basic facilities of an ISPF session - multiple screens, split or full screen?

In your initial requirement, how were you going to handle recursive programs? Did you even think about that?
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley

PostPosted: Mon Jul 27, 2015 9:10 pm
Reply with quote

Quote:
I came here expecting some solution to my problem

I gave you useful feedback on your code.

You are welcome.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3053
Location: NYC,USA

PostPosted: Mon Jul 27, 2015 10:29 pm
Reply with quote

Can you make a use of ISRLEMX ?
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Tue Jul 28, 2015 12:27 pm
Reply with quote

I did that, and much more...
When running the macro I show at the top of the program:
Code:
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
-IPT- EDIT HLQ.DEV.COBOL(MYMNPROG) - 01.22                 Columns 00001 00072
Command ===>                                                  Scroll ===> CSR 
****** ***************************** Top of Data ******************************
==MSG>    Found the following routines:
=NOTE=    +----------------+----------------+----------------+----------------+
=NOTE=    | CALL  WRTTOLOG | CALL  SOMEPROG | XCTL  CICSPROG |                |
=NOTE=    +----------------+----------------+----------------+----------------+
MSG lines are hilighted (white), NOTE lines are normal (blue)
It is then easy to copy/paste the subprogram name, FIND it in the program or bringing it in edit (every site has its own macro for this).
Back to top
View user's profile Send private message
RahulG31

Active User


Joined: 20 Dec 2014
Posts: 446
Location: USA

PostPosted: Tue Jul 28, 2015 8:06 pm
Reply with quote

@Chhandak: I don't have that handy but what you need to do is:

1. get the line data
2. parse line data to get the module name
3. view dataset by hardcoding the library name (where module resides) concatenated by member name you get from parse
4. map this macro with any function key

It's all available on the internet. If you face any problem in doing that, you may post on the forum. But first, you have to try.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3053
Location: NYC,USA

PostPosted: Tue Jul 28, 2015 9:21 pm
Reply with quote

You could have done by yourself this search , any one of these link s could help you. just mimic your logic for programs instead of copybooks.

ibmmainframes.com/about41994.html
ibmmainframes.com/about61045.html
ibmmainframes.com/about43223.html
ibmmainframes.com/viewtopic.php?t=24244&postdays=0&postorder=asc&start=15
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Using API Gateway from CICS program CICS 0
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top