Re: Indicators Bad - Alternate to TEST(D) available?

["Brian Parkins" <PARKIB@xxxxxxxxxx>]

Jim wrote:
>>I'm one of the programmers who doesn't like using indicators in
>>new RPG IV code.  Yet, I find myself having to use them in a few
>>cases, notably the opcode TEST.

>>C        *YMD         TEST(D)        SomeDate                99
>>C                     If             NOT *IN99
>>...

>>Is there yet a workaround this where we don't have to use indicators
>>yet?

You can also this at V5R1, Jim:

D Variable        S              8P 0 Inz(20011332)

 /Free

   //  Test if packed numeric field contains valid date value

      Test(DE) *Iso Variable;   // Invalid ISO value

      If %Error;
        Dsply 'Invalid Date' '*REQUESTER';
      Endif;

      *InLR = *ON;

 /End-Free

Brian Parkins

+---
| 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
+---