RE: how to populate the field when the field name is stored:Actuallythere are lot more fields

Here's one way to do it.  It works for all data types.

http://www.itjungle.com/mpo/mpo112102-story01.html



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Lim Hock-Chai
Sent: Monday, June 20, 2005 12:26 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: how to populate the field when the field name is
stored:Actuallythere are lot more fields

you can use QUSLFLD to get the field output location and then substring the
data to the field location.  This method will not work for some field types
such as pack decimal. 

Here is the basic flow:
1) A service program with an export procedure that accept file name, record
format name and field offset and field length .
        example: rtvFieldOutputLoc("MYFILE" :"MYFILEFMT" :myField :myOffset
:myLen)
        
        The hard part is to create this service program, it basically need
to do the following in the above procedure:
        1.1) call QUSLFLD to get the file field layout and put the result in
user index.  (For speed, if already exist, do not need to do this step)
        1.2) Lookup the field offset and length from the above user index
and return to the called.

2) In the caller program:
        2.1) in D speac
                D wkMYFILE                            likerec(MYFILEFMT
:*output)

        2.1) in C Spec 
                C                   callp     rtvFieldOutputLoc("MYFILE"
:"MYFILEFMT" 
                C                                               :myField
:myOffset :myLen)
                C                   eval      %subst(wkMYFILE :myOffset
:myLen) = myValue

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Banerjee, Amitava
Sent: Friday, June 17, 2005 12:41 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: how to populate the field when the field name is stored:
Actuallythere are lot more fields


Hi All,
Thanks for the help. 
Actually right now I am using 'SELECT' opcode. But, in reality the file1
does not have only those many fields. It will have hundreds of tags with
hundreds of field names. This is actually extracting data from xml file.
That's why I was thinking if there is any better way to do this.

Thanks
Amitava