> 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/electronic-signature/batch-functions.md). # Batch functions Editran/FF performs signing and verification operations through batch procedures that are usually associated with Editran's pre-issuance and post-reception procedures. ## Onesait Procedures · Editran/FF The procedures provided and that will be placed in the presentation session requiring file signing are: ### ZTBFP1 – A1P: upload/send of the signed files STEP01: upload/send of the signed files ```cobol // PROC ORIGIN=,FUNCTION=,L0=L00, // L1=,L2=,R1=,R2=,AP=,PR=,LF=S,FV=F //*-------------------------------------------------------------------- //* INDRA * //*-------------------------------------------------------------------- //* PRE-ISSUANCE PROCEDURE FOR EDITRAN/FF * //*-------------------------------------------------------------------- //* EDITRAN/G //* DATA: * //* ORIGIN (O=OPERATOR,E=EDITRAN,A=APPLICATION JCL) ---> 1 BYTE * //* * //* FUNCTION (01=LOAD OF PRESENTATION ISSUE, * //* 03=PRESENTATION ISSUE) ----> 2 BYTES * //* * //* PRESENTATION SESSION: * //* LOCAL CODE L1 -------------------------------> 6 BYTES * //* L2 -------------------------------> 3 BYTES * //* REMOTE R1 -------------------------------> 6 BYTES * //* R2 -------------------------------> 3 BYTES * //* APPLICATION PR -------------------------------> 6 BYTES * //* * //* TRANSMISSION SESSION (EDITRAN/P): * //* APPLICATION AP -------------------------------> 6 BYTES * //* TOTAL = 33 BYTES * //* FILE LIST (S) REQUIRED: //* LF --------------------------------> 1 BYTE * //* LOCAL ENVIRONMENT ALIAS (FOR SPECIAL USES) * //* L0 --------------------------------> 3 BYTES //* //* EDITRAN/FF //* DATA SIGNING (F=SIGN FILES, V=VERIFY SIGNATURE) //* FV --------------------------------> 1 BYTE //*-------------------------------------------------------------------- //* STEP01- FILE SIGNING STEP). //* IF IT READS THE SESSION AND IT IS NOT AN FF SESSION, IT ENDS WITH RC=01 //*-------------------------------------------------------------------- //*-------------------------------------------------------------------- //STEP01 EXEC PGM=ZTBFBEFF, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP&FV/CBLQ(ON)', // REGION=0M,TIME=1440 //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR // DD DSN=IMSP.SDFSRESL,DISP=SHR //SYSTCPD DD DSN=SW.TCPIP.SEZAPARM(TCPDATB4),DISP=SHR //ZTBFFLOG DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //ZTBGFCAR DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBGFCAR,DISP=SHR //ZTBFFCAR DD DSN=&&ZTBFFCAR,DISP=(NEW,PASS,DELETE), // DCB=(RECFM=FB,LRECL=80), // SPACE=(TRK,(500,50),RLSE) //*-------------------------------------------------------------------- //* A1P. EDITRAN LOAD //*-------------------------------------------------------------------- //A1P EXEC PGM=ZTBGB110,COND=(0,NE),REGION=0M,TIME=1440, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP&LF/CBLQDA(ON)' //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80) //ZTBGFTCO DD DSN=KI.EIDC.ZTBG.ZTBGFTCO,DISP=SHR //CEEDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //ZTBGFCAR DD DSN=&&ZTBFFCAR,DISP=(OLD,PASS,DELETE) //* // SET LOCAL0=&L0 ``` ### ZTBFP4 – Step A4P: download of the received files STEP01: verification of the signed files STEP02: adaptation of the data file once separated from the signature ```cobol // PROC ORIGIN=,FUNCTION=,L0=L00, // L1=,L2=,R1=,R2=,AP=,PR=,FV=V,LF= // SET LF=N //* //*-------------------------------------------------------------------- //* POST-RECEPTION PROCEDURE FOR EDITRAN/FF * //*-------------------------------------------------------------------- //* DATA: * //* ORIGIN (O=OPERATOR,E=EDITRAN,A=APPLICATION JCL) ----> 1 BYTE * //* * //* FUNCTION (07=DOWNLOAD OF PRESENTATION RECEIPT * //* 09=END OF PRESENTATION RECEIPT ) ----> 2 BYTES * //* * //* PRESENTATION SESSION : * //* LOCAL CODE L1 --------------------------------> 6 BYTES * //* L2 --------------------------------> 3 BYTES * //* REMOTE R1 --------------------------------> 6 BYTES * //* R2 --------------------------------> 3 BYTES * //* APPLICATION PR --------------------------------> 6 BYTES * //* * //* TRANSMISSION SESSION (EDITRAN/P): * //* APPLICATION AP --------------------------------> 6 BYTES * //* TOTAL = 33 BYTES * //* LOCAL ENVIRONMENT ALIAS (FOR SPECIAL USES) * //* L0 --------------------------------> 3 BYTES * //* EDITRAN/FF //* DATA SIGNING (F=SIGN FILES, V=VERIFY SIGNATURE) //* FV --------------------------------> 1 BYTE //*-------------------------------------------------------------------- //A4P EXEC PGM=ZTBGB140,REGION=0M,TIME=1440, // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)' //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBGFTCO DD DSN=KI.EIDC.ZTBG.ZTBGFTCO,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80) // SET LOCAL0=&L0 //*-------------------------------------------------------------------- //*VALID STEP FOR FF. DELETES THE OUTPUT LIST WITH THE SIGNATURE VERI- //*FICATION RESULT //********************************************************************* //INBORR0 EXEC PGM=IEFBR14 //LISTAFL DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBGFLFE, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAFS DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAF2 DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLF2, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //LISTAR1 DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFR12, // DISP=(MOD,DELETE,DELETE),SPACE=(TRK,(1,1),RLSE) //*-------------------------------------------------------------------- //* STEP TO OUTPUT THE LIST OF RECEIVED FILES * //*-------------------------------------------------------------------- //ZTBGLFE EXEC PGM=ZTBGBLFE,REGION=4M,COND=(0,NE), // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&PR&AP/CBLQDA(ON)' //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFLOG DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //SYSOUT DD SYSOUT=* //ZTBGFLFE DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBGFLFE, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(5,1),RLSE), // DCB=(RECFM=FB,LRECL=200,BLKSIZE=0,DSORG=PS) //*-------------------------------------------------------------------- //PASSORT EXEC PGM=SORT,COND=(0,NE) //SORTIN DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBGFLFE,DISP=SHR //SORTOUT DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLFT, // DISP=(NEW,PASS,DELETE), // DCB=(RECFM=FB,LRECL=200,BLKSIZE=0), // SPACE=(TRK,(1,1),RLSE) //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSIN DD DSN=KI.EIDC.ZTBG.JCLS(SORTFF),DISP=SHR //*-------------------------------------------------------------------- //* STEP01- SIGNATURE VERIFICATION STEP //* IF IT READS THE SESSION AND IT IS NOT AN FF SESSION, IT ENDS WITH RC=01 //*-------------------------------------------------------------------- //PASO01 EXEC PGM=ZTBFBEFF,COND=(0,NE), // PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP&FV/CBLQDA(ON)', // REGION=0M,TIME=1440 //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBFFLOG DD SYSOUT=* //SYSTCPD DD DSN=SW.TCPIP.SEZAPARM(TCPDATAB),DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=*,OUTLIM=999999 //CEEDUMP DD SYSOUT=* //ZTBGFLFE DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLFT,DISP=SHR //ZTBFFLF2 DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLF2, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1,1),RLSE), // DCB=(RECFM=FB,LRECL=300,BLKSIZE=0,DSORG=PS) //ZTBFFSAL DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(1,1),RLSE), // DCB=(RECFM=FB,LRECL=300,BLKSIZE=0,DSORG=PS) //ZTBFFP12 DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFR12, // DISP=(NEW,CATLG,DELETE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=80), // SPACE=(TRK,(1,1),RLSE) //* //*-------------------------------------------------------------------- //* STEP02- FILE FORMATTING STEP //*-------------------------------------------------------------------- //* IF (PASO01.RC>2) THEN //* INBORR1 EXEC PGM=IEFBR14 //* LISTAFF DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBGFLFE, //* DISP=(OLD,DELETE,DELETE) //* ENDIF //PASO02 EXEC PGM=ZTBFBR12,PARM='/CBLQDA(ON)', // REGION=0M,TIME=1440,COND=(0,NE) //STEPLIB DD DSN=IMSP.SDFSRESL,DISP=SHR // DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.LOAD,DISP=SHR //ZTBGFTCO DD DSN=KI.EIDC.ZTBG.ZTBGFTCO,DISP=SHR //ZTBGFLIS DD SYSOUT=* //ZTBGFMSJ DD SYSOUT=* //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105) //ZTBFFLOG DD SYSOUT=* //SYSOUT DD SYSOUT=* //CEEDUMP DD SYSOUT=* //ZTBFFLF2 DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLF2,DISP=SHR //ZTBFFSAL DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFSAL, // DISP=SHR //ZTBGFLFE DD SYSOUT=* //SYSIN DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFR12,DISP=SHR //*ENDIF //* // IF (PASO02.RC=0) THEN //INBORR2 EXEC PGM=IEFBR14 //LISTAF2 DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFLF2, // DISP=(OLD,DELETE,DELETE) // ENDIF //* // IF (PASO02.RC=0) THEN //INBORR3 EXEC PGM=IEFBR14 //LISTAFS DD DSN=KI.EIDC.&L0..R&R1..R&R2..A&PR..ZTBFFR12, // DISP=(OLD,DELETE,DELETE) // ENDIF ``` The most significant results with which the signature processing processes can end are:
RDOComment
01Signature verification with errors; the ZTBFFSAL file should be reviewed
06It is not necessary to perform the file adaptation process
08Signature verification error: DOCUMENT MODIFIED
13Error opening a file in MVS
14Error closing a file in MVS
15Error reading a file in MVS
16Error writing to a file in MVS
17Error rewriting a file in MVS
18Error deleting the file
19Error allocating a file
20Error deallocating a file
21Incorrect input parameters
23There is no cataloged application file.
24Number of application files exceeds the maximum allowed
25Application file not cataloged.
26No environment record exists in EDITRAN/FF
27No application exists in EDITRAN/FF
28No presentation session exists in EDITRAN/G
37

