SQL Statements › EXECUTE › Parameter Marker Replacement › Example

Example

          01  S1.
              49  S1LEN                 PIC S9999 COMP VALUE +80.
              49  S1HV                  PIC X(8).
          01  HV1                       PIC X VALUE 'X'.
          01  HV2                       PIC X VALUE 'Y'.
          MOVE 'INSERT INTO T1 VALUES (?, ?)' TO S1HV.
          EXEC SQL
              PREPARE STMT1 FROM S1
          END-EXEC
          EXEC SQL
              EXECUTE STMT1 USING :HV1, :HV2
          END-EXEC