Re: substr bif question

You could also do a compile time array.

D BeginsWith S 3 Dim(4) CTDARA PERRCD(1)


If %LookUp(%Subst(someField:1:3):BeginsWith) >0;
// field begins with.
EndIf


** begins with table
A
B
C
P



But I suggest that you use a codes time and chain to the codes type with
the first three characters, that way, if someone changes their mind, you
can just add a record to the codes file rather than the program object.




--

Michael Schutte
Admin Professional



rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/21/2009 10:33:51 AM:

Oh...I see the blanks now...I would code it a

If %SubStr(... Or
%SubStr(..

and so on..

On Mon, Sep 21, 2009 at 10:32 AM, Michael Ryan <michaelrtr@xxxxxxxxx>

wrote:

Any combination? In any order?


On Mon, Sep 21, 2009 at 10:19 AM, David FOXWELL <David.

FOXWELL@xxxxxxxxx>wrote:

I have to know if a string begins with the 3 characters 'A ', 'B ',

'C

' or 'P '.

I was going to use %substr. If I just put the string in a 3A work

variable

and compare that, will this be more economical? But then I wouldn't be

able

to use the bif %substr.

Thanks
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.