RE: What's happened to my SUBR?

David,

In this case, you must define the return value on the ENDSUBR command, such as: ENDSUBR RTNVAL(&RTNVAL).

You may, alternatively, use the RTNSUBR RTNVAL(&RTNVAL) to return to the main procedure from within any where in the subroutine. But either way the RTNVAL(&RTNVAL) must be coded.

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx

To compare baseball to other team games is to say the Hope Diamond is a nice chunk of carbon. -Bill Veeck


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of David FOXWELL
Sent: Friday, June 04, 2010 9:28 AM
To: Midrange Systems Technical Discussion
Subject: What's happened to my SUBR?

Hi,

This code was working but now does not. Debugging, when the SUBR fails I see &RTNVAL = -1 at the line ENDSUBR. But at the IF, &RTNVAL = 0 and the SBMJOB is executed. Can someone help?



CALLSUBR SUBR(SUBR01) RTNVAL(&RTNVAL)
IF COND(&RTNVAL *LT 0) THEN(GOTO CMDLBL(FIN))

SBMJOB CMD(more code)



SUBR SUBR(SUBR01)


IF COND(&IADMED *NE 'O' *AND &IMEDED *NE 'O') +
THEN(DO)

CHGVAR VAR(&RTNVAL) VALUE(-1)

ENDDO

ENDSUBR

FIN:
ENDPGM