Cobol Foro - [Herramienta] Cobol como backend Json

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:

Código:



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:

Código:

{

 "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 :

Código COBOL:

 
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:.