| TRMMODL=2, * | | TRMIDNT=PC02, * | | DEFSCRN=(24,80), * | | ALTSCRN=(24,80), * | | NETNAME=A22E2, * | | CHNASSY=YES, * | | GMMSG=YES, * | | ACCMETH=VTAM, * | | TRMSTAT=(TRANSCEIVE,'OUT OF SERVICE'), * | | RELREQ=(,YES), * | | TIOAL=(1024,4096), * | | BUFFER=3840, * | | FEATURE=(AUDALARM,UCTRAN,DCKYBD,SELCTPEN) | | | | ... | | | | | |________________________________________________________________________|
3.16.•
DFHTLT
TLT TYPE=INITIAL TYPE=ENTRY TYPE=FINAL
___________________________________________________ _______ NOTAS: Terminal List Table (TLT).- Tabla de Lista de Terminales.-Identifica la terminal y el operador
que seran agrupados logicamente. Usted define la TLT con las siguientes macros: •
DFHTLT TYPE=INITIAL .- Inicio de la TLT. Ejemplo: ________________________________________________________________________ | | | label DFHTLT TYPE=INITIAL | | [,LDC=aa] | | [,SUFFIX=xx] | | | |________________________________________________________________________|
•
DFHTLT TYPE=ENTRY .-Lista de terminales. Ejemplo: ________________________________________________________________________ | | | label DFHTLT TYPE= ENTRY | | ,TRMIDNT=([termid-1[*ldc-1]][/opid-1] | | [,termid-2[*ldc-2][/opid-2],...]) | | | |________________________________________________________________________|
•
DFHTLT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo:
| ,DATAID=(character-string | | [,character-string,...])|() | | | |________________________________________________________________________| •
DFHTST TYPE=REMOTE .- Se crean las colas en una region remota de CICS pero que se
tiene comunicación con ella. Ejemplo: ________________________________________________________________________ | | | label DFHTST TYPE=REMOTE | | ,DATAID=(character-string | | [,character-string,...])|() | | ,SYSIDNT=name | | [,RMTNAME=character-string] | | | |________________________________________________________________________| •
DFHTST TYPE=SECURITY .- Se requiere tener permiso para grabar en las colas.
Ejemplo: ________________________________________________________________________ | | | label DFHTST TYPE=SECURITY | | ,DATAID=(character-string | | [,character-string,...])|() | | | |________________________________________________________________________| •
DFHTST TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHTST TYPE=FINAL | | | |________________________________________________________________________|
Se muestra un ejemplo de codificacion de una tabla TST: ________________________________________________________________________ | | | | | DFHTST TYPE=INITIAL, LIST OF GENERIC NAMES OF QUEUE|* | SUFFIX=01 THAT ARE RECOVERABLE, REMOTE, | | * LOCAL, OR REQUIRE SECURITY | | * CHECKING. | | * | | * The following macro specifies that all LOCAL queues with | | * names beginning with the letter 'R' are RECOVERABLE: | | * | | DFHTST TYPE=RECOVERY, |* | DATAID=R | | * | | * The following macro specifies that queues with names | | * beginning with C,D,E, and X are local queues: | | * | | DFHTST TYPE=LOCAL, |* | DATAID=(C,D,E,X) | | * | | * The following macro specifies that queues with names | | * beginning with AB,L,M,N are remote queues on system RSYS: | | * | | DFHTST TYPE=REMOTE, |* | DATAID=(AB,L,M,N), |* | SYSIDNT=RSYS, Queue names on remote system |* | RMTNAME=LC begin with letters LC | | * | | * |
| * The following macro specifies that queues with names | | * beginning with SAQ require security checking. | | * | | * Note that the full TS queue name is passed to the ESM. | | * | | DFHTST TYPE=SECURITY, |* | DATAID=SAQ | | * | | DFHTST TYPE=FINAL | | END | | | |________________________________________________________________________|
3.18.•
DFHXLT
XLT TYPE=INITIAL TYPE=ENTRY TYPE=FINAL
___________________________________________________ _______ NOTAS: Transaction List Table (XLT).-Tabla de Lista de Transacciones.-Contiene la identificacion de
todas las transacciones que se usaran. Usted define la XLT con las siguientes macros: DFHXLT TYPE=INITIAL .- .- Inicio de la XLT. Ejemplo: •
________________________________________________________________________ | | | label DFHXLT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________| •
DFHXLT TYPE=ENTRY .- Caracteristicas de la transaccion. Ejemplo: ________________________________________________________________________ | | | label DFHXLT TYPE=ENTRY | | {,TASKREQ=(kkkk[,kkkk],...)} | | {,TRANSID=(xxxx[,xxxx],...)} | | | |________________________________________________________________________|
•
DFHXLT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHXLT TYPE=FINAL | | | |________________________________________________________________________|
Se muestran dos ejemplos de codificacion de una tabla XLT: ________________________________________________________________________ | | | | | DFHXLT TYPE=INITIAL, LIST OF TRANSACTIONS *| | SUFFIX=IN THAT WILL BE ACCEPTED |
| * DURING THE FIRST QUIESCE | | * PHASE OF SYSTEM | | * TERMINATION. | | DFHXLT TYPE=ENTRY,TASKREQ=PF5 (TASKREQ MUST ALSO BE | | * DEFINED IN THE CSD AND | | * INSTALLED IN THE RUNNING | | * CICS SYSTEM. AN ENTRY FOR | | * THE XLT MUST BE MADE IN | | DFHXLT TYPE=ENTRY,TRANSID=(USR1,USR TYPE=ENTRY,TRANSID=(USR1,USR2) 2) THE CSD.) | | DFHXLT TYPE=ENTRY,TRANSID='AA,1' | | DFHXLT TYPE=ENTRY,TRANSID='AA,2' | | DFHXLT TYPE=FINAL | | END | | | | DFHXLT TYPE=INITIAL, LIST OF LOGICALLY RELATED*| | SUFFIX=G1 TRANSIDS TO BE ENABLED OR | | * DISABLED BY MASTER | | * TERMINAL. | | DFHXLT TYPE=ENTRY,TRANSID=(TSSA,TSR TYPE=ENTRY,TRANSID=(TSSA,TSRA) A) (TRANSIDS MUST ALSO BE | | DFHXLT TYPE=ENTRY,TRANSID=(TDSA,TDR TYPE=ENTRY,TRANSID=(TDSA,TDRA) A) DEFINED IN THE CSD AND | | DFHXLT TYPE=ENTRY,TRANSID=ICSA INSTALLED IN THE RUNNING | | DFHXLT TYPE=FINAL CICS SYSTEM.) | | END | | | | | |________________________________________________________________________|
1. IMPORTANCIA DE LOS COMANDOS.
•
•
•
Cobol CICS tiene sus propios comandos que permiten que las funciones se realicen en forma sencilla para lograr el objetivo deseado. Por medio de estos se hace la comunicación entre el usuario y los medios en donde se encuentra la informacion. El programador usa estos para lograr el objetivo deseado y plasmado en el diseño.
NOTAS: Customer Information Control System (CICS) Sistema de control y de informacion para el
cliente. Con este lenguaje usted puede desarrollar un proceso en forma sencilla y poder comunicarse con el cliente para mostrar y/o pedir informacion que ayudara para solucionar el requerimiento de este. Este lenguaje debe ser usado para resolver funciones de rapida respuesta e indispensable para que el cliente pueda tomar desiciones o para alimentar informacion que se obtiene al instante, todo esto desde una terminal del cliente. En un sistema de esta naturaleza el tiempo juega un papel muy importante, de aquí la necesidad de desarrollar programas que muestren los resultados en segundos y la informacion trabajada quede disponible para su uso; esto es lo que diferencia un proceso batch de uno on-line y el CICS fue desarrollado para procesos on-line. Todos los programas desarrollados bajo CICS deben cumplir lo siguiente: Facilidad de uso. Ser eficientes. Integridad de la informacion y. Seguridad de la misma.
EJEMPLO DE ENCADENAMIENTO DE TABLAS Terminal ___________ | | ---| | <-------- ORD1 | | | | |___________| | ___________ | / / | /__________/ | | PCT | | ______________________________ Program | |Transaction | | |------------------------------| | | DM01 DMPGM01 | | | DM02 DMPGM02 | | | MMA1 MMAPGM1 | ORDPGM1 -->| ORD1 --|-----| ORD2 ORDPGM2 | | ______________________________ | | | ----------------------------------------|
PPT | | ______________________________ Location | | Program | | |------------------------------| | | DMPGM01 In storage | | | DMPGM02 On disk | CICS address space | | MMAPGM1 In storage | On disk -->| ORDPGM1 --|-----_______________________ | ORDPGM2 On disk | | | | ______________________________ _____________________________ _ | | --------| | | | DMPGM01 | | | | --------| -------------------------------------------------------------------------------| | | | | | | --------| | ______________________________ _____________________________ _ | | MMAPGM1 | | | | Library Load module | | --------| | |------------------------------| |-----------------------------| | | | | DMPROG DMPGM01 | | | | | DMPGM02 | | | | | MMAPROG MMAPGM1 | | --------| ORDPGM1 -->| ORDPROG | ----------|-> | ORDPGM1 | | | ORDPGM2 | | --------| ______________________________ _____________________________ _ | | | | |_______________________|
TABLAS DE CICS.
REPASO : 3. ¿Cuál ¿Cuál es la importan importancia cia de de las tablas tablas de CICS? CICS?
6. Explique Explique la la tabla tabla de control control de archivo archivos s (FCT): (FCT):
7. Explique Explique la la tabla tabla de control control de programa programas(PC s(PCT): T):
28. Explique la tabla de de proceso de programas: programas:
29. Explique la tabla de de control de terminales: terminales:
30. Explique la tabla de control de transacciones:
31. ¿Qué relacion hay entre la PCT y la PPT?
32. ¿Qué significa RES en la definicion de un programa?
EXAMEN 1.
Si hacemos una modificacion a un programa que se quiere probar sin dar de baja el CICS, ¿qué comando debe usarse? B _ CEMT SET PROGRAM(program-name) _ CEMT SET PROGRAM(program-name) NEWCOPY _ CEMT SET PROGRAM(program-name) OPEN _ CEMT SET PROGRAM(program-name) OPEN ENABLE
2.
¿Cuál de las secuencias siguientes es una secuencia correcta para seguir un programa ON-LINE paso a paso? D _ Teclear el nombre de la transaccion y posteriormente CEDA. _ Teclear el nombre de la transaccion y posteriormente CEDF. _ Teclear CEDA y posteriormente el nombre de la transaccion. _ Teclear CEDF y posteriormente el nombre de la transaccion.
3.
¿Qué transaccion se debe usar para dar de alta un archivo?
C
_ CEMT _ CEDF _ CEDA _ CECI 4.
¿Cuál es el nombre correcto de una transaccion?
A
_ ABCD _ CDEF _ BCDEFGH _ Ninguna de las anteriores 5.
Si se quiere ver el contenido de una area temporal, ¿con que transaccion lo puedo hacer? C
_ CEMT _ CESN _ CEBR _ CEDA 6.
La transaccion CEDA es usada para:
D
_ Darse de alta en el ambiente de CICS. _ Para seguir la funcionalidad de un programa paso a paso. _ Para ver las colas del almacenamiento temporal durante la ejecucion de un programa. _ Para definir, instalar y dar mantenimiento a recursos en el sistema de CICS. _ Checar sintaxis, mostrar el contenido de la informacion y poder cambiar esta. 7.
8.
Relacione los enunciados con la transaccion con la que se ejecuta:
2,6,4,5,1,3
ENUNCIADOS
TRANSACCION
1- Darse de alta en el CICS. 2- Darse de baja en el CICS 3- Dejar disponible un recurso para ser usado sin necesidad De dar de baja el CICS. 4- Encontrar un error en un programa viendo sus resultados. 5- Hacer que un programa siga una secuencia deseada. 6- Ver las colas de un almacenamiento temporal.
( ) CESF ( ) CEBR
¿Cuál es la tabla que CICS requiere para su operatividad?
( ( ( (
) CEDF ) CECI ) CESN ) CEMT D
_ FCT _ PCT _ PPT _ SIT 9.
De las siguientes caracteristicas selecione las que son necesarias para dar de alta un archivo en la tabla FCT 1,5,7 1. TYPE.- Caracteristicas del archivo.
2. 3. 4. 5. 6. 7. 8.
FILSTAT.- Estado inicial del archivo. BLKSIZE.- Longitud de cada bloque. LRECL.- Longitud del registro logico. ACCMETH.- Metodo de acceso. KEYLEN.- Longitud de la llave FILE.- Nombre que identifica al archivo en la tabla. RECFORM.- Formato del registro fisico del archivo.
10. Cuando el cliente dispara una transaccion ¿A cual tabla se direcciona CICS para ejecutarla? C _ FCT _ PPT _ PCT _ SIT 11. ¿De las siguientes caracteristicas selecione las que son necesarias para dar de alta un programa en la tabla PCT?. 2,5,6,7 1. 2. 3. 4. 5. 6. 7. 12.
¿De las siguientes caracteristicas seleccione las que son necesarias para dar de alta programas y mapsets en la PPT?. 3,4,5 1. 2. 3. 4. 5.
13.
14.
DTIMOUT.- Tiempo de duracion de la transaccion. TYPE.- Informacion de control de la transaccion. DUMP.- Si se produce DUMP en caso de terminacion anormal. TPURGE.- Si se purga o no cuando ocurra un error de terminal. PROGRAM.- Nombre del programa que se relaciona con la terminal. TASKREQ.- Codigo con el cual el operador identifica a la transaccion. TRANSID.- Nombre de la transaccion.
PGMLANG.- Lenguaje en que esta hecho el programa. PGMSTAT.- Estado que guarda el programa. PROGRAM.- Nombre del programa. MAPSET.- Nombre del conjunto de mapas. TYPE.- Entrada de un programa o mapa.
¿De las siguientes caracteristicas seleccione las que son necesarias para dar de alta una terminal en la TCT?. 1,2,3,4 1. TYPE.- Define una terminal. 2. ACCEMETH.- Metodo a usarse. 3. TRMIDNT.- Nombre de la terminal. 4. TRMTYPE.- Tipo de la terminal. 5. FEATURE.- Caracteristicas de la terminal. 6. DEFSCRN.- Tamaño de la terminal. ¿De las siguientes caracteristicas seleccione las que son necesarias para dar de alta una transaccion en la XCT?. 1,2,3 1. TYPE.- Define las caracteristicas de la transaccion. 2. TASKREQ.- Codigo con el cual el operador identifica a la transaccion. 3. TRANSID.- Nombre de la transaccion.
4.5.1.-EXEC CICS SEND
TEXT FROM(data-area) [ LENGTH (data-value) [ ERASE ] [ FREEKB ]
]
END-EXEC
4.5.2.- EXEC CICS SEND
CONTROL [ ERASE [ FREEKB
] ]
END-EXEC
______________________________________________________________________ _______ NOTAS: SEND TEXT.- Se usa para mandar un mensaje a un aterminal sin necesidad de
crear un mapa. En el data-value va el nombre del campo de la working storage que contiene el mensaje. OPCIONES: -ERASE.- La pantalla sera borrada antes de desplegar el mensaje. Si no se pone el mensafe sera sobrepuesto a lo que contiene en la parte superior izquierda.
-FREEKB.- El teclado sera liberado despues de mandar el mensaje. De otra forma el usuario tendra que teclear RESET KEY para continuar. Ejemplo: EXEC CICS SEND TEXT FROM(TERMINO PROCESO) ERASE FREEKB END-EXEC SEND CONTROL.- Envia el dispositivo de control a una terminal.
Ejemplo: EXEC CICS SEND CONTROL ERASE FREEKB END-EXEC
4.6.-EXEC CICS ASKTIME ABSTIME(utime) END-EXEC
______________________________________________________________________ _______ NOTAS: ASKTIME.- Convierte la fecha (EIBDATE) y la hora (EIBTIME) a una variable signada. ABSTIME(utime).-Nombre de la variable signada empacada de 15
caracteres en la que se dejara el tiempo convertido en numero absoluto. La variable contiene en segundos y milesimas de segundo la fecha y hora en que inicio la tarea.
4.7.-EXEC CICS FORMATTIME ABSTIME(utime) DATESEP('-') DDMMYY(date) TIME(time) TIMESEP END-EXEC
______________________________________________________________________ _______ NOTAS: FORMATTIME.-Transforma la variable absoluta (utime) que se obtuvo en el ASKTIME a la fecha y hora que corresponden y en el formato solicitado. Los formatos son: Para la fecha: DDMMYY YYMMDD MMDDYY YYDDMM YYYYDDMM YYDDD DDMMYYYY YYYYMMDD MMDDYYYY
YYYYDDD YEAR MONTHOFYEAR DAYCOUNT DAYOFMONTH DAYOFWEEK YEAR(data-area).- Indica los cuatro digitos del año. MONTHOFYEAR(data-area).- Numero de mes al que corresponde la fecha en donde: enero=1, diciembre=12.
DAYCOUNT(data-area).- Indica los dias que han transcurrido desde las cero horas del dia 1 de enero de 1900. DAYOFMONTH(data-area).- Numero de dia en el mes. DAYOFWEEK(data-area).- Numero de dia en la semana a la que corresponde la fecha, en donde: domingo=0, sabado=6. Para la hora: HHMMSS DATESEP.- Indica el caracter que se utilizara como separador de la fecha, si no se
anota algo se ignora el separador, pero si se omite el “data-value” se pone el default que es “/”. TIMESEP.- Carácter que se utilizara como separador de la hora es identico al separador de la fecha pero el default es “:”.
4.8.-EXEC CICS READ
DATASET(file-name) INTO(data-area) [ LENGTH(data-area) RIDFLD(data-area) [ KEYLENGTH(data-value) [ GENERIC [EQUAL | GTEQ [ SYSID(systemname) [ RRN | RBA | DEBKEY | DEBREC [ UPDATE END-EXEC
] ] ] ] ] ] ]
______________________________________________________________________ _______ NOTAS: READ.-Se lee un registro desde un archivo que se encuentra en un sistema
local o remoto. DATASET(file-name).-Nombre del archivo de donde se va a ser la lectura.
INTO(data-area).- Nombre del area en donde se depositara la informacion
leida y que debe estar en la Working Storage. RIDFLD(data-area).-Especifica el campo que identifica al registro a leer y que corresponde a la llave del registro. OPCIONES: -LENGTH(data-area).- Longitud del registro leido. -SYSID(systemname).- (Para un sistema remoto).- Nombre del sistema al cual se direccionaran los datos. De 1-4 caracteres. El nombre debe haber sido dado de alta previamente en la DCT. -KEYLENGTH(data-value).-Longitud del campo que identifica al registro. -GENERIC.- Si la llave es generica. -EQUAL.-La busqueda sera exitosa si y solo si el registro con la llave indicada se encuentra. -GTE -GTEQ. Q.-E -Ell regi regist stro ro leid leido o debe debe tene tenerr una una llav llave e mayo mayorr que que la expresada en RIDFLD. Si tiene la misma llave la lectura es no satisfactoria. -RRN.-Especifica que el registro que se va a leer pertenece a un archivo relativo. -RBA.-Especifica que la identificacion puesta en RIDFLD es una direccion relativa ya que se va a leer un archivo secuencial (ESDS) o index sequential (KSDS) con llave relativa. -DEBKEY.-Especifica que va a ocurrir un desbloqueado por llave. -DEBREC.-Especifica que va a ocurrir un desbloqueado por registro relativo. -UPD -UPDAT ATE. E.-E -Esp spec ecif ifiica que que el regi regist stro ro que que se lee va a ser ser actualizado. Ejemplo: Sin actualizacion: _______________________________________________________________________ _ | | | | |
EXEC
CICS
READ
| |
INTO(RECORD)
| |
FILE('MASTER')
|
RIDFLD(ACCTNO)
| | |
END-EXEC
| | | | ________________________________________________________________________|
Con actualizacion:
_______________________________________________________________________ _ | | | | |
EXEC
CICS
READ
| |
INTO(RECORD)
| |
LENGTH(RECLEN)
|
FILE('MSTVSAM')
|
RIDFLD(ACCTNO)
| | | |
KEYLENGTH(4)
| |
GENERIC
| |
GTEQ
| |
UPDATE
| | | | | | ________________________________________________________________________|
4.9.-EXEC CICS STARTBR DATASET(file-name) RIDFLD(data-area) [ KEYLENGTH(data-value) [ SYSID(systemname) [ RRN | RBA | DEBKEY | DEBREC END-EXEC
] ] ]
__________________________ ____________________________________________ ______________________________________________________ ________________ _______ NOTAS: STARTBR.-Se posiciona en la direccion señalada en la RIDFLD.
4.10.-EXEC CICS READNEXT DATASET(file-name) INTO(data-area) [ LENGTH(data-area) [ RIDFLD(data-area) [ KEYLENGTH(data-value)
] ] ]
[ SYSID(systemname) [ RRN | RBA | DEBKEY | DEBREC END-EXEC
] ]
__________________________ ____________________________________________ ______________________________________________________ ________________ _______ NOTAS: READNEXT.-Se usa para leer registros en forma secuencial ascendente a
partir de donde se posiciono el STARTBR o a partir partir de donde se encuentre el apuntador de lectura.
4.11.-EXEC CICS READPREV DATASET(file-name) INTO(data-area) [ LENGTH(data-area) [ RIDFLD(data-area) [ KEYLENGTH(data-value) [ SYSID(systemname) [ RRN | RBA | DEBKEY | DEBREC END-EXEC
] ] ] ] ]
__________________________ ____________________________________________ ______________________________________________________ ________________ _______ NOTAS: READPREV.-Se usa para leer registros en forma secuencial descendente a
partir de donde se posiciono el STARTBR o a aprtir aprtir de donde se encuentra el apuntador de lectura. Si se usa inmediatamente despues del STARBR se requiere que se especifique una llave de un registro que exista en el archivo, si no un error de NOTFND sera desplegado. Cuando se le el registro el campo de RIDFLD es sustituido con su nuevo valor.
4.12.-EXEC CICS RESETBR DATASET(file-name) RIDFLD(data-area) [ KEYLENGTH(data-value) [ SYSID(systemname) [ RRN | RBA ] END-EXEC
] ]
______________________________________________________________________ _______ NOTAS: RESETBR.-Se usa para reposicionar el apuntador que se obtuvo con el
STARBR. Es requerido para usar un segundo posicionamiento.
4.13.-EXEC CICS WRITE DATASET(file-name) FROM(data-area) [ LENGTH(data-value) [ KEYLENGTH(data-value) [ SYSID(systemname) END-EXEC
] ] ]
______________________________________________________________________ _______ NOTAS: WRITE.- Agrega un nuevo registro a un archivo definido en un sistema local o remoto. Si el registro a agregar es a un archivo KSDS se agrega en el lugar que le corresponde de acuerdo a su llave en ambas sesiones la de datos y de llaves, si es ESDS se agrega al final del archivo. Ejemplo: _______________________________________________________________________ _
| | | | |
EXEC
CICS
WRITE
| |
FROM(RECORD)
| |
LENGTH(DATLEN)
| |
DATASET('MASTER')
| |
RIDFLD(KEYFLD)
| |
END-EXEC
| | | | ________________________________________________________________________|
4.14.1.-EXEC CICS WRITEQ TD QUEUE(name) FROM(data-area) LENGTH(data-value) [SYSID(systemname) END-EXEC
]
4.14.2.-EXEC CICS WRITEQ TS QUEUE(name) FROM(data-area) LENGTH(data-value) [NUMITEMS(data-area) | ITEM(data-area) REWRITE [SYSID(systemname) [AUXILIARY | MAIN [NOSUSPEND
] ] ] ]
END-EXEC
______________________________________________________________________ _______ NOTAS: WRITEQ TD.-Escribe los registros en un destino simbolico predefinido llamado transient data.
QUEUE(name).-Nombre simbolico de las colas que van a ser escritas. De
1-4 caracteres alfanumericos y previamente definidos en CICS (TST). Dependiendo a donde este direccionada la cola para alla se ira la informacion al momento de escribirla, ej. Memoria principal, memoria auxiliar, consola, etc. FROM(data-area).-Especifica de donde se van a tomar los datos que van a ser escritos. LENGTH(data-value).-La longitud de los datos que van a ser escritos en cada registro. OPCIONES: -SYSID(systemname).- (Para un sistema remoto).- Nombre del sistema al cual se direccionaran los datos. De 1-4 caracteres. El nombre debe haber sido dado de alta previamente en la DCT.
Ejemplo: _______________________________________________________________________ _ | | | | |
EXEC
CICS
WRITEQ
TD
| |
QUEUE('CSML')
|
FROM(MESSAGE)
|
LENGTH(LENG)
| | |
|
END-EXEC
| | | | ________________________________________________________________________|
WRITEQ TS.-Escribe los registros en las colas de almacenamiento temporal en la memoria principal o auxiliar. Si las colas son definidas como recuperables entonces no se debe escribir si no se han borrado por medio de un DELETEQ TS
OPCIONES: -NUMITEMS(data-area).-Indica el numero de registros que van siendo escritos en las colas de TS despues de que el comando de WRTIEQ TS es ejecutado. -ITEM(data-area).-Numero de registros logicos que han sido remplazados en las colas de TS despues de que el comando de REWRITE es ejecutado. Si se especifica ITEM entonces es requerido REWRITE. -AUXILIARY.-Especifica que las colas de almacenamiento temporal estan en un dispositivo de acceso directo en la memoria auxiliar. Esta opcion es ignorada si existen colas predefinidas. -MAIN.-Especifica que las colas de almacenamiento temporal residen en la memoria principal. -NOSUSPEND.-Especifica que el programa aplicativo no se suspendera si el espacio destinado para el almacenamiento temporal es insuficiente y en su lugar se obtendra un error de NOSPACE Ejemplo: _______________________________________________________________________ _ | | | | |
EXEC
CICS
WRITEQ
TS
| |
QUEUE('CSML')
|
FROM(MESSAGE)
|
LENGTH(LENG)
| | | |
END-EXEC
| | | | ________________________________________________________________________|
4.15.-EXEC CICS DELETE DATASET(file-name) [ RIDFLD(data-area) [ KEYLENGTH(data-value) [ NUMREC(data-area) [ SYSID(systemname) [ RRN | RBA END-EXEC
] ] ] ] ]
______________________________________________________________________ _______ NOTAS: DELETE.-Da de baja un registro de un archivo KSDS. Este comando no opera para archivos ESDS. La llave del registro no es necesario indicarla si el registro a dar de baja fue leido por READ UPDATE, en otros casos si es necesario ponerla.
OPCIONES: -NUMREC(data-area).-Un campo binario de media palabra que sirve para conocer la cantidad de registros que se dan de baja. Ejemplo: _______________________________________________________________________ _ | | | | |
EXEC
CICS
DELETE
| |
FILE('MSTVSAM')
|
RIDFLD(ACCTNO)
|
KEYLENGTH(len)
| | | |
GENERIC
| |
NUMREC(NUMDEL)
| |
END-EXEC
| | | | ________________________________________________________________________|
4.16.1.-EXEC CICS DELETEQ TD QUEUE(name) [SYSID(systemname) END-EXEC
]
4.16.2.-EXEC CICS DELETEQ TS QUEUE(name) [SYSID(systemname) END-EXEC
]
______________________________________________________________________ _______ NOTAS: DELETEQ TD.-Da de baja toda la cola de transiet-data asociada con este nombre. DELETEQ TS.-Da de baja toda la cola de temporary-storage asociada con este nombre.
COMANDOS DEL CICS.
REPASO : 1. ¿Cuál es la importancia de los comandos de CICS?
2. ¿Cuál es el formato general de un comando de CICS?
3. ¿Indique 5 comandos usados en cobol y no permitidos en CICS?
4. ¿Cuál es la sintaxis del comando RETURN?
5. ¿Cuál es la sintaxis del comando XCTL?
6. ¿Cuál es la sintaxis del comando LINK?
7. ¿Cuál es la diferencia de llamar un programa por XCTL y por LINK?
8. ¿Cuál es la sintaxis del comando ASSIGN y para que se usa?
9. ¿Cuál es la sintaxis del comando SEND y para que se usa?
10. ¿Cuál es la sintaxis del comando FORMATTIME?
11. ¿Explique los comandos ASKTIME y FORMATTIME?
12. Cuál es la sintaxis del comando WRITE?
13. ¿ Cuál es la sintaxis del comando WRITEQ TD?
14. ¿ Cuál es la sintaxis del comando WRITEQ TS?
15. ¿ Cuál es la sintaxis del comando READ?
16. ¿ Cuál es la sintaxis del comando STARTBR y como funciona?
17. ¿ Cuál es la sintaxis del comando READNEXT?
18. ¿ Cuál es la sintaxis del comando READPREV?
19. ¿Cuál es la sintaxis del comando RESETBR y como funciona?
20. ¿Cuál es la sintaxis del comando DELETE y para que se usa?
21. ¿Cuál es la sintaxis del comando DELETEQ TD y para que se usa?
22. ¿Cuál es la sintaxis del comando DELETEQ TS y para que se usa?
TRANSACCIONES CICS DE IBM
Softtek, UN IBM Octubre de 1999.
1. TRANSACCIONES CICS OBJETIVOS: PROPORCIONAR LOS CONOCIMIENTOS DE:
•
IMPORTANCIA DE LAS TRANSACCIONES.
•
CONOCIMIENTOS DE ESTAS.
• • •
SINTAXIS.
1. •
•
IMPORTANCIA DE LAS TRANSACCIONES
.
Toda programa debe pasar por pruebas: - Unitaria - Concurrente - Integral - Repetitiva.
En ON-LINE el programador debe conocer las herramientas con las que cuenta para realizar dicha funcion.
NOTAS: Una de las mayores pifias en el desarrollo de un programa es hacer una prueba inadecuada del programa. Es muy comun que la prueba no abarque todas las subrutinas, y al momento que ellas se usan empiezan los problemas, de aquí la importancia de hacer unas pruebas completas que abarquen los siguientes niveles de pruebas: - Unitaria. - Concurrente. - Integral. - Repetitiva. Para probar programas el programador debe crear sus propios datos y validar cada una de las condiciones y cuando los resultados de estas varien de lo esperado, el programador debe localizar el problema, corregirlo y probar de nuevo. Para facilitar estas pruebas en BATCH contamos con diferentes herramientas asi tambien en CICS el programador debe conocer las transacciones de servicio de IBM, las cuales nos facilitan esta labor.
2.• • • • • • •
CONOCIMIENTO DE ESTAS.
CESN. CESF. CEMT. CEDF. CEBR. CEDA. CECI.
NOTAS : TRANSACCIONES ON-LINE DE IBM.
Son facilidades que IBM creo para facilitar el desarrollo de programas en CICS. Con ellas podemos entrar al ambiente On-line, crear todos los elementos que se requieren para para el desa desarr rrol ollo lo de nues nuestr tra a apli aplica caci ción ón,, hace hacerr nues nuestr tras as prue prueba bas s y tene tenerr un conocimiento total de que nuestros programas hacen lo que se solicito en el diseño.
3.-
SINTAXIS. 3.1.- CESN.
•
CES CE SN.
•
CESN USER=na USE R=name, me,PW= PW= clave.
NOTAS: CESN.- Transaccion para entrar al ambiente de CICS. Formatos: CESN – Despues de tecleado el sistema le pide el USER y la PASSWORD. CESN USER=name,PW=clave – En donde “name” es el usuario proporcionado en la instalacion y “clave” es la password seleccionada por el programador.
3.2.-
CESF.
•
CES CE SF.
•
CESF CES F LOGOF LOG OFF F.
NOTAS: CESF.- Transaccion para salir del ambiente de CICS. Su nombre puede cambiar según la instalacion: CSSF, SOFF, etc. Formatos: CESF – En algunas instalaciones basta con teclear esta transaccion para salir del CICS. CESF LOGOFF – Lo mas comunmente usado es este.
3.3.• • • •
CEMT CEMT CEMT CEMT
CEMT.
SET PROGRAM(name) PROGRAM( name) NEWCOPY. SET DATASET(file) DATASET( file) OPEN/CLOSE. SET PROGRAM(name) PROGRAM( name) DISABLED/ENABLED. DISABLED/ENA BLED. SET TRANSACTION(t TRANSAC TION(tran) ran) DISABLED/ENABL DISABLE D/ENABLED. ED.
• • •
CEMT INQUIRE PROGRAM(name). PROGRAM(name ). CEMT INQUIRE DATA(file) DATA(file).. CEMT INQUIRE TRANSACTION TRANSA CTION (tran).
NOTAS: CEMT.- Transaccion Terminal Maestra (Master terminal Transaction) – Nos Permite hacer una variedad de funciones dentro de CICS. Formatos: CEMT SET PROGRAM(name) NEWCOPY – Cuando CICS esta corriendo y se hace una modificacion a un programa, el cual se quiere probar inmediatamente, se tiene que teclear este formato para que CICS tome la nueva version. CEMT SET DATASET(file) OPEN/CLOSE – Cuando un archivo en linea (ON-LINE) se quiere imprimir mientras esta corriendo el CICS, entonces este debe ser cerrado y una vez impreso se debe volver a abrir para que CICS lo tome. En caso que no se abra el primer programa de CICS lo abre en forma automatica. CEMT SET PROGRAM(name) DISABLED/ENABLED – Cuando un programa de CICS entra en un circulo vicioso (LOOP), ordinariamente, este programa reusara romper su ciclo de proceso desde la misma terminal desde donde fue disparado, de aquí la necesidad de usar la transaccion con DISABLED desde otra terminal para romper el mencionado ciclo. Despues de hacer lo anterior se debe dejar el programa ENABLED. CEMT SET TRANSACTION(trans) DISABLED/ENABLED – Para que una transaccion del cliente pueda ser ejecutada, esta debe estar en modo ENABLED. CEMT INQUIRE PROGRAM(name) – Se despliega el estado en que se encuentra el programa. CEMT INQUIRE DATASET(file) – Se despliega el estado en que se encuentra el archivo. CEMT INQUIRE TRANSACTION(trans) TRANSACTION(trans) – Se despliega el estado en que se encuentra la transaccion. NOTAS II.1.- (name) – Nombre Nombre del programa, programa, este puede ser en forma completo o parcial complementado con asterisco (*). Cuando es complementado con asterisco, mostrara todos aquellos programas que inicien con los caracteres proporcionados. 2.-
(file)
– Nombre logico que se le dio a cada archivo al darlo de alta en las tablas de CICS. Sus caracteristicas son iguales al (name) pero con archivos.
3.-
(tran) – Igual al (name) pero con transacciones.
4.-
Cuando se obtiene el resultado del INQUIRE entonces se puede cambiar las caracteristicas como lo hubieramos hecho por medio del SET.
5.-
Las letras subrayadas en cada comando son las letras claves minimas que se deben proporcionar.
3.4.• •
CEDF.
CEDF. CEDF terminal,ON.
NOTAS: CEDF.- La herramienta en linea que se tiene para seguir un programa es EDF (Execution Diagnostics Facility), para entrar a esta herramienta es por medio de la transaccion CEDF que permite seguir paso a paso la ejecucion de un programa. Formatos: CEDF – Cuando se teclea esta transaccion, CICS responde en la misma terminal con el mensaje: THIS TERMINAL: EDF MODE ON Despues de lo cual se teclea la transaccion que llama al programa que se quiere analizar. Con este formato se alternan las pantallas desplegadas entre el programa y EDF. CEDF terminal,ON – Cuando se teclea esta transaccion, CICS responde en la misma terminal con el mensaje: TERMINAL terminal: EDF MODE ON Ahora se puede seguir el programa que correra en “terminal” desde otra terminal, y al disparar la transaccion, EDF desplegara “Program initiation” antes de ejecutar la primer instrucción del programa. En ambos casos en la parte inferior de cada pantalla EDF muestra el significado de cada PF. Ejemplo: ENTER – Permite continuar con la ejecucion del programa. PF2 - Permite cambiar de modo carácter a hexadecimal o vicebersa. PF3 - Fin de la sesion de EDF. Etc. Todos los comandos de CICS son interceptados por EDF y son desplegados en
dos pantallas, una antes de la ejecucion y otra despues de haber ejecutado el comando. En la primer pantalla EDF pone en el status ABOUT TO EXECUTE COMMAND y despues de la ejecucion el status dice COMMAND EXECUTION COMPLETE y en Response NORMAL (comando exitoso) o la condicion de error del problema. Despues de la terminacion del programa EDF despliega en status “TASK TERMINATION” y pide se teclee en REPLY “yes” o “no” . “yes” significa que EDF continuara en cuanto inicie la siguiente tarea y “no” se da por terminada la sesion de EDF. Sintaxis de la transaccion: CEDF[termid|sysid|sessionid][,ON|,OFF] En donde: Termid – Identificador de la terminal en donde se probara la transaccion. Sysid - Identificador del sistema. Sessionid – Identificador de la sesion para MRO. ON – Encendido. OFF – Apagado.
3.5.•
CEBR.
CEBR.
NOTAS: CEBR.- Facilidad para ver las colas del almacenamiento temporal (Temporary Storage Browse Facility). Formato: CEBR – La transaccion despliega una pantalla como esta: __________________________________________________________________________ | | | CEBR TS QUEUE CEBRxxxx RECORD 1 OF 0 COL 1 OF 0| | ENTER COMMAND ===> | | ************************** TOP OF QUEUE **************************| | ************************* BOTTOM OF QUEUE ************************| | TEMPORARY STORAGE QUEUE CEBRxxxx CONTAINS NO DATA | | PF1 : HELP PF2 : SWITCH HEX/CHAR PF3 : TERMINATE BROWSE | | PF4 : VIEW TOP PF5 : VIEW BOTTOM PF6 : REPEAT LAST FIND | | PF7 : SCROLL BACK HALF PF8 : SCROLL FORWARD HALF PF9 : UNDEFINED | | PF10: SCROLL BACK FULL PF11: SCROLL FORWARD FULL PF12: UNDEFINED | | | |__________________________________________________________________________|
Muestra las colas de la terminal CEBRxxxx. Si se quiere ver un almacenamiento temporal especifico entonces teclearle en ENTER COMMAND de la siguiente forma:
QUEUE nombre de la cola temporal La informacion se desplegara en el area disponible de la pantalla iniciando en el primer caracter y si la pantalla es insuficiente, entonces se puede hacer uso de lo siguiente: COLUMN(n) – En donde (n) es el numero de columna en la que iniciara la pantalla. Puede (n) tener mas de 4 digitos. COL X OF Y – Inicia la pantalla en la columna “X” y despliega “Y” caracteres. LINE (n) - Despliega a partir de la linea (n). Puede tener mas de 4 digitos. LINE N OF M – Inicia en la linea “N” y despliega “M” lineas. FIND /xxxxx
- En donde xxxxx es la palabra que se quiere buscar. La diagonal (/) es el delimitador. Esta palabra sera la primera que se muestre en la parte superior de la pantalla. Entre el delimitador y el argumento de busqueda no debe haber espacio.
FIND / xxx yyy/ - Para cuando exista espacio al inicio del argumento entonces se usa un segundo delimitador. Entre estos puede haber el argumento que se quiera. PURGE
- Para dar de baja una cola de almacenamiento temporal.
NOTA II.En el uso del FIND se puede repetir la busqueda las veces que se quiera, usando PF6. Las PF’s que se indican en la parte baja de la pantalla pueden usarse como lo indica su significado. Con PF3 te regresa al punto de partida cuando fue requerido el CEBR estando en EDF, si no se estaba entonces deja libre la terminal para la siguiente transaccion.
3.6.• • • •
CEDA.
CEDA. CEDA ALTER TRANSACTION CEDA INQUIRE GROUP(xxxx) CEDA VEW FILE(yyyyy) GROUP(*)
NOTAS: 3.6.1.- CEDA.- Transaccion usada para definir recursos en el sistema de CICS. usando CEDA se puede dar mantenimiento al archivo del sistema de CICS (CICS system definition file (the CSD)) y al sistema de CICS cuando este esta corriendo. Formato: CEDA – Se debe de teclear en la linea de comandos de la pantalla, y nos traera la siguientes opciones disponibles: | ENTER ONE OF THE FOLLOWING | | ADd | | ALter | | APpend | | CHeck | | COpy | | DEFine | | DELete | | DIsplay | | Expand | | Install | | Lock | | Move | | REMove | | REName | | UNlock | | USerdefine | | View | | APPLID=PROD1 | | PF 1 HELP 3 END 6 CRSR 9 MSG 12 CNCL | | | |____________________________________________________________________________________|
En donde cada uno de ellos tiene el siguiente significado: ________________________________________________________________________ | COMMAND | OBJECT | FUNCTION | | |_________________|__________________|_________________|_________________| | ADD | GROUP | Adds a group | | | | | name to a list. | | |_________________|__________________|_________________|_________________| | ALTER | resource | Modifies the | | | | definition | attributes of | | | | | an existing | | | | | resource | | | | | definition. | | |_________________|__________________|_________________|_________________| | APPEND | LIST | Copies a list | | | | | to the end of | | | | | another list. | | |_________________|__________________|_________________|_________________| | CHECK | GROUP | Cross checks | | | | | the resource | | | | | definitions | | | | | within a group. | | |_________________|__________________|_________________|_________________| | CHECK | LIST | Cross checks | |
| | | the resource | | | | | definitions | | | | | within the | | | | | groups in a | | | | | list. | | |_________________|__________________|_________________|_________________| | COPY | resource | Copies one or | | | | definition | more resource | | | | | definitions | | | | | from one group | | | | | to another, or | | | | | one resource | | | | | definition | | | | | within a group. | | |_________________|__________________|_________________|_________________| | DEFINE | resource | Creates a new | | | | definition | resource | | | | | definition. | | |_________________|__________________|_________________|_________________| | DELETE | resource | Deletes one or | | | | definition | more resource | | | | | definitions. | | |_________________|__________________|_________________|_________________| | DISPLAY | GROUP | Shows the names | | | | | of one or more | | | | | groups. | | |_________________|__________________|_________________|_________________| | DISPLAY | LIST | Shows the names | | | | | of one or more | | | | | lists. | | |_________________|__________________|_________________|_________________| | EXPAND | GROUP | Shows the names | | | | | of the resource | | | | | definitions in | | | | | one or more | | | | | groups. | | |_________________|__________________|_________________|_________________| | EXPAND | LIST | Shows the names | | | | | of the groups | | | | | in one or more | | | | | lists. | | |_________________|__________________|_________________|_________________| | INSTALL | GROUP | Dynamically | | | | | adds the | | | | | resource | | | | | definitions in | | | | | a group to the | | | | | active CICS | | | | | system. | | |_________________|__________________|_________________|_________________| | LOCK | GROUP | Prevents other | | | | | operators | | | | | updating or | | | | | deleting a | | | | | group. | | |_________________|__________________|_________________|_________________| | LOCK | LIST | Prevents other | | | | | operators | | | | | updating or | | | | | deleting the | | | | | groups in a | | | | | list. | | |_________________|__________________|_________________|_________________|
| MOVE | resource | Moves one or | | | | definition | more resource | | | | | definitions | | | | | from one group | | | | | to another. | | |_________________|__________________|_________________|_________________| | REMOVE | GROUP | Removes a group | | | | | name from a | | | | | list. | | |_________________|__________________|_________________|_________________| | RENAME | resource | Renames a | | | | definition | resource | | | | | definition, | | | | | either within a | | | | | group, or while | | | | | simultaneously | | | | | moving it to | | | | | another group. | | |_________________|__________________|_________________|_________________| | UNLOCK | GROUP | Releases a lock | | | | | on a group. | | |_________________|__________________|_________________|_________________| | UNLOCK | LIST | Releases a lock | | | | | on a list. | | |_________________|__________________|_________________|_________________| | USERDEFINE | resource | Creates a new | | | | definition | resource | | | | | definition with | | | | | your own | | | | | defaults. | | |_________________|__________________|_________________|_________________| | VIEW | resource | Shows the | | | | definition | attributes of | | | | | an existing | | | | | resource | | | | | definition. | | |_________________|__________________|_________________|_________________|
Como se ve son varias las funciones de la transaccion CEDA pero las esenciales son las siguientes: - DEFine (DEFINIR) – Especificar un recurso en CSD - Install (INSTALAR) – Transferir la nueva especificacion al sistema de CICS activo. En algunos casos es necesario, para activar la nueva definicion, usar el CEMT como se dijo anteriormente. - REName (RENNOMBRAR) – Cambiar el nombre de un recurso. - COpy (COPIAR) – Copia las caracteristicas de un recurso a otro el cual quedara igual al primero. - DELete (DAR DE BAJA) – Dar de baja un recurso. Las instrucciones anteriores de CEDA son usadas para Definir, Instalar y dar Mantenimiento a los siguientes recursos: ___ | | | | |
DEFINE|INSTALL _____________________________________________________ | [CONNECTION] | [FILE] | [LSRPOOL] | [MAPSET] |
| [PARTITIONSET] | | [PARTNER] | | [PROFILE] | | [PROGRAM] | | [SESSIONS] | | [TERMINAL] | | [TRANSACTION] | | [TYPETERM] | | | | | |_______________________________________________________________________|
El significado de estos recursos es el que sigue: CONNECTION – Forma en que el CICS remoto se comunica. Puede ser por medio de ISC o MRO. FILE – Caracteristicas que tiene el archivo. LSRPOOL – Recurso Local Compartido (Local Shared Resources). Reserva de espacio que VSAM usa. MAPSET – Nombre del mapa o conjunto de mapas. PARTITIONSET – Disponibilidad de diferentes paneles partner. PARTNER – El remoto partner para la transaccion distribuida. PROFILE – Opciones que controlan la iteracion entre transacciones y terminales o unidades logicas. PROGRAM – Programa usado para procesar una transaccion. SESSIONS – Grupo de sesiones conectadas entre si. TERMINAL – La definicion de la terminal usada en CICS. TRANSACTION – Nombre de la transaccion. Se puede agregar los recursos asignados a esta transaccion como: PROGRAMA, PROFILE y PARTITIOSET. TYPETERM – Atributos comunes de la terminal. Ejemplos de la transaccion CEDA: CEDA DEFINE CONNECTION – Enlace directo.
Pantalla CONNECTION:
________________________________________________________________________ | | | Connection ==> .... | | Group ==> ........ | | | | CONNECTION IDENTIFIERS | | Netname ==> ........ | | INDsys ==> .... | | | | CONNECTION PROPERTIES | | ACcessmethod ==> Vtam Vtam | IRc | INdirect | Xm | | Protocol ==> Appc | Lu61 | | SInglesess ==> No No | Yes | | Datastream ==> User User | 3270 | SCs | STrfield | L|s | Recordformat ==> U U | Vb | | | | OPERATIONAL PROPERTIES | | AUtoconnect ==> No No | Yes | All | | INService ==> Yes Yes | No | | | | SECURITY | | SEcurityname ==> ........ | | ATtachsec ==> Local Local | Identify | Verify | | Bindpassword ==> PASSWORD NOT SPECIFIED | | | |________________________________________________________________________|
Connection – Nombre de la definicion de la coneccion. Puede ser hasta de 4 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Group.- Nombre del grupo al que pertenece la transaccion. Cada transaccion debe estar en un grupo. Puede tener hasta 8 caracteres de longitud. Los caracteres validos son: A-Z 0-9 @ # y $. No debe usarse caracteres que inicien con “DFH” estos estan reservados para CICS. Netname.-Nombre de la red de trabajo que identifica al sistema remoto de CICS. Debe empezar con un carácter alfabetico y seguir las reglas de ensamblador. Los carcteres aceptados son: A-Z 0-9 $ @ y #. INDsys.-Nombre de un sistema intermediario que estara entre la comunicación del sistema y el sistema remoto.Puede ser hasta de 4 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Este es necesario ponerlo si se especifica ACCESSMETHOD(INDIRECT). Accessmethod – Metodo de acceso que se usara en la coneccion. Protocol.-Tipo de protocolo que se usara en la liga. Singlesess.-YES indica que se usara una terminal LUTYPE 6.2, la cual permitira ser autoinstalada. Datastream –Tipo de datos. Si se va a usar en multiples CICS se debe poner el defaul USER. Recordformat –Tipo de cadena de SNA. Si se usa multiple CICS se debe usar
“U”. AUtoconnect –YES o ALL si se usa ACCESSMETHOD(VTAM). INService.-Indica como sera el estado de la transaccion. YES - puede iniciarse la transaccion y recibir mensajes. NO – No podra recibir mensajes ni transmitir entradas. Securityname –Nombre de seguridad del sistema remoto. Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Attachsec.-Indica el nivel de tiempo-anexo requerido por el usario de seguridad para la coneccion. Bindpassword –Palabra clave. Para restringir el acceso. Pantalla Mapset: ________________________________________________________________________ | | | | | Mapset ==> ........ | | Group ==> ........ | | Rsl ==> 00 0-24 | Public | | Status ==> Enabled Enabled | Disabled | | | | | |________________________________________________________________________|
Mapset.-Nombre del conjunto de mapas definidos. Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. No se deben usar nombres que inicien con “DFH” , porque estos caracteres estan reservados para CICS. RSl.-Valor de seguridad del programa que estara asociada con la aplicacion. 00 = Solo su transaccion puede accesar el programa. 1-24 = El programa y la transaccion deben tener el mismo valor para que se pueda accesar. Public = Cualquier transaccion puede accesar este programa. Status
- Estado que guarda el programa. Enabled = El programa puede usarse. Disabled = El programa no puede usarse.
Pantalla PARTITIONSET: ________________________________________________________________________ | | | | | PArtitionset ==> ........ | | Group ==> ........ | | Rsl ==> 00 0-24 | Public |
| Status ==> Enabled Enabled | Disabled | | | | | |________________________________________________________________________|
Partitionset.-Nombre definido para esta particion-set. Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Este nombre no debe iniciar con “DFH” ya que estan reservados para CICS.
Pantalla PROFILE ________________________________________________________________________ | | | | | PROFile ==> ........ | | Group ==> ........ | | Scrnsize ==> Default Default | Alternate | | MOdename ==> ........ | | PRIntercomp ==> No No | Yes | | | | JOURNALLING | | Journal ==> No No | 1-99 | | MSGJrnl ==> No No | INPut | Output | INOut | | | | PROTECTION | | MSGInteg ==> No No | Yes | | Onewte ==> No No | Yes | | PROtect ==> No No | Yes | | | | PROTOCOLS | | Dvsuprt ==> All All | Nonvtam | Vtam | | Inbfmh ==> No No | All | Dip | Eods | | RAq ==> No No | Yes | | Logrec ==> No No | Yes | | | | RECOVERY | | Nepclass ==> 000 0-255 | | RTimout ==> No No | 1-7000 | | | | | |________________________________________________________________________|
PROfile.-Nombre dado a este. Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z a-z 0-9 $ @ # . / - _ % & ¢ ? ! : | " = ¬ , ; < y >. No se deben usar nombres que inicien con “DFH” ya que son caracteres reservados para CICS. Scrnsize.-Indica la clase de buffer a usarse. MOdename –Nombe que se va a usar en el alojamiento de la sesion LU6.2. Debe tener las reglas del lenguaje ensamblador, debe iniciar con carácter alfabetico y los caracteres aceptados son: A-Z 0-9 $ @ y #.
PRIntercomp –Nivel de compatibilidad requerido por la generacion de los datos para soportar el comando BMS SEND TEXT. Journal.-Si se quiere nombre especial para mensajes. MSGJrnl.-Que mensajes van a ser tratados en forma automatica por el Journal. MSGInteg.-Una respuesta concreta debe ser dada por cada requerimiento de salida hacia una unidad logica. Onewte.-La transaccion permitiria solo una operación de escritura durante su ejecucion. PROtect.-Provee recuperacion de mensajes de salida. Dvsuprt.-Si los dispositivos que hay deben ser soportados. Inbfmh.-Si las funciones de Manejo de cabezas (FMHs) deben ser descartadas. RAq.-Si se requiere que las colas de lectura vayan adelante. Logrec.-Si se requiere que cada EXEC CICS RECEIVE debe ser satisfecho por un registro logico. Nepclass.-La cantidad de enlaces que habra para los modulos de error del programa, en donde 0 = 1. Rtimout.-Si habra un tiempo limite para realizar la accion de lectura. Pantalla PROGRAM: ________________________________________________________________________ | | | | | PROGram ==> ........ | | Group ==> ........ | | Language ==> Cobol Cobol | Assembler | Pli | Rpg| | RELoad ==> No No | Yes | | RESident ==> No No | Yes | | RSl ==> 00 0-24 | Public | | Status ==> Enabled Enabled | Disabled | | | | | |________________________________________________________________________|
PROGram.-Nombre del programa. Hasta 8 caracteres. Language.-En que esta hecho el programa. RELoad.-Si se va a cargar una nueva version del programa. RESident.-Si reside en la memoria en forma permanente o no. Si un programa
reside en forma permanente y es actualizado por medio de CEMT y newcopy entonces pierde su residencia permanente y se carga en forma dinamica cada vez que se requiera. Pantalla SESSIONS ________________________________________________________________________ | | | | | Sessions ==> ........ | | Group ==> ........ | | | | SESSION IDENTIFIERS | | Connection ==> .... | | SESSName ==> .... | | NETnameq ==> ........ | | MOdename ==> ........ | | | | SESSION PROPERTIES | | Protocol ==> Appc | Lu61 | | MAximum ==> 0000,0000 0-32767 | | RECEIVEPfx ==> .. | | RECEIVECount ==> No No | 1-999 | | SENDPfx ==> .. | | SENDCount ==> No No | 1-999 | | SENDSize ==> 1-30720 | | RECEIVESize ==> 1-30720 | | | | OPERATOR DEFAULTS | | OPERId ==> ... | | OPERPriority ==> 000 0-255 | | | OPERRsl ==> 0 0-24,... | | | OPERSecurity ==> 1 1-64,... | | USERId ==> ........ | | | | SESSION USAGES | | Transaction ==> .... | | SESSPriority ==> 000 0-255 | | | | OPERATIONAL PROPERTIES | | Autoconnect ==> No No | Yes | All | | INservice ==> No | Yes | | Buildchain ==> Yes Yes | No | | USERArealen ==> 000 0-255 | | IOarealen ==> 0000,0000 0-32767 | | RELreq ==> No No | Yes | | Discreq ==> No No | Yes | | NEPclass ==> 000 0-255 | | | | RECOVERY | | RECOVOption ==> Sysdefault Sysdefault | Clearconv | Releasesess | | | Uncondrel | None | | RECOVNotify ==> None None | Message | Transaction | | | | | | | |________________________________________________________________________|
Sessions.-Nombre de esta sesion. Puede ser hasta de 8 caracteres. Los caracteres
Aceptados son: A-Z a-z 0-9 $ @ # . / - _ % & ¢ ? ! : | " = ¬ , ; < y >. SESSName.-Identificacion simbolica que se usara en la sesion calificada de CICS. Pueden ser hasta 4 caracteres. Los caracteres aceptados son: A-Z a-z 0-9 $ @ # . / _ % & ¢ ? ! : # " = ¬ , ; < y >. NETnameq.-Nombre por el cual el sistema remoto IMS conoce esta sesion(CICS IMS). Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z a-z 0-9 $ @ # . / - _ % & ¢ ? ! : | " = ¬ , ; < y >. Maximum.-Numero maximo de sesiones que van a ser soportadas. RECEIVEPfx.-El prefijo que sera usado por la sesion de MRO para el enlace de intercomunicacion. RECEIVECount.-Numero de sesiones paralelas que se recibiran antes del envio. SENDSize.-Indica el tamaño maximo de unidades requerida (UR) por VTAM para el envio. El valor debe ser entre 8 y 30720. Conforme se aumente este valor se incrementara la saturacion de la memoria. RECEIVESize.-Indica el tamaño maximo de unidades requeridas (UR) por VTAM para la recepcion. El valor debe ser entre 256 y 30720. El valor especificado debe ser transmitido a la unidad logica conectada. OPERId.-Operadores asociados con esta sesion. OPERPriority.-El codigo de prioridad del operador debe ser usado para determinar la prioridad en el proceso de las tareas por cada transaccion anexada a la sesion. OPERRsl.-Las llaves de seguridad para estas sesiones. OPERSecurity.-Las llaves de seguridad para el dispositivo. USERId.-Identificacion del usuario al que se referencian los mensajes de error con seguridad, los de violacion de seguridad y de auditoria. Transaction.-Nombre de la transaccion. Puede ser hasta de 4 caracteres. Con caracteres de A-Z a-z 0-9 $ @ # . / - _ % & ¢ ? ! : | " = ¬ , ; < y >. No debe empezar con la letra “C” ya que esta reservada para ser usada por CICS. SESSPriority.-Indica la prioridad de la terminal. Autoconnect.-Indica la coneccion entre CICS y los dispositivos de LU6.2. INservice.-Si las transacciones pueden ser inicadas y los mensajes enviados en forma automatica a travez de la sesion. Buildchain.-Si el engranaje de CICS ha de ser mejorado antes de pasar los datos de entrada al programa aplicativo, esto es, si cualquier area de terminal de
entrada/salida (TIOA) recibida de un programa aplicativo desde la unidad logica debe contener una cadena completa. USERArealen.-La longitud en bytes del area del usuario para este dispositivo. Ioarealen.-La longitud del area de entrada/salida de la terminal que pasara a la transaccion. RELreq.-Indica si el CICS liberara la unidad logica. Discreq.-Indica si el requerimiento de desconeccion sera honrado. NEPclass.-Clase de la transaccion para el nodo de error del programa. RECOVOption.-Es de acuerdo al tipo de terminal que se use. RECOVNotify.-Es de acuerdo al tipo de terminal que se use. Pantalla TERMINAL: ________________________________________________________________________ | | | | | TErminal ==> .... | | Group ==> ........ | | AUTINSTModel ==> No No | Yes | Only | | AUTINSTName ==> ........ | | | | TERMINAL IDENTIFIERS | | TYpeterm ==> ........ | | Netname ==> ........ | # | Console ==> No 0-127 | 129-250 | | REMOTESystem ==> .... | | REMOTEName ==> .... | | Modename ==> ........ | | | | ASSOCIATED PRINTERS | | PRINTER ==> .... | | PRINTERCopy ==> No No | Yes | | ALTPRINTEr ==> .... | | ALTPRINTCopy ==> No No | Yes | | | | PIPELINE PROPERTIES | | POol ==> .... | | TAsklimit ==> No No | 1-32767 | | | | OPERATOR DEFAULTS | | OPERId ==> ... | | OPERPriority ==> 000 0-255 | | OPERRsl ==> 0 0-24,... | | OPERSecurity ==> 1 1-64,... | | | | Userid ==> ........ | | | | TERMINAL USAGES | | TRansaction ==> .... | | TErmpriority ==> 000 0-255 |
| Inservice ==> Yes Yes | No | | | | SESSION SECURITY | | SEcurityname ==> ........ | | ATtachsec ==> Local Local | Identify | Verify | | Bindpassword ==> PASSWORD NOT SPECIFIED | | | | | |________________________________________________________________________|
Terminal.-Nombre que identifica a la terminal. Puede ser hasta de 4 caracteres. Los caracteres aceptados para terminales LUTYPE6.2 son: A-Z, 0- 9, ¢, @ y #, y para las otras A-Z a-z 0-9 $ @ # . / _ % & ¢ ? ! : | " = ¬ , ; < y >.
AUTINSTModel.-Si la definicion de esta terminal puede ser usada como una definicion modelo para autoinstalarse. AUTINSTName.-El nombre que recibe este modelo de autoinstalacion. El nombre puede ser de hasta 8 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Typeterm.-El nombre del tipo de terminal debe ser asociado con su nombre. Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Netname.-El nombre que identifica la terminal en ACF/VTAM. Debe seguir las reglas de ensamblador, iniciar con un carácter alfabetico. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Console.-Indica que la terminal es una consola de MVS que sera usada como CICS. REMOTESystem.-El nombre que identifica el enlace de intercomunicacion. El nombre puede ser hasta de 4 caracteres. Los caracteres aceptados son: A-Z 0-9 $ @ y #. REMOTEName.-El nombre por el cual la terminal es conocida en el sistema o en la region a la cual pertenece la terminal. Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z a-z 0-9 $ @ # . / _ % & ¢ # ? ! : | " = ¬ , ; < y >. PRINTER.-El nombre de la impresora primaria que sera usada para contestar los comandos de ISSUE PRINT. PRINTERCopy.-Si las caracteristicas del hardware del COPY van a ser usados para satisfacer los requerimientos de impresión. ALTPRINTEr.-El nombre de la impresora que sera usada como alterna. ALTPRINTCopy.-Si se tendra una printercopy alterna.
Pool.-Es usado como un metodo de identificacion para definir terminales relacionadas con CSD. El nombre puede ser de hasta 8 caracteres. Los caracteres son: A-Z 0-9 $ @ y #. Tasklimit.-Numero de tareas concurrentes permitidas para correr en una sesion. TErmpriority.-Establece la prioridad de la terminal. Pantalla TRANSACTION: ________________________________________________________________________ | | | | | TRansaction ==> .... | | Group ==> ........ | | PROGram ==> ........ | | TWasize ==> 00000 0-32767 | | PROFile ==> DFHCICST | | PArtitionset ==> ........ | | STatus ==> Enabled Enabled | Disabled | | PRIMedsize ==> 00000 0-65520 | | | | REMOTE ATTRIBUTES | | REMOTESystem ==> .... | | REMOTEName ==> .... | | TRProf ==> ........ | | Localq ==> No | Yes | | | | SCHEDULING | | PRIOrity ==> 001 0-255 | | TClass ==> No No | 1-10 | | | | ALIASES | | TAskreq ==> | | Xtranid ==> | | | | RECOVERY | | DTimout ==> No No | 1-7000 | | Indoubt ==> Backout Backout | Commit | Wait | | REStart ==> No No | Yes | | SPurge ==> No No | Yes | | TPurge ==> No No | Yes | | DUmp ==> Yes Yes | No | | TRACe ==> Yes Yes | No | | SECURITY | | Extsec ==> No No | Yes | | TRANsec ==> 01 1-64 | | RSL ==> 00 0-24 | Public | | RSLC ==> No No | Yes | External | | | | | |________________________________________________________________________|
Twasize.-Tamaño en bytes del area de trabajo de la transaccion que sera asignada a esta transaccion. PRIMedsize.-Tamaño en bytes de la memoria preparada.
TRProf.-Nombre del PROFILE para la sesion. Puede ser hasta de 8 caracteres. Los caracteres aceptados son: A-Z a-z 0-9 $ @ # . / - _ % & ¢ ? ! : | " = ¬ , ; < y >. Localq.-Indica si las colas del sistema local seran ejecutadas. PRIOrity.-Prioridad de la transaccion. TCLass.-Clase asociada a la tarea. Taskreq.-Permite iniciar la ejecucion de una transaccion oprimiendo una PF. Xtranid.-Especifica otro nombre que se usara en lugar del de la TRANSACCION. DTimeout.-Si la transaccion tendra un tiempo para su ejecucion. Si se anota, despues de que transcurra se dara como terminada la ejecucion y liberara los recursos. Con CEDF se ignora el tiempo. Indoubt.-Indica la accion requerida si la transaccion tiene un ABEND por proceso o por tiempo. REStart.-Indica si la facilidad de reiniciar la transaccion sera usada para cuando esta termina en forma anormal. Spurge.-Indica si la transaccion puede ser cancelada desde CICS. Tpurge.-Si la transaccion puede ser cancelada por un error de terminal (Solo para terminales BTAM). Dump.-Indica si el DUMP ha de ser producido cuando hay una terminacion no controlada. No tiene efecto cuando se usa el comando EXEC CICS DUMP. TRACe.-Si la actividad de esta transaccion puede ser seguida paso por paso (TRACE). Extsec.-Indica si un manejador de seguridad externa (por ejemplo RACF) va a ser por la seguridad de la transaccion o solo sera la seguridad intrinsica de CICS. TRANsec.-Valor de seguridad de la transaccion. Este valor debe coincidir con el del usuario. RSLC.-Este codigo es usado para checar el nivel de seguridad de un recurso (RSL) que se esta ejecutando o de un externo o de ninguno. Pantalla TYPETERM: ________________________________________________________________________ | | | | | TYpeterm ==> ........ |
| | | | | | | | | | | | | | | | | | | | | # | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
Group RESOURCE TYPE DEVice TERmmodel SESsiontype LDclist SHippable
==> ........ ==> ==> ==> ==> ........ ==> No
(See Table 5 in topic 3.2.9.1.) (See Table 5 in topic 3.2.9.1. (See Table 5 in topic 3.2.9.1. No | Yes
MAPPING PROPERTIES PAGesize ==> 000 , 000 ALTPage ==> 000 , 000 ALTSUffix ==> . FMhparm ==> No OBOperid ==> No
No | Yes No | Yes
PAGING PROPERTIES AUTOPage ==>
No | Yes
DEVICE PROPERTIES DEFscreen ==> ALTSCreen ==> APLKybd ==> APLText ==> AUDiblealarm ==> COLor ==> COPy ==> DUalcasekybd ==> EXtendedds ==> HIlight ==> Katakana ==> LIghtpen ==> Msrcontrol ==> OBFormat ==> PARtitions ==> PRINTAdapter ==> PROgsymbols ==> VAlidation ==> FOrmfeed ==> HOrizform ==> VErticalform ==> TEXTKybd ==> TEXTPrint ==> Query ==> OUtline ==> SOsi ==> BAcktrans ==> CGcsgid ==>
000 , 000 , No No No No No No No No No No No No No No No No No No No No No No No No No 0000 , 0000
SESSION PROPERTIES AScii ==> No SENdsize ==> 00000 RECeivesize ==> BRacket ==> Yes LOGMode ==> DIAGNOSTIC DISPLAY ERRLastline ==> No ERRIntensify ==> No ERRColor ==> NO ERRHilight
==> No
0-999 0-999
0-999 0-999 No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Yes No | Cold | All No | Yes No | Yes No | Yes 0-65535 No | 7 | 8 0-30720 0-30720 Yes | No
No | Yes No | Yes NO | Blue | Red | Pink | Green | Turquoise | Yellow | NEutral No | Blink | Reverse | Underline
| | | | ) | ) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
| OPERATIONAL PROPERTIES | | AUTOConnect ==> No No | Yes | All | | ATi ==> No No | Yes | | TTi ==> Yes Yes | No | | CReatesess ==> No No | Yes | | RELreq ==> No No | Yes | | DIscreq ==> Yes Yes | No | | Nepclass ==> 000 0-255 | | SIgnoff ==> Yes Yes | No | Logoff | | | | MESSAGE RECEIVING PROPERTIES | | ROutedmsgs ==> All All | None | Specific | | LOGOnmsg ==> No No | Yes | | | | APPLICATION FEATURES | | BUildchain ==> No No | Yes | | USerarealen ==> 000 0-255 | | Ioarealen ==> 0000 , 0000 0-32767 | | UCtran ==> No No | Yes | | | | RECOVERY | | RECOVOption ==> Sysdefault Sysdefault | Clearconv | Releasesess | | | Uncondrel | None | | RECOVNotify ==> None None | Message | Transaction | | | | | | | |________________________________________________________________________|
DEVice.-Tipo de dispositivo con el cual se definira este tipo de terminal. Ver tabla 5. TERmmodel.-Relaciona la terminal con su modelo. Ver tabla 5. SESsiontype.-Indica el tipo de sesion que puede ser usada por la unidad logica VTAM SNA. Ver tabla 5. Dclist.-ES el nombre del codigo de lista del dispositivo logico (LDC). Debe seguir las reglas de ensamblador, iniciar con un carácter alfabetico. Los caracteres aceptados son: A-Z 0-9 $ @ y #. Shippable.-Si la definicion de la terminal esta definida para ser enviada a un sistema remoto para iniciar transacciones remotas. PAGesize.-Indica el tamaño de la pagina por default para la impresora. ALTPage.-Indica el tamaño de la pagina a ser usada por BMS para esta terminal. Debe ser menor que la de ALTSCREEN. ALTSUffix.-Si se quiere un sufijo que el BMS agregara al nombre del MAPSET. Fmhparm.-Si BMS acepta parametros sustitutos. Esto es solo para el tipo de dispositivo 3650. OBOperid.-Si el “outboard” sera usado por CICS para que BMS soporte las facilidades requeridas por una terminal de esta naturaleza.
AUTOPage.-Indica si el BMS usara el auto pagineo. DEFscreen.-Define el tamaño de la pantalla 3270 o el de la pagina de la impresora 3270 de acuerdo a la siguiente tabla: ________________________________________________________________________ | Device | Screen size | |____________________________________|___________________________________| | | 3276-1, 3278-1 | (12,40) | |____________________________________|___________________________________| | | 3276-2, 3278-2 | (24,80) | |____________________________________|___________________________________| | 3276-3, 3278-3 | (24,80) | |____________________________________|___________________________________| | 3276-4, 3278-4 | (24,80) | |____________________________________|___________________________________| | 3278-5 | (24,80) | |____________________________________|___________________________________| | 3279-2A, 3279-2B | (24,80) | |____________________________________|___________________________________| | 3279-3A, 3279-3B | (24,80) | |____________________________________|___________________________________|
ALTSCreen.-Define el tamaño de la pantalla que sera usada en la transaccion. Los valores especificados son: ________________________________________________________________________ | Device | Alternate screen size | |____________________________________|___________________________________| | | 3278-1 | (12,80) | |____________________________________|___________________________________| | | 3278-2 | (24,80) | |____________________________________|___________________________________| | 3276-3, 3278-3 | (32,80) | |____________________________________|___________________________________| | 3276-4, 3278-4 | (43,80) | |____________________________________|___________________________________| | 3278-5 | (27,132) | |____________________________________|___________________________________| | 3279-2A, 3279-2B | (24,80) | |____________________________________|___________________________________| | 3279-3A, 3279-3B | (32,80) | |____________________________________|___________________________________|
APLKybd.-Indica si el dispositivo 3270 tiene las caracteristicas del teclado APL. APLText.-Indica si el dispositivo 3270 tiene las caracteristicas del texto APL. AUDiblealarm.-Si habra alarma audible. COLor.-Indica si el dispositivo 3270 o la impresora SCS tiene las caracteristicas de color en el cual se seleccionara el color para cada campo o caracter. COPy.-Si las caracteristicas de COPY para la 3270 o la impresora esta incluida en La unidad de control 3270.
Dualcasekybd.-Indica si la 3270 tiene un teclado de maquina de escribir o de consola del operador. Extendedds.-Indica si el dispositivo 3270 o la impresora SCS soporta extensiones. Hilight.-Si el dispositivo 3270 o la impresora SCS tiene la facilidad extendida de alta iluminacion. Katakana.-Indica si se requiere soporte Katakana. Las terminales Katakana no tienen las minusculas. Lightpen.-Si el dispositivo 3270 tiene el selector para usar el lapiz. Msrcontrol.-Indica si la terminal, 8775 o 3643, tiene una abertura magnetica de lectura. OBFormat.-Indica que el formato “outboard” sera usado. PARtitions.-Indica si el dispositivo esta usando particiones. PRINTAdapter.-Si hay caracteristicas que se deben adaptar para el uso de la impresora. PROgsymbols.-Si la facilidad de los simbolos programados (PS) pueden ser usados en los dispositivos 3270 o en la imprsora SCS. Validation.-Indica si el dispositivo 8775 tiene las caracteristicas de validacion extendida. Formfeed.-Si el tipo de terminal tiene las caracteristicas del formato alimentado para que BMS formatee el documento de salida. Horizform.-Si el dispositivo que esta definiendo tiene para usar formas con escritura horizontal. Verticalform.-Si el dispositivo que esta definiendo tiene para usar formas con escritura vertical. TEXTKybd.-Si es un dispositivo 3270 y este tiene en su teclado las caracteristicas de texto. TEXTPrint.-Si es la impresora 3288 y esta tiene las caracteristicas de impresión de texto. Query.-Indica si las funciones del campo denominado QUERY pueden ser usadas para determinar las caracteristicas de los dispositivos. Outline.-Si el dispositivo soporta campos fuera de linea. Sosi.-Si el dispositivo soporta la combinacion de EBCDIC y el conjunto de campos de caracteres de doble byte (DBCS).
Backtrans.-Indica si el dispositivo tiene claras las caracteristicas de background. Cgcsgid.-Si el codigo de carácter grafico sera inicializado con el identificador global (CGCSGID). Ascii.-Indica si la terminal tiene las caracteristicas de ASCII. Bracket.-Si se va a usar el protocolo de parentisis (bracket). LOGMode.-Es el nombre del LOGMODE que se inicializara para usarse por la unidad logica. Debe seguir las reglas de ensamblador e inicar con un caracter alfabetico. Los caracteres aceptados son: A-Z 0-9 $ @ y #. ERRLastline.-Indica en donde se desplegara el mensaje de error. ERRIntensify.-Indica si el mensaje de error sera desplegado en un campo intensificado. ERRColor.-Indica si el mensaje de error sera desplegado en color. Los colores disponibles son: BLUE RED PINK GREEN TURQUOISE YELLOW NEUTRAL. ERRHilight.-Indica si los mensajes de error seran desplegados con alta intensidad. AUTOConnect.-Indica como son establecidas las sesiones. Ati.-Indica si las transacciones pueden arrancar en la terminal por: inicio de transaction en forma automatica o por control de datos transientes (transient data control) o por control de intervalo (interval control) o por el comando EXEC CICS START o por ninguno de ellos. Tti.-Indica si la transaccion puede ser iniciada en la terminal por el usuario. Si se selecciona “no” y en ATi fue “yes” esto indica que la transaccion iniciara en forma automatica. Createsess.-Indica si las sesiones van a ser creadas. Signoff.-Indica en que momento se da de baja al usuario de CICS. Si porque el tiempo limite TIMEOUT fue excedido o porque se da de baja al usuario y a la terminal o por ninguno de los anteriores. Routedmsgs.-Especifica que mensajes han de ser enrutados hacia terminal por medio del comando EXEC CICS ROUTE.
LOGOnmsg.-Indica si la transaccion “buenos dias” se arrancara en forma automatica cuando la unidad logica esta estableciendo la sesion por primera vez en el dia. Uctran.-Si se convertiran las letras minusculas en mayusculas. ________________________________________________________________________ | Table 5. Default values for different devices | |________________________________________________________________________| | Values specified by you: | Default values supplied by RDO: | |______________________________|_________________________________________| | DEVICE | SESSION | TERM | DEF. | PAGE | AUTO | BRAC | BUILD| ROUTD| | | TYPE | MODEL | SCRN.| SIZE | PAGE | -KET | CHAIN| MSGS | | | | | | | | | | | |_________|__________|_________|______|______|______|______|______|______| | 3270 | | 1 | 12,40| 12,40| N | Y | N | All | | (3277, | | | | | | | | | | L3277) | | | | | | | | | | (2) | | | | | | | | | |_________|__________|_________|______|______|______|______|______|______| | 3270 | | 2 (4) | 24,80| 24,80| N | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3275 | | 1 | 12,40| 12,40| N | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3275 | | 2 (4) | 24,80| 24,80| N | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3270P | | 1 | 12,40| 12,40| Y | Y | N | All | | (3284, | | | | | | | | | | L3284, | | | | | | | | | | 3286, | | | | | | | | | | L3286) | | | | | | | | | | (3) | | | | | | | | | |_________|__________|_________|______|______|______|______|______|______| | 3270P | | 2 (4) | 24,80| 24,80| Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | APPC | | | 0,0 | 1,40 | Y | Y | Y | None | | | | | | | | (1) | (1) | (1) | |_________|__________|_________|______|______|______|______|______|______| | CONSOLE | | | 0,0 | 6,80 | N | Y | N | None | | | | | | | | | | (1) | |_________|__________|_________|______|______|______|______|______|______| | LUTYPE2 | | 1 | 12,40| 12,40| N | Y | Y | All | | | | | | | | (1) | (1) | | |_________|__________|_________|______|______|______|______|______|______| | LUTYPE2 | | 2 (4) | 24,80| 24,80| N | Y | Y | All | | | | | | | | (1) | (1) | | |_________|__________|_________|______|______|______|______|______|______| | LUTYPE3 | | 1 | 12,40| 12,40| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | LUTYPE3 | | 2 (4) | 24,80| 24,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | LUTYPE4 | | | 0,0 | 50,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | BCHLU | (4) | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______|
| BCHLU | BATCHDI | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | BCHLU | USERPROG | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | INTLU | | | 0,0 | 12,80| Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | SCSPRINT| | | 0,0 | 24,80| Y | Y | N | All | | | | | (1) | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | TLX or | CONTLU | | 0,0 | 1,40 | Y | Y | N | All | | TWX | (4) | | | | | | | | |_________|__________|_________|______|______|______|______|______|______| | TLX or | INTLU | | 0,0 | 1,40 | Y | Y | N | All | | TWX | | | | | | | | | |_________|__________|_________|______|______|______|______|______|______| | 3600 | (4) | | 0,0 | 1,40 | Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3600 | PIPELINE | | 0,0 | 6,30 | Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3614 | | | 0,0 | 1,40 | Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3650 | USERPROG | | 0,0 | 3,80 | Y | Y | N | All | | | (4) | | | | | (9) | | | |_________|__________|_________|______|______|______|______|______|______| | 3650 | 3270 | | 12,40| 23,80| Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3650 | 3653 | | 0,0 | 6,30 | Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3650 | PIPELINE | | 0,0 | 6,30 | Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3767 | | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3767C | | | 0,0 | 12,80| Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3767I | | | 0,0 | 12,80| Y | Y | N | All | |_________|__________|_________|______|______|______|______|______|______| | 3770 | (4) | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3770 | USERPROG | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3770 | BATCHDI | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3770B | (4) | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3770B | BATCHDI | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3770B | USERPROG | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3770C | | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3770I | | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______|
| 3790 | (4) | | 0,0 | 1,40 | Y | Y | N | None | | | | | | | | (1) | | (1) | |_________|__________|_________|______|______|______|______|______|______| | 3790 | SCSPRINT | | 0,0 | 24,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | USERPROG | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | BATCHDI | | 0,0 | 12,80| Y | Y | N | All | | | | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | 3277CM | 1 | 12,40| 12,40| N | Y | Y | All | | | (5) | | | | | (1) | (1) | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | 3277CM | 2 (4) | 24,80| 24,80| N | Y | Y | All | | | (6) | | | | | (1) | (1) | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | 3284CM | 1 | 12,40| 12,40| Y | Y | N | All | | | (7) | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | 3284CM | 2 (4) | 24,80| 24,80| Y | Y | N | All | | | (8) | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | 3286CM | 1 | 12,40| 12,40| Y | Y | N | All | | | (7) | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | 3790 | 3286CM | 2 (4) | 24,80| 24,80| Y | Y | N | All | | | (8) | | | | | (1) | | | |_________|__________|_________|______|______|______|______|______|______| | Notes: | | | | | | 1. Value is forced; it is not just a default but it is mandatory for | | the DEVICE type. | | | | 2. 3277 and L3277 are converted by RDO to 3270. | | | | 3. 3284, 3286, L3284, and L3286 are converted to 3270P. | | | | 4. The default SESSIONTYPE or TERMMODEL value | | | | 5. Converted to DEVICE(LUTYPE2) TERMMODEL(1). | | | | 6. Converted to DEVICE(LUTYPE2) TERMMODEL(2). | | | | 7. Converted to DEVICE(LUTYPE3) TERMMODEL(1). | | | | 8. Converted to DEVICE(LUTYPE3) TERMMODEL(2). | | | | 9. 3650 interpreter logical unit is generated with BRACKET(YES), 3650 | | host command processor logical unit is generated with BRACKET(NO). | | | | | |________________________________________________________________________|
3.6.2.- CEDA ALTER TRANSACTION – Para cambiar la informacion de una transaccion. Nos mostrara la pantalla con la informacion que se tiene y nos permitira cambiarla. 3.6.3.- CEDA INQUIRE GROUP(xxxx) – En donde “xxxx” es el grupo que se quiere
desplegar, esto puede teclearse en forma completa o parcial con asterisco. Como resultado nos dara todos los recursos que encuentre con este nombre o que inicie con los caracteres indicados. 3.6.4.- CEDA VEW FILE(yyyyy) GROUP(*) – En donde “yyyyy” es el nombre del archivo definido en las tablas de CICS en forma completa o parte de el con asterisco. Proporciona el grupo en el que se encuentran los archivos seleccionados. Y si en la pantalla mostrada se teclea una “V” en el renglon del archivo deseado nos mostrara las caracteristicas del mismo.
3.7.- CECI. •
CECI.
NOTAS: CECI.- Nivel Interpretador de Comandos (Command Level Interpreter). Es usada en los comandos de CICS, checa su sintaxis, muestra el contenido y si es necesario permite cambiar este. Debido a esto ultimo, en algunas instalaciones esta restringido el uso de esta transaccion. REGLAS de CECI.- Tiene 5 variables predefinidas: DFHC DFHW DFHR LEN DATA - A la derecha de cada variabesta la longitud de esta. - Todas las variables deben iniciar con “&”. - Tu puedes definir tus propias variables, agregandolas a las ya existentes. Formato.- Se teclea lo siguiente en la linea de comandos: CECI Con esto se despliegan todos los comandos con los que trabaja CECI: _______________________________________________________________________________ | | | | | |
| ABEND FREEMAIN REWRITE | | ADDRESS GETMAIN SEND | | ALLOCATE HANDLE SET | | ASKTIME IGNORE SIGNOFF | | ASSIGN INQUIRE SIGNON | | CANCEL ISSUE START | | CONNECT LINK STARTBR | | CONVERSE LOAD SUSPEND | | DELAY POP SYNCPOINT | | DELETE POST UNLOCK | | DELETEQ PUSH WAIT | | DEQ READ WRITE | | DUMP READNEXT WRITEQ | | ENDBR READPREV XCTL | | ENQ READQ | | ENTER RECEIVE | | EXTRACT RESETBR | | FORMATTIME RETRIEVE | | FREE RETURN | | | | | | | | PF 1 Help 2 Hex 3 End 4 EIB 5 VAR 6 User 9 MSG | | | |_______________________________________________________________________________|
de los cuales se seleccionara el que se desee o se podra hacer uso de las PF’s. Ejemplo: - Si se quiere agregar variables se oprime la tecla PF5 y CECI desplegara las variables que trabaja y permitira agregar las variables que se desean, teniendo en cuenta las reglas establecidas.
-
Si se quiere ver un comando en especial de los anteriormente señalados se escribe este en la linea de comandos y se presiona la tecla de Enter. CECI primero checa sintaxis, si hubiera error este es desplegado para que se corrija, si no, despliega el contenido del comando.
-
Si se quiere actualizar la informacion desplegada se escribe el comando de REWRITE con los parametros que coinciden con lo leido y CECI desplegara el registro que se habia leido y permitira que se haga el cambio, una vez escrito se oprime la tecla de Enter y CECI desplegara la informacion cambiada indicando que el comando se ejecuto en forma exitosa.
NOTA II.Existe la transaccion CECS que invoca a CECI pero su funcionalidad es checar unicamente la sintaxis de un comando. Su formato es igual al de CECI. TRANSACCIONES DE CICS.
REPASO : 2. ¿Cuál es la funcionalidad principal de las transacciones de CICS?
4. Mencione tres comandos de la transaccion de CEMT y su funcionalidad:
5. ¿Cómo funciona la transaccion CEDF y para que nos sirve?:
23. ¿Cómo trabaja la transaccion CEBR, para que sirve y mencione 3 diferentes busquedas?
24. ¿Cuál es la funcion principal de la transaccion CEDA?
25. ¿Mencione 5 ejemplos de uso de la transaccion CEDA?
26. ¿Cuántos caracteres maximos puden ser definidos para el nombre de los siguientes recursos? TERMINAL: PROGRAMA: MAPSET: TRANSACCION:
27. ¿Para que sirve la transaccion CECI y que se debe tener en cuenta para su uso?
TABLAS DE CICS
Softtek, UN IBM Noviembre de 1999.
TABLAS DE CICS OBJETIVOS: PROPORCIONAR LOS CONOCIMIENTOS DE:
•
IMPORTANCIA DE LAS TABLAS.
•
CONOCIMIENTOS DE ESTAS.
•
SINTAXIS.
2. IMPORTANCIA DE LAS TABLAS.
•
•
CICS requiere de una configuracion para poder trabajar y esta se hace por medio de la tabla de inicializacion del sistema. La administracion correcta de los recursos en CICS ON-LINE se hacen por medio de las tablas de CICS.
NOTAS: CICS es configurado durante la inicializacion del sistema. Usted seleciona la tabla de inicializacion del sistema (System Initialization Table ( SIT)) y a traves de esta, CICS selecciona
las otras tablas. Cada tabla de control es creada separadamente y puede ser redefinida en cualquier tiempo antes de la inicializacion del sistema. Usted debe preparar las tablas de control requeridas y codificar las macros apropiadas. En cada tabla, las macros generan en forma automatica las ligas necesarias en el editor. BMS es la interfase entre las tablas de CICS y la aplicación, cada una de estas impactan al CICS en forma diferente.
2.• • • • • • • • •
CONOCIMIENTO DE ESTAS.
ALT CLT DCT FCT JCT MCT NLT PCT PLT
PPT RST SIT SNT SRT TCT TLT TST XLT
NOTAS: La tabla de SIT es requerida por el sistema para que este sea operativo, las demas tablas son opcionales desde el punto de vista operatividad del CICS. Por medio de macros se pueden definir todas las tablas y estas son: ________________________________________________________________________ | Table 21. Control tables definable by macros. The last column shows | | whether the table is loaded above or below the 16MB line. | |________________________________________________________________________| | Control Table | What the table defines | Above | | | | the | | | | line? | |__________________|____________________________________________|________| | Aplication load | Control the order of loading application | | | table (ALT) | programs | | |__________________|____________________________________________|________| | Command list | Sets of commands and messages for an XRF | Yes | | table (CLT) | takeover | | |__________________|____________________________________________|________| | Destination | Extrapartition, intrapartition, and | Yes | | control table | indirect destinations | | | (DCT) | | | |__________________|____________________________________________|________| | File control | VSAM and DAM files, VSAM LSRPOOLs, data | No | | table (FCT) | tables, and DL/I databases | | |__________________|____________________________________________|________| | Journal control | The system log and user journals | No | | table (JCT) | | | |__________________|____________________________________________|________| | Monitoring | Monitoring activity | Yes | | control table | | | | (MCT) | | | |__________________|____________________________________________|________| | Nucleus load | Create a load order that provides the | | | table (NLT) | smallest possible working set | | |__________________|____________________________________________|________|
| Program control | Define relation between transactions and | | PCT | table ( ) | programs | | |__________________|____________________________________________|________| | Program list | Sets of related programs | Yes | | table (PLT) | | | |__________________|____________________________________________|________| | Processing | Describe the control information for all | | | program table | application programs and maps | | | (PPT) | | | |__________________|____________________________________________|________| | Recoverable | List of recoverable service elements | | | service table | | | | (RST) | | | |__________________|____________________________________________|________| | System | System initialization parameters. For | Yes | | initialization | details of the SIT, see the CICS System | | | table (SIT) | Definition Guide | | |__________________|____________________________________________|________| | Signon Table | Hold information about each operator | | | (SNT) | | | |__________________|____________________________________________|________| | System recovery | Abend codes for which recovery will be | Yes | | table (SRT) | attempted | | |__________________|____________________________________________|________| | Terminal control | Non-VTAM terminal networks | No | TCT | table ( ) | | | |__________________|____________________________________________|________| | Terminal list | Sets of related terminals | No | | table (TLT) | | | |__________________|____________________________________________|________| | Temporary | Special processing for temporary storage | Yes | | storage table | | | | (TST) | | | |__________________|____________________________________________|________| | Transaction list | Sets of related transactions | Yes | | table (XLT) | | | |__________________|____________________________________________| ________|
3.-
SINTAXIS.
3.1.- ALT •
DFHALT
TYPE=INITIAL TYPE=ENTRY TYPE=FINAL
______________________________________________________________________ _______ NOTAS: Aplication Load Table (ALT).- Tabla de Carga de Aplicación.- Permite usar un almacenaje
virtual en forma eficiente, permitiendo el control de los programas aplicativos en el sistema. Todos los programas especificados en ALT residen en forma permanente en la memoria, en el orden y caracteristicas anotadas. Usted codifica las macros de acuerdo a lo siguiente: DFHALT TYPE=INITIAL .- Seccion de control. Ejemplo : • ________________________________________________________________________ | | | label DFHALT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________|
DFHALT TYPE=ENTRY .-Orden y caracteristicas de los programas. Ejemplo:
•
________________________________________________________________________ | | | | | | | label DFHALT TYPE=ENTRY | | ,PROGRAM=(name[,...]) | | [,ALIGN={NO|ENTRY|YES}] | | [,CLASS={SPECIFIC|GENERIC}] | | [,FIX={NO|YES}] | | [,PAGEOUT={NO|YES}] | | | | | | | |________________________________________________________________________| •
DFHALT TYPE=FINAL .- Ultimo comando antes de ensamblar el mandato END. Ejemplo: ________________________________________________________________________ | | | label DFHALT TYPE=FINAL | | | |________________________________________________________________________|
3.2.•
DFHCLT
CLT TYPE=INITIAL
TYPE=LISTSTART TYPE=COMMAND TYPE=WTO TYPE=LISTEND TYPE=FINAL
___________________________________________________ _______ NOTAS: Command List Table (CLT). Tabla de Lista de Comandos.- Es usada por XRF (extended recovery facility). Si se usa XRF es necesario que se tenga la CLT la cual contiene una lista de
comandos y mensajes del VSE para el operador, el cual los usara mientras este trabajando el CICS y ademas provee la autorizacion para cancelar la actividad del sistema de CICS. Esta tabla puede ser compartida por multiples sistemas alternos que nos facilitan no tener redundancia de comandos. Por ejemplo en operaciones de multiregion, la region 1 puede tener los comandos para las otras regiones. Usted codifica esta de acuerdo a lo siguiente: DFHCLT TYPE=INITIAL .- Seccion de control. Ejemplo: •
________________________________________________________________________ | | | label DFHCLT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________| •
DFHCLT TYPE=LISTSTART .- Define el arranque de los comandos y mensajes alternos
que seran usados por el CICS alterno. Ejemplo: ________________________________________________________________________ | | | label DFHCLT TYPE=LISTSTART | | ,FORALT=((applid1,jnmname1) | | [,(applid2,jnmname2),...]) | | | |________________________________________________________________________| •
DFHCLT TYPE=COMMAND .- Especifica los comandos que seran usados por el CICS
alterno. Ejemplo: ________________________________________________________________________ | | | label DFHCLT TYPE=COMMAND, | | COMMAND='MODIFY CICSDEP,CEBT PERFORM | | TAKEOVER' | | | |________________________________________________________________________| •
DFHCLT TYPE=WTO .- Define el mensaje que es escrito al operador del sistema. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHCLT TYPE=WTO | | ,WTOL=addr | | addr WTO 'message to operator' | | [,ROUTCDE=(number)] | | [,DESC=(number)] |
| ,MF=L | | | | | | | |________________________________________________________________________|
DFHCLT TYPE=LISTEND .- Define el fin del conjunto de comandos y mensajes que
•
usara el CICS alterno. Ejemplo: ________________________________________________________________________ | | | label DFHCLT TYPE=LISTEND | | | |________________________________________________________________________| •
DFHCLT TYPE=FINAL .- Ultimo comando antes de ensamblar el mandato END. Ejemplo: ________________________________________________________________________ | | | label DFHCLT TYPE=FINAL | | | |________________________________________________________________________|
3.3.•
DFHDCT
DCT TYPE=INITIAL TYPE=SDSCI TYPE=EXTRA TYPE=INDIRECT
TYPE=INTRA TYPE=REMOTE TYPE=FINAL
____________________________________________________ ______ NOTAS: Destination control table (DCT).-Tabla de Control de Destino.- Contiene una entrada por cada DCT. Un destino puede ser extraparticion, intraparticion e indirecto o remoto a la region
de CICS. Extraparticion son los datos externos a la region de CICS. Intraparticion contiene la informacion requerida para localizar las colas en esta region. Destino Indirecto redirecciona los datos a otra DCT. Usted codifica diferentes DFHDCT macros por cada tipo. El contenido es el siguiente: DFHDCT TYPE=INITIAL .- Inicia una DCT. Ejemplo: •
________________________________________________________________________ | | | label DFHDCT TYPE=INITIAL | | [,SUFFIX=xx] | | [,USERID=name] | | | |________________________________________________________________________| •
DFHDCT TYPE=SDSCI .- Define el bloque de control de datos (DCB). Ejemplo: ________________________________________________________________________ | | | | | label DFHDCT TYPE=SDSCI | | ,DSCNAME=name | | [,BLKSIZE=length] | | [,BUFNO={1|2}] | | [,CTLCHR={YES|ASA}] | | [,DEVADDR=symbolic-address] | | [,DEVICE={DISK | | |TAPE|printer-number}] | | [,ERROPT={IGNORE|SKIP}] | | [,FILABL={NO|STD}] | | [,MODNAME=name] | | [,RECFORM={FIXUNB|FIXBLK|VARUNB|VARBLK}] | | [,RECSIZE=length] | | [,REWIND={NORWD|UNLOAD}] | | [,SUFFIX=xx] | | [,TPMARK=NO] | | [,TYPEFLE={INPUT|OUTPUT|RDBACK}] | | | | | | | |________________________________________________________________________|
•
DFHDCT TYPE=EXTRA .- Extraparticion. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHDCT TYPE=EXTRA | | ,DESTID=name |
| ,DSCNAME=name | | [,OPEN={INITIAL|DEFERRED}] | | [,RESIDNT={YES|NO}] | | [,RSL={0|number|PUBLIC}] | | | | | | | |________________________________________________________________________| •
DFHDCT TYPE=INDIRECT .- Destino indirecto. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHDCT TYPE=INDIRECT | | ,DESTID=name | | ,INDDEST=name | | | | | | | |________________________________________________________________________|
•
DFHDCT TYPE=INTRA .- Destino intraparticion. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHDCT TYPE=INTRA | | ,DESTID=name | | [,DESTFAC={(TERMINAL[,trmidnt]) | | FILE|(SYSTEM,sysidnt)}] | | [,DESTRCV={NO|PH|LG}] | | [,REUSE={YES|NO}] | | [,RSL={0|number|PUBLIC}] | | [,TRANSID=name] | | [,TRIGLEV={1|number}] | | | | | | | |________________________________________________________________________|
•
DFHDCT TYPE=REMOTE .- Destino propio pero en otra region de CICS. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHDCT TYPE=REMOTE | | ,DESTID=name | | ,SYSIDNT=name | | [,LENGTH=length] | | [,RSL={0|number|PUBLIC}] | | [,RMTNAME=name] | | | | | | | |________________________________________________________________________|
•
DFHDCT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHDCT TYPE=FINAL | | | |________________________________________________________________________|
Se muestra un ejemplo de la codificacion de una tabla DCT en donde se incluye un destino extraparticion y 3 intraparticion: ________________________________________________________________________ | | | | | DFHDCT TYPE=INITIAL | | DFHDCT TYPE=SDSCI,DSCNAME=AAAXTRA, * | | RECFORM=FIXUNB * | | DFHDCT TYPE=EXTRA,DSCNAME=AAAXTRA, * | | DESTID=BETA | | DFHDCT TYPE=INTRA,DESTID=GAMA | | DFHDCT TYPE=INTRA,DESTID=SAMA | | DFHDCT TYPE=INTRA,DESTID=DAMA, * | | TRIGLEV=5,DESTFAC=TERMINAL, * | | TRANSID=AUTO | | DFHDCT TYPE=FINAL | | END | | | | | |________________________________________________________________________|
3.4.•
DFHFCT
FCT TYPE=INITIAL TYPE=FILE TYPE={CICSTABLE|USERTABLE} TYPE=GROUP TYPE=REMOTE TYPE=SHRCTL TYPE=FINAL
___________________________________________________ _______ NOTAS: File Control Table (FCT).-Tabla de Control de Archivos.- Describe los archivos y los datos que
son procesados por el manejador de archivos. Estos archivos deben haber sido definidos, instalados y estar en estado ENABLED para que puedan usarse. Usted codifica diferentes DFHFCT macros por cada tipo. El contenido es el siguiente: •
DFHFCT TYPE=INITIAL.- Inicio de la FCT. Ejemplo: ________________________________________________________________________ | | | label DFHFCT TYPE=INITIAL | | [,SUFFIX=xx] | | [,MIGRATE={ | | YES|COMPLETE}] | |________________________________________________________________________|
INITIAL .- CICS genera en forma automatica la direccion del punto de
•
entrada para cada tabla. Obligatorio. SUFFIX .- Permite tener mas de una version para esta tabla. Pueden ser hasta dos caracteres. Los caracteres validos son: A-Z, 0-9 y @, No se debe poner “NO” ni “DY”. Opcional. MIGRATE .- Como se generara la tabla: YES= Esta disponible para caulquier recurso de RDO y COMPLETE= No esta disponible. Opcional. DFHFCT TYPE=FILE .- Define las caracteristicas del archivo. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHFCT TYPE=FILE | | ,ACCMETH={DAM|DLI|VSAM,(KEY|ADR)} | | ,FILE=name | | [,FILSTAT=({ENABLED|DISABLED|UNENABLED} | | ,{OPENED|CLOSED})] | | [,JID={NO|SYSTEM|nn}] | | [,JREQ={ALL|(request[,request,...])}] | | [,LOG={NO|YES}] | | [,RECFORM=([{UNDEFINED|VARIABLE|FIXED}] | | [,{BLOCKED|UNBLOCKED}] | | [,DCB])] | | | | DAM Only | | | | [,BLKKEYL=length] | | [,BLKSIZE=length] | | [,EXTENT=number] | | [,KEYLEN=length] | | [,LRECL=length] | | [,RELTYPE={DEC|HEX}] | | [,RKP=number] | | [,SRCHM=YES] | | [,VERIFY=YES] | | |
| VSAM Only | | | | [,BUFND=number] | | [,BUFNI=number] | | [,LSRPOOL={1|number|NONE}] | | [,DSNSHR={ALL|UPDATE} | | [,BASE=name] | | [,PASSWD=password] | | [,STRNO={1|number}] | | | | | |________________________________________________________________________|
En donde: FILE .- Indica que se describiran las caracteristicas del archivo. Obligatorio. ACCMETH .- Metodo de acceso que se va a usar. DAM= Metodo de acceso directo, DLI= Corresponde a Base de Datos Jerarquica, VSAM= Metodo de acceso de almacenaje virtual, KEY= (Solamente para VSAM) Va a ser actualizado por medio de llave, ADR= (Solamente VSAM) Va a ser actualizado por medio de RBA. Obligatorio. Name(FILE).- Nombre que identifica al archivo en la tabla de FCT. De 1 a 7 caracteres. Es el nombre que usa CICS para referirse al archivo. FILE = DATASET. Este nombre es el que se asocia con el nombre de hasta 44 caracteres que se da en la DLBL. Un archivo con llave alterna (AIX) se define como un FILE mas. Obligatorio. FILSTAT .- Estado inicial del archivo. No se debe usar para DL/I. Opcional. JID.- Si se tendra control automatico diario de las actualizaciones. SYSTEM= El nombre del sistema de LOG que se usara para guardar las actividades diarias. Opcional. JREQ.- Como se va a tratar el archivo con respecto a la lectura/escritura en el control automatico diario y pude ser sincrono o asincrono. El default es que la lectura sea asincrono y la escritura sincrono. ALL= Default. Opcional. LOG.- Atributos de recuperacion automatica de un archivo. Opcional. RECFORM .- Describe el formato del registro fisico del archivo. El defaul es indefinido para DAM y variable, bloqueado para VSAM. Opcional. BLKKEYL.- Longitud de la llave fisica en el registro fisico. Opcional. BLKSIZE .- Longitud del bloque en bytes. Opcional. EXTENT .- Espacio maximo que se le asigna al archivo. Opcional. KEYLEN .- Longitud de la llave en el registro logico. Opcional. LRECL.- Longitud maxima del registro logico. Opcional. RELTYPE .- Tipo de los datos en el archivo. DEC=Decimal con signo, HEX=Hexadecimal. Opcional. RKP .- Posicion relativa en donde inicia la llave en el registro logico. Para registros variables agregar 4 bytes al inicio de registro logico. Opcional. SRCHM .- Busca multiple por llave. Opcional. VERIFY .- Si se quiere checar la paridad de los registros despues de que sean escritos. Opcional. BUFND.- Numero de buffers que seran usados para el archivo. Es el numero especificado mas uno. Opcional. BUFNI .- Numero de buffers que seran usados para el index. Opcional. LSRPOOL.- Si este archivo sera asociado con un conjunto de recursos locales
compartidos. Opcional. DSNSHR .- Si se compartira el archivo para requerimientos de lectura. El primero que lo abre es el que lo puede actualizar. Opcional. BASE .- Se refiere a los caracteres que identifican a una serie de archivos de la misma familia. Opcional. PASSWD.- VSAM verifica el acceso del usuario al archivo. De 1-8 caracteres. Opcional. STRNO .-De 1 a 255. Cuando el numero de requerimientos alcanza el numero de STRNO, CICS hace cola en forma sutomatica a cualquier otro requerimiento solicitado. •
DFHFCT TYPE={CICSTABLE|USERTABLE}.- Define tipo de datos. Ejemplo: ________________________________________________________________________ | | | | | label DFHFCT TYPE={CICSTABLE|USERTABLE} | | ,ACCMETH=VSAM | | ,FILE=name | | [,SIZE={100000|number}] | | [,VSIZE={256|number}] | | [,FILSTAT=({ENABLED|DISABLED|UNENABLED} | | ,{OPENED|CLOSED})] | | [,JID={NO|SYSTEM|nn}] | | [,JREQ={ALL|(request[,request,...])}] | | [,LOG={NO|YES}] | | [,RECFORM=[{(VARIABLE|FIXED}BLOCKED)] | | [,RSL={0|number|PUBLIC}] | | [,SERVREQ=(request[,...request]) | | [,DSNSHR={ALL|UPDATE}] | | [,BASE=name] | | [,LSRPOOL={1|number}] | | [,PASSWD=password] | | [,STRNO={1|number}] | | | | | |________________________________________________________________________|
En donde: TYPE .-El mantenimiento puede ser a traves de CICS(CICSTABLE) o a traves del usuario(USERTABLE). Obligatorio. SIZE .- Numero maximo de entradas que seran acomodadas en la tabla. De 16-16777215. El numero de default es 100000. Opcional. VSIZE .- Cantidad virtual de almacenaje, es dado en kilobytes. El default es 256. Opcional. RSL.- Restricciones para accesar el archivo. Opcional. SERVREQ.- Tipos de operaciones que seran realizadas en el archivo: ADD, BROWSE, DELETE, READ, and UPDATE. El default es READ.Opcional. DFHFCT TYPE=GROUP.- Se migran archivos definidos hacia CSD. Ejemplo: •
________________________________________________________________________ | | | label DFHFCT TYPE=GROUP | | [,GROUP=name] | |________________________________________________________________________|
En donde: Name(GROUP).- El nombre del grupo en donde quedara definido el archivo. El nombre puede ser cualquiera, pero no debe empezar con DFH. El default es FCTxx, en donde xx= es el valor del SUFFIX. Si el nombre
•
existe se agrega el archivo si no se crea. Opcional. DFHFCT TYPE=REMOTE.- Define archivos que pertencen a un sistema remoto o region. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHFCT TYPE=REMOTE | | ,FILE=name | | ,SYSIDNT=name | | [,KEYLEN=length] | | [,LRECL=length] | | [,RSL={0|number|PUBLIC}] | | [,RMTNAME=name] | | | | | | | |________________________________________________________________________|
En donde: Name(SYSIDNT).- Nombre del sistema o region en donde reside el archivo. 4 caracteres alfanumericos. Obligatorio. Name(RMTNAME).- Nombre con el cual es conocido el archivo en el sistema o region en donde reside. De 1-7 caracteres. Opcional. DFHFCT TYPE=SHRCTL.- Define el tamaño y las caracteristicas de los archivos compartidos. Ejemplo: •
________________________________________________________________________ | | | | | | | label DFHFCT TYPE=SHRCTL | | [,BUFFERS=(size(count)[,...])] | | [,KEYLEN=number] | | [,LSRPOOL={1|number}] | | [,RSCLMT=number] | | [,STRNO=number] | | | | | | | |________________________________________________________________________|
En donde: BUFFERS.-Tamaño y numero de buffers que seran alocados. Opcional. RSCLMT .- Cantidad maxima de recursos requeridos por los archivos VSAM para que sean compartidos. El dato es proporcionado en porcentaje. El default es 50%. Opcional. DFHFCT TYPE=FINAL.- Ultimo comando antes del ensamble. Ejemplo: •
________________________________________________________________________ | | | label DFHFCT TYPE=FINAL | | | |________________________________________________________________________|
Se muestran 3 ejemplos de codificaciones de tablas FCT: en DAM, en VSAM y archivo VSAM con llave ALTERNA:
DAM :
________________________________________________________________________ | | | | | DFHFCT TYPE=FILE, * | | FILE=DAM83, * | | ACCMETH=DAM, * | | SERVREQ=(READ,BROWSE,KEY), * | | BLKSIZE=172, * | | RECFORM=(FIXED,BLOCKED), * | | LRECL=86, * | | RELTYPE=HEX, * | | KEYLEN=6, * | | BLKKEYL=6, * | | RKP=0, * | | FILSTAT=(ENABLED,OPENED) | | | | | |________________________________________________________________________| VSAM :
________________________________________________________________________ | | | | | DFHFCT TYPE=FILE, * | | BASE=V1BASE, * | | DSNSHR=ALL, | | FILE=VSAM1, * | | ACCMETH=VSAM, * | | SERVREQ=(UPDATE,DELETE,ADD), * | | FILSTAT=(ENABLED,OPENED), * | | RECFORM=FIXED, * | | BUFNI=10, * | | BUFND=11, * | | STRNO=10, * | | PASSWD=LETMEIN | | | |________________________________________________________________________| VSAM con AIX:
________________________________________________________________________ | | | | | FCTBW DFHFCT TYPE=INITIAL, * | | SUFFIX=BW | | * | | * FCT ENTRIES FOR BASE VSAM10B AND ALTERNATE INDEX | | * PATH VSAM10P. | | * SHAREOPTIONS 2 AND BOTH OPEN FOR UPDATE, | | * THEREFORE USING DATA NAME SET SHARING | | * | | SPACE 1 | | PRINT NOGEN | | * | | VSAM10B DFHFCT TYPE=FILE, * | | FILE=VSAM10B, * | | DSNAME=FCEN.VSAM10B, * | | ACCMETH=VSAM, * | | DSNSHR=ALL, * | | SERVREQ=(READ,ADD,BROWSE,DELETE,UPDATE), * | | BUFNI=8, * | | BUFND=9, * | | LSRPOOL=NONE, * | | RECFORM=(FIXED,BLOCKED), * |
| STRNO=8, * | | FILSTAT=(OPEN,ENABLED) * | | VSAM10P DFHFCT TYPE=FILE, * | | FILE=VSAM10P, * | | DSNAME=FCEN.VSAM10P, * | | ACCMETH=VSAM, * | | DSNSHR=ALL, * | | SERVREQ=(BROWSE,UPDATE), * | | BUFNI=5, * | | BUFND=6, * | | LSRPOOL=NONE, * | | STRNO=5, * | | FILSTAT=(CLOSED,ENABLED) | | DFHFCT TYPE=FINAL | | END DFHFCTBA | | | |________________________________________________________________________|
3.5.•
JCT
DFHJCT
TYPE=INITIAL TYPE=ENTRY TYPE=FINAL
___________________________________________________ _______ NOTAS: Journal Control Table (JCT).-Tabla de Control Diario.-Describe el log del sistema, los usarios
diarios y sus caracteristicas para accesar el sistema. El JCT contiene el control sobre la informacion y el sistema operativo para cada dia. Usted define la JCT con las siguientes macros:
•
DFHJCT TYPE=INITIAL .-Inicio de la JCT. Ejemplo: ________________________________________________________________________ | | | label DFHJCT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________|
•
DFHJCT TYPE=ENTRY .-Genera la JCT .Ejemplo: ________________________________________________________________________ | | | | | | | label DFHJCT TYPE=ENTRY | | ,JFILEID={SYSTEM|nn} | | ,BUFSIZE=nnnnn | | ,DEVADDR=(SYSnnn[,SYSmmm]) | | [,BUFSUV=nnnnn] | | [,FORMAT=SMF] | | [,JOUROPT=([CRUCIAL][,INPUT][,PAUSE][,RETRY])] | | [,JTYPE={TAPE1|TAPE2|DISK1|DISK2}] | | [,OPEN={INITIAL|DEFERRED}] | | [,RSL={0|number|PUBLIC}] | | [,SYSWAIT={STARTIO|ASIS}] | | | | | | | |________________________________________________________________________|
•
DFHJCT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHJCT TYPE=FINAL | | | |________________________________________________________________________|
Se muestran ejemplos de codificaciones de una tabla JCT: LOG del sistema alojado en disk2. Journal 2 alojado en disk1 Journal 3 alojado en disk2 Journal 4 alojado en tape2 Journal 5 alojado en tape2 ________________________________________________________________________ | | | | | DFHJCT TYPE=INITIAL | | * | | DFHJCT TYPE=ENTRY, SYSTEM LOG * | | JFILEID=SYSTEM, * | | JTYPE=DISK2, * | | BUFSIZE=1500, * | | JOUROPT=(RETRY,CRUCIAL,AUTOARCH), * | | ARCHJCL=DFH$ARCH | | * | | DFHJCT TYPE=ENTRY, * | | JFILEID=2, * | | JTYPE=DISK1, * | | BUFSIZE=1500, * | | JOUROPT=(RETRY,PAUSE) | | * | | DFHJCT TYPE=ENTRY, * |
| JFILEID=3, * | | JTYPE=DISK2, * | | JOUROPT=(RETRY,AUTOARCH), * | | ARCHJCL=DFH$ARCH, * | | BUFSIZE=1000 | | * | | DFHJCT TYPE=ENTRY, (USER JOURNAL) * | | JFILEID=4, * | | JTYPE=TAPE2, * | | FORMAT=SMF, * | | BUFSIZE=1500 | | * | | | | | | | | DFHJCT TYPE=ENTRY, * | | JFILEID=5, * | | JTYPE=TAPE2, * | | BUFSIZE=1500, * | | JOUROPT=(RETRY,CRUCIAL) | | * | | DFHJCT TYPE=FINAL | | END | | | | | |________________________________________________________________________|
3.6.•
MCT
DFHMCT
TYPE=INITAL TYPE=EMP TYPE=RECORD TYPE=FINAL
___________________________________________________ _______ NOTAS: Monitoring Control Table (MCT).- Tabla de Control de Monitoreo.- Describe las diferentes
acciones de monitoreo (Data Collection) que han de especificarse por cada usuario. Si se omite todas las clases quedan disponibles de monitorear y todas las transacciones de CICS son almacenadas. Usted define la MCT con las siguientes macros: •
DFHMCT TYPE=INITIAL .- Inicio de la MCT. Ejemplo: ________________________________________________________________________ | | | label DFHMCT TYPE=INITIAL |
| [,SUFFIX=xx] | | [,SURROGATE=(YES|NO)] | |________________________________________________________________________| •
DFHMCT TYPE=EMP .-Define los datos del usuario que van a ser analizados y
monitoreados. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHMCT TYPE=EMP | | ,CLASS=([ACCOUNT][,PERFORM]) | | ,ID={number|(PP,number)|entryname.number} | | [,ACCOUNT=(option[,...])] | | [,CLOCK=(number,name1[,name2,...])] | | [,COUNT=(number,name1[,name2,...])] | | [,FIELD=(1,name)] | | [,PERFORM=(option[,...])] | | | | | | | |________________________________________________________________________| •
DFHMCT TYPE=RECORD .-Indica la clase en donde la informacion va a ser
analizada o monitoreada. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHMCT TYPE=RECORD | | ,CLASS={ACCOUNT|EXCEPTION|PERFORM} | | [,CPU={NO|YES}] | | [,CONV=YES] | | ,DATASET=number | | [,EXCLUDE={ALL|(n1[,...])}] | | [,EXIT=NO|YES] | | ,FREQ=number | | [,INCLUDE=(m1[,...])] | | ,MAXBUF=number | | | | | | | |________________________________________________________________________| •
DFHMCT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHMCT TYPE=FINAL | | | |________________________________________________________________________|
Se muestra ejemplo de codificacion de una tabla MCT monitoreando 2 usuarios: ________________________________________________________________________ | | | | | DFHMCT TYPE=INITIAL | | DFHMCT TYPE=EMP, * | | ID=180, * | | CLASS=PERFORM, * | | PERFORM=(SCLOCK(1),ADDCNT(2,1)), * | | ACCOUNT=ADDCNT(1,1) | | DFHMCT TYPE=EMP, * | | ID=181, * | | CLASS=PERFORM, * |
| PERFORM=PCLOCK(1) | | DFHMCT TYPE=FINAL | | END | | | | | |________________________________________________________________________|
3.7.•
NLT
DFHNLT
TYPE=INITIAL TYPE=ENTRY TYPE=FINAL
___________________________________________________ _______ NOTAS: Nucleus Load Table (NLT).-Tabla de Carga del Nucleo.-Permite usar en forma eficiente la
memoria virtual crando un orden de carga que provea la mas pequeña area de trabajo. Con esta tabla puede cambiar la orden de carga creada por el CICS en la inicializacion del sistema. Usted define la NLT con las siguientes macros: DFHNLT TYPE=INITIAL .- Inicio de la NLT. Ejemplo: •
________________________________________________________________________ | | | label DFHNLT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________| •
DFHNLT TYPE=ENTRY .-Indica donde y con que opciones se cargara el modulo.
Ejemplo: ________________________________________________________________________ | |
| | | | | label DFHNLT TYPE=ENTRY | | ,MODULE=name | | [,ALIGN={NO|ENTRY|YES}] | | [,FIX={NO|YES}] | | | | | | | |________________________________________________________________________| •
DFHNLT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHNLT TYPE=FINAL | | | |________________________________________________________________________|
3.8.•
PCT
DFHPCT
TYPE=INITIAL TYPE=ENTRY TYPE=GROUP TYPE=OPTGRP TYPE=PROFILE TYPE=REMOTE TYPE=FINAL
___________________________________________________ _______ NOTAS: Program Control Table (PCT).- Tabla de Control de Programas.- Contiene la informacion que
sera usada por CICS para identificar e iniciar una transaccion. Usted define la PCT con las siguientes macros: •
DFHPCT TYPE=INITIAL .- Establece la sesion de control. Ejemplo: ______ _______ ______________________________________ | |DFHPCT | TYPE=INITIAL (*)| | | | [,DTB={YES|NO|(YES,NO)|(YES,WAIT)}] | | | | [,EXTSEC={NO|YES}] | | | | [,FDUMP={(ASRA,ASRB)|{ASRA|ASRB}}] | | | | [,SCRNSZE={DEFAULT|ALTERNATE}] | | | | [,SUFFIX=xx] (*)|
| | | [,TRANSEC=([MASTER(nn)] | | | | [,SVR(nn)][,FE(nn)][,EDF(nn)] | | | | [,INTERPRETER(nn)][,MIRROR(nn)] | | | | [,ROUTING(nn)][,RDO(nn)])] | |______|_______|______________________________________|
En donde: DTB.- Si se requiere o no un back-up dinamico de salida de la transaccion.(DTB).El segundo juego de YES/NO indica si se retiran o no los cambios. Y el tercer juego indica si se hacen los datos anteriores o no. Opcional. EXTSEC .- Si un manejador de seguridad externa sera usado. Opcional. FDUMP .- El operando a seguir para un DUMP. Opcional. SCRNSZE .- Tamaño de las pantallas a usarse. Opcional. TRANSEC .- Valor de seguridad de la transaccion.Master(CEMT). Svr(CEST). Fe(FERS ). Edf(Nivel de comando). INTERPRETER(CECI). Mirror(CSMI).Routing(CRTE). Rdo(CEDA). El nivel debe ser en un rango de 1-64. Opcional. DFHPCT TYPE=ENTRY .- Especifica la informacion de control para la transaccion. Ejemplo: •
________________________________________________________________________ | | | | | | | DFHPCT TYPE=ENTRY | | ,PROGRAM=name | | {,TASKREQ=xxxx|,TRANSID=transid|,TASKREQ=xxxx|TRANSID=transid| | [,ANTICPG={NO|YES|nn}] | | [,DTB={NO|YES|(YES,NO)|(YES,WAIT)}] | | [,DTIMOUT={NO|numeric-value}] | | [,DUMP={YES|NO}] | | [,DVSUPRT={ALL|NONV|VTAM}] | | [,EXTSEC={NO|YES}] | | [,FDUMP={(ASRA,ASRB)|ASRA|ASRB}] | | [,PARTSET={psetname|KEEP|OWN}] | | [,PTRCOMP={NO|YES}] | | [,RESTART={NO|YES}] | | [,RSL={0|number|PUBLIC}] | | [,RSLC={NO|YES|EXTERNAL}] | | [,RTIMOUT={NO|numeric-value}] | | [,SCRNSZE={ALTERNATE|DEFAULT}] | | [,SPURGE={NO|YES}] | | [,TCLASS={NO|transaction-class}] | | [,TPURGE={NO|YES}] | | [,TRACE={YES|NO}] | | [,TRANSEC={1|decimal-value}] | | [,TRNPRTY={1|decimal-value}] | | [,TRNSTAT={ENABLED|DISABLED}] | | [,TWASIZE={0|decimal-value}] | | [,XTRANID=hexadecimal-transaction-identifier] | | | | VTAM Only | | | | [,INBFMH={EODS|ALL|DIP|NO}] | | [,JFILEID={NO|SYSTEM|nn}] | | [,LOGREC={NO|YES}] | | [,MODENAM=Modename] | | [,MSGJRNL={INPUT|OUTPUT|(INPUT,OUTPUT)}] |
| [,NEPCLAS={0|integer}] | | [,OPTGRP=name] | | [,RAQ={NO|YES}] | | | | | |________________________________________________________________________|
En donde: PROGRAM .- Nombre del programa que estara relacionado con la transaccion y debe estar definido en la PPT. Obligatorio. TASKREQ.- Codigo con el cual el operador identifica a la transaccion. Opcional. TRANSID.- Nombre que se asigna a la transaccion. La longitud puede ser de 1-4 caracteres, no debe iniciar con “C” que esta asignada a CICS. Es obligatorio que vaya esta o la tarea, pero se recomienda que sea la transaccion. ANTICPG.- Si existe paginacion de anticipacion. Opcional. DTIMOUT .- Tiempo de duracion de la transaccion. Opcional. DUMP .-Si se va a producir un dump en caso de terminacion anormal. Opcional. DVSUPRT .- En que tipo de terminal va a ser ejecutada la transaccion. Opcional. RTIMOUT .- Tiempo maximo para recepcion de informacion. Opcional. SPURGE .- Si el sistema se detiene cuando se detecta una condicion de suspensión del sistema. Opcional. TPURGE .- Si se purga o no cuando ocurre un error de terminal. Opcional. TRANSEC .- Valor de seguridad de la transaccion. En el rango de 1-64. Opcional. TRNPRTY .- Prioridad de la transaccion. En el rango de 0-255. Opcional. TWASIZE .- Tamaño del area de trabajo de la transaccion. En el rango de 0-5 digitos. Opcional. OPTGRP .- Nombre de la opcion de grupo de un mensaje en particular. Opcional. DFHPCT TYPE=GROUP .- Simplifica las especificaciones de las entradas de la transaccion. Ejemplo: •
______ _______ ______________________________________ | |DFHPCT | TYPE=GROUP | | | | ,FN=(function [,...]...) | | | | [,EXTSEC={NO|YES}] | | | | [,KEYID=xxxx] | |______|_______|______________________________________|
En donde: FN .-Nombre con la funcion generica que genera las entradas requeridas en la PCT para facilitar la agrupacion. Obligatoria. DFHPCT TYPE=OPTGRP .- Define las opciones de protocolo para los mensajes. Ejemplo: •
______ _______ ______________________________________ | name |DFHPCT | TYPE=OPTGRP | | | | [,MSGPOPT=([CCONTRL][,MSGINTEG] | | | | [,ONEWTE][,PROTECT])] | | | | [,MSGPREQ=([CCONTRL][,MSGINTEG] | | | | [,ONEWTE][,PROTECT])] | |______|_______|______________________________________| •
DFHPCT TYPE=PROFILE .- Define las opciones procesadas para las opciones
alojadas.- Ejemplo: ______ _______ ______________________________________ | |DFHPCT | TYPE=PROFILE |
| | | ,PROFILE=name | | | | [,INBFMH={ALL|NO|DIP|EODS}] | | | | [,JFILEID={NO|SYSTEM|nn}] | | | | [,MODENAM=modename] | | | | [,MSGJRNL=([INPUT][,OUTPUT])] | | | | [,NEPCLAS=0|integer] | |______|_______|______________________________________|
En donde: Name(PROFILE).- Indica que el nombre especificado aquí debe ser usado en el comando EXEC CICS ALLOCATE. Obligatorio. DFHPCT TYPE=REMOTE .- Define las transacciones que seran ejecutadas en forma remota. Ejemplo: •
______ _______ ______________________________________ | |DFHPCT | TYPE=REMOTE | | | | ,SYSIDNT=name | | | | ,TASKREQ=xxxx | | | | ,TRANSID=transaction_identifier | | | | [,DTB={NO|YES|(YES,NO)|(YES,WAIT)}] | | | | [,DTIMOUT={NO|numeric_value}] | | | | [,DVSUPRT={ALL|NONV|VTAM}] | | | | [,EXTSEC={NO|YES}] | | | | [,FDUMP={(ASRA,ASRB)|ASRA|ASRB}] | | | | [,JFILEID={NO|SYSTEM|nn}] | | | | [,LOCALQ={NO|YES}] | | | | [,LOGREC={NO|YES}] | | | | [,MSGJRNL=([INPUT],[OUTPUT])] | | | | [,NEPCLAS=0|integer] | | | | [,OPTGRP=name] | | | | [,PTRCOMP={NO|YES}] | | | | [,RAQ={NO|YES}] | | | | [,RESTART={NO|YES}] | | | | [,RMTNAME=name] | | | | [,RSLC={NO|YES|EXTERNAL}] | | | | [,RSL={0|number|PUBLIC}] | | | | [,RTIMOUT={NO|numeric_value}] | | | | [,SCRNSZE={DEFAULT|ALTERNATE}] | | | | [,SPURGE={NO|YES}] | | | | [,TCLASS={NO|task_class}] | | | | [,TPURGE={NO|YES}] | | | | [,TRACE={YES|NO}] | | | | [,TRANSEC={1|decimal_value}] | | | | [,TRNPRTY={1|decimal_value}] | | | | [,TRNSTAT={ENABLED|DISABLED}] | | | | [,TRPROF={DFHCICSS|name}] | | | | [,TWASIZE={0|decimal_value}] | | | | [,XTRANID=hexadecimal_transaction | | | | |identifier] | |______|_______|______________________________________| •
DFHPCT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHPCT TYPE=FINAL | | | |________________________________________________________________________|
Se muestran 4 ejemplos de codificacion de una tabla PCT: ________________________________________________________________________ | | | | | DFHPCT TYPE=INITIAL, |
| SUFFIX=01, * | | TRANSEC=(MASTER(12),SVR(11)) | | DFHPCT TYPE=ENTRY, * | | TRANSID=KOB1, * | | TWASIZE=64, * | | PROGRAM=KOBPGM1 | | DFHPCT TYPE=ENTRY, * | | TRANSID=KOB2, * | | TRNPRTY=100, * | | TRANSEC=10, * | | PROGRAM=KOBPGM2 | | DFHPCT TYPE=ENTRY, * | | TRANSID=KOB3, * | | TWASIZE=100, * | | TRANSEC=5, * | | PROGRAM=KOBPGM3, * | | TPURGE=YES | | DFHPCT TYPE=ENTRY, * | | TRANSID=KOB4, * | | PROGRAM=KOBPGM4, * | | RTIMOUT=515, MUST RESPOND WITHIN 5-1/4 MINUTES * | | TPURGE=YES | | DFHPCT TYPE=GROUP, MASTER AND SUPERVISORY TERMINAL * | | FN=OPERATORS SUPPORT. | | DFHPCT TYPE=ENTRY, * | | TRANSID=CSSF, INSIST ON HIGH PRIORITY FOR SIGN-OFF* | | TRNPRTY=150, IN THIS SYSTEM. * | | PROGRAM=DFHSNP | | DFHPCT TYPE=GROUP, * | | FN=SIGNON | | DFHPCT TYPE=GROUP, * | | FN=STANDARD | | DFHPCT TYPE=GROUP, * | | FN=TIME | | DFHPCT TYPE=FINAL | | END | | | | | |________________________________________________________________________| ________________________________________________________________________ | | | | | | | DFHPCT TYPE=INITIAL,SUFFIX=02, * | | TRANSEC=(EDF(6),MASTER(24),SVR(23)) | | GROUP1 DFHPCT TYPE=OPTGRP, * | | MSGPREQ=ONEWTE | | GROUP2 DFHPCT TYPE=OPTGRP, * | | MSGPREQ=(ONEWTE,MSGINTEG) | | GROUP3 DFHPCT TYPE=OPTGRP, * | | MSGPOPT=PROTECT | | DFHPCT TYPE=ENTRY, * | | TRANSID=TRNA, * | | PROGRAM=PROGRA, * | | DVSUPRT=NONV | | DFHPCT TYPE=ENTRY, * | | TRANSID=TRNB, * | | PROGRAM=PROGB, * | | PRMSIZE=1000, * | | OPTGRP=GROUP2, * | | DVSUPRT=VTAM | | DFHPCT TYPE=ENTRY, * |
| TRANSID=TRNC, * | | PROGRAM=PROGC, * | | OPTGRP=GROUP1 | | DFHPCT TYPE=ENTRY, * | | TRANSID=TRND, * | | PROGRAM=PROGD, * | | OPTGRP=GROUP3 | | DFHPCT TYPE=ENTRY,TASKREQ=PA3,PROGRAM=TTC33, * | | TWASIZE=550,SPURGE=YES, * | | TPURGE=YES,TRNPRTY=10,TRANSID=PA3 | | DFHPCT TYPE=ENTRY,TASKREQ=OPID, * | | PROGRAM=BADGE,TRNPRTY=5, * | | SPURGE=YES | | DFHPCT TYPE=ENTRY,TASKREQ=PF20, * | | PROGRAM=TTC8A,TWASIZE=550, * | | TRNPRTY=10,SPURGE=YES, * | | TPURGE=YES,TRANSID=F20 | | DFHPCT TYPE=GROUP, * | | FN=SIGNON | | DFHPCT TYPE=GROUP, * | | FN=OPERATORS | | DFHPCT TYPE=GROUP, * | | FN=EDF | | DFHPCT TYPE=GROUP, * | | FN=(RESPLOG,VTAM) | | DFHPCT TYPE=GROUP, * | | FN=STANDARD | | DFHPCT TYPE=FINAL | | END | | | | | |________________________________________________________________________| ________________________________________________________________________ | | | | | | | * THIS DEMONSTRATES A DFHPCT WITH REMOTE ENTRIES, | | * AS NEEDED TO SUPPORT TERMINAL SHARING. | | DFHPCT TYPE=INITIAL,SCRNSZE=ALTERNATE,SUFFIX=03 | | * | | DFHPCT TYPE=GROUP,FN=ISC | | * EVERYTHING TO OPERATE THE LINK. | | DFHPCT TYPE=REMOTE,TRANSID=FAR,RMTNAME=AWAY, * | | SYSIDNT=Y | | DFHPCT TYPE=REMOTE,TRANSID=THIS,SYSIDNT=ZULU, * | | FDUMP=ASRA | | DFHPCT TYPE=REMOTE,TRANSID=TTHR,SYSIDNT=ZULU | | DFHPCT TYPE=REMOTE,TRANSID=AWA,SYSIDNT=ZULU | | DFHPCT TYPE=ENTRY,TASKREQ=PF1,PROGRAM=BADGE, | | TRNPRTY=5, * | | TRANSID=FN1, * | | SPURGE=YES,FDUMP=ASRA | | DFHPCT TYPE=REMOTE,TASKREQ=OPID, * | | RMTNAME=DIPO,SYSIDNT=ZULU | | DFHPCT TYPE=GROUP,FN=SIGNON | | DFHPCT TYPE=GROUP,FN=STANDARD | | DFHPCT TYPE=FINAL | | END | | | | | | | |________________________________________________________________________|
________________________________________________________________________ | | | | | | | DFHPCT TYPE=INITIAL,SUFFIX=04,FDUMP=ASRA | | * | | DFHPCT TYPE=REMOTE,TRANSID=MR0A, * | | SYSIDNT=AWAY,SPURGE=YES | | DFHPCT TYPE=ENTRY,PROGRAM=TMR0W, * | | TRANSID=MR03,TRANSEC=2 | | * | | * MASTER TERMINAL CAN BE USED FOR REMOTE SYSTEMS FROM THIS ONE: | | * | | DFHPCT TYPE=REMOTE,TRANSID=2SMT, * | | RMTNAME=CSMT,SYSIDNT=AWAY | | DFHPCT TYPE=REMOTE,TRANSID=2EMT, * | | RMTNAME=CEMT,SYSIDNT=AWAY | | * | | DFHPCT TYPE=REMOTE,TRANSID=MR10, * | | SYSIDNT=AWAY, * | | RTIMOUT=015,DTIMOUT=010 SHORT TIME-OUTS | | * | | * CREATE ENTRIES FOR PA AND PF KEYS SO THAT BMS SKR CAN BE USED | | * | | DFHPCT TYPE=ENTRY,TASKREQ=PA1, * | | PROGRAM=DFHTPR,TWASIZE=800 | | DFHPCT TYPE=ENTRY,TASKREQ=PF2, * | | PROGRAM=DFHTPR,TWASIZE=800 | | * | | DFHPCT TYPE=REMOTE,TWASIZE=40, * | | TRANSID=AMNU,SYSIDNT=AWAY | | DFHPCT TYPE=GROUP,FN=(BMS,STANDARD) | | DFHPCT TYPE=FINAL | | END | | | |________________________________________________________________________|
3.9.•
PLT
DFHPLT
TYPE=INITIAL TYPE=ENTRY TYPE=FINAL
___________________________________________________ _______ NOTAS: Program List Table (PLT).-Tabla de Lista de Programas.-Contiene una lista de los programas
relacionados. Se pueden generar una o varias PLT de acuerdo a necesidades. Usted define la PLT con las siguientes macros: •
DFHPLT TYPE=INITIAL .-Inicio de la PLT. Ejemplo: ________________________________________________________________________ | | | label DFHPLT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________|
•
DFHPLT TYPE=ENTRY .-Lista de programas. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHPLT TYPE=ENTRY | | ,PROGRAM=(program[,...]) | | | | | | | |________________________________________________________________________|
•
DFHPLT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHPLT TYPE=FINAL | | | |________________________________________________________________________|
Se muestra ejemplo de codificacion de una tabla PLT:
________________________________________________________________________ | | | | | * | | * LIST OF PROGRAMS TO BE EXECUTED SEQUENTIALLY DURING SYSTEM | | * INITIALIZATION. | | * REQUIRED SYSTEM INITIALIZATION PARAMETER: PLTPI=I1 | | * | | DFHPLT TYPE=INITIAL, (DFHPLTI1 SHOULD ALSO BE DEFINED| | SUFFIX=I1 BY RDO) | | * | | * The following programs are run in the first pass of PLTPI | | * | | DFHPLT TYPE=ENTRY,PROGRAM=TRAQA EXECUTED DURING 2ND INIT. PHASE | | DFHPLT TYPE=ENTRY,PROGRAM=TRAQB (PROGRAMS SHOULD ALSO BE DEFINED| | DFHPLT TYPE=ENTRY,PROGRAM=TRAQC BY RDO) | | * | | DFHPLT TYPE=ENTRY,PROGRAM=DFHDELIM | | * | | * | | * The following programs are run in the second pass of PLTPI | | * | | DFHPLT TYPE=ENTRY,PROGRAM=TRASA EXECUTED DURING 3RD INIT. PHASE | | DFHPLT TYPE=ENTRY,PROGRAM=TRASB (PROGRAMS MUST ALSO BE DEFINED | | DFHPLT TYPE=ENTRY,PROGRAM=TRASC BY RDO) | | DFHPLT TYPE=FINAL | | * | | END | | | | | |________________________________________________________________________|
3.10.•
PPT
DFHPPT
TYPE=INITIAL TYPE=ENTRY TYPE=GROUP TYPE=FINAL
___________________________________________________ _______ NOTAS: Processing Program Table (PPT).- Tabla de Programas en Proceso.- Se definen los
programas y los Mapset. Esta tabla es usada por CICS para guardar la identificacion de los programas y los mapset, numero de tareas usando este programa, su direccionamiento y estadisticas del programa en proceso. Usted define la PPT con las siguientes macros: •
DFHPPT TYPE=INITIAL .- Establece la sesion de control. Ejemplo: ________________________________________________________________________ | | | label DFHPPT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________|
•
DFHPPT TYPE=ENTRY .- Describe el proceso especifico de un programa o mapa
para los servicios de CICS. Ejemplo: ______ _______ ______________________________________ | |DFHPPT | TYPE=ENTRY | | | | {,PROGRAM=name|,MAPSET=name| | | | | ,PARTSET=name} | | | | [,PGMLANG={ASSEMBLER|COBOL|PL/I}] | | | | [,PGMSTAT={ENABLED|DISABLED}] | | | | [,RELOAD={NO|YES}] | | | | [,RES={NO|ALIGN|FIX|PGOUT|YES}] | | | | [,RSL={0|number|PUBLIC}] | | | | [,USAGE=MAP] | |______|_______|______________________________________| •
DFHPPT TYPE=GROUP .- Especifica el nombre de los programas aplicativos.
Ejemplo: ______ _______ ______________________________________ | |DFHPPT | TYPE=GROUP | | | | ,FN=(function [,...],...) | |______|_______|______________________________________| •
DFHPPT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHPPT TYPE=FINAL |
| | |________________________________________________________________________|
Se muestra un ejemplo de codificacion de una tabla PPT con 4 programas COBOL ANS y 4 en Ensamblador de los cuales uno es residente: ________________________________________________________________________ | | | | | DFHPPT TYPE=INITIAL | | DFHPPT TYPE=ENTRY, * | | PROGRAM=COBPGM1, * | | PGMLANG=COBOL | | DFHPPT TYPE=ENTRY, * | | PROGRAM=COBPGM2, * | | PGMLANG=COBOL | | DFHPPT TYPE=ENTRY, * | | PROGRAM=COBPGM3, * | | PGMLANG=COBOL, * | | RELOAD=YES | | DFHPPT TYPE=ENTRY, * | | PROGRAM=COBPGM4, * | | PGMLANG=COBOL | | DFHPPT TYPE=ENTRY, * | | PROGRAM=DFHACP | | DFHPPT TYPE=GROUP, * | | FN=TIME | | DFHPPT TYPE=ENTRY, * | | PROGRAM=DFHMTPA, * | | RES=YES | | DFHPPT TYPE=GROUP, * | | FN=SIGNON | | DFHPPT TYPE=ENTRY, * | | PROGRAM=DFHZNAC | | DFHPPT TYPE=ENTRY, * | | PROGRAM=DFHZRLG | | DFHPPT TYPE=GROUP, * | | FN=STANDARD | | DFHPPT TYPE=FINAL | | END | | | | | |________________________________________________________________________| NOTA II.-
Los MAPSET se manejan de igual forma que los programas en Ensamblador.
3.11.•
DFHRST
RST TYPE=INITIAL TYPE=RSE TYPE=SUBSYS TYPE=FINAL
___________________________________________________ _______ NOTAS: Recoverable Service Table (RST).- Tabla Servicios Recuperables.- Es usada para soportar
CICS DBCTL XRF. Contiene una descripcion de la configuracion de la DBCTL. Las siguientes macros deben ser especificadas para definir una RST: DFHRST TYPE=INITIAL .- Establece la sesion de control. Ejemplo: •
________________________________________________________________________ | | | label DFHRST TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________| •
DFHRST TYPE=RSE .-Especifica el arranque de un elemento recuperable de servicio
(Recoperable Service Element = RSE). Un RSE consiste de un conjunto de identificadores, no vacio, de equivalencia de subsistemas DBCTL. Ejemplo: ________________________________________________________________ | | | | | |DFHRST | TYPE=RSE | | | | [,CTLAPPLS=(applid1,applid2,....)] | | | | | |______|_______|_________________________________________________| •
DFHRST TYPE=SUBSYS .-Especifica uno de los subsistemas de DBCTL en un RSE.
Ejemplo: ________________________________________________________________ | | | | | |DFHRST | TYPE=SUBSYS | | | | ,SUBSYSID=subsystem-identifier | | | | [,JOBNAME=(jobname1,jobname2,....)] | | | | | |______|_______|_________________________________________________| •
DFHRST TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHRST TYPE=FINAL | | | |________________________________________________________________________|
Se muestra un ejemplo de codificacion de una tabla RST:
________________________________________________________________________ | | | | | DFHRST TYPE=INITIAL, | | SUFFIX=K1 | | DFHRST TYPE=RSE | | ,CTLAPPLS=(applid1,applid2,applid3) | | DFHRST TYPE=SUBSYS | | ,SUBSYSID=CTL1 | | ,JOBNAME=(job1,job2,job3,job4) | | DFHRST TYPE=SUBSYS | | ,SUBSYSID=CTL2 | | ,JOBNAME=(job5,job6,job7,job8) | | DFHRST TYPE=FINAL | | END | | | | | |________________________________________________________________________|
3.12.•
DFHSIT
SIT TYPE={CSECT|DSECT}
___________________________________________________ _______ NOTAS: System Initialization Table (SIT).- Tabla de Inicializacion del Sistema.- Da flexibilidad al
tiempo de inicializacion del CICS. Durante el proceso de inicializacion se tiene una gama de posibilidades de cambiar los parametros que fueron definidos en forma dinamica. Se puede generar mas de una tabla de SIT. La informacion que contiene una SIT se puede agrupar en: -Informacion usada para las funciones de inicializacion y de control del sistema. Ejemplo:Tamaño de almacenaje. -Los sufijos usados en modulos para generar una version especifica de un usuario. Ejemplo: DFHTCTxx. -Informacion especial usada para el proceso de control de la inicializacion. Sintaxis de la macro SIT:
| | | | |
______ _______ ______________________________________ | |DFHSIT | TYPE={CSECT|DSECT} | | | | [,ABDUMP={YES|NO}] | | | | [,ADI={30|decimal_value}] | | | | [,AKPFREQ={200|decimal_value}] | | | | [,ALEXIT=progname] | | | | [,ALT={NO|xx|YES}] | | | | [,AMXT={MXT_value|decimal_value}] | | | | [,APPLID=({DBDCCICS|name1}[,name2])] | | | | [,ASZCON=16|32|64|128|256] | | | | [,ASZRPL=16|32|64|128|256] | | | | [,ASZSHR=16|32|64|128|256] | | | | [,ASZTP=16|32|64|128|256] | | | | [,ASZTSK=16|32|64|128|256] | | | | [,AUTCONN={0|hhmmss}] | | | | [,AUTINST=({100|number}, | | | | {DFHZATDX|name}, | | | | {700|hhmmss}, | | | | {0|hhmmss})] | | | | [,AUXTR={OFF|ON}] | | | | [,BFP={YES|NO}] | | | | [,BMS=({MINIMUM|STANDARD|FULL}[,COLD]| | | | [,{UNALIGN|ALIGN}] | | | | [,{DDS|NODDS}])] | | | | [,CICSSVC={216|number}] | | | | [,CLSDSTP={NOTIFY|NONOTIFY}] | | | | (continued...) | |______|_______|______________________________________| ______ _______ ______________________________________ | |DFHSIT | (continued) | | | | [,CLT=xx] | | | | [,CMXT=([V1][,V2]....[,V10])] | | | | [,COBOL2={NO|YES}] | | | | [,DATFORM={MMDDYY|DDMMYY|YYMMDD}] | | | | [,DBP={NO|xx|YES}] | | | | [,DBUFSZ={500|nnnnn}] | | | | [,DCT=([{YES|xx|NO}][,COLD])] | | | | [,DDIR={YES|xx}] | | | | [,DIP={NO|YES}] | | | | [,DLDBRC={YES|NO}] |
# #
| | | [,{DLI|DL1}=({NO|YES}[,COLD])] | | | | [,DLIOLIM={100|decimal_value}] | | | | [,DLIRLM={YES|name|NO}] | | | | [,DLLPA={NO|YES}] | | | | [,DLMON={NO|YES}] | | | | [,DLTHRED={1|decimal_number}] | | | | [,DLXCPVR={NO|YES}] | | | | [,DMBPL={4|number}] | | | | [,DTB={MAIN|AUX}] | | | | [,DUMP={NO|({FORMAT|PARTN|FULL}, | | | | {SNAP|SDUMP})} | | | | [,DUMPDS={A|B|AUTO}] | | | | [,ENQPL={2|number}] | | | | [,EXEC={YES|NO}] | | | | [,EXITS={NO|YES}] | | | | [,EXTSEC=({NO|YES|VALIDATE} | | | | [,{NOPREFIX|PREFIX}])] | | | | [,FCT=([{YES|xx|NO}][,COLD])] | | | | [,FLDSEP='xxxx'] | | | | [,FLDSTRT='x'] | | | | [,GMTEXT={WELCOME TO CICS/VS|'text'}]| | | | [,GMTRAN={CSGM|name}] | | | | [,GRPLIST=name] | | | | [,ICP=COLD] | | | | [,ICV={1000|decimal_value}] | | | | [,ICVR={5000|decimal_value}] | | | | [,ICVS={20000|decimal_value}] | | | | [,ICVTSD={500|decimal_value}] | | | | [,IOCP={0|number}] | | | | [,IRCSTRT={NO|YES}] | | | | [,ISC={NO|YES}] | | | | [,JCT={YES|xx|NO}] | | | | [,JESDI={30|decimal_value}] | | | | [,LGNMSG={NO|YES}] | | | | [,LPA={NO|YES}] | | | | [,MAXSMIR={999|number}] | | | | [,MCT={NO|YES|xx}] | | | | [,MONITOR=([ACC][,PER][,EXC][,EVE])] | | | | [,MROBTCH={1|number}] | | | | [,MROLRM={NO|YES}] | | | | [,MSGLVL={1|0}] | | | | [,MXT={5|decimal_value}] | | | | (continued...) | |______|_______|______________________________________| ______ _______ ______________________________________ | |DFHSIT | (continued) | | | | [,NLT={NO|xx|YES}] | | | | [,OPNDLIM={10|number}] | | | | [,OSCOR={8192|decimal_value}] | | | | [,PCDUMP={YES|NO}] | | | | [,PCT={YES|xx|NO}] | | | | [,PDI={30|decimal_value}] | | | | [,PDIR={YES|xx}] | | | | [,PGCHAIN=character(s)] | | | | [,PGCOPY=character(s)] | | | | [,PGPURGE=character(s)] | | | | [,PGRET=character(s)] | | | | [,PGSIZE={2048|4096}] | | | | [,PISCHD={NO|YES}] | | | | [,{PL1|PLI}={NO|YES}] | | | | [,PLISHRE={NO|YES}] | | | | [,PLTPI={NO|xx|YES}] |
|
|
# #
| | | [,PLTSD={NO|xx|YES}] | | | | [,PPT={YES|xx|NO}] | | | | [,PRGDLAY={0|hhmm}] | | | | [,PRINT={NO|YES|PA1|PA2|PA3}] | | | | [,PSBCHK={NO|YES}] | | | | [,PSBPL={4|number}] | | | | [,RAMAX={256|value}] | | | | [,RAPOOL={2|value}] | | | | [,RMTRAN={gmtran|name}] | | | | [,SCS={16384|decimal_value}] | | | | [,SIMODS={(A1,B1,C1,D1,E1,F1,G1,H1, | | | | I1,J1)|(phase,...)}] | | | | [,SKRxxxx='page_retrieval_command'] | | | | [,SPOOL={NO|YES}] | | | | [,SRBSVC={215|number}] | | | | [,SRT={YES|xx|NO}] | | | | [,START={AUTO|COLD|STANDBY}] | | | | [,STARTER=YES] | | | | [,SUFFIX=xx] (*)| | | | [,SVD={0|nn|YES|NO}] | | | | [,SYSIDNT={CICS|name}] | | | | [,TAKEOVR={MANUAL|AUTO|COMMAND}] | | | | [,TBEXITS=([name1][,name2][,name3] | | | | [,name4])] | | | | [,TCAM={NO|YES}] | | | | [,TCSACTN={UNBIND|NONE}] | | | [,TCSWAIT={4|number|NO|NONE|0}] | | | [,TCP={YES|xx|NO}] | | | | [,TCT={YES|xx|NO}] | | | | [,TD=({3|decimal_value_1} | | | | [,{3|decimal_value_2}])] | | | | [,TRACE=([{125|number}] | | | | [,{ON|OFF}])] | | | | [,TRAP={OFF|ON}] | | | | [,TS=([COLD] | | | | [,{0|3|decimal_value_1}] | | | | [,{3|decimal_value_2}])] | | | | [,TSMGSET={4|number}] | | | | [,TST={NO|YES|xx}] | | | | [,VSP={NO|YES}] | | | | [,VTAM={YES|NO}] | | | | [,WRKAREA={512|number}] | | | | (continued...) | |______|_______|______________________________________|
| |
______ _______ ______________________________________ | |DFHSIT | (continued) | | | | [,XDCT={YES|name|NO}] | | | | [,XFCT={YES|name|NO}] | | | | [,XJCT={YES|name|NO}] | | | | [,XLT={NO|xx|YES}] | | | | [,XPCT={YES|name|NO}] | | | | [,XPPT={YES|name|NO}] | | | | [,XPSB={YES|name|NO}] | | | | [,XRF={NO|YES}] | | | | [,XTRAN={YES|name|NO}] | | | | [,XTST={YES|name|NO}] | | | | [,ZCP=({YES|xx}[,{NOHPO|HPO}])] | |______|_______|______________________________________|
Se muestran dos ejemplos de codificacion de una tabla SIT una con sistema alterno y el otro sin el:
Sistema alterno
| | | | | | |
________________________________________________________________________ | | | | | DFHSIT TYPE=CSECT, | | ADI=30, DELAY INTERVAL FOR ALTERNATE SYSTEM | | AKPFREQ=200, ACTIVITY KEYPOINTING NEEDED | | ALT=NO, NO APPLICATION LOAD TABLE | | AMXT=10, MAXIMUM ACTIVE TASKS | | APPLID=(CICS1,CICS1A), GENERIC AND SPECIFIC APPLIDS | | AUTCONN=0, DELAY BEFORE RECONNECTION | | AUTINST=(100,DFHZATDX,700), AUTOINSTALL MAX/USERPGM/DELAY | | AUXTR=OFF, AUXILIARY TRACE OFF | | ASZCON=16, CONTROL SUBPOOL GETMAIN STORAGE | | MULTIPLE | | ASZRPL=16, RPL SUBPOOL GETMAIN STORAGE MULTIPLE | | ASZSHR=16, SHARED SUBPOOL GETMAIN STORAGE MULTIPLE| | ASZTP=16, TELEPROCESSING SUBPOOL GETMAIN STORAGE | | MULTIPLE | | ASZTSK=16, TASK SUBPOOL GETMAIN STORAGE MULTIPLE | | BFP=YES, BUILT IN FUNCTIONS | | BMS=(FULL,COLD,UNALIGN,DDS), FULL BASIC MAPPING SUPPORT | | CMXT=(4,4,4,4,4,4,4,4,4,4), 4 TASKS PER TRANSACTION CLASS | | CLT=1$, COMMAND LIST TABLE | | DATFORM=MMDDYY, EXTERNAL DATE DISPLAY | | DBP=1$, DYNAMIC BACKOUT PROGRAM | | DBUFSZ=500, BUFFER SIZE FOR DYN BACKOUT | | DCT=2$, TD AND OTHER DESTINATIONS | | DIP=NO, NO BATCH DATA INTERCHANGE | | DLI=NO, NO DL/I SUPPORT | | DUMP=FORMAT, ABEND/SNAP DUMP TYPE | | DUMPDS=AUTO, AUTO CHOOSE DUMP DATASET | | EXEC=YES, EXEC LEVEL SUPPORT | | EXITS=NO, NO USER EXIT INTERFACE | | EXTSEC=NO, NO RACF SUPPORT | | FCT=2$, SAMPLE VSAM FILE FILEA | | GMTRAN=CSGM, VTAM LOGON TRANSACTION | | GRPLIST=DFHLIST2, IBM-SUPPLIED LIST WITH AUTINSTMODELS | | ICV=1000, INTERVAL CONTROL EXIT TIME-MS | | ICVR=2000, RUNAWAY TASK TIME | | ICVS=20000, DELAY BEFORE STALL PURGE | | ICVTSD=100, TERMINAL SCAN DELAY | | IOCP=0, TASK CNTRL WAITS FOR 1 DASD I/O | | ISC=NO, NO INTERSYSTEM COMMUNICATION | | JCT=7$, DUAL EXTENT JOURNALLING | | JESDI=30, CEC FAILURE TIME DELAY | | LPA=NO, NO CICS MANAGM MODULES FROM LPA | | MCT=2$, MONITORING REQUIRED | | MSGLVL=1, PRINT START-UP MESSAGES | | MXT=20, MAX NO. OF ALL CONCURRENT TASKS | | NLT=NO, DEFAULT LOAD ORDER FOR NUCLEUS | | OSCOR=160000, LEAVE 160K FOR OS | | PCT=NO, NO PCT - USING GRPLIST INSTEAD | | PDI=30, DELAY INTERVAL FOR ACTIVE SYSTEM | | PGCHAIN=X/, BMS COMMAND - PAGE CHAINING | | PGCOPY=C/, - PAGE COPY | | PGPURGE=T/, - PAGE PURGE | | PGRET=P/, - PAGE RETRIEVAL | | PGSIZE=4096, PAGE SIZE IN VIRT PAGING AREA | | PLI=NO, NO PL/I PGMS TO BE USED | | PLISHRE=NO, NO PL/I SHARED LIBRARY SUPPORT | | PPT=NO, NO PPT - USING GRPLIST INSTEAD | | PRGDLAY=0, NO TERMINAL PAGE CLEAN UP |
| PRINT=PA1, REQUEST KEY FOR 3270 PRINTOUT | | RMTRAN=CSGM, XRF RECOVERY TRANSACTION | | SCS=16384, STORAGE CUSHION-MIN OF 4 PAGES | | SRT=1$, SYSTEM RECOVERY TABLE | | START=COLD, COLD START | | STARTER=YES, ALLOWS $ IN SUFFIX | | SUFFIX=7$, STARTER SUFFIX | | SVD=YES, STORAGE VIOLATION DUMP&RECOVERY | | TAKEOVR=MANUAL, CONFIRMATION OF TAKEOVER REQUD | | TCP=S$, TERMINAL CONTROL PROGRAM | | TCT=5$, VTAM AND BTAM TERMINALS | | TD=(3,3), TRANSIENT DATA, 3 BUFS, 3 STRGS | | TRACE=500, TRACE ON, 500 TABLE ENTRIES | | TS=(,3,3), FULL TS (3 BUFFERS, 3 STRINGS) | | TSMGSET=4, 4 MESSAGE SET ENTRIES | | TST=NO, NO TEMP STORAGE TABLE INCLUDED | | VTAM=YES, INITIALIZE FOR VTAM | | WRKAREA=512, COMMON WORK AREA OF THE CSA | | XLT=NO, NO TRANS LIST TABLE | | XRF=YES, LOAD XRF MODULES | | ZCP=S$, ALL ACCESS METHODS | | DUMMY=DUMMY TO END MACRO | | END DFHSITBA | | | | | | | | | |________________________________________________________________________|
Sin sistema alterno:
| | | | | | |
________________________________________________________________________ | | | | | DFHSIT TYPE=CSECT, | | AKPFREQ=0, NO ACTIVITY KEYPOINTING | | ALT=NO, NO APPLICATION LOAD TABLE | | AMXT=10, MAX ACTIVE TASKS | | APPLID=DBDCCICS, APPLICATION NAME OF CICS SYSTEM | | AUTINST=(100,DFHZATDX,700), AUTOINSTALL MAX/USERPGM/DELAY | | AUXTR=OFF, AUXILIARY TRACE OFF | | ASZCON=16, CONTROL SUBPOOL GETMAIN STORAGE | | MULTIPLE | | ASZRPL=16, RPL SUBPOOL GETMAIN STORAGE MULTIPLE | | ASZSHR=16, SHARED SUBPOOL GETMAIN STORAGE MULTIPLE| | ASZTP=16, TELEPROCESSING SUBPOOL GETMAIN STORAGE | | MULTIPLE | | ASZTSK=16, TASK SUBPOOL GETMAIN STORAGE MULTIPLE | | BFP=YES, BUILT IN FUNCTIONS | | BMS=(FULL,COLD,UNALIGN,DDS), FULL BASIC MAPPING SUPPORT | | CMXT=(4,4,4,4,4,4,4,4,4,4), 4 TASKS PER TRANSAC. CLASS | | DATFORM=MMDDYY, EXTERNAL DATE DISPLAY | | DBP=1$, DYNAMIC BACKOUT PROGRAM | | DBUFSZ=500, BUFFER SIZE FOR DYN BACKOUT | | DCT=2$, TD AND OTHER DESTINATIONS | | DIP=NO, NO BATCH DATA INTERCHANGE | | DLI=NO, NO DL/I SUPPORT | | DUMP=FORMAT, ABEND/SNAP DUMP TYPE | | DUMPDS=AUTO, AUTO CHOOSE DUMP DATASET | | EXEC=YES, EXEC LEVEL SUPPORT | | EXITS=NO, NO USER EXIT INTERFACE | | EXTSEC=NO, NO RACF SUPPORT | | FCT=2$, SAMPLE VSAM FILE FILEA | | GRPLIST=DFHLIST2, IBM SUPPLIED GROUP LIST |
| ICV=1000, INTERVAL CONTROL EXIT TIME-MS | | ICVR=2000, RUNAWAY TASK TIME | | ICVS=20000, DELAY BEFORE STALL PURGE | | ICVTSD=100, TERMINAL SCAN DELAY | | IOCP=0, TASK CNTRL WAITS FOR 1 DASD I/O | | ISC=NO, NO INTERSYSTEM COMMUNICATION | | JCT=NO, NO JOURNALLING | | LPA=NO, NO CICS MANAGM MODULES FROM LPA | | MCT=NO, NO MONITORING | | MSGLVL=1, PRINT START-UP MSGS | | MXT=20, MAX NO. OF ALL CONCURRENT TASKS | | NLT=NO, DEFAULT LOAD ORDER FOR NUCLEUS | | OSCOR=160000, LEAVE 160K FOR OS | | PCT=NO,PPT=NO, NO PCT OR PPT - USING GRPLIST INSTEAD | | PGCHAIN=X/, BMS COMMAND - PAGE CHAINING | | PGCOPY=C/, - PAGE COPY | | PGPURGE=T/, - PAGE PURGE | | PGRET=P/, - PAGE RETRIEVAL | | PGSIZE=4096, PAGE SIZE IN VIRT PAGING AREA | | PLI=NO, NO PL/I PGMS TO BE USED | | PLISHRE=NO, NO PL/I SHARED LIBRARY SUPPORT | | PRGDLAY=0, NO TERMINAL PAGE CLEAN UP | | PRINT=PA1, REQUEST KEY FOR 3270 PRINTOUT | | SCS=16384, STORAGE CUSHION-MIN OF 4 PAGES | | SRT=1$, SYSTEM RECOVERY TABLE | | START=COLD, COLD START | | STARTER=YES, ALLOWS $ IN SUFFIX | | SUFFIX=6$, STARTER SUFFIX | | SVD=YES, STORAGE VIOLATION DUMP&RECOVERY | | TCP=S$, TERMINAL CONTROL PROGRAM | | TCT=5$, VTAM AND BTAM TERMINALS | | TD=(3,3), TRANSIENT DATA, 3 BUFS, 3 STRGS | | TRACE=500, TRACE ON, 500 TABLE ENTRIES | | TS=(,3,3), FULL TS (3 BUFFERS, 3 STRINGS) | | TSMGSET=4, 4 MESSAGE SET ENTRIES | | TST=NO, NO TEMP STORAGE TABLE INCLUDED | | VTAM=YES, INITIALIZE FOR VTAM | | WRKAREA=512, COMMON WORK AREA OF THE CSA | | XLT=NO, NO TRANS LIST TABLE | | ZCP=S$ ALL ACCESS METHODS | | END DFHSITBA | | | | | |________________________________________________________________________|
3.13.•
DFHSNT
SNT TYPE=INITIAL TYPE=ENTRY TYPE=(ENTRY,DEFAULT) TYPE=FINAL
___________________________________________________ _______ NOTAS:
SignoN Table (SNT).-Tabla para Firmarse.- Define algunos atributos de los operadores de
terminal, ejemplo: identificador del operador, valor de prioridad del operador al disparar una transaccion, etc., la SNT es necesario incluirla si el manejador de seguridad externa no incluye un soporte para los datos del operador de CICS. Las siguientes macros deben ser especificadas para definir una SNT: DFHSNT TYPE=INITIAL .- Establece la sesion de control. Ejemplo: •
________________________________________________________________________ | | | label DFHSNT TYPE=INITIAL | | | |________________________________________________________________________| •
DFHSNT TYPE=ENTRY .-Se describe cada terminal del operador. Ejemplo: _______________________________________________________________________ | | | | | |DFHSNT | TYPE=ENTRY | | | | [,NATLANG=national-language] | | | | [,OPCLASS={1|(n1[,n2],...)}] | | | | [,OPIDENT=operator-identification] | | | | [,OPPRTY={0|number}] | | | | [,TIMEOUT=number] | | | | [,USERID=userid] | | | | [,XRFSOFF={FORCE|NOFORCE}] | | | | | |______|_______|________________________________________________________|
•
DFHSNT TYPE=(ENTRY,DEFAULT) .- Provee los datos del Signon para el operador
de la terminal cuyas caracteristicas no se pudieron encontrar ni en el segmento de CICS de ESM ni en alguna otra tabla de SNT. Ejemplo: ________________________________________________________________ | | | | | |DFHSNT | TYPE=(ENTRY,DEFAULT) | | | | [,NATLANG=national-language] | | | | [,OPCLASS={1|(n1[,n2],....)}] | | | | [,OPIDENT=operator_identification] | | | | [,OPPRTY={0|number}] | | | | [,TIMEOUT=number] | | | | | |______|_______|_________________________________________________| •
DFHSNT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHSNT TYPE=FINAL | | | |________________________________________________________________________|
Se muestra un ejemplo de codificacion de una tabla SNT, los dos primeros ENTRY tienen nombres actuales, el tercero es una funcion. El segundo operador tiene una prioridad de cero: ________________________________________________________________________ | | | | | DFHSNT TYPE=INITIAL | | DFHSNT TYPE=ENTRY, * | | NATLANG=E, * | | OPIDENT=POS, * | | USERID=POSULL, * | | TIMEOUT=5, * | | OPPRTY=128 | | DFHSNT TYPE=ENTRY, * |
| OPIDENT=LSB, * | | USERID=IHHGVHB | | DFHSNT TYPE=ENTRY, * | | OPIDENT=MT1, * | | OPPRTY=255, * | | USERID=DSZESZB | | DFHSNT TYPE=(ENTRY,DEFAULT), * | | OPIDENT=DEF, * | | OPPRTY=0, * | | TIMEOUT=5 | | DFHSNT TYPE=FINAL | | END | | | | | |________________________________________________________________________|
3.14.•
DFHSRT
SRT TYPE=INITIAL TYPE=SYSTEM|USER TYPE=FINAL
___________________________________________________ _______ NOTAS: System Recovery Table (SRT).- Tabla de Recuperacion del Sistema.- Contiene una lista de
codigos de aborto que seran interceptados. Para generar una SRT se deben ejecutar las siguientes macros: DFHSRT TYPE=INITIAL .- Inicio de la SRT. Ejemplo: •
________________________________________________________________________
| | | label DFHSRT TYPE=INITIAL | | [,SUFFIX=xx] | | | |________________________________________________________________________| •
DFHSRT TYPE=SYSTEM|USER .-Especifica los codigos de aborto que seran
manejados. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHSRT TYPE=SYSTEM | | ,ABCODE=(abend-code,...) | | [,PROGRAM=program-name]|[,ROUTINE=name] | | | | | | | |________________________________________________________________________| •
DFHSRT TYPE=FINAL .- Ultimo comando antes del ensamble. Ejemplo: ________________________________________________________________________ | | | label DFHSRT TYPE=FINAL | | | |________________________________________________________________________|
Se muestra ejemplo de codificacion de una tabla SRT en donde se asume que hay una rutina que se llama RETURN que sera incluida en la tabla de recuperacion del sistema: ________________________________________________________________________ | | | | | DFHSRT TYPE=INITIAL, * | | SUFFIX=K1 | | DFHSRT TYPE=SYSTEM, * | | ABCODE=777, * | | ROUTINE=RETURN | | DFHSRT TYPE=USER, * | | ABCODE=(888,999), * | | ROUTINE=RETURN | | DFHSRT TYPE=USER, * | | ABCODE=020 | | DFHSRT TYPE=FINAL | | RETURN CSECT | | ... | | code | | ... | | END | | | | | |________________________________________________________________________|
3.15.•
DFHTCT
TCT TYPE=INITIAL TYPE=GROUP TYPE=TERMINAL TYPE=FINAL
___________________________________________________ _______ NOTAS: Terminal Control Table (TCT).-Tabla de Control de Terminales.- El CICS puede cominicarse con terminales, dispositivos secuenciales, unidades logicas y otros medios. En la TCT deben
estar las configuraciones de cada uno de estos. Una TCT puede ser definida de 3 formas: por macros, por RDO (Resource Definition Online) con CEDA tomando como base otra TCT y por instalacion automatica (autoinstall) CEMT SET AUTOINSTALL. Para definir una TCT por medio de macros es como sigue: DFHTCT TYPE=INITIAL .-Inicio de la TCT. Ejemplo: •
________________________________________________________________________ | | | label DFHTCT TYPE=INITIAL |
| [,ACCMETH=([VTAM,]NONVTAM] | | [[,ERRATT={NO|([LASTLINE] | | [,INTENSIFY] | | [,{BLUE|RED|PINK|GREEN | | |TURQUOISE|YELLOW|NEUTRAL}] | | [,{BLINK|REVERSE|UNDERLINE}])}] | | [,MIGRATE={YES|COMPLETE} | | [,SUFFIX=xx] | |________________________________________________________________________| •
DFHTCT TYPE=GROUP .-Nombre del grupo en donde la TCT sera alojada. Ejemplo: ________________________________________________________________________ | | | | | | | label DFHTCT TYPE=GROUP | | [,GROUP=name] | | | | | | | |________________________________________________________________________|
•
DFHTCT TYPE=TERMINAL .-Define la terminal y sus caracteristicas. Ejemplo: ______ _______ ______________________________________ |label |DFHTCT | TYPE=TERMINAL | | | | ,ACCMETH=VTAM | | | | ,TRMIDNT=name | | | | ,TRMTYPE=type | | | | [,ALTPGE=(lines,columns)] | | | | [,ALTPRT=(label[,COPY])] | | | | [,ALTSCRN=(lines,columns)] | | | | [,ALTSFX=number] | | | | [,BMSFEAT=([NOROUTE][,NOROUTEALL] | | | | [,OBOPID][,OBFMT])] | | | | [,BRACKET={YES|NO}] | | | | [,BUFFER=buffer_size] | | | | [,CHNASSY={NO|YES}] | | | | [,CONNECT=AUTO] | | | | [,DEFSCRN=(lines,columns)] | | | | [,ERRATT={NO|([LASTLINE][,INTENSIFY] | | | | [,{BLUE|RED|PINK|GREEN|TURQUOISE|| | | | YELLOW|NEUTRAL}] | | | | [,{BLINK|REVERSE|UNDERLINE}])}] | | | | [,FEATURE=(feature[,feature],...)] | | | | [,FF={NO|YES}] | | | | [,GMMSG={NO|YES}] | | | | [,HF={NO|YES}] | | | | [,LOGMODE=name] | | | | [,NETNAME={name_specified_in_TRMIDNT|| | | | name}] | | | | [,OPERID=operator_identification_ | | | | code] | | | | [,OPERPRI=operator_priority_code] | | | | [,OPERRSL=(number[,...])] | | | | [,OPERSEC={1|(number[,...])}] | | | | [,PGESIZE=(lines,columns)] | | | | [,PGESTAT={AUTOPAGE|PAGE}] | | | | [,PRINTTO=(label[,COPY])] | | | | [,RELREQ=({NO|YES},{NO|YES})] | | | | [,RNOTIFY={NONE|MESSAGE|TRANSACTION}]| | | | [,ROPTION={SYSDEFAULT|NONE | | | | |CLEARCONV|RELEASESESS| | | | | UNCONDREL}] | | | | [,RUSIZE={256|value}] |
| | | [,SIGNOFF={YES|NO|LOGOFF}] | | | | [,TCTUAL=number] | | | | [,TIOAL={value|(value1,value2)}] | | | | [,TRANSID=transaction_identification | | | | _code] | | | | [,TRMMODL=number] | | | | [,TRMPRTY={0|number}] | | | | [,TRMSTAT={TRANSACTION| | | | | (status[,status],...)}] | | | | [,USERID=userid | | | | [,VF={NO|YES}] | |______|_______|______________________________________|
En la siguiente tabla se muestran los operandos de la TCT y si estos son opcionales o necesarios para cada tipo de terminal: ________________________________________________________________________ | Table 9. Configurator for VTAM 3270 terminals | |_________ __________ _________ __________ _________ __________ _________| | TRMTYPE | 3275 | 3270 | 3270P | LUTYPE2 | LUTYPE3 | SCSPRT | |_________|__________|_________|__________|_________|__________|_________| | ACCMETH | Required | Required| Required | Required| Required | Required| |_________|__________|_________|__________|_________|__________|_________| | ALTPGE | | Optional| Optional | Optional| Optional | | |_________|__________|_________|__________|_________|__________|_________| | ALTPRT | | Optional| | Optional| | | |_________|__________|_________|__________|_________|__________|_________| | ALTSCRN | | Optional| Optional | Optional| Optional | | |_________|__________|_________|__________|_________|__________|_________| | ALTSFX | | Optional| Optional | Optional| Optional | | |_________|__________|_________|__________|_________|__________|_________| | BMSFEAT | Optional | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | BRACKET | | | | | | | |_________|__________|_________|__________|_________|__________|_________| | BUFFER | | | | Attn. | Attn. | Attn. | |_________|__________|_________|__________|_________|__________|_________| | CHNASSY | | | | | | | |_________|__________|_________|__________|_________|__________|_________| | CONNECT | Optional | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | DEFSCRN | | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | ERRATT | Optional | Optional| | Optional| | | |_________|__________|_________|__________|_________|__________|_________| | FEATURE | Optional | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | FF | Optional | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | GMMSG | Optional | Optional| Unlikely | Optional| Unlikely | Unlikely| |_________|__________|_________|__________|_________|__________|_________| | HF/VF | | | | | | Optional| |_________|__________|_________|__________|_________|__________|_________| | LOGMODE | Unlikely | Unlikely| Unlikely | Unlikely| Unlikely | Unlikely| |_________|__________|_________|__________|_________|__________|_________| | NETNAME | Attn. | Attn. | Attn. | Attn. | Attn. | Attn. | |_________|__________|_________|__________|_________|__________|_________| | OPERID | Optional | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | OPERPRI | Optional | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | OPERRSL | Optional | Optional| Optional | Optional| Optional | Optional| |_________|__________|_________|__________|_________|__________|_________| | OPERSEC | Optional | Optional| Optional | Optional| Optional | Optional|
COMANDOS DE CICS
| NETNAME=NETT90A, ... * | | | | MIUB DFHTCT TYPE=TERMINAL, * | | TRMIDNT=T90B, * | | TRMTYPE=LUTYPE2, * | | FEATURE=(SELCTPEN,AUDALARM, * | | UCTRAN,HILIGHT,PARTNS), * | | DEFSCRN=(24,80), * | | TIOAL=(2000,4000), * | | BUFFER=1536, * | | ACCMETH=VTAM, * | | NETNAME=NETT90B, ... * | | | | MIUC DFHTCT TYPE=TERMINAL, * | | TRMIDNT=T90C, * | | TRMTYPE=LUTYPE2, * | | FEATURE=(SELCTPEN,AUDALARM, * | | UCTRAN,HILIGHT,PARTNS), * | | DEFSCRN=(24,80), * | | TIOAL=(2000,4000), * | | BUFFER=1536, * | | ACCMETH=VTAM, * | | NETNAME=NETT90C, ... * | | | | MIUD DFHTCT TYPE=TERMINAL, * | | TRMIDNT=T90D, * | | TRMTYPE=LUTYPE2, * | | FEATURE=(SELCTPEN,AUDALARM, * | | UCTRAN,HILIGHT,PARTNS), * | | DEFSCRN=(24,80), * | | TIOAL=(2000,4000), * | | BUFFER=1536, * | | ACCMETH=VTAM, * | | NETNAME=NETT90D, ... * | | | | MIUE DFHTCT TYPE=TERMINAL, * | | TRMIDNT=T90E, * | | TRMTYPE=LUTYPE2, * | | FEATURE=(SELCTPEN,AUDALARM, * | | UCTRAN,HILIGHT,PARTNS), * | | DEFSCRN=(24,80), * | | TIOAL=(2000,8000), * | | ALTSCRN=(62,160), * | | ALTSFX=9, * | | BUFFER=1536, * | | ACCMETH=VTAM, * | | NETNAME=NETT90E, ... * | | . | | . | | . | | | | | |________________________________________________________________________| ________________________________________________________________________ | | | | | DFHTCT TYPE=INITIAL, * | | ACCMETH=VTAM, * | | RESP=FME, * | | SUFFIX=A1 | | DFHTCT TYPE=TERMINAL, * | | TRMTYPE=LUTYPE2, * |
________________________________________________________________________ | | | label DFHTLT TYPE=FINAL | | | |________________________________________________________________________|
Se muestra 2 ejemplos de codificacion de una tabla TLT: ________________________________________________________________________ | | | | | Example 1 | | | | DFHTLT TYPE=INITIAL, * | | SUFFIX=AA | | DFHTLT TYPE=ENTRY, * | | TRMIDNT=(NYC,CHI,LA,WDC) | | DFHTLT TYPE=ENTRY, * | | TRMIDNT=SF | | DFHTLT TYPE=ENTRY, * | | TRMIDNT=(BSTN/OP1,ATL/OP5,/OP9,DNVR) | | DFHTLT TYPE=ENTRY, * | | TRMIDNT=/OP6 | | DFHTLT TYPE=FINAL | | END | | | | Example 2 | | | | DFHTLT TYPE=INITIAL, * | | SUFFIX=XX | | DFHTLT TYPE=ENTRY, * | | TRMIDNT=(NYC,T361*LP,T362*LP/OP1) | | DFHTLT TYPE=ENTRY, * | | TRMIDNT=(T363/OP2,T364/OP5,T365) | | DFHTLT TYPE=FINAL | | END | | | | | |________________________________________________________________________|
3.17.•
DFHTST
TST TYPE=INITIAL TYPE=RECOVERY TYPE=LOCAL TYPE=REMOTE TYPE=SECURITY TYPE=FINAL
___________________________________________________ _______ NOTAS: Temporary Storage Table (TST).- Tabla de Almacenaje Temporal.- Los programas aplicativos
pueden almacenar su informacion en una memoria temporal (almacenamiento temporal) para que en caso de una terminacion anormal pueda verse. A esta memoria se le conoce como colas de memoria temporal y se puede crear de diferentes formas. Usted define la TST con las siguientes macros: DFHTST TYPE=INITIAL .- Inicio de la TST. Ejemplo: •
________________________________________________________________________ | | | label DFHTST TYPE=INITIAL | | [,TSAGE={0|number}] | | [,SUFFIX=xx] | | | |________________________________________________________________________| •
DFHTST TYPE=RECOVERY .- Para recuperar las colas de la memoria temporal. Ejemplo: ________________________________________________________________________ | | | label DFHTST TYPE=RECOVERY | | ,DATAID=(character-string | | [,character-string,...])|() | | | |________________________________________________________________________|
•
DFHTST TYPE=LOCAL .-Reside en la misma region de CICS. Ejemplo: ________________________________________________________________________ | | | label DFHTST TYPE=LOCAL |
COMANDOS DE CICS OBJETIVOS: PROPORCIONAR LOS CONOCIMIENTOS DE:
•
LA IMPORTANCIA DE LOS COMANDOS DE CICS.
•
FORMATO GENERAL DE UN COMANDO DE CICS.
•
•
COMANDOS NO PERMITODOS POR CUALQUIER C UALQUIER COMPILADOR
SINTAXIS.
2.•
FORMATO GENERAL DE UN COMANDO DE CICS.
EXEC CICS Command option(value) . . . END-EXEC
NOTAS: Este formato ya se vio en el curso basico, la importancia de tomarlo de nuevo es para explicar que si se quieren tener mas de un comando se deben usar espacios para separarlos, no comas. Se recomienda usar cada opcion en un renglon diferente para hacer mas sencilla su lectura, no es necesario un carácter especial de continuacion de una linea a otra. En cada comando escrito se puede poner la opcion RESP que proporciona la respuesta de cómo se ejecuto el comando. Su sintaxis es: [RESP(data-name)] En donde “data-name” debe estar definido en la Working-storage Section como un campo binario de palabra completa (PIC S9(08) COMP).
3.-
COMANDOS NO PERMITIDOS POR COMPILADOR ALGUNO EN CICS. ACCEPT DISPLAY OPEN CLOSE START SORT RELEASE EXHIBIT TRACE STOP RUN EXAMINE STRING UNSTRING
4.-
SINTAXIS.
4.1.-EXEC CICS RETURN [ TRANSID(name) ] [ COMMAREA(data-area)] [ LENGTH(data-value) ] END-EXEC
______________________________________________________________________ _______ NOTAS: RETURN.- Regresa el control al CICS. Si no hay opciones se da por terminado la sesion.
OPCIONES: -TRANSID.- Nombre de la transaccion a la cual cede el control CICS. De 1-4 caracteres. -COMMAREA.- Area de datos que contiene la informacion que es pasada de un programa a otro. -LENGTH.-Es un campo binario de media palabra (PIC S9(04) COMP). Indica la longitud de la COMMAREA o la cantidad de bytes de la COMMAREA que pasaran al siguiente programa. Es requerdio si se usa la opcion de COMMAREA.
4.2.-EXEC CICS XCTL
PROGRAM(name) [ COMMAREA(data-area)] [ LENGTH(data-value) ] END-EXEC
______________________________________________________________________ _______ NOTAS: XCTL.- Transfiere el control de un programa que esta corriendo a otro al mismo nivel, no
regresando, en forma automatica, el control al primero cuando este termina. PROGRAM.- Nombre del programa a ser llamado. De 1-8 caracteres.
4.3.-EXEC CICS LINK
PROGRAM(name) [ COMMAREA(data-area) [ LENGTH (data-value) ] END-EXEC
]
______________________________________________________________________ _______ NOTAS: LINK.- Llama a otro programa para su ejecucion y al finalizar regresa el control al programa
llamador. CICS trabaja en base a niveles. CICS esta en el nivel 0 y cuando este llama a un programa este lo ubica en el nivel 1, si este a su vez llama a otro programa este nuevo lo coloca CICS en el nivel 2 y asi sucesivamente. La gran diferencia entre usar XCTL y LINK es que ambos llaman a un segundo programa pero a diferente nivel.
4.4.1.-EXEC CICS ASSIGN [ COLOR(data-area) [ HILIGHT(data-area) [ SCRNHT(data-area) [ SCRNWD(data-area) END-EXEC
] ] ] ]
4.4.2.-EXEC CICS ASSIGN [ USERID(data-area) END-EXEC
]
______________________________________________________________________ _______ NOTAS: ASSIGN.- Obtiene los valores asignados a una variedad amplia de facilidades de CICS y que
se encuentran en un ambiente fuera del programa aplicativo. Puede trabajar los valores de mas de 80 caracteristicas diferentes. Estas son: ________________________________________________________________________ | | | | | |
| <___________________________ | >>__ASSIGN______________________________|__>< | |_ABCODE(data-area)_______| | |_ABDUMP(data-area)_______| | |_ABPROGRAM(data-area)____| | |_ALTSCRNHT(data-area)____| | |_ALTSCRNWD(data-area)____| | |_APLKYBD(data-area)______| | |_APLTEXT(data-area)______| | |_APPLID(data-area)_______| | |_ASRAINTRPT(data-area)___| | |_ASRAKEY(cvda)___________| | |_ASRAPSW(data-area)______| | |_ASRAREGS(data-area)_____| | |_ASRASTG(cvda)___________| | |_BTRANS(data-area)_______| | |_CMDSEC(data-area)_______| | |_COLOR(data-area)________| | |_CWALENG(data-area)______| | |_DEFSCRNHT(data-area)____| | |_DEFSCRNWD(data-area)____| | |_DELIMITER(data-area)____| | |_DESTCOUNT(data-area)____| | |_DESTID(data-area)_______| | |_DESTIDLENG(data-area)___| | |_DSSCS(data-area)________| | |_DS3270(data-area)_______| | |_EWASUPP(data-area)______| | |_EXTDS(data-area)________| | |_FACILITY(data-area)_____| | |_FCI(data-area)__________| | |_GCHARS(data-area)_______| | |_GCODES(data-area)_______| | |_GMMI(data-area)_________| | |_HILIGHT(data-area)______| | |_INITPARM(data-area)_____| | |_INITPARMLEN(data-area)__| | |_INPARTN(data-area)______| | |_INVOKINGPROG(data-area)_| | |_KATAKANA(data-area)_____| | |_LANGINUSE(data-area)____| | |_LDCMNEM(data-area)______| | |_LDCNUM(data-area)_______| | |_MAPCOLUMN(data-area)____| | |_MAPHEIGHT(data-area)____| | |_MAPLINE(data-area)______| | |_MAPWIDTH(data-area)_____| | |_MSRCONTROL(data-area)___| | |_NATLANGINUSE(data-area)_| | |_NETNAME(data-area)______| | |_NEXTTRANSID(data-area)__| | |_NUMTAB(data-area)_______| | |_OPCLASS(data-area)______| | |_OPERKEYS(data-area)_____| | |_OPID(data-area)_________| | |_OPSECURITY(data-area)___| | |_ORGABCODE(data-area)____| | |_OUTLINE(data-area)______| | |_PAGENUM(data-area)______| | |_PARTNPAGE(data-area)____| | |_PARTNS(data-area)_______| | |_PARTNSET(data-area)_____| | |_PRINSYSID(data-area)____|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
| |_PROGRAM(data-area)______| | | |_PS(data-area)___________| | | |_QNAME(data-area)________| | | |_RESSEC(data-area)_______| | | |_RESTART(data-area)______| | | |_RETURNPROG(data-area)___| | | |_SCRNHT(data-area)_______| | | |_SCRNWD(data-area)_______| | | |_SIGDATA(data-area)______| | | |_SOSI(data-area)_________| | | |_STARTCODE(data-area)____| | | |_STATIONID(data-area)____| | | |_SYSID(data-area)________| | | |_TASKPRIORITY(data-area)_| | | |_TCTUALENG(data-area)____| | | |_TELLERID(data-area)_____| | | |_TERMCODE(data-area)_____| | | |_TERMPRIORITY(data-area)_| | | |_TEXTKYBD(data-area)_____| | | |_TEXTPRINT(data-area)____| | | |_TRANPRIORITY(data-area)_| | | |_TWALENG(data-area)______| | | |_UNATTEND(data-area)_____| | | |_USERID(data-area)_______| | | |_USERNAME(data-area)_____| | | |_USERPRIORITY(data-area)_| | | |_VALIDATION(data-area)___| | | | | | | Condition: INVREQ | | | |________________________________________________________________________|
Se explican algunas de ellas: ABCODE.- Regresa 4 caracteres con el codigo del ABEND si este ocurre. En caso de que no ocurra el ABEND la variable es inicializada con blancos. ABDUMP.- Regresa un byte con un valor de “FF” que indica que un DUMP ha sido producido y que existe un codigo de ABEND. Si el valor es “00” ninguno de los anteriores se produjo. ABPROGRAM.- Regresa 8 caracteres con el nombre del programa que falló. APLKYBD.- Regresa un byte que indica si el teclado de la terminal tiene las caracteristicas de un teclado APL. “FF” indica yes, “00” indica no. Si la tarea no es iniciada desde una terminal entonces ocurre un INVREQ. COLOR.- Regresa un byte indicando si la terminal esta definida con color extendido (FF) o no (00). HILIGHT.- Regresa un byte que muestra si la terminal esta definida con brillantez extendida (FF) o no (00). SCRNHT.- Regresa una variable binaria de media palabra (PIC S9(04) COMP) que indica si la pantalla tiene las lineas de la pantalla 3270. SCRNWD.- Regresa una variable binaria de media palabra que indica si la pantalla tiene el ancho de la pantalla 3270. USERID.- Regresa la identificacion del usuario que se firmó en 8 bytes. USERNAME.- Regresa el nombre del usuario obtenido del manejador de seguridad externa. 20 caracteres.
4.5.1.-EXEC CICS SEND
TEXT FROM(data-area) [ LENGTH (data-value) [ ERASE ] [ FREEKB ]
]
END-EXEC
4.5.2.- EXEC CICS SEND
CONTROL [ ERASE [ FREEKB
] ]
END-EXEC
______________________________________________________________________ _______ NOTAS: SEND TEXT.- Se usa para mandar un mensaje a un aterminal sin necesidad de
crear un mapa. En el data-value va el nombre del campo de la working storage que contiene el mensaje. OPCIONES: -ERASE.- La pantalla sera borrada antes de desplegar el mensaje. Si no se pone el mensafe sera sobrepuesto a lo que contiene en la parte superior izquierda.
-FREEKB.- El teclado sera liberado despues de mandar el mensaje. De otra forma el usuario tendra que teclear RESET KEY para continuar. Ejemplo: EXEC CICS SEND TEXT FROM(TERMINO PROCESO) ERASE FREEKB END-EXEC SEND CONTROL.- Envia el dispositivo de control a una terminal.
Ejemplo: EXEC CICS SEND CONTROL ERASE FREEKB END-EXEC
