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 DB2 Program abending without giving a... rahulgarg14 DB2 3 Mon May 29, 2017 8:10 pm
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
This topic is locked: you cannot edit posts or make replies. Cobol GUI (like Editor) Kala Mainframe COBOL Programming 14 Wed May 10, 2017 12:30 pm
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm


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