RE: 1st RPG program with embedded SQL

Are you re-opening your cursor every time the user enters a new pgmvar1? If not, you'll need to.

HTH



-----Original Message-----
From: Jim Hawkins [mailto:jhawkins@xxxxxxxxxxxx]
Sent: Tuesday, August 20, 2019 7:54 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: 1st RPG program with embedded SQL

After many years of coding RPG, I am working on my first embedded SQL program. It is working, but not exactly the way I want it to.

(I finally found a resource that explained how to do embedded SQL that made sense to me and I don't want to create a new set of logicals for just this
program.)



Anyway, this is a subfile program but my records are not appearing in the specific sequence I want.



My declare is

Select field1, field2.field10

from mylib.file1

inner join mylib.file2 on file1.fielda = file2.fieldb

Where file1.fieldc = :pgmvar1 and

File1.fieldd < 'XX' and
//static value

File1.fielde >= :pgmvar2
//date in cyymmdd format

Order by file file1.fielde,

File1.fielde,

File2.fieldf;



Essentially I want the user to be able to enter the a date (pgmvar2) and position to the first occurrence of that date and scroll from there, but it is no working as expected.



If I had the logicals I would just have



Setll (pgmvar1:pgmvar2) jfile1;

Reade pgmvar1 jfile1;

Dou %eof(jfile1);

//do stuff

Reade pgmvar1 jfile1;

Enddo;



I have: declare, open, close, fetch first, fetch next, fetch relative (for scrolling back) statements. The program is working except for the sequence of the records.



I am sure I am missing something, just not sure what.





Regards,



Jim Hawkins

Programmer Analyst

Interkal LLC

Kalamazoo, MI