RE: PREPARE SEL FROM -206 error

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

Use ''

That's two single quotes.
D SelectOne       S            500A   INZ('SELECT ITNBR, ITDSC,  -
D                                     ITTYP -
D                                     FROM AMFLIB/ITEMASA  -
D                                     WHERE SUBSTR(FIL44,43,1)=''R'' -
D                                     ORDER BY')



I prefer to define a constant, and skip the continuation rules

D QUOTE           C                   ''''                             
                                                                       
D SelectOne       S            500A   INZ('SELECT ITNBR, ITDSC,' +     
D                                     ' ITTYP' +                       
D                                     ' FROM AMFLIB/ITEMASA '  +        
D                                     ' WHERE SUBSTR(FIL44,43,1)='+     
D                                     QUOTE + 'R' + QUOTE +            
D                                     ' ORDER BY')   

Lastly as I look at this, I notice that your ORDER BY clause is
incomplete.

You need at least one column name of number.

HTH,                  

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of 
> mcrangle@xxxxxxxxxxxxxxxxxxxx
> Sent: Wednesday, January 17, 2007 7:13 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: PREPARE SEL FROM -206 error
>
>
> I thought this would work, as there is no syntax error using 
> double quotes
>
> D SelectOne       S            500A   INZ('SELECT ITNBR, ITDSC,  -
> D                                     ITTYP -
> D                                     FROM AMFLIB/ITEMASA  -
> D                                     WHERE SUBSTR(FIL44,43,1)="R" -
> D                                     ORDER BY')
>
> But no records are selected on the OPEN MYCSR, but when I comment the
> substr D spec, it retrieves ALL records.
>
> I've searched midrange and seen some use of the CAT command, 
> but not as a
> solution.
>
> Regards
>
> Martin Crangle, MCMI
> MIS Technician
> IBM Certified RPGIV Programmer.
> Cinetic Landis Grinding Ltd.
> Tel: + 44(0) 1535 633211
> Fax: + 44(0) 1535 639572
>
> Crosshills, Keighley, West Yorkshire, BD20 7SD (England)
>
> -- 
> 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.