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
This topic is locked: you cannot edit posts or make replies. Issue in suppressing leading zeros &a... Vijay_Sirisha COBOL Programming 21 Thu Jun 07, 2018 8:01 pm
No new posts What will happen if we dont code STOP... Poha Eater COBOL Programming 4 Mon Jun 04, 2018 5:27 pm
No new posts VBS to VB in COBOL and JCL srajendran2 COBOL Programming 12 Fri Jun 01, 2018 3:04 am
No new posts JCL to set Return code when Time Out ... vinu78 JCL & VSAM 6 Wed May 30, 2018 11:27 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am

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