Por ejemplo, para rellenar una tabla (concretamente de postgresql) que tiene una clave y tres campos con array alfabetico de 13, 3 y 3 elementos tal como así:
Código SQL:
CREATE TABLE entidadejercicio.configuracion4 (
clave numeric(1,0) NOT NULL,
arqueo character varying(55) [13] NOT NULL,
pie character varying(55) [3] NOT NULL,
firma character varying(55) [3] NOT NULL
);
Lo relleno con este codigo, para despues realizar un INSERT en la base de datos:
Código COBOL:
INITIALIZE msql
STRING "INSERT INTO " delimited by size
esquema delimited by " "
"configuracion4 VALUES(0, '{" DELIMITED BY SIZE
'"' delimited by size
mun00-arqueo(1)
'", "' delimited by size
mun00-arqueo(2)
'", "' delimited by size
mun00-arqueo(3)
'", "' delimited by size
mun00-arqueo(4)
'", "' delimited by size
mun00-arqueo(5)
'", "' delimited by size
mun00-arqueo(6)
'", "' delimited by size
mun00-arqueo(7)
'", "' delimited by size
mun00-arqueo(8)
'", "' delimited by size
mun00-arqueo(9)
'", "' delimited by size
mun00-arqueo(10)
'", "' delimited by size
mun00-arqueo(11)
'", "' delimited by size
mun00-arqueo(12)
'", "' delimited by size
mun00-arqueo(13)
'"}' delimited by size
"'," delimited by size
"'{" DELIMITED BY SIZE
'"' delimited by size
mun00-pie(1)
'", "' delimited by size
mun00-pie(2)
'", "' delimited by size
mun00-pie(3)
'"}' delimited by size
"'," delimited by size
"'{" DELIMITED BY SIZE
'"' delimited by size
mun00-firmas(1)
'", "' delimited by size
mun00-firmas(2)
'", "' delimited by size
mun00-firmas(3)
'"}' delimited by size
"');" delimited by size
INTO msql
perform insertar
Básicamente el JSON generado es algo como así:
Código:
{
"clave": 0,
"arqueo": [
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
],
"pie": [
" ",
" ",
" "
],
"firma": [
" EL PRESIDENTE ",
" EL INTERVENTOR ",
" EL TESORERO "
]
}