Error in the signing service.

Possible communication error (check messages in SYSOUT)

38The signed file sending application has no associated user who can sign
39Input file list empty.
42Cataloging error
43No local users exist who can sign the submissions
45Error in the server process when generating the signature
46Error in the server process when validating the signature
47Error validating the signature
48Not all required signatories were found
49Signer validation rules have not been implemented
51With signature type ‘D’, the Data file is not found
52With signature type ‘D’, the Signature file is not found
53Counter-signing cannot be performed in PKCS#7 mode
55Incorrect delimiter parameter in EDITRAN/FF application
56Record delimiters do not match error
58Errors in the configuration of the EDITRAN/FF application profile
61No local user exists to perform counter-signing
65The application file exists and it is not allowed to delete it
### JCL - Inclusion of the Remote DN or path To make it easier to fill in the DN of a remote certificate or the path where the public certificate (.cer) is located, which is currently done through the screen, a JCL has been created that incorporates it from a file containing it, ZTBFJCDN. Copy ``` //KI63A23A JOB (EGDI,KIT,,99),'EDITRAN/FF ',MSGCLASS=H,CLASS=A, // NOTIFY=&SYSUID //********************************************************************* //* PROGRAM THAT LAUNCHES PROGRAM ZTBFBCDN - CREATE/MODIFY USER PROFILE * //********************************************************************* //*SYSIN DATA-STRUCTURE EEEEEEEEE-UUUUUUUUUUUUUUU-T //*EEEEEEEEE: ENTITY TAX ID //*ONE-POSITION SEPARATOR(-) //*UUUUUUUUUUUUUUU: REMOTE USER //*ONE-POSITION SEPARATOR(-) //*T: IDENTIFICATION TYPE (D-DN OR P-PATH). IF NOT PROVIDED, THE //*DEFAULT VALUE WILL BE D-DN //********************************************************************* //* DATA: PROGRAM TO BE CALLED TO CREATE/MODIFY THE //* USER PROFILE: - CICS //********************************************************************* //ZTBFBCDN EXEC PGM=ZTBFBCDN,REGION=0M //STEPLIB DD DSN=KI.EIDA.LOAD,DISP=SHR // DD DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR // DD DSN=KI.EGDC.ZTBP.LOAD31,DISP=SHR // DD DSN=CICSTS53.CICS.SDFHEXCI,DISP=SHR //ZTBFFPE DD DSN=KI.EIDC.ZTBG.ZTBFFPER,DISP=SHR //ZTBPFPE DD DSN=KI.EGDC.ZTBP.ZTBPFPE,DISP=SHR //ZTBFFCDN DD DSN=KI.EIDA.DN.CICS,DISP=SHR //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //PRINTDD DD SYSOUT=* //SYSIN DD * 000099940-REMOTEUSER01-D //* ``` The input data are: * SYSIN: Remote code and name of the Remote User who owns the certificate * File containing the DN or path where the public certificate is located in USS. FB format and record length 350 (ZTBFFCDN). This file is the one provided in the obtén\_dn.sh script to store the certificate DN. ## Output file for the application File (ZTBFFSAL) FB 300 is created. It will indicate how signature verification was performed for each received file, as well as the signature characteristics. It has 2 types of records:
LevelNameLength.Fmt.Description
1ZTBFFSAL record Alphan.TYPE 01 records.
2Record type2Alfn01-Records referring to processed files and their validation result
2Colon1AlfnValue: ‘:’
2Return code4Num

