How to use INSERT in EXEC SQL ...... ENDEXEC ?

Question

Hi,
The following code;
DATA: BEGIN OF str_insert,
        a(3) TYPE c,
        b(3) TYPE c,
      END OF str_insert.
EXEC SQL.
  SET CONNECTION DEFAULT
ENDEXEC.
str_insert-a = 'a'.
str_insert-b = 'b'.
EXEC SQL.
INSERT INTO ZSAP  VALUES :str_insert
ENDEXEC.
The Structure of the ZSAP table (There is no data in ZSAP);
A CHAR 3 (Primary Key)
B CHAR 3
I cannot instert a record to this table it throughs the following error;
Runtime Errors         DBIF_DSQL2_SQL_ERROR  
Exceptn                CX_SY_NATIVE_SQL_ERROR
How could use a structure to insert values into ZSAP?
Thanks,
Kishan

Answer 1

Hello..
  loop at T_PC.
    loop at T_PCD .
      at new NUMREFERENCIA.
        exec sql.
         INSERT INTO tblPolizaContableR3
            (LibroMayor, PeriodoContable, Prefijo, NumReferencia,
            Fecha, FuenteDiario, ComentarioPoliza, Moneda,
            TipoCambio, RefExternaID1, RefExternaID2, RefExterna1,
            RefExterna2, DescRefExterna)
         VALUES (:T_PC-LIBROMAYOR, :T_PC-PERIODOCONTABLE,
          :T_PC-PREFIJO, :T_PC-NUMREFERENCIA, :T_PC-FECHA,
          :T_PC-FUENTEDIARIO, :T_PC-COMENTARIOPLIZA, :T_PC-MONEDA,
          :T_PC-TIPOCAMBIO, :T_PC-REFEXTARNAID1, :T_PC-REFEXTERNAID2,
          :T_PC-REFEXTERNA1, :T_PC-REFEXTERNA2, :T_PC-DESCREFEXTERNA)
        endexec.
      endat.
        exec sql.
         INSERT INTO tblPolizaContableDetR3
            (LibroMayor, PeriodoContable, Prefijo, NumReferencia,
            Partida, Cuenta, CuentaIMSA, CCostoIMSA,
            Cargo, Abono, ComentarioPartida)
         VALUES (:T_PCD-LIBROMAYOR, :T_PCD-PERIODOCONTABLE,
          :T_PCD-PREFIJO, :T_PCD-NUMREFERENCIA, :T_PCD-PARTIDA,
          :T_PCD-CUENTA, :T_PCD-CUENTAIMSA, :T_PCD-CCOSTOIMSA,
          :T_PCD-CARGO, :T_PCD-ABONO, :T_PCD-COMENPARTIDA)
        endexec.   
    endloop.
Hope this help you.
Regards, Gustavo Estrada