Re: [SPAM 1]CALLSUBR RTNVAL playing up -- MIDRANGE-L

Good News Everybody!

The new search engine is LIVE!

Please report any problems to david (at) midrange.com.

Subject: Re: [SPAM 1]CALLSUBR RTNVAL playing up
From: Glenn Hopwood <ghopwood.list@xxxxxxxxx>
Date: Wed, 19 May 2010 08:22:12 -0400
List-archive: <http://archive.midrange.com/midrange-l>
List-help: <mailto:midrange-l-request@midrange.com?subject=help>
List-id: Midrange Systems Technical Discussion <midrange-l.midrange.com>
List-post: <mailto:midrange-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/midrange-l>, <mailto:midrange-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/midrange-l>, <mailto:midrange-l-request@midrange.com?subject=unsubscribe>

You have to use the RTNVAL() parm on either the ENDSUBR or RTNSUBR commands to get a value back on the CALLSUBR.

Glenn

On 5/19/2010 5:41 AM, David FOXWELL wrote:

Hi,

I'm having a weird problem with the return value in this subroutine. Debugging, at ENDSUBR,&RTNVAL = '-1'. At the IF statement after the CALLSUBR, it has a value of 0. If I put a watch on&RTNVAL, the program will break at ENDSUBR and at the IF. Anyone seen this?

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

SUBR SUBR(SUBR01)

CHGVAR VAR(&RTNVAL) VALUE(-1)

ENDSUBR

As an Amazon Associate we earn from qualifying purchases.

This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.