> 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/copy-of-privado-editran-v5.3-cics/gestor-batch-de-perfiles/baja-de-perfiles-editran-p-y-g.md). # 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. ### Formato de la ficha de orden de baja
NivelNombreLong.Fmto.Descripción
1Tratamiento1Alf.

Con “*” la ficha se ignora,

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

1Separador1Alf.Guión de separación de campos.
1Origen9alfn.Código origen. Ceros en selección genérica.
1Separador1alf.Guión de separación de campos.
1Remoto9alfn.Código remoto. Ceros en selección genérica.
1Separador1alf.Guión de separación de campos.
1Aplicación6alfn.Código de aplicación. Ceros en selección genérica.
### JCL del proceso El nombre del jcl que realiza el alta de las sesiones de transmisión es “ZTBGBBS1”. Su contenido es el siguiente: ```cobol //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: ``` 1 SESIONES BORRADAS DE EDITRAN ------------------------------ SESIONES PRESENTACION SESIONES TRANSMISION ------------------------------ ------------------------------ A00099940A00099980ABEURA ABEURA A00099940000099940NORM48 NORM48 A00099940000099940NORM98 NORM98 A00099940000099940NORM99 NORM99 A00099940000099940PRBSWC SWIFTC A00099940000099940PRUEBA SWIFTA A00099940000099940TELEGC TELEGC A00099940000099940TGSS01 TGSS01 A00099940000099940TGSS02 TGSS02 A00099940000099980ABEURA ABEURA A00099940000099980ABEURP ABEURP A00099940000099980MINAYA MINAYA MINAYB MINAYC MINAYD ``` --- # 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/copy-of-privado-editran-v5.3-cics/gestor-batch-de-perfiles/baja-de-perfiles-editran-p-y-g.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.