Re: What's happened to my SUBR?

[Luis Rodriguez <luisro58@xxxxxxxxx>]

David,

Insert a DMPCLPGM just before the SBMJOB, Which value do you see for
&RTNVAL?

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries


On Fri, Jun 4, 2010 at 9:58 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>wrote:

> 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
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.