Re: how to populate the field when the field name is stored as variable?

Your best bet would be embedded SQL here I think.



Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                           
             Tony Carolla                                                  
             <carolla@xxxxxxxx                                             
             m>                                                         To 
             Sent by:                  RPG programming on the AS400 /      
             rpg400-l-bounces@         iSeries <rpg400-l@xxxxxxxxxxxx>     
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             06/17/2005 01:03          Re: how to populate the field when  
             PM                        the field name is stored as         
                                       variable?                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




Well, I have heard of creating SELECT clauses that eval the value into the
appropriate field. i.e.

Read File2; // <--- use format name here

Dow Not %EOF(File2);
Select;
When Field='ITMNUM';
ITMNUM=value;
When Field='CATCOD';
CATCOD=value;
When Field='DISCDT';
DISCDT=value; // <-- do some date validation here
EndSL;
Read File2;
EndDo;

I am not sure how to detect when to actually write the output record. Are
the fields always in sequence in FILE2? if so, then on the last WHEN above,

write the record. Otherwise, you could detect after the SELECT clause, if
the record is fully populated, and conditionally WRITE.

Good luck!


On 6/16/05, Banerjee, Amitava <Amitava.Banerjee@xxxxxxxxxx> wrote:
>
> Hi
> I have to populate a file, but the field names of that file are stored as

> variables in another file. How can I populate the first file? Please
help.
>
> Here is the example:
>
> File1:
> Fields are: ITMNUM (Item Number)
> CATCOD (Category code)
> DISCDT (Discontinue Date)
>
>
> File2:
> BEGTAG ENDTAG FIELD FILE
> (Beginning Tag) (End Tag) (Field To Populate) (File to Populate)
> ---------------------- ----------------- -------------------------
> -----------------------
> <prod-number> </prod-number> ITMNUM FILE1
> <category-code> </category-code> CATCOD FILE1
> <disc-date> </disc-date> DISCDT FILE1
>
>
> Now, according to file and fields names in File2, I have to write records

> in file1. How can I use the file and field names that are stored as
> variables in file2 using RPGLE?
> I was thinking may be I need to use pointer. But I never worked with
> pointers in RPGLE before.
>
> Please help.
>
> Thanks in anticipation,
> Amitava
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>


--
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
"If all you have is a hammer, all your problems begin to look like nails"
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.