OPNQRYF Bug
August 21, 2002 Timothy Prickett Morgan
Hey, Ted:
Well I thought that the code below was working for us:
OVRDBF FILE(file) SHARE(*YES) OPNQRYF FILE(file) RCDSLT(fld1 = 'A') RTVMBRD FILE(file) NBRCURRCD(&RECS) IF COND(&RECS *GT 0) THEN(DO) CALL PGMA ENDDO
|
But, I just did some testing and it looks like we’ve been using buggy code as you do need the CPYFRMQRYF to retrieve the correct number of records selected in the query .
Thanks for the article and for setting me straight.
— Rob
Sponsored By WORKSRIGHT SOFTWARE |
On June 30, 2002,
On July 1, 2002, |