PSBs de aplicaciones de servicio

Todas estas PSBs son de tipo BMP, puesto que estas utilidades se ejecutan en modo batch a través de JCL.

PSB asociada a los procesos de modificación de perfiles

BDIGA    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=A,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDEDI    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=30                                               
         SENSEG NAME=SESION,                                           X
               PARENT=0                                                
BDLOG    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDLOD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=20                                               
         SENSEG NAME=REGLOG,                                           X
               PARENT=0                                                
         PSBGEN LANG=COBOL,                                            X
               CMPAT=YES,                                              X
               PSBNAME=ZTBGEAP1                                        
         END                      

PSB para el listado de la consulta de estados

BDIGA    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDEST    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDESD,                                       X
               PROCOPT=G,                                              X
               KEYLEN=50                                               
         SENSEG NAME=ESTADO,                                           X
               PARENT=0                                                
BDLOG    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDLOD,                                       X
               PROCOPT=G,                                              X
               KEYLEN=20                                               
         SENSEG NAME=REGLOG,                                           X
               PARENT=0                                                
         PSBGEN LANG=COBOL,                                            X
               CMPAT=YES,                                              X
               PSBNAME=ZTBGECEP                                       
         END                                                          

PSB para el listado de la consulta de log

BDLOG    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDLOD,                                       X
               PROCOPT=GOT,                                            X
               KEYLEN=30                                               
         SENSEG NAME=REGLOG,                                           X
               PARENT=0                                                
         PSBGEN LANG=COBOL,                                            X
               CMPAT=YES,                                              X
               PSBNAME=ZTBGESLO                                        
         END                                 

PSB asociada al proceso de grabación de ficheros en colas

BDIGA    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDLOG    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDLOD,                                       X
               PROCOPT=A,                                              X
               KEYLEN=20                                               
         SENSEG NAME=REGLOG,                                           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
               CMPAT=YES,                                              X
               PSBNAME=ZTBGEGQF                                       
         END                                                          

PSB asociada al listado de ficheros recibidos

BDIGA    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDEST    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDESD,                                       X
               PROCOPT=G,                                              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                                                
         PSBGEN LANG=COBOL,                                            X
               CMPAT=YES,                                              X
               PSBNAME=ZTBGELFE                                        
         END                                                           

PSB asociada a la utilidad de elección de núcleo en procedimientos Editran

Esta PSB permite la selección automática de la PSB de carga adecuada a la sesión en función de su transacción de núcleo.

*---------------------------------------------------------             
* PSB PARA ELECCION DE NUCLEO EN PROCEDIMIENTOS EDITRAN                 
*---------------------------------------------------------             
BDIGA    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBGDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGPER,                                           X
               PARENT=0                                                
BDEDI    PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDPED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=30                                               
         SENSEG NAME=SESION,                                           X
               PARENT=0                                                
BDTERM   PCB   TYPE=DB,                                                X
               DBDNAME=ZTBPDTED,                                       X
               PROCOPT=G,                                              X
               KEYLEN=50                                               
         SENSEG NAME=REGTER,                                           X
               PARENT=0                                                
         PSBGEN LANG=COBOL,                                            X
               CMPAT=YES,                                              X
               PSBNAME=ZTBGENUC                                        
         END                                                           

Definiciones de las PSBs

   APPLCTN  PSB=ZTBGEIG1,PGMTYPE=(BATCH),SCHDTYP=PARALLEL              
   APPLCTN  PSB=ZTBGEIG2,PGMTYPE=(BATCH),SCHDTYP=PARALLEL              
   APPLCTN  PSB=ZTBGEIG3,PGMTYPE=(BATCH),SCHDTYP=PARALLEL              
   APPLCTN  PSB=ZTBGEIG4,PGMTYPE=(BATCH),SCHDTYP=PARALLEL              
   APPLCTN  PSB=ZTBGEGQF,PGMTYPE=(BATCH),SCHDTYP=PARALLEL              
   APPLCTN  PSB=ZTBGEAP1,PGMTYPE=(BATCH)                               
   APPLCTN  PSB=ZTBGECEP,PGMTYPE=(BATCH)                               
   APPLCTN  PSB=ZTBGELFE,PGMTYPE=(BATCH),SCHDTYP=PARALLEL              
   APPLCTN  PSB=ZTBGENUC,PGMTYPE=(BATCH),SCHDTYP=PARALLEL