Re: Condition not working ?

[dhandy@xxxxxxxxxxx (Douglas Handy)]

>The loop where RECARR(X) eventually becomes blank and should then leave
>does not seem to work.
>I ran it in debug and physically saw RECCARR(X) contained *blanks and then
>watched it continue processing.
>Is there something inherently wrong with the logic which I can't see or is
>there something else happening here?

My guess is that your call to RCRTUS (which presumably calls QUSCRTUS)
sets the initial value of the user space to nulls instead of blanks
(i.e., the 4th parm to QUSCRTUS is x'00' not x'40').  This is the
allegedly the most effiicient initial value to use.

If that is the case, you need to test against *ALLX'00' instead of
*BLANKS.

Under debug, use EVAL RECCARR(X):X to display the value in hex instead
of just a character string.  You'll find the string is not really
blank, which is why the DOU fails to stop.

You can either change RCRTUS to create the user space with blanks, or
change your *BLANKS to *ALLX'00' and you should be on your way.

Doug
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *