Apuntes de lectura rápida para COBOL en IBM AS400
Como crear PF y PL
NOTA: El codigo tiene lineas ejecutables comentadas con asterisco para
poder probar individualmente determinadas funciones.
CODIGO del programa principal que llama a subprograma.
CODIGO del subprograma que es llamado para realizar un trabajo y devuelve valores.
NOTA: Nombre del programa principal (miembro): LINKA01 y nombre del
subprograma (miembro): LINKB01. Este ultimo es importante para que funcione correctamente.
NOTA 2: Ambos programas deben estar compilados en la misma Library / Biblioteca
CODIGO COBOL
CODIGO de creacion de la DB (PF)
DATOS de ejemplo para llenar la tabla
CODIGO de creacion de la pantalla (Subfile y Zona de Control)
Instrucciones paso a paso sobre como crear la pantalla (subfile / planilla)
y la zona de control.
Aunque la página se titule 'Apuntes de lectura rápida para COBOL en IBM AS400' considero útil agregar, dada su facilidad
importancia, potencia e integración al AS400, ejemplos de RPG como lenguajes de programación.
CODIGO RPG como mostrar una pantalla
CODIGO Pantalla V001 a mostrar con MAGRPG001
CODIGO RPG de ejemplo para CRUD de una tabla
CODIGO de creacion de la tabla F004 para MAGRPG002
CODIGO. Al ejecutar este programa llamamos a RP02 y le pasamos datos para que los muestre por pantalla
CODIGO. Recibe los datos de RP01 los muestra por pantalla y devuelve el control a RP01
Tener en cuenta que al programar en RPG son muy importantes las ubicaciones de los comandos y datos en las
columnas de la pantalla. Al introducir el tipo de linea H, I, C, CSR, etc con la tecla F4 se accede a la ayuda
de posicionamiento de cada dato. Para salir de la ayuda, pulsar F12.
Usando QPRINT
CODIGO en COBOL del programa principal que crea el listado tomando
los datos del archivo lógico CANTANTEL.txt que ordena por nombre el archivo fisico CANTANTE.SQL con los datos CANTANTES.txt.
CODIGO SQL para crear el PF de la tabla cantantes.
CODIGO para crear el PL de la tabla cantantes (ordenada por nombres de banda).
DATOS de relleno para la tabla cantantes.
Una vez compilado y ejecutado el programa, se genera en el spool un QPRINT con el listado que se ve como muestra el siguiente grafico.
Usando un PRTF (printer file)
CODIGO del PRTF (printer file / archivo de impresora).
En QDDSSRC creamos un archivo tipo PRTF e introducimos este código.
Una vez guardado, con la opción 19 podemos acceder mediante el editor de RLU.
Como siempre, debe ser compilado con la opción 14 para poder usarlo desde el COBOL.
CODIGO COBOL de creación del listado.
Para que este ejemplo funcione se han usado los siguientes códigos y datos del ejemplo con QPRINT:
- codigo SQL para crear el PF de la tabla cantantes.
- codigo PL de la tabla cantantes (ordenada por nombres de banda).
- datos de relleno para la tabla cantantes.
Ejemplo de servidor HTML básico con Node.js.
Ejemplo de servidor con página HTML y CSS con Node.js.
Ejemplo de HTML para mostrar tabla PF (phisical file), con SQL en Node.js.
Ejemplo de Web App, CRUD con SQL, con Node.js.
> app008.js Ejemplo de web service con Node.js.
En '/' muestra un 'Hola mundo...' para indicar que esta en funcionamiento, por consola muestra el puerto (30019),
y en '/data' devuelve un json con dos campos y el indicador de status 200 de ejecucion exitosa. Esto se ve
muy bien usando herramientas como Insomnia REST.
En progreso