× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



FWIW, I have the exact same problem on V6.0.1, so it's not new...

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we. Futile is resistance, assimilated will you be.
-----



Gregg Willow <gregg.willow@xxxxxxxxxxxxxx>
Sent by: wdsci-l-bounces@xxxxxxxxxxxx
26/04/2007 16:53
Please respond to
Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>


To
Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>
cc

Subject
[WDSCI-L] 7.0 free format conversion error with SQL






I just encountered a free format conversion error with SQL statements
involved in 7.0. I found that if I just selected the SQL statement it
converted fine. Referring to the source below, I then selected from '*
Set on the subfile...' to the end of the SQL statement and it converted
fine again. As soon as I included the BEGSR line is when I encountered
the error.


c LoadSfl3Page Begsr

* Set on the subfile clear indicator and write record to initialize
* the subfile.

c eval i_sflclr = *on
c write fmt03
c eval i_sflclr = *off
c eval i_sflbottom = *off
c eval i_poscursor = *on
c eval s3rrn = 0

* Declare Load cursor for INQDUV.
c/exec sql
c+ declare Load cursor
c+ for select idseqn, idpgm, idview
c+ from inqduvl1
c+ where ididn = :deptID
c+ order by idseqn
c/end-exec



This is after the conversion with the included BEGSR. Notice what is
supposed to be 'exec sql'. I can duplicate these scenarios over and over.

/FREE
Begsr LoadSfl3Page;

// Set on the subfile clear indicator and write record to initialize
// the subfile.

i_sflclr = *on;
write fmt03;
i_sflclr = *off;
i_sflbottom = *off;
i_poscursor = *on;
s3rrn = 0;

// Declare Load cursor for INQDUV.
c/ ec sql
declare Load cursor
for select idseqn, idpgm, idview
from inqduvl1
where ididn = :deptID
order by idseqn;
/END-FREE


Gregg


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.