PSBs asociadas a transacciones

PSB asociada a la transacción del administrador ZTBGOADM

Es la PSB de la transacción que gestiona la opción 1 del menú de la aplicación, es decir, los procesos de administración de perfiles del módulo de presentación, las otras opciones, operador y consulta de estados y log (2.1, 2.2 y 2.3) están asociadas a la transacción del operador de Editran, por lo que su PSB se ha modificado (véase "PSB asociada a la transacción del operador ZTBPOOPE")

PCBALT   PCB   TYPE=TP,                                                X
               MODIFY=YES,                                             X
               EXPRESS=YES                                             
PCBALT2  PCB   TYPE=TP,                                                X
               MODIFY=YES                                              
BDPERG   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDEST    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDESD,                                       X
               PROCOPT=GON,                                            X
               KEYLEN=50                                               
         SENSEG NAME=ESTADO,                                           X
               PARENT=0                                                
BDPERP   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=GON,                                            X
BDTERM   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDTED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGTER,                                           X
               PARENT=0                                                
         PSBGEN LANG=COBOL,                                            X
               PSBNAME=ZTBGOADM                                        
         END                                                           

PSB asociada a la transacción de interfaz genérica ZTBGEIGA

Esta PSB permite la comunicación entre el módulo de presentación y el módulo de transmisión a través de la transacción ZTBI, de tipo BMP a la que está asociada

PCBALT   PCB   TYPE=TP,                                                X
               MODIFY=YES                                              
BDPERP   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=30                                               
         SENSEG NAME=SESION,                                           X
               PARENT=0                                                
BDPERG   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
         PSBGEN LANG=COBOL,                                            X
               PSBNAME=ZTBGEIGA                                        
         END                                     

PSBs asociadas a los procesos previos/posteriores de emisión/ recepción

• APPLCTN PSB=ZTBGEIG1

• APPLCTN PSB=ZTBGEIG2

• APPLCTN PSB=ZTBGEIG3

• APPLCTN PSB=ZTBGEIG4

Estas cuatro PSBs, de tipo BMP, son idénticas, variando únicamente su nombre, el objeto de esto es que si alguna llega a estado de parada no se provoque la interrupción de todos los procedimientos, como ocurriría si solo existiera una PSB para todos ellos.

En caso de usarse distintas bases de datos para distintas sesiones de transmisión, será preciso definir otras PSBs, gemelas a las anteriores, pero referenciando en éstas las nuevas bases de datos sobre las que se efectuará la carga de dichas sesiones de presentación. Estas nuevas PSBs BMP deberán reflejarse en los procedimientos de la PROCLIB (ZTBGP*) de las respectivas sesiones de presentación.

• Estas nuevas PSBs serán también tipo BMP y las denominaremos como:

  • APPLCTN PSB=ZTBGEI21

  • APPLCTN PSB=ZTBGEI22

  • APPLCTN PSB=ZTBGEI23

  • APPLCTN PSB=ZTBGEI24

En éstas se hará referencia a las nuevas bases de datos de emisión y recepción creadas (ZTBPDE2D/ZTBPDR2D en nuestro caso). Si se deseasen implementar nuevas bases de datos deberá repetirse el proceso.

La definición de las mismas se detalla a continuación (Como la única diferencia es la PSBNAME correspondiente, se muestra únicamente la primera):

PCBALT   PCB   TYPE=TP,                                                X
               MODIFY=YES,                                             X
               EXPRESS=YES                                             
PCBALT2  PCB   TYPE=TP,                                                X
               MODIFY=YES                                              
BDPERF   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=30                                               
         SENSEG NAME=SESION,                                           X
               PARENT=0                                                
BDEMIS   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDEMD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGEMI,                                           X
               PARENT=0                                                
BDRECE   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDRED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGREC,                                           X
               PARENT=0                                                
*-------------------------------------------------------------------*  
* LA SIGUIENTE PCB SOLO SE APLICARA CUANDO SE DISPONE DE INTERFAZ DE   
* GESTION DE CLAVES EDITRAN                                            
*-------------------------------------------------------------------*  
BDGESC   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDGCD,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=50                                               
         SENSEG NAME=REGCLA,                                           X
               PARENT=0                                                
BDIGA    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDEST    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDESD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=ESTADO,                                           X
               PARENT=0                                                
BDLOG    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDLOD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=20                                               
         SENSEG NAME=REGLOG,                                           X
               PARENT=0                                                
BDPRE    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBEDPRD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPRE,                                           X
               PARENT=0                                                
BDTRA    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBEDTRD,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=50                                               
         SENSEG NAME=REGTRA,                                           X
               PARENT=0                                                
BDHIS    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBEDHID,                                       X
               PROCOPT=A,                                              X
               KEYLEN=20                                               
         SENSEG NAME=REGHIS,                                           X
               PARENT=0                                                
BDQF     PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDQFD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
          SENSEG NAME=REGQF,                                           X
                PARENT=0                                                       
          PSBGEN LANG=COBOL,                                           X
               PSBNAME=ZTBGEIG1                                        
         END     

PSB asociada al planificador de colas de ficheros ZTBGOPQF

Esta PSB es la de la transacción que se encarga de comprobar si existe algún fichero pendiente de envío en la cola y lanza el procedimiento previo a la emisión para la sesión correspondiente.

PCBALT   PCB   TYPE=TP,                                                X
               MODIFY=YES,                                             X
               EXPRESS=YES                                             
PCBALT2  PCB   TYPE=TP,                                                X
               MODIFY=YES                                              
BDPERG   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDEST    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDESD,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=50                                               
         SENSEG NAME=ESTADO,                                           X
               PARENT=0                                                
BDPERP   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=50                                                             
         SENSEG NAME=SESION,                                           X 
               PARENT=0               
BDQF     PCB   TYPE=DB,                                                X 
               DBDNAME=ZTBGDQFD,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=50              
         SENSEG NAME=REGQF,                                            X 
               PARENT=0               
         PSBGEN LANG=COBOL,                                            X 
               PSBNAME=ZTBGOPQF       
         END