RE: Assigning Field Name

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