Baja de sesión

Formato de ficha de selección de sesiones

Coincide con el registro de selección de sesiones. Pueden introducirse tantas fichas como sesiones se desee dar de baja, pudiendo mezclarse sesiones concretas (aquellas que tienen informados los tres campos de origen, destino y aplicación) con sesiones genéricas (aquellas que tienen informados uno o dos campos y el resto rellenos a ceros.

Descripción de los campos de selección

Los campos de selección son los siguientes, que coinciden con los de la ficha de selección:

Nombre	Long.	Fmt.	Descripción
Tratamiento	1	An	Con “*” la ficha se ignora.
Tipo	1	An	S : Ficha de selección de sesiones
Separador	1	An	Guión de separación de campos.
Origen	9	An	Código origen de las sesiones a seleccionar. Ceros: Sesiones con cualquier código origen.
Separador	1	An	Guión de separación de campos.
Destino	9	An	Código remoto de las sesiones a seleccionar. Ceros: Sesiones con cualquier código remoto.
Separador	1	An	Guión de separación de campos.
Aplicación	6	An	Código de aplicación de las sesiones a seleccionar. Ceros: Sesiones con cualquier código de aplicación.

Debe tenerse en consideración que si se introducen los tres campos de origen, destino y aplicación a ceros, el resultado será el de eliminar todas las sesiones de la Base de Datos.

JCL de la baja de sesión

El nombre del JCL que realiza la baja de las sesiones es “ZTBGJBP1”.

A continuación, se puede ver el JCL necesario para ejecutar la baja de sesión:

//KIXXXXXB JOB (EGDC,KIT,,99),ZTBGJBP1,MSGCLASS=H,CLASS=A,        
//             MSGLEVEL=1,NOTIFY=&SYSUID                          
//LIBPROC JCLLIB  ORDER=IMSP.PROCLIB                              
//*--------------------------------------------------------------------
//*    ELIMINACION BATCH DE SESIONES DE PERFILES EDITRAN
//*
//*    CON RETURN CODE 8 QUEDAN SESIONES QUE NO HAN SIDO MODIFICADAS
//*    POR ESTAR CONECTADAS
//*
//*     1 FICHA DE SELECCION. A CEROS PARA SELECCION GENERICA
//*       S-OOOOOOOOO-DDDDDDDDD-AAAAAA
//*         OOOOOOOOO  9 OCTETOS   NIF ORIGEN
//*         DDDDDDDDD  9 OCTETOS   NIF DESTINO
//*         AAAAAA     6 OCTETOS   APLICACION
//*
//*      *S-SE IGNORA LA FICHA CORRESPONDIENTE
//*---------------------------------------------------------------------
//ZTBGEBP1 EXEC IMSBATCH,MBR=ZTBGEBP1,PSB=ZTBGEAP1
//STEPLIB  DD DSN=KI.EGDI.LOAD,DISP=SHR          
//ZTBGFLIS DD SYSOUT=*,DEST=H,DCB=(BLKSIZE=132)  
//SYSPRINT DD SYSOUT=*                           
//SYSOUT   DD SYSOUT=*                           
//CEEDUMP  DD SYSOUT=*                           
//ZTBGFGPE DD *                                  
*-ELIMINACION DE LA SESION "000099980-000099940-PALM01"
S-000099980-000099940-PALM01
*-ELIMINACION DE TODAS LAS SESIONES QUE TENGAN APLICACION = "PALM01"
S-000000000-000000000-PALM01