> 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-ims-en/operacion/general.md).
# Utilities
This chapter presents some utilities that can be used to make certain requests to the transmission module core, to obtain auxiliary listings, or to register profiles in *batch*.
## Generation of A5P and E00 messages
The JCL ZTBPJA5P is used to send A5P messages of type 1 to 4, 8 or A to the transmission module core, ordering the unconditional launch of the previous / subsequent procedures for emission / reception. The E00 connection request message can also be sent. An example is shown below.
```cobol
//KI0E8A25 JOB (EGDI,KIT,,99),ZTBPJA5P,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//*------------------- EDITRAN ------------------------------------
//* GENERATION OF A5P AND E00
//* SYSIN: LOCAL REMOTE APPLICATION TYPE
//* LLLLLLLLLRRRRRRRRRAAAAAAT
//* TYPE : A5P 1 PREPARATION AND START OF EMISSION LAUNCHES A1P
//* 8 PREPARATION OF EMISSION " A8P
//* 2 PREPARATION AND START OF RECEPTION " A2P
//* A PREPARATION OF RECEPTION " AAP
//* 3 EMISSION TAKEDOWN " A3P
//* 4 RECEPTION TAKEDOWN " A4P
//* EOO 0 CONNECTION REQUEST
//*-----------------------------------------------------------------
//P1 EXEC IMSBATCH,MBR=ZTBPEA5P,PSB=ZTBPEA5P,IMSID=IMST
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.PSBLIB,DISP=SHR
// DD DSN=KI.EGTI.DBDLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PRINTDD DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSIN DD *
000099980000099940TEST2
/*
//
```
The following parameters are supplied:
* Local Code.
* Remote Code.
* Application Code.
* Qualifier or request type.
* 1\. Pre-emission process and emission request.
* 2\. Pre-reception process and reception request.
* 3\. Post-emission process.
* 4\. Post-reception process.
* 8\. Pre-emission process without emission request.
* A. Pre-reception process without reception request.
* 0\. Connection request.
The process carried out is as follows:
* The program *batch* inserts an A5P or E00 message, with the Session and the Qualifier, destined for the ZTD transaction of the transmission module
* This transaction checks whether the requested Session exists and, if it does, takes the transmission module core transaction, normally ZTB1, from its profile, routing the message to that transaction.
* A5P message process.
* The core checks the status of the corresponding Session and, if it is not transmitting, launches the requested procedure taken from the Session profile. The launch generally consists of starting a region (BMP transaction-oriented) and inserting a process request against a transaction.
* The launched process will eventually respond to the Transmission Module when it finishes, indicating whether transmission should be started (in the case of a pre-emission or pre-reception procedure with transmission request).
* E00 message process.
* The core checks the status of the Session and, if it is not connected, requests the connection.
## Trace listing
The trace database can be listed selectively with the JCL ZTBPJLTR, an example of which is provided below:
```cobol
//KILISTRA JOB (EGTI,KIT,,9999),ZTBPJLTR,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//**********************************************************************
//** EDITRAN IMS *
//*--------------------------------------------------------------------*
//******** PROCEDURE TO OBTAIN THE EDITRAN TRACE LISTING *
//*--------------------------------------------------------------------*
//* PARAMETERS TO BE RESOLVED IN EACH INSTALLATION: *
//* - PARAM : FORM WITH THE SELECTION DATA. ITS FORMAT IS *
//* FFFFFFFF-HHHHHH-ANNNNNNNA-ANNNNNNNA-AAAAAA-X *
//* WHERE: *
//* FFFFFFFF: DATE FROM WHICH IT IS SELECTED, *
//* IN DDMMAAAA FORMAT. *
//* HHHHHH: TIME FROM WHICH IT IS SELECTED, *
//* IN HHMMSS FORMAT. *
//* ANNNNNNNA : LOCAL CODE (A: ALPHANUMERIC, N: NUMERIC) *
//* ANNNNNNNA : REMOTE CODE (A: ALPHANUMERIC, N: NUMERIC) *
//* AAAAAA: APPLICATION NAME *
//* X : 'S' LIST SORTED BY SESSIONS *
//* X : 'N' LIST IN CHRONOLOGICAL ORDER *
//* *
//* NOTE: *
//* FIELDS WILL BE SEPARATED BY HYPHENS. *
//* IF GENERIC SELECTION OF ANY OF THE FIELDS IS DESIRED, *
//* THE DESIRED FIELD MUST BE SET TO ZEROS. *
//* - POINTER: POINTERS TO THE INSTALLATION FILES. *
//**********************************************************************
//*
//JOBLIB DD DSN=KI.EGTI.LOAD,DISP=SHR
//* DD DSN=SYS1.COB2LIB,DISP=SHR
//ZTBPPLTR PROC PARAM='''01012026-000000-000000000-000000000-000000-N''-
// ',PUNTERO='KI.EGTI.ZTBP'
//*
//*--------------------------------------------------------------------*
//* DELETION OF THE LISTING FILE, IF IT EXISTS. *
//*--------------------------------------------------------------------*
//BORRALIS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*--------------------------------------------------------------------*
//* CREATION OF THE FILE WITH THE TRACE LISTING *
//*--------------------------------------------------------------------*
//CREALIS EXEC PGM=IEFBR14
//DD1 DD DSN=&&LISTRA,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(4000,100),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//*--------------------------------------------------------------------*
//* CREATION OF THE FILE WITH THE DATA FORM. *
//*--------------------------------------------------------------------*
//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=*
//*--------------------------------------------------------------------*
//* SELECTION OF THE MESSAGE FILE ( DBFTTRAD ) *
//*--------------------------------------------------------------------*
//ZTBPESTR EXEC IMSBATCH,MBR=ZTBPESTR,PSB=ZTBPESTR,
// COND=(12,LE)
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.ACBLIB,DISP=SHR
//* DD DSN=KI.EGTI.DBDLIB,DISP=SHR
m//SYSOUT DD SYSOUT=*,OUTLIM=1000000
//PRINTDD DD SYSOUT=*,DCB=(RECFM=FM,BLKSIZE=133),OUTLIM=2000000
//FFICHA DD DSN=&&FICHA,DISP=(OLD,PASS,DELETE)
//SELECTRA DD DSN=&&SELECTRA,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(9000,500),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144)
//*--------------------------------------------------------------------*
//* CLASSIFICATION OF THE SELECTED MESSAGE FILE. *
//*--------------------------------------------------------------------*
//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,(9000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* CLASSIFICATION OF THE SELECTED MESSAGE FILE. *
//*--------------------------------------------------------------------*
//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,(9000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* LISTING OF THE SORTED TRACE FILE. *
//*--------------------------------------------------------------------*
//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=*
//*
//*--------------------------------------------------------------------*
//* DELETION OF THE FILE WITH THE DATA FORM. *
//*--------------------------------------------------------------------*
//BORRAR EXEC PGM=IEFBR14
//DD1 DD DSN=&&FICHA,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*
//*--------------------------------------------------------------------*
//* CREATION OF A FILE TO SEND THE LISTING THROUGH EDITRAN. *
//*--------------------------------------------------------------------*
//LISTEDI EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&&LISTRA,DISP=(OLD,DELETE,DELETE)
//SYSUT2 DD DSN=&PUNTERO..LISTRA,DISP=(NEW,CATLG,DELETE),
// VOL=SER=DES801,SPACE=(TRK,(4000,100),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//**********************************************************************
//*--------------------------------------------------------------------*
//* COMPLETE LISTING WITH ALL LISTINGS. *
//*--------------------------------------------------------------------*
//LISTADO EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&PUNTERO..LISTRA,DISP=SHR,
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//SYSUT2 DD SYSOUT=*,DEST=H,OUTLIM=2000000
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*--------------------------------------------------------------------*
//ZTBPPLTR PEND
// EXEC ZTBPPLTR
//*--------------------------------------------------------------------*
//BORRALIS.SYSIN DD *
DELETE KI.EGTI.ZTBP.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
/*
//
```
The parameters to be entered and the processing options are sufficiently commented in the JCL itself.
It can be seen that in the LISTEDI step the trace listing is obtained in a file, which can be sent to Indra for analysis of possible problems and incidents, using Editran itself.
## Log listing
The log database can be listed selectively with the JCL ZTBPJLLO, an example of which is provided below:
```cobol
//KILISLOP JOB (EGTI,KIT,,99),ZTBPJLLO,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//**********************************************************************
//** EDITRAN IMS ****
//*--------------------------------------------------------------------*
//******** PROCEDURE TO OBTAIN THE EDITRAN LOG LISTING *
//*--------------------------------------------------------------------*
//* PARAMETERS TO BE RESOLVED IN EACH INSTALLATION: *
//* - PARAM : FORM WITH THE SELECTION DATA. ITS FORMAT IS *
//* FFFFFFFF-HHHHHH-ANNNNNNNA-ANNNNNNNA-AAAAAA-X *
//* WHERE: *
//* FFFFFFFF: DATE FROM WHICH IT IS SELECTED, *
//* IN DDMMAAAA FORMAT. *
//* HHHHHH: TIME FROM WHICH IT IS SELECTED, *
//* IN HHMMSS FORMAT. *
//* ANNNNNNNA : LOCAL CODE (A: ALPHANUMERIC, N: NUMERIC) *
//* ANNNNNNNA : REMOTE CODE (A: ALPHANUMERIC, N: NUMERIC) *
//* AAAAAA: APPLICATION NAME *
//* X : 'S' LIST SORTED BY SESSIONS *
//* X : 'N' LIST IN CHRONOLOGICAL ORDER *
//* *
//* NOTE: *
//* FIELDS WILL BE SEPARATED BY HYPHENS. *
//* IF GENERIC SELECTION OF ANY OF THE FIELDS IS DESIRED, *
//* THE DESIRED FIELD MUST BE SET TO ZEROS. *
//* - POINTER: POINTERS TO THE INSTALLATION FILES. *
//**********************************************************************
//*
//JOBLIB DD DSN=KI.EGTI.LOAD,DISP=SHR
//* DD DSN=SYS1.COB2LIB,DISP=SHR
//ZTBPPLLO PROC PARAM='''01012026-000000-000000000-000000000-000000-N''-
// ',PUNTERO='KI.EGTI.ZTBP'
//*
//*--------------------------------------------------------------------*
//* DELETION OF THE LISTING FILE, IF IT EXISTS. *
//*--------------------------------------------------------------------*
//BORRALIS EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*--------------------------------------------------------------------*
//* CREATION OF THE FILE WITH THE LOG LISTING *
//*--------------------------------------------------------------------*
//CREALIS EXEC PGM=IEFBR14
//DD1 DD DSN=&&LISLOG,DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1000,500),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//*--------------------------------------------------------------------*
//* CREATION OF THE FILE WITH THE DATA FORM. *
//*--------------------------------------------------------------------*
//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=*
//*--------------------------------------------------------------------*
//* SELECTION OF THE MESSAGE FILE ( ZTBPDLOD ) *
//*--------------------------------------------------------------------*
//ZTBPESLO EXEC IMSBATCH,MBR=ZTBPESLO,PSB=ZTBPESLO,
//**** COND=(12,LE,ZTBPBFPA)
// COND=(12,LE)
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.ACBLIB,DISP=SHR
//* DD DSN=KI.EGTI.DBDLIB,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,(5000,500),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=6144)
//SYSUDUMP DD SYSOUT=*
//*--------------------------------------------------------------------*
//* CLASSIFICATION OF THE SELECTED MESSAGE FILE. *
//*--------------------------------------------------------------------*
//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,(5000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* CLASSIFICATION OF THE SELECTED MESSAGE FILE. *
//*--------------------------------------------------------------------*
//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,(5000,500),RLSE),
// UNIT=SYSDA
//*--------------------------------------------------------------------*
//* LISTING OF THE SORTED LOG FILE. *
//*--------------------------------------------------------------------*
//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=*
//*
//*--------------------------------------------------------------------*
//* DELETION OF THE FILE WITH THE DATA FORM. *
//*--------------------------------------------------------------------*
//BORRAR EXEC PGM=IEFBR14
//DD1 DD DSN=&&FICHA,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//*
//*--------------------------------------------------------------------*
//* CREATION OF A FILE TO SEND THE LISTING THROUGH EDITRAN. *
//*--------------------------------------------------------------------*
//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,(5000,500),RLSE),
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=6118)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//**********************************************************************
//*--------------------------------------------------------------------*
//* COMPLETE LISTING WITH ALL LISTINGS. *
//*--------------------------------------------------------------------*
//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.EGTI.ZTBP.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
/*
//
```
The parameters to be entered and the processing options are sufficiently commented in the JCL itself.
It can be seen that in the LISTEDI step the log listing is obtained in a file, which can be sent to Indra for analysis of possible problems and incidents, using Editran itself.
## Session listing
The Sessions contained in the profile database can be listed selectively with the JCL ZTBPJLSE, an example of which is provided below:
```cobol
//KILISSES JOB (EGTI,KIT,,99),ZTBPJLSE,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//*-----------------------------------------------------------
//* EDITRAN
//* EDITRAN SESSION LISTING
//* SYSIN:LOCAL REMOTE APPLICATION
//* XNNNNNNNX XNNNNNNNX XXXXXX
//* TYPE SPACES IN EACH FIELD FOR GENERIC LISTING
//*-----------------------------------------------------------
//PASO1 EXEC IMSBATCH,MBR=ZTBPELSE,PSB=ZTBPELSE
//STEPLIB DD DSN=IMST.SDFSRESL,DISP=SHR
// DD DSN=IMST.PGMLIB,DISP=SHR
// DD DSN=KI.EGTI.LOAD,DISP=SHR
//IMS DD DSN=KI.EGTI.ACBLIB,DISP=SHR
//* DD DSN=KI.EGTI.DBDLIB,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 *
000099930
/*
```
The parameters to be entered are commented in the header of the JCL itself.
## A6P message
The A6P message can be sent to the Transmission Module core to request information about a specific session. That core would send the A6R response to a user IMS transaction provided in the A6P itself.
This message could be sent by a user application that could perform scheduling and monitoring functions for Transmission Module transmissions.
There is no record that this message has been used by any user entity in versions earlier than 3.0, and it is very likely that it will not be used in the future, since user developments would be required and, in addition, Indra can provide standard monitoring tools.
In any case, since the use of the A6P message is possible in Editran 5.1, a brief description is provided that could be expanded, if necessary, by contacting Indra.
The A6P message layout, already prepared to be inserted from a COBOL program into a Transmission Module core transaction, is as follows:
```cobol
05 MESSAGE-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).
```
The following would need to be filled in:
* LL-ENT with the length of the message
* COD-TRAN-ENT with the core transaction taken from profiles, normally ZTB1.
* ID-OENT = A
* CLAVE-OENT = A6P
* SESION-OENT with the transmission module Session
* APLIC-USER-A6P-OENT with the user transaction code that must receive the A6R response.
The design of the A6R message, which would be received by the user transaction specified in the A6P, is as follows:
```cobol
05 OUTPUT-MESSAGE.
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).
```
The ESTADO-EMISION and ESTADO-RECEPCION fields can have the following values:
* 0 Not connected
* 1 In session
* \>1 Transmitting
The CONTADOR-EMISION and CONTADOR-RECEPCION fields contain the number of records sent and received respectively.
## Batch Onesait Editran profile registrations
See the manual [Batch Profile Manager](/documentacion-editran/ibm-editran-v5.3-ims-en/gestor-batch-de-perfiles.md).
## Modification of Batch Onesait Editran profiles
See the manual [Batch Profile Manager](/documentacion-editran/ibm-editran-v5.3-ims-en/gestor-batch-de-perfiles.md).
---
# 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-ims-en/operacion/general.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.