> For the complete documentation index, see [llms.txt](https://docs.editran.onesait.com/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-ims/operacion/general.md).
# Utilidades
Se exponen en este capítulo algunas utilidades que se pueden emplear para realizar determinadas peticiones al núcleo del módulo de transmisión, para obtener listados auxiliares o para realizar altas de perfiles en *batch*.
## Generación de mensajes A5P y E00
El JCL ZTBPJA5P, se utiliza para enviar al núcleo del módulo de transmisión mensajes A5P de tipo 1 a 4, 8 o A, ordenando el lanzamiento incondicional de los procedimientos previos / posteriores a emisión / recepción. También se puede enviar el mensaje E00 de petición de conexión. Se muestra un ejemplo a continuación.
```cobol
//KI0E8A25 JOB (EGDI,KIT,,99),ZTBPJA5P,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//*------------------- EDITRAN ------------------------------------
//* GENERACION DE A5P Y E00
//* SYSIN: LOCAL REMOTO APLICACION TIPO
//* LLLLLLLLLRRRRRRRRRAAAAAAT
//* TIPO : A5P 1 PREPARACION E INICIO DE EMISION LANZA A1P
//* 8 PREPARACION DE EMISION " A8P
//* 2 PREPARACION E INICIO DE RECEPCION " A2P
//* A PREPARACION DE RECEPCION " AAP
//* 3 DESCARGA DE EMISION " A3P
//* 4 DESCARGA DE RECEPCION " A4P
//* EOO 0 PETICION DE CONEXION
//*-----------------------------------------------------------------
//P1 EXEC IMSBATCH,MBR=ZTBPEA5P,PSB=ZTBPEA5P,IMSID=IMST
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.PSBLIB,DISP=SHR
// DD DSN=KI.EGTI.DBDLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PRINTDD DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSIN DD *
000099980000099940PRUEBA2
/*
//
```
Se suministran los siguientes parámetros:
* Código Local.
* Código Remoto.
* Código de Aplicación.
* Cualificador o tipo de petición.
* 1\. Proceso previo a emisión y petición de emisión.
* 2\. Proceso previo a recepción y petición de recepción.
* 3\. Proceso posterior a emisión.
* 4\. Proceso posterior a recepción.
* 8\. Proceso previo a emisión sin petición de emisión.
* A. Proceso previo a recepción sin petición de recepción.
* 0\. Petición de conexión.
El proceso realizado es el siguiente:
* El programa *batch* inserta un mensaje A5P o E00, con la Sesión y el Cualificador, con destino a la transacción ZTD del módulo de transmisión
* Esta transacción comprueba la existencia de la Sesión solicitada y si existe toma la transacción del núcleo del módulo de transmisión, normalmente ZTB1, del perfil de la misma, derivando el mensaje hacia dicha transacción.
* Proceso de mensajes A5P.
* El núcleo comprueba el estado de la Sesión correspondiente y si no está transmitiendo lanza el procedimiento solicitado tomado del perfil de la Sesión. El lanzamiento consiste generalmente en el arranque de una región (BMP orientada a transacción) y en la inserción de una petición de proceso contra una transacción.
* El proceso lanzado dará eventualmente respuesta a Módulo de transmisión al finalizar, indicando si debe iniciarse la transmisión (caso de ser un procedimiento previo a emisión o recepción con petición de transmisión).
* Proceso de mensajes E00.
* El núcleo comprueba el estado de la Sesión y si no está conectada solicita la conexión.
## Listado de la traza
La B.D. de traza se puede listar de forma selectiva con el JCL ZTBPJLTR del que se acompaña un ejemplo a continuación:
```cobol
//KILISTRA JOB (EGTI,KIT,,9999),ZTBPJLTR,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//**********************************************************************
//** EDITRAN IMS *
//*--------------------------------------------------------------------*
//******** PROCEDIMIENTO PARA OBTENER EL LISTADO DE TRAZA DE EDITRAN *
//*--------------------------------------------------------------------*
//* PARAMETROS A RESOLVER EN CADA INSTALACION: *
//* - PARAM : FICHA CON LOS DATOS DE SELECCION. SU FORMATO ES *
//* FFFFFFFF-HHHHHH-ANNNNNNNA-ANNNNNNNA-AAAAAA-X *
//* DONDE: *
//* FFFFFFFF: FECHA A PARTIR DE LA QUE SE SELECCIONA, *
//* EN FORMATO DDMMAAAA. *
//* HHHHHH: HORA A PARTIR DE LA QUE SE SELECCIONA, *
//* EN FORMATO HHMMSS. *
//* ANNNNNNNA : CGO LOCAL (A:ALFAN., N:NUMERICO) *
//* ANNNNNNNA : CGO REMOTO (A:ALFAN., N:NUMERICO) *
//* AAAAAA: NOMBRE DE LA APLICACION *
//* X : 'S' LISTADO ORDENADO POR SESIONES *
//* X : 'N' LISTADO EN ORDEN CRONOLOGICO *
//* *
//* NOTA: *
//* LOS CAMPOS IRAN SEPARADOS CON GUIONES. *
//* SI SE QUIERE SELECCION GENERICA DE ALGUNO DE LOS CAM- *
//* POS EL CAMPO DESEADO DEBERA IR A CEROS. *
//* - PUNTERO: PUNTEROS DE LOS FICHEROS DE LA INSTALACION. *
//**********************************************************************
//*
//JOBLIB DD DSN=KI.EGTI.LOAD,DISP=SHR
//* DD DSN=SYS1.COB2LIB,DISP=SHR
//ZTBPPLTR PROC PARAM='''01012026-000000-000000000-000000000-000000-N''-
// ',PUNTERO='KI.EGTI.ZTBP'
//*
//*--------------------------------------------------------------------*
//* BORRADO DEL FICHERO DE LISTADO, SI EXISTE. *
//*--------------------------------------------------------------------*
//BORRALIS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*--------------------------------------------------------------------*
//* CREACION DEL FICHERO CON EL LISTADO DE TRAZA *
//*--------------------------------------------------------------------*
//CREALIS EXEC PGM=IEFBR14
//DD1 DD DSN=&&LISTRA,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(4000,100),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//*--------------------------------------------------------------------*
//* CREACION DEL FICHERO CON LA FICHA DE DATOS. *
//*--------------------------------------------------------------------*
//ZTBPBFPA EXEC PGM=ZTBPBFPA,
// PARM=&PARAM
//FFICHA DD DSN=&&FICHA,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*--------------------------------------------------------------------*
//* SELECCION DEL FICHERO DE MENSAJES ( DBFTTRAD ) *
//*--------------------------------------------------------------------*
//ZTBPESTR EXEC IMSBATCH,MBR=ZTBPESTR,PSB=ZTBPESTR,
// COND=(12,LE)
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.ACBLIB,DISP=SHR
//* DD DSN=KI.EGTI.DBDLIB,DISP=SHR
m//SYSOUT DD SYSOUT=*,OUTLIM=1000000
//PRINTDD DD SYSOUT=*,DCB=(RECFM=FM,BLKSIZE=133),OUTLIM=2000000
//FFICHA DD DSN=&&FICHA,DISP=(OLD,PASS,DELETE)
//SELECTRA DD DSN=&&SELECTRA,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(9000,500),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144)
//*--------------------------------------------------------------------*
//* CLASIFICACION DEL FICHERO DE MENSAJES SELECCIONADO. *
//*--------------------------------------------------------------------*
//SORSTRA EXEC PGM=SORT,
// COND=((0,NE,ZTBPBFPA),(0,NE,ZTBPESTR.G))
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&SELECTRA,DISP=(OLD,DELETE,DELETE)
//SORTOUT DD DSN=&&SORTTRA,
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144),
// DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(9000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* CLASIFICACION DEL FICHERO DE MENSAJES SELECCIONADO. *
//*--------------------------------------------------------------------*
//SORNTRA EXEC PGM=SORT,
// COND=((1,NE,ZTBPBFPA),(0,NE,ZTBPESTR.G))
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&SELECTRA,DISP=(OLD,DELETE,DELETE)
//SORTOUT DD DSN=&&SORTTRA,
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144),
// DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(9000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* LISTADO DEL FICHERO DE TRA CLASIFICADO. *
//*--------------------------------------------------------------------*
//ZTBPBLTR EXEC PGM=ZTBPBLTR,
// COND=((12,LE,ZTBPBFPA),(0,NE,ZTBPESTR.G))
//SORTTRA DD DSN=&&SORTTRA,DISP=(OLD,DELETE,DELETE)
//FFICHA DD DSN=&&FICHA,DISP=(OLD,PASS,DELETE)
//EDILIST DD DSN=&&LISTRA,DISP=(MOD,PASS,DELETE)
//*DILIST DD SYSOUT=*,
//* DCB=(RECFM=FB,LRECL=132,BLKSIZE=23364)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//*--------------------------------------------------------------------*
//* BORRADO DEL FICHERO CON LA FICHA DE DATOS. *
//*--------------------------------------------------------------------*
//BORRAR EXEC PGM=IEFBR14
//DD1 DD DSN=&&FICHA,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*
//*--------------------------------------------------------------------*
//* CREACION DE UN FICHERO PARA MANDAR POR EDITRAN EL LISTADO. *
//*--------------------------------------------------------------------*
//LISTEDI EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&&LISTRA,DISP=(OLD,DELETE,DELETE)
//SYSUT2 DD DSN=&PUNTERO..LISTRA,DISP=(NEW,CATLG,DELETE),
// VOL=SER=DES801,SPACE=(TRK,(4000,100),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//**********************************************************************
//*--------------------------------------------------------------------*
//* LISTADO DEL FICHERO COMPLETO CON TODOS LOS LISTADOS. *
//*--------------------------------------------------------------------*
//LISTADO EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&PUNTERO..LISTRA,DISP=SHR,
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//SYSUT2 DD SYSOUT=*,DEST=H,OUTLIM=2000000
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*--------------------------------------------------------------------*
//ZTBPPLTR PEND
// EXEC ZTBPPLTR
//*--------------------------------------------------------------------*
//BORRALIS.SYSIN DD *
DELETE KI.EGTI.ZTBP.LISTRA PURGE
/*
//SORSTRA.SYSIN DD *
SORT FIELDS=(1,8,A,17,9,A,26,9,A,35,6,A,9,8,A,292,6,A),FORMAT=BI
/*
//SORNTRA.SYSIN DD *
SORT FIELDS=(1,8,A,9,8,A,292,6,A),FORMAT=BI
/*
//
```
Los parámetros a introducir y las opciones de proceso están suficientemente comentados en el propio JCL.
Se puede observar que en el paso LISTEDI se obtiene el listado de la traza en un fichero, el cual puede enviarse a Indra, para análisis de posibles problemas e incidencias, utilizando el propio Editran.
## Listado del log
La B.D. de log se puede listar de forma selectiva con el JCL ZTBPJLLO del que se acompaña un ejemplo a continuación:
```cobol
//KILISLOP JOB (EGTI,KIT,,99),ZTBPJLLO,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//**********************************************************************
//** EDITRAN IMS ****
//*--------------------------------------------------------------------*
//******** PROCEDIMIENTO PARA OBTENER EL LISTADO DEL LOG DE EDITRAN *
//*--------------------------------------------------------------------*
//* PARAMETROS A RESOLVER EN CADA INSTALACION: *
//* - PARAM : FICHA CON LOS DATOS DE SELECCION. SU FORMATO ES *
//* FFFFFFFF-HHHHHH-ANNNNNNNA-ANNNNNNNA-AAAAAA-X *
//* DONDE: *
//* FFFFFFFF: FECHA A PARTIR DE LA QUE SE SELECCIONA, *
//* EN FORMATO DDMMAAAA. *
//* HHHHHH: HORA A PARTIR DE LA QUE SE SELECCIONA, *
//* EN FORMATO HHMMSS. *
//* ANNNNNNNA : CGO LOCAL (A:ALFAN., N:NUMERICO) *
//* ANNNNNNNA : CGO REMOTO (A:ALFAN., N:NUMERICO) *
//* AAAAAA: NOMBRE DE LA APLICACION *
//* X : 'S' LISTADO ORDENADO POR SESIONES *
//* X : 'N' LISTADO EN ORDEN CRONOLOGICO *
//* *
//* NOTA: *
//* LOS CAMPOS IRAN SEPARADOS CON GUIONES. *
//* SI SE QUIERE SELECCION GENERICA DE ALGUNO DE LOS CAM- *
//* POS EL CAMPO DESEADO DEBERA IR A CEROS. *
//* - PUNTERO: PUNTEROS DE LOS FICHEROS DE LA INSTALACION. *
//**********************************************************************
//*
//JOBLIB DD DSN=KI.EGTI.LOAD,DISP=SHR
//* DD DSN=SYS1.COB2LIB,DISP=SHR
//ZTBPPLLO PROC PARAM='''01012026-000000-000000000-000000000-000000-N''-
// ',PUNTERO='KI.EGTI.ZTBP'
//*
//*--------------------------------------------------------------------*
//* BORRADO DEL FICHERO DE LISTADO, SI EXISTE. *
//*--------------------------------------------------------------------*
//BORRALIS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*--------------------------------------------------------------------*
//* CREACION DEL FICHERO CON EL LISTADO DE LOG *
//*--------------------------------------------------------------------*
//CREALIS EXEC PGM=IEFBR14
//DD1 DD DSN=&&LISLOG,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1000,500),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//*--------------------------------------------------------------------*
//* CREACION DEL FICHERO CON LA FICHA DE DATOS. *
//*--------------------------------------------------------------------*
//ZTBPBFPA EXEC PGM=ZTBPBFPA,
// PARM=&PARAM
//FFICHA DD DSN=&&FICHA,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*--------------------------------------------------------------------*
//* SELECCION DEL FICHERO DE MENSAJES ( ZTBPDLOD ) *
//*--------------------------------------------------------------------*
//ZTBPESLO EXEC IMSBATCH,MBR=ZTBPESLO,PSB=ZTBPESLO,
//**** COND=(12,LE,ZTBPBFPA)
// COND=(12,LE)
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.ACBLIB,DISP=SHR
//* DD DSN=KI.EGTI.DBDLIB,DISP=SHR
//SYSOUT DD SYSOUT=*,OUTLIM=1000000
//SYSDBOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//PRINTDD DD SYSOUT=*,DCB=(RECFM=FM,BLKSIZE=133),OUTLIM=1000000
//FFICHA DD DSN=&&FICHA,DISP=(OLD,PASS,DELETE)
//SELECLOG DD DSN=&&SELECLOG,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(5000,500),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144)
//SYSUDUMP DD SYSOUT=*
//*--------------------------------------------------------------------*
//* CLASIFICACION DEL FICHERO DE MENSAJES SELECCIONADO. *
//*--------------------------------------------------------------------*
//SORSLOG EXEC PGM=SORT,
// COND=((0,NE,ZTBPBFPA),(0,NE,ZTBPESLO.G))
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&SELECLOG,DISP=(OLD,DELETE,DELETE)
//SORTOUT DD DSN=&&SORTLOG,
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144),
// DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(5000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* CLASIFICACION DEL FICHERO DE MENSAJES SELECCIONADO. *
//*--------------------------------------------------------------------*
//SORNLOG EXEC PGM=SORT,
// COND=((1,NE,ZTBPBFPA),(0,NE,ZTBPESLO.G))
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&SELECLOG,DISP=(OLD,DELETE,DELETE)
//SORTOUT DD DSN=&&SORTLOG,
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144),
// DISP=(NEW,PASS,DELETE),
// SPACE=(TRK,(5000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* LISTADO DEL FICHERO DE LOG CLASIFICADO. *
//*--------------------------------------------------------------------*
//ZTBPBLLO EXEC PGM=ZTBPBLLO,
// COND=((12,LE,ZTBPBFPA),(0,NE,ZTBPESLO.G))
//SORTLOG DD DSN=&&SORTLOG,DISP=(OLD,DELETE,DELETE)
//FFICHA DD DSN=&&FICHA,DISP=(OLD,PASS,DELETE)
//EDILIST DD DSN=&&LISLOG,DISP=(MOD,PASS,DELETE)
//*DILIST DD SYSOUT=*,
//* DCB=(RECFM=FB,LRECL=132,BLKSIZE=23364)
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//*--------------------------------------------------------------------*
//* BORRADO DEL FICHERO CON LA FICHA DE DATOS. *
//*--------------------------------------------------------------------*
//BORRAR EXEC PGM=IEFBR14
//DD1 DD DSN=&&FICHA,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*
//*--------------------------------------------------------------------*
//* CREACION DE UN FICHERO PARA MANDAR POR EDITRAN EL LISTADO. *
//*--------------------------------------------------------------------*
//LISTEDI EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&&LISLOG,DISP=(OLD,DELETE,DELETE)
//SYSUT2 DD DSN=&PUNTERO..LISLOG,DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(5000,500),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//**********************************************************************
//*--------------------------------------------------------------------*
//* LISTADO DEL FICHERO COMPLETO CON TODOS LOS LISTADOS. *
//*--------------------------------------------------------------------*
//LISTADO EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&PUNTERO..LISLOG,DISP=SHR,
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//SYSUT2 DD SYSOUT=*,DEST=H
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*--------------------------------------------------------------------*
// PEND
//ZTBPPLLO EXEC ZTBPPLLO
//*--------------------------------------------------------------------*
//BORRALIS.SYSIN DD *
DELETE KI.EGTI.ZTBP.LISLOG PURGE
/*
//SORSLOG.SYSIN DD *
SORT FIELDS=(1,8,A,17,9,A,26,9,A,35,6,A,9,8,A,292,6,A),FORMAT=BI
/*
//SORNLOG.SYSIN DD *
SORT FIELDS=(1,8,A,9,8,A,292,6,A),FORMAT=BI
/*
//
```
Los parámetros a introducir y las opciones de proceso están suficientemente comentados en el propio JCL.
Se puede observar que en el paso LISTEDI se obtiene el listado del log en un fichero, el cual puede enviarse a Indra, para análisis de posibles problemas e incidencias, utilizando el propio Editran.
## Listado de sesiones
Las Sesiones contenidas en la B.D. de perfiles se pueden listar de forma selectiva con el JCL ZTBPJLSE del que se acompaña un ejemplo a continuación:
```cobol
//KILISSES JOB (EGTI,KIT,,99),ZTBPJLSE,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//*-----------------------------------------------------------
//* EDITRAN
//* LISTADO DE SESIONES DE EDITRAN
//* SYSIN:LOCAL REMOTO APLICACION
//* XNNNNNNNX XNNNNNNNX XXXXXX
//* TECLEE ESPACIOS EN CADA CAMPO PARA LISTADO GENERICO
//*-----------------------------------------------------------
//PASO1 EXEC IMSBATCH,MBR=ZTBPELSE,PSB=ZTBPELSE
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.ACBLIB,DISP=SHR
//* DD DSN=KI.EGTI.DBDLIB,DISP=SHR
//SYSOUT DD SYSOUT=H
//SYSPRINT DD SYSOUT=H
//PRINTDD DD SYSOUT=H
//SYSDBOUT DD SYSOUT=X
//ABENDAID DD SYSOUT=X
//PRINTDD DD SYSOUT=X,DCB=(RECFM=FM,BLKSIZE=133)
//IMPRESOR DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=132,BLKSIZE=23364)
//SYSIN DD *
000099930
/*
```
Los parámetros a introducir están comentados en la cabecera del propio JCL.
## Mensaje A6P
El mensaje A6P se puede enviar al núcleo de Módulo de transmisión para pedirle información sobre una sesión determinada. Dicho núcleo enviaría la respuesta A6R a una transacción IMS de usuario proporcionada en el propio A6P.
Este mensaje podría ser enviado por una aplicación usuaria que podría realizar funciones de planificación y monitorización de las transmisiones de Módulo de transmisión.
No existe constancia de que se haya usado este mensaje por parte de alguna entidad usuaria en versiones anteriores a la 3.0, y es muy probable que no se vaya a utilizar en el futuro, ya que se requerirían desarrollos por parte del usuario y además Indra puede proporcionar herramientas estándar de monitorización.
En todo caso, ya que es posible en Editran 5.1 el empleo del mensaje A6P, se acompaña una breve descripción que podría ser ampliada, en caso de necesidad, contactando con Indra.
El diseño mensaje A6P, ya preparado para ser insertado desde un programa COBOL a una transacción de núcleo de Módulo de transmisión, es el siguiente:
```cobol
05 MENSAJE‑ENT.
07 LL-ENT PIC S9(4) COMP.
07 ZZ-ENT PIC X(2).
07 COD-TRAN-ENT PIC X(4).
07 MENS-ENT PIC X(4124).
07 MENS-OENT REDEFINES MENS-ENT.
09 ID-OENT PIC X.
09 CLAVE-OENT PIC X(3).
09 RESTO-OENT.
11 SESION-OENT.
13 LOCAL-OENT PIC X(9).
13 REMOTO-OENT PIC X(9).
13 APLIC-OENT PIC X(6).
11 RESTO-A6P-OENT.
13 TIPO-A6P-OENT PIC X(1).
13 CODIGO-A6P-OENT PIC X(2).
13 APLIC-USER-A6P-OENT PIC X(8).
13 FILLER PIC X(229).
11 FILLER PIC X(3856).
```
Habría que rellenar:
* LL-ENT con la longitud del mensaje
* COD-TRAN-ENT con la transacción del núcleo tomado de perfiles, normalmente ZTB1.
* ID-OENT = A
* CLAVE-OENT = A6P
* SESION-OENT con la Sesión del módulo de transmisión
* APLIC-USER-A6P-OENT con el código de transacción del usuario que debe recibir la respuesta A6R.
El diseño del mensaje A6R, que recibiría la transacción de usuario especificada en el A6P, es el siguiente:
```cobol
05 MENSAJE-SAL.
07 LL-SAL PIC S9(4) COMP.
07 ZZ-SAL PIC X(2).
07 MENS-SAL PIC X(4124).
07 MENS-APLI REDEFINES MENS-SAL.
09 FILLER PIC X(36).
09 RESTO-APLI.
11 FILLER PIC X(3).
11 APLIC-USER-A6R-APLI PIC X(8).
11 ESTADO-EMISION-APLI PIC X.
11 ESTADO-RECEPCION-APLI PIC X.
11 CONTADOR-EMISION-APLI PIC X(12).
11 CONTADOR-RECEPCION-APLI PIC X(12).
11 REG-TAMPON-EMI-APLI PIC X(240).
11 REG-TAMPON-REC-APLI PIC X(240).
11 CODIGO-EMI-APLI PIC X.
11 IND-TO-EMI-APLI PIC X.
11 CONT-TO-EMI-APLI PIC X(3).
11 EMI-AUTOMATICA-APLI PIC X.
11 ULT-SINC-EMI-APLI PIC X(12).
11 CODIGO-REC-APLI PIC X.
11 IND-TO-REC-APLI PIC X.
11 CONT-TO-REC-APLI PIC X(3).
11 REC-AUTOMATICA-APLI PIC X.
11 LLAMADA-L-R-APLI PIC X.
11 IND-CONEXION-APLI PIC X.
11 IND-SESION-APLI PIC X.
11 IND-TO-NOT-APLI PIC X.
11 CONT-TO-NOT-APLI PIC X(3).
09 FILLER PIC X(3540).
```
Los campos ESTADO-EMISION y ESTADO-RECEPCION pueden tener los valores siguientes:
* 0 No conectado
* 1 En sesión
* \>1 En transmisión
Los campos CONTADOR-EMISION y CONTADOR-RECEPCION tienen el número de registros emitidos y recibidos respectivamente.
## Altas de perfiles Batch Onesait Editran
Consulte el manual [Gestor Batch de Perfiles](/documentacion-editran/ibm-editran-v5.3-ims/gestor-batch-de-perfiles.md).
## Modificación de perfiles Batch Onesait Editran
Consulte el manual [Gestor Batch de Perfiles](/documentacion-editran/ibm-editran-v5.3-ims/gestor-batch-de-perfiles.md).
---
# Agent Instructions
This documentation is published with GitBook. GitBook is the documentation platform designed so that both humans and AI agents can read, navigate, and reason over technical content effectively. Learn more at gitbook.com.
## Querying This Documentation
If you need additional information that is not directly available in this page, you can query the documentation dynamically by asking a question.
Perform an HTTP GET request on the current page URL with the `ask` query parameter, and the optional `goal` query parameter:
```
GET https://docs.editran.onesait.com/documentacion-editran/ibm-editran-v5.3-ims/operacion/general.md?ask=&goal=
```
`ask` is the immediate question: it should be specific, self-contained, and written in natural language.
`goal` is optional and describes the broader end goal you are ultimately trying to accomplish on behalf of the user. GitBook uses it to tailor the answer towards what is most useful for that goal.
The response will contain a direct answer to the question and relevant excerpts and sources from the documentation.
Use this mechanism when the answer is not explicitly present in the current page, you need clarification or additional context, or you want to retrieve related documentation sections.