Re: CEETSTA

[bmorris@xxxxxxxxxx]

>Date: Mon, 26 Feb 2001 18:20:27 -0800 (PST)
>From: Phil Groschwitz <sublime78ska@yahoo.com>
>
>I prototyped CEETSTA (as the example in the manual
>shows).
>
>D chkParm     pr     extproc('CEETSTA')
>D  exists         10i 0
>D  parm#          10i 0
>D  feedback       12     options(*omit)
>
>callp chkParm(exists:2:*OMIT)
>
>I found after further testing that it worked with each
>iteration, but it screwed up memory used by other
>variables.

Phil, what you describe often happens if you code
options(*nopass) rather than options(*omit), and then don't
pass the third parameter to CEETSTA.  (Or if you don't even
include the third parameter in your prototype at all ...)

I just mention this in case anyone else ever has similar
problems and finds this thread in the archive.  In your case,
I have no idea what could be causing this problem.

By the way, to code the callp the way you have, you need to
code CONST for the second parameter.

Barbara Morris


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---