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 REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts Need info on EIBCPOSN value in IBM FA... subratarec CICS 11 Wed Jul 12, 2017 3:45 pm
No new posts XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am


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