EDITRAN/G 5.1
Contents
1. n no est definida se crea autom ticamente cuando se llama al API desde las aplicaciones sin horario carga emisi n profundidad 1 y activa Llamar al API desde las aplicaciones indicando funci n grabar borrar la sesi n de presentaci n el nombre de fichero a cargar emitir y las caracter sticas del mismo formato lenguaje traducci n y compresi n Tambi n se puede llamar a API con un jcl EDitran guarda en una cola de almacenamiento fichero ZTBGFOF en CICS y BD ZTBGDOFD en IMS El perfil de las presentaciones con par metros de las mismas hora inicio hora fin si se quiere cargar cargar y emitir si se quiere tener actividad o se desea parar si se quiere emitir 1 nico fichero todos los disponibles un n mero determinado etc Cada uno de los ficheros que le indica el API desde las aplicaciones y el estado en que se encuentra pendiente de proceso pendiente en proceso emitiendo El esquema de funcionamiento es el siguiente Existe un gestor que se arranca cada xx minutos seg n par metro entorno local editran p que verifica si existen ficheros pendientes de carga env o Si es as y la sesi n est en estado compatible y cumple los l mites horarios y tiene actividad y en la sesi n de presentaci n tiene tipo carga 0 se lanza un previo a emisi n el indicado en la sesi n de presentaci n con las fichas JCL de la primera transmisi n de la presentaci n en CICS y en la propia ses2. GBA0O1 TO INTERV MAX GBAO1 TO REA ENTRADA GBAO1 CALL ZTBGBA01 USING REA GBAO1 IF RESULTADO GBA01 ZEROS OR 07 IF ESTADO PRESENTACION GBA01 005 DISPLAY FINALIZADO AQUI SE PODRIAN REALIZAR LAS ACCIONES DESEADAS ELSE EDITRAN INDRA Todos los derechos reservados P g 3 3 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 3 CONSULTA DEL ESTADO DE PRESENTACI N DISPLAY ESTADO ESTADO PRESENTACION GBAO1 ELSE NEXT SENTENCE MOVE RESULTADO GBA0O1 TO RETURN CODE INDRA Todos los derechos reservados EDITRAN P g 3 4 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 4 COLAS DE FICHEROS 4 COLAS DE FICHEROS Para ver la interfaz gr fica consulte el manual EDITRAN P Interfaz gr fica Manual de usuario ED51USUC para CICS o EDITRAN G Manual de usuario EG5 1USUI para IMS La funcionalidad de colas de ficheros consiste en que las aplicaciones notifican los ficheros que quieren emitir cargar y se desentienden de si EDitran puede hacerlo o no en ese momento Existe un fichero ZTBPGFQF cuyo contenido son un perfil por cada sesi n de presentaci n implicada y los ficheros pendientes en curso de la transmisi n Para funcionar con esta opci n es necesario Definir en la sesi n de presentaci n el par metro TIPO CARGA Q opci n 2 3 4 del men principal Definir la sesi n de presentaci n en el perfil colas de ficheros opci n 2 4 2 Si la sesi
3. 5 SS WAIT GBAO1 PIC 9 2 10 INTERV MAX GBA0O1 PIC X 6 10 FILLER REDEFINES INTERV MAX GBAO1 15 HH MAX GBAO1 PIC 9 2 15 MM MAX GBAO0O1 PIC 9 2 15 SS MAX GBAO1 PIC 9 2 10 LIMITE MAX GBA01 REDEFINES INTERV MAX GBAO1 15 HH LIM MAX GBAO1 PIC 9 2 15 MM LIM MAX GBAO1 PIC 9 2 15 SS LIM MAX GBAO1 PIC 9 2 10 FILLER PIC X 61 05 REA SALIDA GBAO1 PIC X 150 05 FILLER REDEFINES REA SALIDA GBAO1 10 RESULTADO GBAO1 PIC 9 2 10 RAZON GBAO1 PIC 9 4 10 EST SES PRESENT GBA01 PIC 9 3 10 EST CARGA CSB GBAO1 PIC 9 3 10 PRESENT DEFINIDA GBA01 PIC X 1 10 NUM SESION GBAO01 PIC 9 4 10 FECHA INICIO PRES GBA01 PIC X 14 10 FILLER REDEFINES FECHA INICIO PRES GBAO1 15 WFECH INI PRES GBA01 PIC X 8 15 WHORA INI PRES GBA01 PIC X 6 10 FECHA FIN PRES GBAO1 PIC X 14 10 FILLER REDEFINES FECHA FIN PRES GBAO1 15 WFECH FIN PRES GBA01 PIC X 8 15 WHORA FIN PRES GBA01 PIC X 6 10 FECHA INICIO PROC GBA01 PIC X 14 10 FECHA FIN PROC GBAO1 PIC X 14 10 INTERV EJ GBAO0O1 PIC 9 08 10 FILLER PIC X 69 PROCEDURE DIVISION N1 P PROGRAMA MOVE LOW VALUES TO REA GBAO1 MOVE 01 TO FUNCION GBAO1 MOVE E TO SENTIDO GBAO1 MOVE 000099990 TO LOCAL GBAO0O1 MOVE 000099940 TO REMOTO GBAO1 MOVE PRUEBA TO APLICACION GBAO1 INTERVALOS DE WAIT CADA 5 MINUTOS Y MEDIO INTERVALO MAXIMO DE ESPERA 31 HORAS 59 MINUTOS 14 SEGUNDOS MOVE 000530 MOVE 315914 MOVE REA ENTRADA GBUTC TO INTERV WAIT
4. CONSULTA DEL ESTADO DE PRESENTACI N La necesidad que tienen las aplicaciones de conocer autom ticamente el estado de la presentaci n EDitran finalizada interrumpida tanto en emisi n como en recepci n y de cara a la ejecuci n de nuevos procesos ha llevado a la creaci n de una funci n en la que si se cumplen stos se informe a la misma autom ticamente se planifique un gestor para permanecer en ejecuci n hasta que la verificaci n de dichos estados o hasta cumplir determinados criterios temporales 3 1 rea de comunicaci n Nivel Nombre Tipo Long Descripci n 1 rea gba01 rea de comunicaci n del ZTBGBA01 Utilizada en el CALL rea de par metros de entrada 2 1 rea 2 Area par metros Alfn Ia O Funci n solicitada 01 Consulta de estado de presentaci n finalizadas e interrumpidas En funci n de intervalo m ximo de proceso 02 Consulta de estado de presentaci n finalizadas e interrumpidas En funci n de l mite m ximo de proceso 03 Consulta inmediata de estado de presentaci n finalizadas e interrumpidas i 04 Consulta sobre si existe estado correcto para cargar E R Sentido de la sesi n de presentaci n emisi n recepci n hasta consultar nuevamente el estado para ver si el estado de la sesi n ha pasado a finalizado interrumpido Valores admitidos 000000 a 995959 FUNCION 01 HHMMSS Tiempo que debe durar el proceso activo si no se cumple el criterio d
5. ON ZTBGB110 PIC XX 05 SESION PRESENTACION ZTBGB110 10 LOCAL ZTBGB110 PIC X 9 10 REMOTO ZTBGB110 PIC X 9 10 APLICACION ZTBGB110 PIC X 6 05 FICHCAR ZTBGB110 PIC X LINKAGE SECTION 01 REA PASO PIC X 29 PROCEDURE DIVISION USING REA PASO N1 P PROGRAMA MOVE LOW VALUES TO REA ZTBGB006 MOVE U TO ORIGEN ZTBGB0O06 MOVE ZEROS TO CODIGO RDO ZTBGB006 MOVE E TO SENTIDO ZTBGB006 MOVE S TO GRABAR SISLOG ZTBGB0O06 MOVE SESION PRESENTACION ZTBGB110 TO SESION PRESENTACION ZTBGBO0O06 MOVE LOW VALUES TO SESION TRANSMISION ZTBGB006 MOVE 1331 TO CODIGO MENSAJE ZTBGB006 MOVE USU TO IDENT MENSAJE ZTBGB0O06 MOVE ESTO ES UNA PRUEBA DE MENSAJE DE USUARIO TO TEXTO ULT MSJE ZTBGB0O06 CALL ZTBGBO06 USING REA ZTBGBO06 IF CODIGO RDO ZTBGB006 NOT ZEROS DISPLAY ERROR EN ZTBGB006 RDO CODIGO RDO ZTBGB006 En la consulta del LOG en EDitran G aparece INDRA Todos los derechos reservados EDITRAN P g 2 2 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 2 INCORPORACI N DE MENSAJES EN EL LOG DE EDITRAN G 05 05 20 15 47 24 CONSULTA FICHERO LOG EDItran G V 5 1 TIPO CODIGO SESION PRESENTACION APL TRANS FECHA HORA E U USU1331 000099940 000099990 PRUJCB 05 05 2000 15 37 13 ESTO ES UNA PRUEBA DE MENSAJE DE USUARIO INDRA Todos los derechos reservados EDITRAN P g 2 3 EDITRAN G 5 1 z 0S CICS IMS Interfaces de Programas de Aplicaci n 3 CONSULTA DEL ESTADO DE PRESENTACI N 3
6. ci n v a PARM 4 El JCL ZTBGJEQF pasar el rea de comunicaci n a trav s del fichero ZTIBGFGOF INDRA Todos los derechos reservados EDITRAN P g 4 2 22 dra Centros de Competencia eCommerce Avda de Bruselas 35 28108 Alcobendas Madrid Espa a T 34 91 480 80 80 T 34 91 480 50 00 www indracompany com
7. e estado en estado finalizado o interrumpido Valores admitidos 000000 a 995959 FUNCION 02 HHMMSS Hora hasta la que se mantiene el proceso activo si no se cumple el criterio de estado en estado finalizado o interrumpido 3 Sesi n Alfn 4 Sesi n de presentaci n origen remoto aplicaci n presentaci n Si limite m ximo inferior a hora de inicio de proceso se sobreentiende que el l mite m ximo apunta al d a siguiente um Intervalo wait um Valores admitidos 000000 a 235959 3 Intervalo l mite N m ximo proceso FUNCION 03 IGNORADO 61 2 Area par metros Alfn 150 Area de par metros de SALIDA SALIDA M HHMMSS Tiempo en que debe quedarse parado el proceso 61 Resultado Resultado del proceso 00 proceso correcto Raz n devuelta por el gestor de estados 3 Estado sesi n Num 3 Estado sesi n presentaci n emisi n presentaci n 000 Cargado 001 Emitiendo 002 Emitido 003 No cargado 004 Suspendido 005 Finalizado Estado sesi n presentaci n recepci n 100 Inicializado 101 Recibiendo 102 Recibido 103 Suspendido 104 Finalizado INDRA Todos los derechos reservados EDITRAN P g 3 1 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 3 CONSULTA DEL ESTADO DE PRESENTACI N 3 Estado csb Num 3 Estado de carga del fichero CSB 000 Cargado 004 No cargado 3 Presentaci n Alfn 1 S N Indica si est definida en el fichero de estados Fin de definida proceso si no lo est i
8. i n de presentaci n en IMS Al lanzar el previo a emisi n si la sesi n de presentaci n tiene en su perfil el modo de carga por colas Q o Verifica que el estado EDltran G es compatible para cargar no cargado finalizado inicializado Si no es as finaliza el proceso o Verifica que no existen ficheros en la cola de almacenamiento en estado emitiendo Si existen finaliza el proceso Si esta situaci n procede de una excepci n se debe lanzar un procedimiento de modificaci n de estado de emisi n o Pone el los ficheros a cargar en estado emitiendo o Carga los mismos en el tamp n o Pide a EDitran P cargar y emitir seg n el perfil de colas de ficheros INDRA Todos los derechos reservados EDITRAN P g 4 1 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 4 COLAS DE FICHEROS e Al lanzar el posterior a emisi n si sesi n de presentaci n tiene en su perfil tipo carga Q borra los ficheros en estado emitiendo de la cola de almacenamiento e Al lanzar modificaci n de estados de emisi n si sesi n de presentaci n tiene en su perfil tipo carga Q pasa los ficheros que est n en estado emitiendo a estado pendiente siempre y cuando no duplique el nombre del fichero con otro grabado como pendiente en cuyo caso borra el que estaba en estado emitiendo 4 1 rea de comunicaci n desde aplicaciones con API Utilizada para llamar al API desde las aplicaci
9. igos EDitran G Fin de proceso inmediato 09 Xx Durante un intervalo de wait al realizar una nueva consulta de estados la sesi n ha sido modificada y se ha creado una nueva por ejemplo ha finalizado y se ha vuelto a cargar Fin de proceso inmediato 34 Xx No est permitida la carga 3 2 Requisitos Ser necesario incluir en el JCL que ejecuta el programa de usuario una ficha DD para el fichero Estados ZTBGFEST y otra optativa para el de LOG ZTBGFLOG ZTBGFLOG DD DSN KI EIDC ZTBG ZTBGFLOG DISP SHR ZTBGFEST DD DSN KI EIDC ZTBG ZTBGFEST DISP SHR 3 3 Ejemplo La copy del ZTBGBAO1 WORKING STORAGE SECTION 01 REA ZTBGBAO01 PIC X 250 01 FILLER REDEFINES REA GBAO1 INDRA Todos los derechos reservados EDITRAN P g 3 2 3 CONSULTA DEL ESTADO DE PRESENTACI N EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 05 REA ENTRADA GBAO1 PIC X 100 05 FILLER REDEFINES REA ENTRADA GBAO01 10 FUNCION GBAO1 PIC 9 2 10 SENTIDO GBAO1 PIC X 10 SESION PRESENTACION GBAO1 15 LOCAL GBAO01 PIC X 9 15 FILLER REDEFINES LOCAL GBAO1 20 FILLER PIC X 20 LOCAL 2 GBAO1 PIC X 7 20 FILLER PIC X 15 REMOTO GBAO01 PIC X 9 15 FILLER REDEFINES REMOTO GBAO1 20 FILLER PIC X 20 REMOTO 2 GBAO1 PIC X 7 20 FILLER PIC X 15 APLICACION GBAO1 PIC X 6 10 INTERV WAIT GBAO1 PIC X 6 10 FILLER REDEFINES INTERV WAIT GBAO1 15 HH WAIT GBAO1 PIC 9 2 15 MM WAIT GBAO1 PIC 9 2 1
10. indra EDITRAN G 5 1 Interfaz Gen rica de Aplicaci n z OS CICS IMS Interfaces de Programas de Aplicaci n INDRA 26 de junio de 2015 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n NDICE 1 INTRODUCCI N ae dean iii 1 1 2 INCORPORACI N DE MENSAJES EN EL LOG DE EDITRAN G cocococconocncnonennenenncnonennnenonenenennnnns 2 1 2 1 r a de COMUNICACI N ssiiiinieaninranaioiin innnan ankieinanana taranan inaaianei a aaiae aaaea aa 2 1 2 1 REQUISITOS id iaa 2 1 2 2 FA NO 2 2 3 CONSULTA DEL ESTADO DE PRESENTACI N coooococcococociononennenennonennenenennennnnncnone ne rnonnneno ne nnenrnns 3 1 3 1 rea de comunicaci n ti A RD A AN REA 3 1 3 2 ATA O 3 2 3 3 EMO A ia 3 2 4 COLAS DE FICHEROS 00 oi 4 1 4 1 rea de comunicaci n desde aplicaciones con APl onnncicnnnnnniniononnininnnnnnnina nono rrnananananananananarrrarnaans 4 2 4 2 Jcl lanzamiento de AAA A 4 2 INDRA Todos los derechos reservados EDITRAN EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 1 INTRODUCCI N 1 INTRODUCCI N En algunos desarrollos las aplicaciones usuarias de EDitran necesitan informaci n sobre variables de EDitran o desean utilizar recursos de trabajo internos que son susceptibles de ser modificados como consecuencia de la evoluci n del producto Para minimizar el impacto de dichas modificaciones en las aplicaciones se crean unas interfaces de programaci n de aplicaci n que se in
11. ndependientemente de que se hayan cumplido los criterios por tiempo Num Sesi n N mero de sesi n de presentaci n Fecha hora SSAAMMDDHHMMSS de inicio de proceso API Fecha hora SSAAMMDDHHMMSS de fin de proceso API 3 Num Intervalos_ _ Num 8 _ N mero de intervalos de WAIT realizados en el proceso _3 reade reserva __ Alfn _ 69 rea de reserva S O Los c digos de resultado devueltos son la raz n es independiente del resultado e identifica el c digo devuelto por el ZTBGBOO9 Resultado Raz n Descripci n 0 XxX Proceso realizado correctamente 01 Xx Par metro Funci n err neo distinto de 01 02 03 04 02 Xx Par metro Sentido err neo distinto de E R 03 Xx Par metro Sesi n de presentaci n err nea spaces low values zeros 04 Xx Par metro Intervalo wait err neo no num rico no tiene formato hhmmss 000000 a 995959 05 Xx Con funci n 01 y 02 Par metro intervalo m ximo err neo no num rico no tiene formato hhmmss En funci n 01 000000 a 995959 En funci n 02 000000 a 235959 06 Xx Presentaci n no definida en el fichero de estados error devuelto por ZTBGB009 Puede que si lo est en perfiles pero nunca se ha actuado sobre ella Fin de proceso inmediato 07 Xx Se ha llegado al intervalo l mite horario de ejecuci n del API y no se han conseguido los estados FINALIZADO INTERRUMPIDO 08 Xx Proceso err neo en programa ZTBGBOOS9 Consultar c d
12. og ZIBGF032 DD DSN KI EGDI ZTBG ZTBGF032 DISP SHR INDRA Todos los derechos reservados EDITRAN P g 2 1 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 2 INCORPORACI N DE MENSAJES EN EL LOG DE EDITRAN G 2 2 Ejemplo Los campos que aparecen en la copy del ZTBGBOO6 a los que no se hace referencia en el apartado anterior no pueden utilizarse WORKING STORAGE SECTION 01 REA ZTBGB006 PIC X 200 VALUE LOW VALUES x 01 FILLER REDEFINES REA ZTBGBO006 05 ORIGEN ZTBGB006 PIC X 05 CODIGO RDO ZTBGB006 PIC 9 4 05 SENTIDO ZTBGB006 PIC X 01 05 GRABAR SISLOG ZTBGB006 PIC X 01 05 SESION PRESENTACION ZTBGB006 PIC X 24 05 SESION TRANSMISION ZTBGBO0O06 07 LOCAL TRANSMISION ZTBGB0O06 PIC X 9 07 REMOTO TRANSMISION ZTBGB006 PIC X 9 07 APLICA TRANSMISION ZTBGB006 PIC X 6 05 CODIGO MENSAJE ZTBGB006 PIC 9 4 05 PROGRAMA INC ZTBGB006 PIC X 8 05 FILLER REDEFINES PROGRAMA INC ZTBGB0O06 10 IDENT MENSAJE ZTBGB006 PIC X 3 10 FILLER PIC X 5 05 RECURSO INC ZTBGB006 PIC X 8 05 RETORNO INC ZTBGBO006 10 F S INC ZTBGB0O06 PIC X 2 10 RESTO INC ZTBGB006 PIC X 3 05 FILLER REDEFINES RETORNO INC ZTBGBO06 10 ERRCOD INC ZTBGB0O06 PIC 9 5 05 TEXTO ULT MSJE ZTBGB0O06 PIC X 60 05 XRESP ZTBGBO06 10 RESP ZTBGBO06 PIC 9 05 05 XRAZON ZTBGBO06 10 RAZON ZTBGB006 PIC 9 05 05 FILLER PIC X 50 Y 01 REA ZTBGB110 05 LONGITUD ZTBGB110 PIC 9 4 COMP 05 ORIGEN ZTBGB110 PIC X 05 FUNCI
13. ones Nivel Nombre Long Fmto Descripci n rea de comunicaci n con API A PA atar carnes En caso de lanzar jcl no existe este campo A o us quelo En caso de lanzar jcl adjunto campo reservado Num Funci n 01 Grabar ficheros 02 Borrar todos los ficheros pendientes A A 3 Origen 9 Afm MNiforigen_ 3 Destino 9 JAlfnm Nifdestimno __________________ 3 Aplicaci n 6 Alfn Aplicaci nEDitraG___________ Tipo uE F Fichero incluir fichero pea Lista de ficheros incluir lista de ficheros Ml Si tipo L Nombre de la lista de ficheros que contiene los ficheros a grabar en la cola Si tipo F Nombre del fichero MVS a grabar en cola Fichero hasta 4a posiciones 2 Formato carga 1 Alfn __ Formato R egistro M odificado Si espacios asume R A e Lenguaje original EJbcdic Ajscii B inario Si espacios Es par metro de perfil sesi n presentaci n Na pi ei Traducir en Emisi n E bcdic Ajscii N inguno Si espacios asume par metro de perfil sesi n presentaci n Compresi n Alfn Compresi n F N Si espacios asume par metro de perfil sesi n CUTRE 2 filer 21 JAlfnm readereseva ________________ 4 2 JCL lanzamiento de API Para llamar al API se dispone de dos JCLs En CICS El JCL es ZTBGJGOF Se le pasa el area de comunicaci n anterior de 2 formas 1 A trav s de PARM 2 A trav s del fichero ZTBGFGQF En IMS 3 ElJCL ZTBGJGOF pasar el rea de comunica
14. tentar n mantener estables Las APIs existentes hasta el momento se indican en los siguientes apartados INDRA Todos los derechos reservados EDITRAN P g 1 1 EDITRAN G 5 1 z OS CICS IMS Interfaces de Programas de Aplicaci n 2 INCORPORACI N DE MENSAJES EN EL LOG DE EDITRAN G 2 INCORPORACI N DE MENSAJES EN EL LOG DE EDITRAN G Si alguna aplicaci n programa de usuario tiene la necesidad de registrar alguna circunstancia relacionada con los procesos de EDitran G puede hacerlo mediante el m dulo ZTBGBO06 indicando los c digos de la sesi n la aplicaci n y el mensaje as como el texto en caracteres representables del mensaje 2 1 rea de comunicaci n Nivel Nombre Tipo Long Descripci n U mensaje de usuario i S Sali I N el mensaje no se graba en el log del sistema presentaci n 4 1 Sesi n Alfn transmisi n C digo mensaje 4 C digo del mensaje a grabar 1 C digo aplicaci n Alfn 3 Identificaci n de la aplicaci n usuaria propietaria del mensaje Texto Mensaje Alfn 60 Texto del mensaje a grabar 1 Filler_ Alfm 60 A reareservada gt S O 2 1 Requisitos Ser necesario incluir en el JCL que ejecuta el programa de usuario adem s de la librer a de load de EDitran una ficha DD para el fichero de LOG ZTBGFLOG ZIBGFLOG DD DSN KI EIDC ZTBG ZTBGFLOG DISP SHR En el caso de entorno IMS habr que poner el fichero ZTBGFO32 para que pueda escribir en la base de datos de l
Download Pdf Manuals
Related Search