Hola
@Joseg con respecto a los tipos de datos
yo estoy trabajando en
Android(B4A) con:
Código COBOL:
88 SQL_INTEGER VALUE 1.
88 SQL-REAL VALUE 2.
88 SQL_TEXT VALUE 3.
*Tema: Tipo dato Entero*
Para pwcobol es un PIC 9(1...13) dependiendo el uso.
Código COBOL:
evaluate BD-COLUMNA-TIPO
when 1
perform DB-COLUMNA-INT
end-evaluate
DB-COLUMNA-INT.
*>Columna tipo Integer
MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
MOVE "sqlite3_column_int" TO FUNCIONES-SQLITE3-LIB.
call FUNCIONES-SQLITE3-LIB WITH STDCALL LINKAGE
USING BY VALUE BD-HANDLE-STMT
BY VALUE BD-COLUMNA-NUMERO
returning BD-INT
end-call.
*>DEVUELVE BD-INT.
*Tema : Tipo de dato Fecha*
en Android represento las fechas en ticks(type Long)
Código VB:
DateTime.DateFormat="dd-MM-yyyy"
Dim SomeTime As Long
SomeTime = DateTime.DateParse("16/05/2023")
Para sqlite es un SQL_INTEGER (SomeTime)
Para pwcobol la paso a PIC X(13) (SomeTime)
Código COBOL:
LINKAGE SECTION.
01 sqlite3-value-text PIC X(256).
evaluate BD-COLUMNA-TIPO
when 3 *>Date Ticks
perform DB-COLUMNA-TEXT
end-evaluate
DB-COLUMNA-TEXT.
*>Columna tipo TEXT
MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
MOVE "sqlite3_column_text" TO FUNCIONES-SQLITE3-LIB.
MOVE SPACES TO BD-TEXT.
call FUNCIONES-SQLITE3-LIB WITH STDCALL LINKAGE
USING BY VALUE BD-HANDLE-STMT
BY VALUE BD-COLUMNA-NUMERO
returning BD-TEXT-POINTER
end-call.
SET ADDRESS OF sqlite3-value-text TO BD-TEXT-POINTER.
STRING
sqlite3-value-text delimited by low-value
into BD-TEXT
END-STRING.
SET BD-TEXT-POINTER TO NULL.
*>DEVUELVE BD-TEXT.
*Tema : Tipo de dato Real*
Tambien lo trato con sqlite3_column_text y lo muevo a
Código COBOL:
01 importe-text pic X(13)
y luego lo convierto a numerico
Código COBOL:
evaluate BD-COLUMNA-TIPO
when 2 *>Real
perform DB-COLUMNA-TEXT
end-evaluate
*Tema : Tipo de dato Blob*
No lo he implementado en android
Pero creo que lo mejor es guardar la direccion de la
imagen fisica del archivo de la memoria del celular o
mobil y no la imagen como tal.
*Tema : Tipo de dato Text*
simplemente como text PIC X(1...256)
Espero que te ayude y se entienda.
Saludos...