Un programa simple de búsqueda de un registro en el archivo VSAM. Posteriormente lo ampliaré para que realice ABM y corrija el error del campo dirección.
Como detalle, en este programa, se muestra el uso del reconocimiento de teclas especiales (PF3 en este caso).
Para este ejemplo vamos a agregar el dataset IBMUSER.CICS.COPY que allí es donde se insertará el mapa lógico al submitir HCICC2MP, y de allí se leerá al compilar con HCBLCIC2.
Desde ya que el orden lógico de ejecución de los siguientes archivos es HOL3VSAM, HCICC2MP y HCBLCIC2.
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
JCL para crear el cluster VSAM y cargarle algunos registros. -> IBMUSER.MAG.JCL
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 (HOL3) group (HOL3)' (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 (HOL3MP) group (HOL3)' (sin comillas) y ENTER.
F3 y ALT+C para dejar todo en condiciones de ingresar otro comando.
Definimos la transacción cuyo nombre solo puede tener 4 caracteres.... asi que se llamará HOL3....
Con el comando 'ceda def trans(HOL3) prog(HOL3) group(HOL3)' (sin comillas), y ENTER.
F3 y ALT+C para dejar todo en condiciones de ingresar otro comando.
Definimos el archivo VSAM a utilizar.
Con el comando 'ceda def group(HOL3) file(CLIENTES)' (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 (HOL3)' (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 4 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(HOL3)' (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.
Podemos apagar CICS y reiniciarlo para probar el programa pero no es un paso obligatorio.
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 'HOL3' (sin comillas).
¡Listo!