field name as variable

[as400Pro]

Here's a sample of using embedded SQL to retrieve the value of a database field when the field name comes from another variable:

     D FieldName       s             10A
     D Stmt            s            500A
     D Result          s             50A

     C     *ENTRY        PLIST
     C                   PARM                    Field            10

     C                   EVAL      Stmt = 'SELECT ' + %trimr(Field)
     C                                  + ' from CUSTMAS'
     c                                  + ' where CUSTNO=1316'

     C/exec sql          set option naming=*sys
     C/end-exec
     C/exec sql          prepare sqlstmt from :stmt
     C/end-exec
     C/exec sql          declare C1 cursor for sqlstmt
     C/end-exec
     C/exec sql          open C1
     c/end-exec
     C/exec sql          fetch from C1 into :Result
     c/end-exec
     C/exec sql          close C1
     c/end-exec

     C                   dsply                   Result
     C                   eval      *inlr = *ON