Re: Assigning Field Name

[rob@xxxxxxxxx]

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
+---