RE: SQLRPG question

["Goodbar, Loyd (AFS-Water Valley)" <LGoodbar@xxxxxxxxxxxxxx>]

If query is defined as varying, that will work:
d Query           s            500a   varying

-----Original Message-----
From: Rolf Mittag [mailto:rm@r-m-e-d-v.de]
Sent: Thursday, June 21, 2001 2:20 AM
To: MIDRANGE-L@midrange.com
Subject: Re: SQLRPG question


caution IMHO this code cannot work

> C                   if        S2PastDue
> C                   eval      Query = Query
> C                              + ' WHERE ARCLOD = 0'
> C                              + ' AND ARDUE <= ?'
> C                   endif

you must cut off the trailing blanks

c        Query = %trim(Query)
c                   + ' where 

Rolf

---------------------------
Dipl.Inf.(FH) Rolf P Mittag
IBM Partner in Development
Leipziger Str. 50
D-69214 Eppelheim
Fon: +49 (6221) 76 78 60
Fax: +49 (6221) 76 80 26
eMl: rm@r-m-e-d-v.de

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---