MVSFORUMS.com

rogervais · Beginner Joined: 19 May 2010 Posts: 6 Topics: 2

Is it possible to reset the Return Code (RC) value back to zero???
I'm trying to insert comments in a Cobol program. I want to insert after finding an alpha in cols 73 80
ADDRESS ISREDIT "FIND PREV P'@' 73 80"
But sometimes there are no alphas so the RC is set to 28. I want to reset the return code back to zero after that.
RC = 0 does not work as I get a 28 on a valisd instruction.

Thanks
Roger

kolusu · Posted: Sun May 23, 2010 8:45 pm Post subject:

rogervais,

The best option is check for RC and issue another find(guaranteed find like spacex'40' ) which would reset the rc to zero

semigeezer · Posted: Mon May 24, 2010 12:33 am Post subject:

you won't get a 28 from a not found. 28 is only issued if you don't start the command as an edit macro - in other words, if you type TSO before the command name.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

rogervais · Beginner Joined: 19 May 2010 Posts: 6 Topics: 2

You do get a return code of 28 when it does not find the string that you are looking for. And then subsequent instructions don't seem to work.

Here is the code that I had:

Nic Clouston · Posted: Mon May 24, 2010 11:42 am Post subject:

What does your PDSLOOP program do? I presume it is meat to do something like:

rogervais · Beginner Joined: 19 May 2010 Posts: 6 Topics: 2

PDSLOOP

kolusu · Posted: Mon May 24, 2010 11:53 am Post subject:

rogervais,

Please use BBCOde as shown in this topic which makes the posts more readable

http://www.mvsforums.com/helpboards/viewtopic.php?p=19031#19031

Kolusu

rogervais · Beginner Joined: 19 May 2010 Posts: 6 Topics: 2

Thanks for your help
I needed
Address ISPEXEC 'CONTROL ERRORS RETURN'

in the MACRO

semigeezer · Posted: Mon May 24, 2010 10:52 pm Post subject:

I still don't understand why you are getting a 28 if this is being started as a macro. Which instruction returns the 28? Usually it is the 'macro' command.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

rogervais · Beginner Joined: 19 May 2010 Posts: 6 Topics: 2

Yes it was the macro, I think that I was getting RC 28 because I did not have
Address ISPEXEC 'CONTROL ERRORS RETURN'

dbzTHEdinosauer · Posted: Fri May 28, 2010 1:55 pm Post subject:

and will semigeezer hang in there and ask another question or try to make a point???
_________________
Dick Brenholtz
American living in Varel, Germany