|
Ahh.. but we forget the most important part of this problem. The WHERE clause. That's where it gets a little tricky. Brad > -----Original Message----- > From: rob@dekko.com [mailto:rob@dekko.com] > Sent: Monday, May 07, 2001 2:23 PM > To: RPG400-L@midrange.com > Subject: Re: Assigning Field Name > > > > 1) Don't waste your time by doing a DSPFFD to an outfile. The file > already exists, and is constantly updated by the system. The > name of the > file is QADBIFLD. Do a DSPDBR QADBIFLD also. > > 2) Instead of &FLDNAM, let's use DBIFLD, (to use the file > QADBIFLD). By > the way, you're not insisting on using 'stone knives and > bearskins' are > you? (Quoting Mr. Spock from Star Trek.) > > H ALWNULL(*INPUTONLY) > Fqadbifld IP E DISK > DStmt S 500A > > C eval stmt=*blanks > /free > Stmt='Select ' + dbifld + 'into :' + %trim(dbifld) + ' > from ' + DBIFIL; > *inlr=*on; > /end-free > > * Fix the SQL0312 error in the below, and you'll have it whipped. > * Got to get back to work. > C/exec sql > C+ Prepare S1 from :Stmt > C/end-exec > > C/exec sql > C+ Execute S1 > C/end-exec > > C DBIFIL DSPLY DBIFLD > > Rob Berendt > > ================== > Remember the Cole! > > > > > Kevin H > > <KevinH@kmtcinc.c To: > RPG400-L@midrange.com > om> cc: > > Sent by: Subject: Re: > Assigning Field Name > owner-rpg400-l@mi > > drange.com > > > > > > 05/07/01 10:33 AM > > Please respond to > > RPG400-L > > > > > > > > > > Yes .. > > this happens all the time. > for example, > > programs that DSPFFD to an outfile and then use it. > eg, IF (&FLDNAM = 'DBMAST') then(goto DBMAST) > > > However, i suspect your question needs more explanation to > get the answer > you are trying to elicit. > > kevin. > > > > At 11:05 AM 5/7/2001, you wrote: > > >Hello, > > > >Is there a way to assign a field name into a variable then > get the value > of > >the field name using that variable ? > >ex. If PF has field name Empnum, it is assign to a variable (@empno > >= 'Empnum') how can i retrieve the value of > >the field name from the PF using @empno variable ? > > > >Thanks, > >Jonathan > > > >+--- > >| This is the RPG/400 Mailing List! > >| To submit a new message, send your mail to RPG400-L@midrange.com. > >| To subscribe to this list send email to RPG400-L-SUB@midrange.com. > >| To unsubscribe from this list send email to > RPG400-L-UNSUB@midrange.com. > >| Questions should be directed to the list owner/operator: > david@midrange.com > >+--- > > +--- > | This is the RPG/400 Mailing List! > | To submit a new message, send your mail to RPG400-L@midrange.com. > | To subscribe to this list send email to RPG400-L-SUB@midrange.com. > | To unsubscribe from this list send email to > RPG400-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > > > > +--- > | This is the RPG/400 Mailing List! > | To submit a new message, send your mail to RPG400-L@midrange.com. > | To subscribe to this list send email to RPG400-L-SUB@midrange.com. > | To unsubscribe from this list send email to > RPG400-L-UNSUB@midrange.com. > | Questions should be directed to the list owner/operator: > david@midrange.com > +--- > +--- | This is the RPG/400 Mailing List! | To submit a new message, send your mail to RPG400-L@midrange.com. | To subscribe to this list send email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
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.
midrange.com
