Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
REXX tool which manipulates COBOL code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
karthik.ilangovan

New User


Joined: 05 Dec 2006
Posts: 27
Location: India

PostPosted: Wed Dec 06, 2006 2:11 pm    Post subject: REXX tool which manipulates COBOL code
Reply with quote

Hi,

I have desinged a REXX tool which manipulates COBOL code. It needs to be executed on an open COBOL program.

The tool works perfect when i open this module in View mode but does not while i go in Edit mode. The code that i have used is given below:
I am getting a return code of 28 for the Find Command. Kindly suggest me if i am missing some basic functionality in here.

Main program:
UNNUM = UNNUMMAC()
FNDPRNAM = FINDPROG()

The FINDPROG Routine:
ADDRESS ISREDIT
"F ALL '" || PROGID ||".' 8"

Please note that in the Macro Unnummac, i have an Address ISREDIT Macro statement. The Routine FINDPROG does not have such a statement.

Also, FINDPROG works fine when i put an ISREDIT macro statement and run it as a macro on any open cobol module.

Thanks,
Back to top
View user's profile Send private message

karthik.ilangovan

New User


Joined: 05 Dec 2006
Posts: 27
Location: India

PostPosted: Wed Dec 06, 2006 3:19 pm    Post subject: Re: Macro Error
Reply with quote

Hi,

I have the following code now:

ADDRESS ISREDIT
SAY "THE RC IS 1: " RC
SIGNAL ON SYNTAX
"F ALL '" || PROGID ||".' 8"
SAY "THE RC IS 2: " RC
SAY " ERROR TEXT :" ERRORTEXT(RC)

The first say statements gives RC value as RC
The next say gives RC value as 28
The ERROR Text value is Invalid LEAVE or ITERATE.

Can anybody suggest what is wrong and how to debug ?

Thanks,
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us