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.

//KI0E8A25 JOB (EGDI,KIT,,99),ZTBPJA5P,MSGCLASS=H,CLASS=A,
//             MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB  ORDER=IMS510P.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=IMSP,PREFIX=IMS510P
//STEPLIB  DD DSN=IMS510P.RESLIB,DISP=SHR
//         DD DSN=IMS510P.PGMLIB,DISP=SHR
//         DD DSN=KI.EGDI.LOAD,DISP=SHR
//IMS      DD DSN=KI.EGDI.PSBLIB,DISP=SHR
//         DD DSN=KI.EGDI.DBDLIB,DISP=SHR
//DFSVAMP DD DSN=IMS510P.PROCLIB(DFSVSAMP),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:

//KI1056ET JOB (EGDI,KIT,,99),ZTBPJLTR,MSGCLASS=H,CLASS=A,
//             MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB  ORDER=IMS510P.PROCLIB
//**********************************************************************
//**  EDITRAN IMS                                                   ****
//*--------------------------------------------------------------------*
//******  PROCEDIMIENTO PARA OBTENER EL LISTADO DE TRAZA DE EDITRAN/P  *
//*--------------------------------------------------------------------*
//* PARAMETROS A RESOLVER EN CADA INSTALACION:                         *
//* - PARAM  : FICHA CON LOS DATOS DE SELECCION. SU FORMATO ES         *
//*            FFFFFFFF-ANNNNNNNA-ANNNNNNNA-AAAAAA-X                   *
//*            FFFFFFFF: FECHA A PARTIR DE LA QUE SE SELECCIONA,       *
//*                      EN FORMATO DDMMAAAA.                          *
//*            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.EGDI.LOAD,DISP=SHR
//*        DD DSN=SYS1.COB2LIB,DISP=SHR
//ZTBPPLTR PROC PARAM='''20041998-000000000-000000000-000000-S''',
//         PUNTERO='KI.EGDI.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,(500,50),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,PREFIX=IMS510P,
//         COND=(12,LE)
//STEPLIB  DD DSN=IMS510P.RESLIB,DISP=SHR
//         DD DSN=IMS510P.PGMLIB,DISP=SHR
//         DD DSN=KI.EGDI.LOAD,DISP=SHR
//IMS      DD DSN=KI.EGDI.ACBLIB41,DISP=SHR
//*        DD DSN=KI.EGDI.DBDLIB,DISP=SHR
//DFSVSAMP DD DSN=IMS510P.PROCLIB(DFSVSAMP),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)
//SELECTRA DD DSN=&&SELECTRA,DISP=(NEW,PASS,DELETE),
//            UNIT=SYSDA,SPACE=(TRK,(500,50),RLSE),
//            DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144)
//SYSUDUMP DD SYSOUT=*
//*--------------------------------------------------------------------*
//* 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,(500,50),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,(500,50),RLSE),
//            UNIT=SYSDA
//*--------------------------------------------------------------------*
//* LISTADO DEL FICHERO DE TRAZA 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),
//            UNIT=SYSDA,SPACE=(TRK,(50,10),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
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*--------------------------------------------------------------------*
//ZTBPPLTR PEND
//         EXEC ZTBPPLTR
//*--------------------------------------------------------------------*
//BORRALIS.SYSIN DD *
 DELETE KI.EGDI.EDI.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:

//KI1056EL JOB (EGDI,KIT,,99),ZTBPJLLO,MSGCLASS=H,CLASS=A,
//             MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB  ORDER=IMS510P.PROCLIB
//**********************************************************************
//**  EDITRAN IMS                                                   ****
//*--------------------------------------------------------------------*
//********  PROCEDIMIENTO PARA OBTENER EL LISTADO DEL LOG DE EDITRAN/P *
//*--------------------------------------------------------------------*
//* PARAMETROS A RESOLVER EN CADA INSTALACION:                         *
//* - PARAM  : FICHA CON LOS DATOS DE SELECCION. SU FORMATO ES         *
//*            FFFFFFFF-ANNNNNNNA-ANNNNNNNA-AAAAAA-X DONDE:            *
//*            FFFFFFFF: FECHA A PARTIR DE LA QUE SE SELECCIONA,       *
//*                      EN FORMATO DDMMAAAA.                          *
//*            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.EGDI.LOAD,DISP=SHR
//*        DD DSN=SYS1.COB2LIB,DISP=SHR
//ZTBPPLLO PROC PARAM='''20041998-000000000-000000000-000000-N''',
//         PUNTERO='KI.EGDI.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,(500,50),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,PREFIX=IMS510P,
//****     COND=(12,LE,ZTBPBFPA)
//         COND=(12,LE)
//STEPLIB  DD DSN=IMS510P.RESLIB,DISP=SHR
//         DD DSN=IMS510P.PGMLIB,DISP=SHR
//         DD DSN=KI.EGDI.LOAD,DISP=SHR
//IMS      DD DSN=KI.EGDI.ACBLIB41,DISP=SHR
//*        DD DSN=KI.EGDI.DBDLIB,DISP=SHR
//DFSVSAMP DD DSN=IMS510P.PROCLIB(DFSVSAMP),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,(50,50),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,(500,50),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,(500,50),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,(50,10),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.EGDI.EDI.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:

//KI1056ES JOB (EGDI,KIT,,99),ZTBPJLSE,MSGCLASS=H,CLASS=A,
//             MSGLEVEL=1,NOTIFY=&SYSUID
//*-----------------------------------------------------------
//*                    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,PREFIX=IMS510P
//STEPLIB  DD DSN=IMS510P.RESLIB,DISP=SHR
//         DD DSN=IMS510P.PGMLIB,DISP=SHR
//         DD DSN=KI.EGDI.LOAD,DISP=SHR
//IMS      DD DSN=KI.EGDI.ACBLIB41,DISP=SHR
//*        DD DSN=KI.EGDI.DBDLIB,DISP=SHR
//DFSVSAMP DD DSN=IMS510P.PROCLIB(DFSVSAMP),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 *
000099980
/*
// 

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:

        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:

       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.

Modificación de perfiles Batch Onesait Editran

Consulte el manual Gestor Batch de Perfiles.