|
Marla, One other thought.... try this: OVRDBF FILE(SA0025WK) SHARE(*YES) IF COND((&OPT1 *NE '1') *AND (&OPT2 *NE '1') + *AND (&OPT3 *NE '1')) THEN(OPNQRYF + FILE((SA0025WK)) KEYFLD((&SFLD1) (&SFLD2) + (&SFLD3))) IF COND(&OPT1 *EQ '1') THEN(DO) CHGVAR VAR(&newSFLD1) VALUE(&SFLD1 *BCAT '*DESCEND') OPNQRYF FILE((SA0025WK)) KEYFLD((&newSFLD1) + (&SFLD2) (&SFLD3))) ENDDO Grasping at straws here...I don't think it will work but.... Charles Wilt -- iSeries Systems Administrator / Developer Mitsubishi Electric Automotive America ph: 513-573-4343 fax: 513-398-1121 > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Wilt, Charles > Sent: Wednesday, June 22, 2005 1:14 PM > To: RPG programming on the AS400 / iSeries > Subject: RE: OPNQRYF with variable key names > > > Marla, > > Are you doing any SETLL/SETGT in the RPG program? > > Are you using READ or READP? > > Sounds like the RPG program may be at the EOF when it starts. > > Sorry I can't be of more help, but I quit using OPNQRYF years > ago and went to embedded SQL. > > Charles Wilt > -- > iSeries Systems Administrator / Developer > Mitsubishi Electric Automotive America > ph: 513-573-4343 > fax: 513-398-1121 >
As an Amazon Associate we earn from qualifying purchases.
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.