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

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>]

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