DBDs

B.D. de datos

Datos

        DBD   NAME=ZTBPDDAD,                                           X
               ACCESS=(HIDAM,VSAM)                                     
         DATASET DD1=ZTBPFDAD,                                         X
               DEVICE=3380                                             
         SEGM  NAME=REGDAT,                                            X
               PARENT=0,                                               X
               PTR=T,                                                  X
               BYTES=4200                                              
         FIELD NAME=(CLREGDAT,SEQ),                                    X
               BYTES=9,                                                X
               START=1                                                 
         LCHILD NAME=(INDXFDAT,ZTBPDDAI),                              X
               PTR=INDX                                                
         DBDGEN                                                        
         FINISH                                                        
         END                                                                   

Índices

         DBD   NAME=ZTBPDDAI,                                          X
               ACCESS=(INDEX,VSAM)                                     
         DATASET DD1=ZTBPFDAI,                                         X
               DEVICE=3380                                             
         SEGM  NAME=INDXFDAT,                                          X
               BYTES=9                                                 
         LCHILD NAME=(REGDAT,ZTBPDDAD),                                X
               INDEX=CLREGDAT                                          
         FIELD NAME=(KINDXDAT,SEQ,U),                                  X
               BYTES=9,                                                X
               START=1                                                 
         DBDGEN                                                        
         FINISH                                                        
         END                                                           

B.D. de sockets

Datos

         DBD   NAME=ZTBPDSOD,                                          X
               ACCESS=(HIDAM,VSAM)                                     
         DATASET DD1=ZTBPFSOD,                                         X
               DEVICE=3380,                                            X
               BLOCK=406                                               
         SEGM  NAME=REGSOC,                                            X
               PARENT=0,                                               X
               PTR=T,                                                  X
               BYTES=400                                               
         FIELD NAME=(CLREGSOC,SEQ),                                    X
               BYTES=30,                                               X
               START=1                                                 
         LCHILD NAME=(INDXFSOC,ZTBPDSOI),                              X
               PTR=INDX                                                
         DBDGEN                                                        
         FINISH                                                        
         END                                                           

Índices

         DBD   NAME=ZTBPDSOI,                                          X
               ACCESS=(INDEX,VSAM)                                     
         DATASET DD1=ZTBPFSOI,                                         X
               DEVICE=3380,                                            X
               BLOCK=1                                                 
         SEGM  NAME=INDXFSOC,                                          X
               BYTES=30                                                
         LCHILD NAME=(REGSOC,ZTBPDSOD),                                X
               INDEX=CLREGSOC                                          
         FIELD NAME=(KINDXSOC,SEQ,U),                                  X
               BYTES=30,                                               X
               START=1                                                 
         DBDGEN                                                        
         FINISH                                                        
         END