0000- Signature verified correctly

0012- Invalid certification authority

0013- Revoked certificate(s). Not yet implemented

0014- Expired certificate(s)(2)

0015- Document modified

0016- Signer(s) not authorized on the account according to the profiles provided in the Editran/FF administrator

2Colon1AlfnValue: ‘:’
2Final formatted Dsname44Alfn.Dsname of the final formatted and translated file, to be processed by the application.
2Colon1AlfnValue: ‘:’
2Downloaded ASCII Dsname44Alfn.Dsname of the ASCII file, extracted from the XML and with the signatures also extracted.
2Colon1AlfnValue: ‘:’
2Dsname downloaded by Editran44Alfn.Dsname of the file downloaded by Editran, whose content is the XML that has been processed.
2Colon1AlfnValue: ‘:’
2Error message80Alfn

Message

If rc=0000, correct signing process (no message)

If rc=xxxx, appropriate error message

2Reserve area77AlfnReserve area
LevelNameLength.Fmt.Description
1ZTBFFSAL record Alphan.TYPE 02 records.
2Record type2Alfn02-Records referring to signers per file. For each type 1 record, there will be as many type 2 records as signers contained in the signed file.
2Colon1AlfnValue: ‘:’
2Reserve area4Alfn
2Colon1AlfnValue: ‘:’
2Final formatted Dsname44Alfn.Dsname of the final formatted and translated file, to be processed by the application.
2Colon1AlfnValue: ‘:’
2Signer DN data247Alfn.For example: CN=Surnames and the signer's first name, then there is a space, a hyphen, another space, and the person's ID number written always with 9 characters (8 digits + letter)
2Filler109AlfnReserve area
## JSON output file File (ZTBFFJSN) VB 396 is created. This file is the result of the reception of a submission. The information it contains refers to that reception. Therefore, the application (presentation session), the number of mandatory signatures, the groups and the users will be provided. The file naming convention is as follows: PrefInstalacion.JobName.JobId.BRx. ZTBFFJSN
LevelKILength.Fmt.Description
PrefInstalacion11Alfn.It is the installation prefix of the local EDITRAN/FF environment
JobName8Alfn.JOB name (e.g.: KIEDRCT7)
JobId8Alfn.ID of the JOB that is launched (e.g. JOB03039)
BRx3Alfn.

x can take three different values, 1, 2 or 3 depending on the signing mode:

1. Attached

2.Detached

3.Concatenated

--- # 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/electronic-signature/batch-functions.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.