Re: Urgent SQL help,

Those field names smell like something out of S/36 environment.

Define a variable

D myhostvariable    s 

then change your sql

select min(k00001) 
into :myhostvariable
from "Y.MAPS" 
where k00001 > (' %' || '20041126') 
and substr(f00001,1,1) = 'M' 

Then I suggest the following:
http://store.midrange.com/details.php?ASIN=1882419707


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





"Muralidhar Narayana" <Muralidhar_Narayana@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/16/2005 04:07 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
Urgent SQL help,






I have a statement in SQLRPGLE  which is as below:
 
 EVAL      PDateC =  XPrevYear + '1201' 
 
I want to replace this (XPrevYear + '1201'  )  with below SQL statement
 
select min(k00001) 
from "Y.MAPS" 
where k00001 > (' %' || '20041126') 
and substr(f00001,1,1) = 'M' 
 
I mean some thing below 
 
EVAL      PDateC = select min(k00001) 
from "Y.MAPS" 
where k00001 > (' %' || '20041126') 
and substr(f00001,1,1) = 'M' 
 
Iam not familiar with SQLRPGLE , can some one point me in right direction.
Thanks very much
 

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