Re: 1st RPG program with embedded SQL

declare sqlplandate inSENSITIVE scroll cursor for
SELECT momast.ordno,
momast.fitem,
momast.odudt,
momast.orqty,
momast.ostat,
momast.fdesc,
momast.opcur,
momast.qtyrc,
momast.latdt,
momast.plann,
momast.qtdev,
momast.sstdt,
morout.awrkc,
morout.opseq,
morout.opstc,
morout.ltrdt,
morout.tqctd
FROM amfliba.momast
JOIN amfliba.morout ON momast.ordno = morout.ordno
WHERE momast.plann = :svplann AND
momast.ostat < '55' and
momast.odudt >= :rsvdate
order by momast.odudt,
momast.ordno,
morout.opseq;

Svplann is a numeric value (as is plann) that comes from the screen.
Rsvdate is a date in cymmdd format that is a manipulation of an 8 digit
field entered on the screen in yyyymmdd format and verified.

It appears to scroll forward works fine when the new date is entered, the
scroll backward seems to be the issue. If it I reach a date prior to
rsvdate, it appears to position to anywhere and the dates are not in
sequence even when scrolling forward.

exec sql
fetch relative :rrns1 from sqlplandate
into :(List of program field names)

rrns1 = 1 - (rr1 + sflsiz + 1)
rr1 is the current number of records on the subfile page
sflsiz = maximum record in the subfile
so rrns becomes a negative value


Regards,

Jim Hawkins
Programmer Analyst
Interkal LLC
Kalamazoo, MI