PSBs asociadas a transacciones

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                                               
BDPERP   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=GON,                                            X
               KEYLEN=30                                                
         SENSEG NAME=SESION,                                           X
               PARENT=0                                                 
BDTRAZ   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDTRD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=30                                                
         SENSEG NAME=REGTRA,                                           X
               PARENT=0                                                 
BDTERM   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDTED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                                
         SENSEG NAME=REGTER,                                           X
               PARENT=0                                                 
BDLOGP   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDLOD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=30                                                
         SENSEG NAME=REGLOG,                                           X
               PARENT=0                                                 
BDLOGP   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDLOD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=30                                                
         SENSEG NAME=REGLOG,                                           X
               PARENT=0                                                 
BDLIS     PCB  TYPE=DB,                                                X
               DBDNAME=ZTBPDLDD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                                
         SENSEG NAME=SESLIS,                                           X
               PARENT=0                                                 
BDPERG   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=GON,                                            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                                                 
BDLOGG   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDLOD,                                       X
               PROCOPT=GON,                                            X
               KEYLEN=30                                                
         SENSEG NAME=REGLOG,                                           X
               PARENT=0                                                 
         PSBGEN LANG=COBOL,                                            X
               PSBNAME=ZTBPOOPE                                         
         END                                                                           

PSB asociada a la transacción del administrador ZTBPOADM

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

PSB asociada a la transacción de T.O. ZTBPOTIM

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=GOT,                                            X
               KEYLEN=30                                                
         SENSEG NAME=SESION,                                           X
               PARENT=0                                                 
BDTERM   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDTED,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=50                                                
         SENSEG NAME=REGTER,                                           X
               PARENT=0                                                 
               INDICES=ZTBPDTEJ                                         
         PSBGEN LANG=COBOL,                                            X
               PSBNAME=ZTBPOTIM                                         
         END                                                            

PSB asociada a la transacción de núcleo 1 y BD emisión/recepción (ZTBPDEMD ZTBPDRED) ZTBPOSS1

PCBALT   PCB   TYPE=TP,                                                X
               MODIFY=YES,                                             X
               EXPRESS=YES                                              
PCBALT2  PCB   TYPE=TP,                                                X
               MODIFY=YES                                               
PC2ALT2  PCB   TYPE=TP,                                                X
               MODIFY=YES                                               
BDPERF   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=A,                                              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                                                 
BDTERM   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDTED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                                
         SENSEG NAME=REGTER,                                           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                                                 
         PSBGEN LANG=COBOL,                                            X
               PSBNAME=ZTBPOSS1                                         
         END                                                            

PSB asociada a la transacción de núcleo 2 y BD emisión/recepción (ZTBPDE2D ZTBPDR2D) ZTBPOSS2

PCBALT   PCB   TYPE=TP,                                                X
               MODIFY=YES,                                             X
               EXPRESS=YES                                              
PCBALT2  PCB   TYPE=TP,                                                X
               MODIFY=YES                                               
PC2ALT2  PCB   TYPE=TP,                                                X
               MODIFY=YES                                               
BDPERF   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=30                                                
         SENSEG NAME=SESION,                                           X
               PARENT=0                                                 
BDEMIS   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDE2D,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                                
         SENSEG NAME=REGEMI,                                           X
               PARENT=0                                                 
BDRECE   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDR2D,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                                
         SENSEG NAME=REGREC,                                           X
               PARENT=0                                                 
BDTERM   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDTED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                                
         SENSEG NAME=REGTER,                                           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                                                 
         PSBGEN LANG=COBOL,                                            X
               PSBNAME=ZTBPOSS2                                         
         END