Re: CEETSTA

There was nothing to the code so I didn't keep it.  

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
--- Jon.Paris@hal.it wrote:
> 
>  >> I'm using a work around where I check for *OMIT
> by testing the %addr of
> the variable to an uninitialized
> pointer.  Now everything works fine.
> 
> This isn't a "work round" - this is the way you
> should do it.  You don't
> show how you call CEETSTA, or how you originally
> tested, but for any
> procedure that permits *OMIT the only simple way to
> test for the presence
> of the parm is to test its %addr against *null (or a
> null pointer).  Using
> %Parms doesn't work because all parameters
> (including the *OMIT ones) have
> to be passed.  *OMIT means you can pass the special
> value *OMIT not that
> you leave the parameter off.
> 
> Could give you a more definitive answer if I could
> see your code.
> 
> 
> +---
> | 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
> +---


__________________________________________________
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail. 
http://personal.mail.yahoo.com/
+---
| 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
+---