> 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-cics-en/batch-profile-manager/removal-of-editran-profiles-p-and-g.md). # Removal of Editran profiles (P and G) As a result of the need to generically delete Editran sessions, the new profile deletion function appears, carried out through the execution of a batch process, fed by input data previously defined by the user, either through a manual operation or by a user application. A listing is obtained with the input data, which indicates any possible errors in them, or the deregistered presentation sessions if the inputs are correct. An example of this JCL is provided in the installation, under the name ZTBGBBS1. Deleting transmission sessions also causes the associated presentation sessions to be deleted. ### Deregistration order form format
LevelNameLength.Fmt.Description
1Processing1Alph.

With “*” the record is ignored,

With ‘P’, local code-remote code-application are handled.

1Separator1Alph.Field-separation hyphen.
1Origin9Alphan.Origin code. Zeroes in generic selection.
1Separator1Alph.Field-separation hyphen.
1Remote9Alphan.Remote code. Zeroes in generic selection.
1Separator1Alph.Field-separation hyphen.
1Application6Alphan.Application code. Zeroes in generic selection.
### Process JCL The name of the JCL that performs the creation of the transmission sessions is “ZTBGBBS1”. Its contents are as follows: ```cobol //KI63A23A JOB (EGDC,KIT,,99),ZTBGJBS1,MSGCLASS=H,CLASS=A, // MSGLEVEL=1,NOTIFY=&SYSUID //********************************************************************* //* INDRA, S.A.- COMMUNICATIONS SOLUTIONS //********************************************************************* //** EDITRAN/G (CICS ENVIRONMENT) //** EDITRAN/G PROFILE DELETION JCL //********************************************************************+ /* //* //******************************************************************* //* RECORDS : P-XXXXXXXXX-YYYYYYYYY-ZZZZZZ //* P=PRESENTATION SESSIONS //* X=LOCAL NIF ( 000000000 - GENERIC VALUES ) //* Y=REMOTE NIF ( 000000000 - GENERIC VALUES ) //* Z=APPLICATION ( 000000 - GENERIC VALUES ) //******************************************************************* //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 ``` Examples: * Deregistration of all remote codes and applications whose origin is local code 000099940. > P-000099940-000000000-000000 * Generic deregistration of sessions (2 valid formats): > P-000000000-000000000-000000 * Deregistration of all applications of remote code 000033330. > P-000000000-000033330-000000 * Deregistration of all applications of local code 000099940 and remote code 000033330. > P-000099940-000033330-000000 * Deregistration of the indicated session: > P-000099940-000033330-TELECA After execution, a listing is generated showing the sessions that have been removed from the profiles: ``` 1 EDITRAN SESSIONS DELETED ------------------------------ PRESENTATION SESSIONS TRANSMISSION SESSIONS ------------------------------ ------------------------------ 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/ibm-editran-v5.3-cics-en/batch-profile-manager/removal-of-editran-profiles-p-and-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.