*-------------------------------------------------------------------------
*>STEP
*-------------------------------------------------------------------------
DISPLAY "------------------".
DISPLAY "sqlite3_step ".
PERFORM DB-STEP.
evaluate bd-status
when SQLITE_ROW
perform muestro-cabecera
when SQLITE_DONE
display "termino"
continue
when other
display "error"
exit program
end-evaluate.
*-------------------------------------------------------------------------
*>FINALIZE
*-------------------------------------------------------------------------
DISPLAY "------------------".
DISPLAY "sqlite3_finalize".
MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
MOVE "sqlite3_finalize" TO FUNCIONES-SQLITE3-LIB.
call FUNCIONES-SQLITE3-LIB WITH STDCALL LINKAGE
USING BY VALUE stmt-handle
returning BD-STATUS
end-call.
IF BD-STATUS NOT = SQLITE_OK then
DISPLAY "ERROR "
ELSE
DISPLAY "OK"
END-IF.
*-------------------------------------------------------------------------
*>CLOSE_V2
*-------------------------------------------------------------------------
DISPLAY "------------------".
DISPLAY "sqlite3_close_v2".
MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
MOVE "sqlite3_close_v2" TO FUNCIONES-SQLITE3-LIB.
call FUNCIONES-SQLITE3-LIB WITH STDCALL LINKAGE
USING BY VALUE BD-HANDLE
returning BD-STATUS
end-call.
IF BD-STATUS NOT = SQLITE_OK then
CALL "BD-ERROR"
EXIT PROGRAM
ELSE
DISPLAY "OK"
END-IF.
EXIT PROGRAM.
*-------------------------------------------------------------------------
MUESTRO-CABECERA.
*-------------------------------------------------------------------------
PERFORM DB-CANTIDAD-COLUMNAS.
MOVE ZEROS TO BD-COLUMNA-NUMERO.
PERFORM VARYING BD-COLUMNA-NUMERO FROM 0 BY 1 UNTIL BD-COLUMNA-NUMERO = BD-COLUMNA-CANTIDAD
*>sqlite3_column_type
* DISPLAY "--------------------"
* DISPLAY "sqlite3_column_type"
MOVE SPACES TO FUNCIONES-SQLITE3-LIB
MOVE "sqlite3_column_type" TO FUNCIONES-SQLITE3-LIB
call FUNCIONES-SQLITE3-LIB WITH STDCALL LINKAGE
USING BY VALUE stmt-handle
BY VALUE BD-COLUMNA-NUMERO *> COMIENZA DE 0 LAS COLUMNAS HASTA sqlite3_column_count - 1
returning BD-COLUMNA-TIPO *> RETORNA EL TIPO DE COLUMNA
end-call
DISPLAY "--------------------"
DISPLAY " COL NRO : " , BD-COLUMNA-NUMERO , " es COLUMNA-TIPO " , BD-COLUMNA-TIPO
DISPLAY "--------------------"
END-PERFORM.
*-------------------------------------------------------------------------
DB-CANTIDAD-COLUMNAS.
*-------------------------------------------------------------------------
*>sqlite3_column_count
* DISPLAY "--------------------".
* DISPLAY "sqlite3_column_count".
MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
MOVE "sqlite3_column_count" TO FUNCIONES-SQLITE3-LIB.
call FUNCIONES-SQLITE3-LIB WITH STDCALL LINKAGE
USING BY VALUE stmt-handle
returning BD-COLUMNA-CANTIDAD
end-call.
* DISPLAY "BD-COLUMNA-CANTIDAD : " , BD-COLUMNA-CANTIDAD.
*-------------------------------------------------------------------------
DB-STEP.
*-------------------------------------------------------------------------
*>sqlite3_step
* DISPLAY "--------------------".
* DISPLAY "sqlite3_step".
MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
MOVE "sqlite3_step" TO FUNCIONES-SQLITE3-LIB.
call FUNCIONES-SQLITE3-LIB WITH STDCALL LINKAGE
USING BY VALUE stmt-handle
returning BD-STATUS
end-call.
* DISPLAY BD-STATUS.