PSBs de carga

PSB de carga de B.D. de datos

       PCB   TYPE=DB,                                                X
             DBDNAME=ZTBPDDAD,                                       X
             PROCOPT=LS,                                             X
             KEYLEN=50                                               
       SENSEG NAME=REGDAT,                                           X
             PARENT=0                                                
       PSBGEN LANG=COBOL,                                            X
             PSBNAME=ZTBPBCDA                                        
       END                                                           

PSB de carga de B.D. de sockets

       PCB   TYPE=DB,                                                X
             DBDNAME=ZTBPDSOD,                                       X
             PROCOPT=LS,                                             X
             KEYLEN=30                                               
       SENSEG NAME=REGSOC,                                           X
             PARENT=0                                                
       PSBGEN LANG=COBOL,                                            X
             PSBNAME=ZTBPBCSO                                        
       END