El código COBOL con CICS embebido tiene algunas particularidades para liberar al CICS mientras el usuario trabaja.
También el mapa contempla el ingreso y egreso de datos.
Los JCL son iguales a los de 'HOLA MUNDO CICS'.
El procedimiento de carga del programa, grupo y transacción en CICS son idénticos.
Los archivos a usar son los siguientes, y van cargados en los datasets que se mencionan a continuación de cada uno.
COBOL -> IBMUSER.CICS.SOURCE
JCL para compilar el COBOL. -> IBMUSER.MAG.JCL
JCL para compilar el MAPA CICS. -> IBMUSER.MAG.JCL
CODIGO del MAPA CICS. -> IBMUSER.CICS.MAPS
CODIGO mapa lógico de las variables a usar en COBOL.
Solo voy a citar la secuencia de comandos en cics para que quede instalado y usable el programa.
En la pantalla de bienvenida de CICS, ALT+C (clear) borra la pantalla y la deja en espera del ingreso de un comando.
Crearemos un grupo para definir la transaccion y el mapa. Dividir en grupos, hace al orden a la hora de administrar CICS.
Ingresamos el comando 'ceda def prog (HOL2) group (HOL2)' (sin comillas), y ENTER.
F3 y ALT+C para dejar todo en condiciones de ingresar otro comando.
Ahora definimos el mapa con el siguiente comando. 'ceda def map (HOL2MP) group (HOL2)' (sin comillas) y ENTER.
F3 y ALT+C para dejar todo en condiciones de ingresar otro comando.
Solo queda definir la transacción cuyo nombre solo puede tener 4 caracteres.... asi que se llamará HOL2....
Con el comando 'ceda def trans(HOL2) prog(HOL2) group(HOL2)' (sin comillas), y ENTER.
F3 y ALT+C para dejar todo en condiciones de ingresar otro comando.
Con esto ya definimos todo...
Ya estamos en los últimos procedimientos.
Con 'ceda di group (HOL2)' (sin comillas), vamos a llamar a la transacción.
Ponemos 'I' (sin comillas) en cada registro entre las columnas GROUP y DATE para instalar la transacción.
Le damos ENTER y aparece INSTALL SUCCESSFUL en DATE en los 3 registros.
Con 'ceda' hemos definido e instalado el programa.... Ahora solo falta cargarlo.
F3 y ALT+C para dejar todo en condiciones de ingresar otro comando.
Ingresamos el comando 'cemt s prog(HOL2)' (sin comillas), y ENTER.
El 'Leng(0000000000)' significa que aún no está ocupando memoria el programa, por lo tanto, no está cargado.
Para cargarlo, introducimos una 'N' (sin comillas) entre 'Pri' y 'Ced', y ENTER.
Al darle ENTER se modificará la 'Leng' mostrando cuanto ocupa el programa, y habremos dejado listo el programa para ejecutarse la próxima vez que se reinicie CICS.
F3 y ALT+C para dejar todo en condiciones de ingresar otro comando.
'cesf logoff' para salir de cics normalmente. Pero en este caso no debemos ejecutarlo.
Ahora vamos a apagar CICS y reiniciarlo para probar el programa.
El comando 'CEMT P SHUT I' (sin comillas) apagará de forma correcta el CICS.
Para darle arranque nuevamente, desde la consola 1 (la de carga), 'S CICSA' (sin comillas) que significa START CICSA (el miembro que cambiamos al principio).
Una vez que el CICS arranque, entramos desde la pantalla de bienvenida de z/OS con 'L CICS'.
Al mostrar la pantalla de bienvenida de CICS con ALT+C quedamos en condiciones de ingresar un comando.
En este caso nuestro comando sera 'HOL2' (sin comillas).
¡Listo!