To get the some return code from a macro

pradeepkit · New User Joined: 25 Jun 2008 Posts: 60 Location: chennai

Hi ,

I am making a tool in rexx .

It is invoking an ISPF macro to check jcl error (jj) . this macro is returning some return code i want to use this return code :

The code of macro :

"ISREDIT MACRO (PARMS)"

If RC<>0 then do
say "Macro not invoked as an Edit macro"
return rc
end

rc=D0JEJJCC("%D0JEJJ JJ" Parms)
say rc
return rc

and the rexx routine which is calling this macro :

/*REXX*/
INP1 = 'USER.TEST.PRADEEP.JCLLIB(JCLEX1)'
ADDRESS ISPEXEC
"VIEW DATASET('"INP1"') MACRO(JJC)"
IF RC > 4 THEN
SAY JCL ERROR
ELSE SAY OK
EXIT

I have two concerns :

1. I don't want to open that jclex1 code as i am using here view mode ,
if there is any way to invoke this macro without opening this member either in any of the mode .

2. I want to use the return code of the macro ,
but as this opens the member and i have to use PF3 to come out of it it gives RC = 0 as macro has successfully ran . but i want the return code which is returned inside .

Marso · Posted: Mon Jan 05, 2009 9:42 pm

pradeepkit · New User Joined: 25 Jun 2008 Posts: 60 Location: chennai

Thanks for ur help the meber is not opened this time .........

For the second thing how to use the return code from Macro Any help .....

Pedro · Posted: Mon Jan 05, 2009 10:25 pm

I do not think you can pass a return code because VIEW is in between calling and called.

Try saving the return code in a variable and using VPUT to shared. Then use VGET later.