search

Baja de perfiles Editran (P y G)

A consecuencia de la necesidad de dar de baja genérica sesiones de editran, aparece la nueva función de baja de perfiles mediante la ejecución de un proceso batch, alimentado por unos datos de entrada previamente definidos por el usuario, ya sea mediante una operación manual o por una aplicación usuaria.

Se obtiene un listado con los datos de entrada, que señala los posibles errores de los mismos, o las sesiones de presentación dadas de baja si las entradas son correctas.

Se proporciona en instalación, un ejemplo de este JCL con el nombre ZTBGBBS1.

La baja de sesiones de transmisión provoca también la baja de las sesiones de presentacion asociadas.

hashtag
Formato de la ficha de orden de baja

Nivel

Nombre

Long.

Fmto.

Descripción

1

Tratamiento

1

Alf.

Con “*” la ficha se ignora,

Con ‘P’ se tratan código local-código remoto-aplicación.

1

Separador

1

Alf.

Guión de separación de campos.

1

Origen

9

alfn.

Código origen. Ceros en selección genérica.

1

Separador

1

alf.

Guión de separación de campos.

1

Remoto

9

alfn.

Código remoto. Ceros en selección genérica.

1

Separador

1

alf.

Guión de separación de campos.

1

Aplicación

6

alfn.

Código de aplicación. Ceros en selección genérica.

hashtag
JCL del proceso

El nombre del jcl que realiza el alta de las sesiones de transmisión es “ZTBGBBS1”. Su contenido es el siguiente:

//KI63A23A JOB (EGDC,KIT,,99),ZTBGJBS1,MSGCLASS=H,CLASS=A,
//             MSGLEVEL=1,NOTIFY=&SYSUID
//*********************************************************************
//* INDRA, S.A.- SOL. COMUNICACIONES
//*********************************************************************
//**   EDITRAN/G (ENTORNO CICS)
//**   JCL DE BAJA DE PERFILES     EDITRAN/G
//********************************************************************+
/*
//*
//*******************************************************************
//* FICHAS   : P-XXXXXXXXX-YYYYYYYYY-ZZZZZZ
//*            P=SESIONES DE PRESENTACION
//*            X=NIF LOCAL  ( 000000000 - VALORES GENERICOS )
//*            Y=NIF REMOTO ( 000000000 - VALORES GENERICOS )
//*            Z=APLICACION ( 000000    - VALORES GENERICOS )
//*******************************************************************
//BORRADO  EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     DELETE (KI.EIDC.ZTBG.ZTBGFPER.PRUEBAB) PURGE
//*
//DEFPERF  EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     DEFINE CLUSTER -
       (NAME(KI.EIDC.ZTBG.ZTBGFPER.PRUEBAB) -
            VOL(DES805)     -
            LOG(NONE)              -
            NOREUSE                -
            REC (4000 50) -
            FREESPACE(25 25)     -
            RECORDSIZE(3000 3000) -
            SHAREOPTIONS(2 3) -
            KEYS(27 0) -
            INDEXED ) -
          DATA -
            (NAME(KI.EIDC.ZTBG.ZTBGFPER.PRUEBAB.DATA)) -
          INDEX -
            (NAME(KI.EIDC.ZTBG.ZTBGFPER.PRUEBAB.INDEX))
//*
//REPRO1  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=H
//ENTRADA  DD DSN=KI.EIDC.ZTBG.ZTBGFPER,DISP=SHR
//SALIDA   DD DSN=KI.EIDC.ZTBG.ZTBGFPER.PRUEBAB,DISP=SHR
//SYSIN    DD  *
         REPRO INFILE(ENTRADA) OUTFILE(SALIDA)
/*
//BORRADO  EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     DELETE (KI.EGDC.ZTBP.ZTBPFPE.PRUEBAB) CLUSTER PURGE
/*
//DEFRICAR EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     DEFINE CLUSTER -
       (NAME(KI.EGDC.ZTBP.ZTBPFPE.PRUEBAB) -
            STORAGECLASS(CLASESTG)       -
            LOG(NONE)              -
            NOREUSE                -
            REC (1000 500) -
            FREESPACE(25 25)     -
            RECORDSIZE(2500 2500) -
            SHAREOPTIONS(2 3) -
            KEYS(34 0) -
            INDEXED ) -
          DATA -
            (NAME(KI.EGDC.ZTBP.ZTBPFPE.PRUEBAB.DATA)) -
          INDEX -
            (NAME(KI.EGDC.ZTBP.ZTBPFPE.PRUEBAB.INDEX))
//*
//REPRO2   EXEC PGM=IDCAMS,COND=(0,NE,DEFRICAR)
//ENTRADA  DD DSN=KI.EGDC.ZTBP.ZTBPFPE,DISP=SHR
//SALIDA   DD DSN=KI.EGDC.ZTBP.ZTBPFPE.PRUEBAB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
      REPRO INFILE(ENTRADA) OUTFILE(SALIDA) REPLACE
//*
//*******************************************************************
//ZTBGJBS1 EXEC PGM=ZTBGBBS1
//STEPLIB  DD   DSN=KI.EIDA.LOAD,DISP=SHR
//         DD   DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR
//ZTBGFPER DD   DSN=KI.EIDC.ZTBG.ZTBGFPER.PRUEBAB,DISP=SHR
//ZTBPFPE  DD   DSN=KI.EGDC.ZTBP.ZTBPFPE.PRUEBAB,DISP=SHR
//ZTBGFLIS DD   SYSOUT=*,DEST=H,DCB=(BLKSIZE=132)
//SYSOUT   DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SYSDBOUT DD   SYSOUT=*
//ABENDAID DD   SYSOUT=*
//SYSCOUNT DD   DUMMY
//SYSUDUMP DD   SYSOUT=*
//ZTBGFGPE DD   *
P-A00099940-000000000-000000

Ejemplos:

  • Baja de todos los códigos remotos y aplicaciones que tienen como origen el código local 000099940.

P-000099940-000000000-000000

  • Baja genérica de sesiones (2 formatos válidos):

P-000000000-000000000-000000

  • Baja de todas las aplicaciones del código remoto 000033330.

P-000000000-000033330-000000

  • Baja de todas las aplicaciones del código local 000099940 y código remoto 000033330 .

P-000099940-000033330-000000

  • Baja de la sesión indicada:

P-000099940-000033330-TELECA

Tras la ejecucion se genera un listado que muestra las sesiones que se han eliminado de los perfiles:

AnteriorBaja de perfiles Onesait · Editran/PSiguienteMigración a v5.3 fase 0

Última actualización