SQLRPGLE problem

Hello,



I am experiencing a problem when programming an SQLRPGLE program.

I have copy pasted the code from an existing working program.

Below you can see a part of the code. The problem I'm having is that my
sql doesn't find any data.

But when I execute the SQL statement itself in SQL I do find data.

What can be the problem? I hope someone is willing to help me.

This is the first SQLRPGLE I have programmed. And I just don't know
where to look for the error.

Thank you in advance.



Kind regards

stijn



callp FcClearPf('fcpckblt');

open fcpckblt;

Query='SELECT phfirm, phwknr, phkdnr, phpck, phrout, pptrmt,
PPKLTN,' +

' phshpd FROM fckbph, fckbpp WHERE PHFIRM =''1'' and' +

' PHWKNR =''000'' and pHkdnr in (66666, 50033) and ppfirm
=' +

' phfirm and ppwknr = phwknr and pppck = phpck and pppcks
= 0' +

' and phShpd > 100301 and PhShpd < 100310';





//Query1 = %replace(%char(SeFrDt):Query:%scan('STR':Query):3);

//Query2 = %replace(%char(SeToDT):Query1:%scan('TO':Query1):2);





exsr select_data;



w_count = 0;

dow sqlcod = 0;

exsr fetch_data;

if sqlcod = 0;

write FCPCK1;

w_count = w_count + 1;

endif;

enddo;



exsr close_downl;



close fcpckblt;



if W_count = 0;

S1ERROR = 'No data selected';

exfmt rfmat01;

$SUBR = 'S9999';

// exsr s01;

else;

callp FcDownload('fcpckblt');

S1ERROR=('File fcpckblt created in dir. AS400 on General.');

exfmt rfmat01;

endif;