Re: Assigning Field Name

Hi Rob

I'm not sure with embedded SQL in the program. If the file changes, would one
have to re-compile the RPG program (like you would if the QADBIFLD file was
declared on the 'F' spec) ?

In any case, in light of the Spock quote, why not use the list object API's to
retrieve the data needed :

No function checks on changed files (and QADBIFLD has changed a few times since
v3r7)
Since it's an API, it runs below the MI

Regards
John.




|--------+----------------------->
|        |          rob@dekko.com|
|        |                       |
|        |          07/05/2001   |
|        |          09:22 PM     |
|        |          Please       |
|        |          respond to   |
|        |          RPG400-L     |
|        |                       |
|--------+----------------------->
  >--------------------------------------------------------|
  |                                                        |
  |       To:     RPG400-L@midrange.com                    |
  |       cc:     (bcc: John Finney/ITS/Omnia Group)       |
  |       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
+---