Creating a Variable Field String for Embedded SQL in RPGLE

Technote (troubleshooting)


Problem(Abstract)

This document explains how to create a Variable Field String for Embedded SQL in RPGLE.

Resolving the problem

Setting up a string that contains variable fields to be used in RPGLE embedded SQL.


D Datastrct    UDS                  DTAARA(*LDA)
D  Fld1                          3  
D  Fld2                          3  
 *
D FldA            S              5    INZ('Fld1')
D FldB            S              6    INZ('Fld2')
D Name            S             10    INZ('NAME')
D String          S            100

  *

 C                   eval      String = ('DELETE FROM ' + %trim(Name) +

 C                             ' WHERE ' + %trim(FldA)  + ' = ? and ' +

 C                             %trim(FldB) + ' = ?')

 C                   EXSR      DLTNAM

 C                   eval      *INLR = *ON

  ***************************************************************

 C     DLTNAM         BEGSR

  *

 C/EXEC SQL

 C+ PREPARE P1 FROM :String

 C/END-EXEC

  *

 C/EXEC SQL

 C+ EXECUTE P1 USING :Fld1,:Fld2

 C/END-EXEC

 C                   ENDSR

  ***************************************************************

  * INITIALIZATION SUBROUTINE                                   *
 ***************************************************************
C     *INZSR        BEGSR
 *
C     MSG           plist
C                   parm                    MSID              7
C                   parm                    MSGD             80
 *
C                   ENDSR                                          

Historical Number

24233305

Rate this page:

(0 users)Average rating

Add comments

Document information


More support for:

IBM i
Programming (Languages- compilers- tools)

Software version:

5.1.0, 5.2.0, 5.3.0, 5.3.5, 5.4.0, 5.4.5, 6.1.0, 7.1.0

Operating system(s):

IBM i

Reference #:

N1017259

Modified date:

2012-04-23

Translate my page

Machine Translation

Content navigation