× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Assigning Field Name
  • From: rob@xxxxxxxxx
  • Date: Mon, 7 May 2001 14:22:38 -0500


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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.