Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm
No new posts CA Workload Automation event code help vinu78 CA Products 10 Wed Mar 01, 2017 10:05 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us