DBDs

B.D. de perfiles

Datos

         DBD   NAME=ZTBGDPED,                                          X
               ACCESS=(HIDAM,VSAM)                                     
         DATASET DD1=ZTBGFPED,                                         X
               DEVICE=3380                                             
         SEGM  NAME=REGPER,                                            X
               PARENT=0,                                               X
               PTR=TB,                                                 X
               BYTES=3000                                              
         FIELD NAME=(CLREGPER,SEQ),                                    X
               BYTES=27,                                               X
               START=1                                                 
         LCHILD NAME=(INDXFPER,ZTBGDPEI),                              X
               PTR=INDX                                                
         DBDGEN                                                        
         FINISH                                                        
         END 

Índices

         DBD   NAME=ZTBGDPEI,                                          X
               ACCESS=(INDEX,VSAM)                                     
         DATASET DD1=ZTBGFPEI,                                         X
               DEVICE=3380                                             
         SEGM  NAME=INDXFPER,                                          X
               BYTES=27                                                
         LCHILD NAME=(REGPER,ZTBGDPED),                                X
               INDEX=CLREGPER                                          
         FIELD NAME=(KINDXPER,SEQ,U),                                  X
               BYTES=27,                                               X
               START=1                                                 
         DBDGEN                                                        
         FINISH                                                        
         END                                                           

B.D. de estados

Datos

         DBD   NAME=ZTBGDESD,                                          X
               ACCESS=(HIDAM,VSAM)                                     
         DATASET DD1=ZTBGFESD,                                         X
               DEVICE=3380                                             
         SEGM  NAME=ESTADO,                                            X
               PARENT=0,                                               X
               PTR=TB,                                                 X
               BYTES=1000                                              
         FIELD NAME=(CLESTADO,SEQ),                                    X
               BYTES=37,                                               X
               START=1                                                 
         LCHILD NAME=(INDXFEST,ZTBGDESI),                              X
               PTR=INDX                                                
         DBDGEN                                                        
         FINISH                                                        
         END        

Índices

         DBD   NAME=ZTBGDESI,                                          X
               ACCESS=(INDEX,VSAM)                                     
         DATASET DD1=ZTBGFESI,                                         X
               DEVICE=3380                                             
         SEGM  NAME=INDXFEST,                                          X
               BYTES=37                                                
         LCHILD NAME=(ESTADO,ZTBGDESD),                                X
               INDEX=CLESTADO                                          
         FIELD NAME=(KINDXEST,SEQ,U),                                  X
               BYTES=37,                                               X
               START=1                                                 
         DBDGEN                                                        
         FINISH                                                        
         END                                                           

B.D. de log

Datos

         DBD   NAME=ZTBGDLOD,                                          X
               ACCESS=(HIDAM,VSAM)                                     
         DATASET DD1=ZTBGFLOD,                                         X
               DEVICE=3380                                             
         SEGM  NAME=REGLOG,                                            X
               PARENT=0,                                               X
               PTR=TB,                                                 X
               BYTES=200                                               
         FIELD NAME=(CLREGLO,SEQ),                                     X
               BYTES=6,                                                X
               START=1                                                 
         LCHILD NAME=(INDXFLOG,ZTBGDLOI),                              X
               PTR=INDX                                                
         DBDGEN                                                        
         FINISH                                                        
         END

Índices

         DBD   NAME=ZTBGDLOI,                                          X
               ACCESS=(INDEX,VSAM)                                     
         DATASET DD1=ZTBGFLOI,                                         X
               DEVICE=3380                                             
         SEGM  NAME=INDXFLOG,                                          X
               BYTES=6                                                 
         LCHILD NAME=(REGLOG,ZTBGDLOD),                                X
               INDEX=CLREGLO                                           
         FIELD NAME=(KINDXLOG,SEQ,U),                                  X
               BYTES=6,                                                X
               START=1                                                 
         DBDGEN                                                        
         FINISH                                                        
         END                                                   

B.D. de colas de ficheros

Datos

         DBD   NAME=ZTBGDQFD,                                          X
               ACCESS=(HIDAM,VSAM)                                     
         DATASET DD1=ZTBGFQFD,                                         X
               DEVICE=3380                                             
         SEGM  NAME=REGQF,                                             X
               PARENT=0,                                               X
               PTR=H,                                                  X
               BYTES=200                                               
         FIELD NAME=(CLREGQF,SEQ),                                     X
               BYTES=40,                                               X
               START=1                                                 
         LCHILD NAME=(INDXFQF,ZTBGDQFI),                               X
               PTR=INDX                                                
         DBDGEN                                                        
         FINISH                                                        
         END                                                           

Índices

        DBD   NAME=ZTBGDQFI,                                          X
              ACCESS=(INDEX,VSAM)                                     
        DATASET DD1=ZTBGFQFI,                                         X
              DEVICE=3380                                             
        SEGM  NAME=INDXFQF,                                           X
              BYTES=40                                                
        LCHILD NAME=(REGQF,ZTBGDQFD),                                 X
              INDEX=CLREGQF                                           
        FIELD NAME=(KINDXQF,SEQ,U),                                   X
              BYTES=40,                                               X
              START=1                                                 
        DBDGEN                                                        
        FINISH                                                        
        END