Populating fields based on field name in a file

I am doing something similar in RPG IV

I read a file to get the file, Field Value and Optional Condition  
(This is for Updating EDI Qualifiers and Otherwise hardcoded Values by
Trading Partner)
I have a portion of the File Name included to ensure that it is only
running on a certain file set so FLEVEL Contains the File Suffix 
But you can Remove the Hardcoded Prefix and Have Flevel be the File Name


 C     GetDft        BEGSR

 C                   Movel     '810'         DOCTYP

 C     DFTKEY        SETLL     EDIDFT

 C                   IF        %EQUAL

 C                   DOU       %EOF

 C     DFTKEY        READE     EDIDFT                                 41

 C                   IF        NOT %EOF

  /FREE

     If DftCnd = *blanks;

     SqlStmt = 'UPDATE SI810' + %TRIM(FLEVEL) + ' SET ' + %TRIM(DOCSEG)

    + ' = ' + sq + %TRIM(SEGVAL) + sq +' WHERE TPID = ' + sq + DftID +
sq;                    
     else;

     SqlStmt = 'UPDATE SI810' + %TRIM(FLEVEL) + ' SET ' + %TRIM(DOCSEG)

    + ' = ' + sq + %TRIM(SEGVAL) + sq +' WHERE TPID = ' + sq + DftID +
sq                     
    + ' AND ' + DftCnd;

     endif;

  /END-FREE

 C/EXEC SQL

 C+   EXECUTE IMMEDIATE: SqlStmt

 C/END-Exec

 C*                 -------

 C                   ENDIF

 C                   ENDDO


Sample of EDIDFT:
TPID  CAT                                           
DOCTYP  810   
FLEVEL  D01                
DOCSEG  IT106                            
COND  IT106 = ''                                                  
SEGVAL  BP


Michael Ala