Re: validating(SQL solution needed)

Thanks a lot to all who responded.


Warm Regards,
JoeP

From: rob@xxxxxxxxx
Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Subject: Re: validating(SQL solution needed)
Date: Thu, 28 Sep 2006 10:46:31 -0400

select bdgxx, recno
from qtemp/joep
where substr(bdgxx,5,1) not in('A', 'B', 'C', 'D', 'E')

or

select bdgxx, recno
from qtemp/joep
where substr(bdgxx,5,1) not in(
  select mychar
  from badvalues)

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Joseph Pascoguin" <joe.pascoguin@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/28/2006 10:35 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Re: validating(SQL solution needed)






I have a file in which BDGXX is a field. Another field is RECNO.
I need to create a report when 5th position of BDGXX is not equal to A
,B,C,D,E....
My report is some thing like
select BDGXX,RECNO FROM FILE  WHEN 5TH POSITION OF BDGXX NOT EQUAL TO
(A,B,C,D,E)...
Please advise if you can let me know SQL version of solution.



Warm Regards,
JoeP





>From: Bill Wragg <bill_wragg@xxxxxxxx>
>Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
>Subject: Re: validating
>Date: Sat, 23 Sep 2006 09:37:14 -0400 (EDT)
>
>Hi Joseph,
>
>first, your are wasting code by moving blanks to
>poo@#k. Eval is same as movel (P) move left and pad
>with blanks. So the field will be clear on the eval
>statement anyway.
>
>simple validation:
>
>Eval Poo@#k = %Subst(Bdgxx : 5 : 1)
>
>If %Check('ABCDE' : Poo@#k) > 0
>// then not found
>Else
>// found
>Endif
>
>Good Luck
>Bill
>
>--- Joseph Pascoguin <joe.pascoguin@xxxxxxxxxxx>
>wrote:
>
> > Hi
> >        In the below code:
> >                  EVAL      POO@#K = *BLANKS
> >                  EVAL      POO@#K =
> > %SUBST(BDGXX:5:1)
> > Iam extracting 5th position  of BDGXX, now i want to
> > validate this with one
> > of 5 values A B C D E.
> > When User enters anything other than that of  these
> > 5 values it should
> > display a message in displayfile saying that "valid
> > values are A,B,C,D,E
> > only"...
> > Please suggest various good ways to implement in
> > RPGLE(not in display
> > file)....
> >
> >
> >
> >
> > Warm Regards,
> > JoeP
> >
> >
>_________________________________________________________________
> > FREE pop-up blocking with the new MSN Toolbar - get
> > it now!
> >
>http://toolbar.msn.click-url.com/go/onm00200415ave/direct/01/
> >
> > --
> > This is the RPG programming on the AS400 / iSeries
> > (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.
> >
> >
>
>
>__________________________________________________
>Do You Yahoo!?
>Tired of spam?  Yahoo! Mail has the best spam protection around
>http://mail.yahoo.com
>--
>This is the RPG programming on the AS400 / iSeries (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.
>

_________________________________________________________________
Find singles online in your area with MSN Dating and Match.com!
http://match.ph.msn.com/match/mt.cfm?pg=channel&tcid=281209

--
This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (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.

_________________________________________________________________