RE: Is there a Shortcut here?

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

How about:

     D g_input         S              1    Inz('1')
     D g_Values        C                   Const('1,3,5,7,9')

      /free
       if %scan(g_input : c_values) > 0;
         dsply 'Valid Value';
       endif;

hth,
Eric DeLong


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike
Sent: Thursday, April 02, 2009 4:19 PM
To: RPG programming on the AS400 / iSeries
Subject: Is there a Shortcut here?

I am getting ready to write a nasty if statement and had a thought. "Is
there a shortcut for this?"

Is there something similar to the IN statement in SQL but for an RPG IF
statement? In SQL I could say WHERE STATUS IN (1, 3, 5, 7, 9). Is there
something similar for an RPG IF?