Cobol como backend Json

[PolloX]

Estimados:

He visto como proliferan soluciones de las empresas que venden licencias (modelo de negocio que yo creo esta obsoleto) y sin necesidad de nuevas cosas es posible generar un backend cobol-cgi que retorne JSON el cual puede ser usado por otro lenguaje posteriormente (por ejemplo PHP u otro) para generar una API-REST y usar lo que uno quiera en el frontend. lo unico que deben hacer es cambiar ciertas cosas en el .sh que se usa para ejecutar los .acu. por ejemplo:



A_TERM=$TERM
export A_TERM
HTML_TEMPLATE_PREFIX=/srv/www/directorio/
export HTML_TEMPLATE_PREFIX
CGI_CONTENT_TYPE=application/json
export CGI_CONTENT_TYPE
RESPONSE=$(runcbl -f rutadenuestrocgi/programa.acu)
echo "$RESPONSE"



Como bien saben /srv/www/directorio es el directorio de nuestro server web (con el que usualmente usamos cgi y los famosos html) en este caso solamente necesitamos uno de respuesta para todos los cgi que queramos y crearemos solamente un archivo vacío respuesta.json

en ruta de nuestro cgi es la ruta a nuestro cgi usualmente /srv/www/directorio/cgi-bin/....

ahora o unico que necesitamos es modificar nuestro programa cgi, la salida debe apuntar a nuestro respuesta.json y lo que debemos retornar es una estructura de un JSON valido, por ejemplo:


{
"Nombre" : "Mi Nombre y Apellido",
"Edad" : 30
}


en el cgi seria (suponiendo que tenemos una variable creada STRSALIDA PIC X(2000) en la declaracion de nuestro HTML DE SALIDA (respuesta.json)) algo como :




INITIALIZE STRSALIDA
STRING
"{"
QUOTE "Nombre" QUOTE ":"
QUOTE NOMBRE DELIMITED BY " " QUOTE ","
QUOTE "Edad" QUOTE ":"
EDAD "}"
DELIMITED BY " " INTO STRSALIDA
DISPLAY STRSALIDA



prueben y vean si les funciona, les cambiara la vida :cool::cool::cool::cool:.