DBDs

B.D. de perfiles

Datos

         DBD   NAME=ZTBPDPED,                                          X
               ACCESS=(HIDAM,VSAM)                                      
         DATASET DD1=ZTBPFPED,                                         X
               DEVICE=3380                                              
         SEGM  NAME=SESION,                                            X
               PARENT=0,                                               X
               PTR=TB,                                                 X
               BYTES=5024                                               
         FIELD NAME=(CLSESION,SEQ),                                    X
               BYTES=24,                                               X
               START=1                                                  
         LCHILD NAME=(INDXFPER,ZTBPDPEI),                              X
               PTR=INDX                                                 
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

Índices

         DBD   NAME=ZTBPDPEI,                                          X
               ACCESS=(INDEX,VSAM)                                      
         DATASET DD1=ZTBPFPEI,                                         X
               DEVICE=3380                                              
         SEGM  NAME=INDXFPER,                                          X
               BYTES=24                                                 
         LCHILD NAME=(SESION,ZTBPDPED),                                X
               INDEX=CLSESION                                           
         FIELD NAME=(KINDXPER,SEQ,U),                                  X
               BYTES=24,                                               X
               START=1                                                  
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

D.B. de traza

Datos

         DBD   NAME=ZTBPDTRD,                                          X
               ACCESS=(HIDAM,VSAM)                                      
         DATASET DD1=ZTBPFTRD,                                         X
               DEVICE=3380                                              
         SEGM  NAME=REGTRA,                                            X
               PARENT=0,                                               X
               PTR=TB,                                                 X
               BYTES=303                                                
         FIELD NAME=(CLREGTR,SEQ),                                     X
               BYTES=6,                                                X
               START=1                                                  
         LCHILD NAME=(INDXFTRA,ZTBPDTRI),                              X
               PTR=INDX                                                 
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

Índices

         DBD   NAME=ZTBPDTRI,                                          X
               ACCESS=(INDEX,VSAM)                                      
         DATASET DD1=ZTBPFTRI,                                         X
               DEVICE=3380                                              
         SEGM  NAME=INDXFTRA,                                          X
               BYTES=6                                                  
         LCHILD NAME=(REGTRA,ZTBPDTRD),                                X
               INDEX=CLREGTR                                            
         FIELD NAME=(KINDXTRA,SEQ,U),                                  X
               BYTES=6,                                                X
               START=1                                                  
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

D.B. de LOG

Datos

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

Índices

         DBD   NAME=ZTBPDPEI,                                          X 
               ACCESS=(INDEX,VSAM)                                       
         DATASET DD1=ZTBPFPEI,                                         X 
               DEVICE=3380                                               
         SEGM  NAME=INDXFPER,                                          X 
               BYTES=6                                                   
         LCHILD NAME=(SESION,ZTBPDPED),                                X 
               INDEX=CLSESION                                            
         FIELD NAME=(KINDXPER,SEQ,U),                                  X 
               BYTES=6,                                                X 
               START=1                                                   
         DBDGEN                                                          
         FINISH                                                          
         END                                                             

D.B. de emisión

Datos

         DBD   NAME=ZTBPDEMD,                                          X
               ACCESS=(HIDAM,OSAM)                                      
         DATASET DD1=ZTBPFEMD,                                         X
               DEVICE=3380                                              
         SEGM  NAME=REGEMI,                                            X
               PARENT=0,                                               X
               PTR=T,                                                  X
               BYTES=4074                                               
         FIELD NAME=(CLREGEMI,SEQ),                                    X
               BYTES=36,                                               X
               START=1                                                  
         LCHILD NAME=(INDXFEMI,ZTBPDEMI),                              X
               PTR=INDX                                                 
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

Índices

         DBD   NAME=ZTBPDEMI,                                          X
               ACCESS=(INDEX,VSAM)                                      
         DATASET DD1=ZTBPFEMI,                                         X
               DEVICE=3380                                              
         SEGM  NAME=INDXFEMI,                                          X
               BYTES=36                                                 
         LCHILD NAME=(REGEMI,ZTBPDEMD),                                X
               INDEX=CLREGEMI                                           
         FIELD NAME=(KINDXEMI,SEQ,U),                                  X
               BYTES=36,                                               X
               START=1                                                  
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

D.B. de emisión número 2

Datos

         DBD   NAME=ZTBPDE2D,                                          X
               ACCESS=(PHIDAM,VSAM)                                     
         SEGM  NAME=REGEMI,                                            X
               PARENT=0,                                               X
               PTR=NT,                                                 X
               BYTES=4074                                               
         FIELD NAME=(CLREGEMI,SEQ),                                    X
               BYTES=36,                                               X
               START=1                                                  
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

Índices

         DBD   NAME=ZTBPDE2I,                                          X
               ACCESS=(INDEX,VSAM)                                      
         DATASET DD1=ZTBPFE2I,                                         X
               DEVICE=3380                                              
         SEGM  NAME=INDXFEMI,                                          X
               BYTES=36                                                 
         LCHILD NAME=(REGEMI,ZTBPDE2D),                                X
               INDEX=CLREGEMI                                           
         FIELD NAME=(KINDXEMI,SEQ,U),                                  X
               BYTES=36,                                               X
               START=1                                                  
         DBDGEN                                                         
         FINISH                                                         
         END                                                                  

D.B. de recepción

Datos

         DBD   NAME=ZTBPDRED,                                          X
               ACCESS=(HIDAM,VSAM)                                      
         DATASET DD1=ZTBPFRED,                                         X
               DEVICE=3380                                              
         SEGM  NAME=REGREC,                                            X
               PARENT=0,                                               X
               PTR=TB,                                                 X
               BYTES=4074                                               
         FIELD NAME=(CLREGREC,SEQ),                                    X
               BYTES=36,                                               X
               START=1                                                  
         LCHILD NAME=(INDXFREC,ZTBPDREI),                              X
               PTR=INDX                                                 
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

Índices

         DBD   NAME=ZTBPDREI,                                          X
               ACCESS=(INDEX,VSAM)                                      
         DATASET DD1=ZTBPFREI,                                         X
               DEVICE=3380                                              
         SEGM  NAME=INDXFREC,                                          X
               BYTES=36                                                 
         LCHILD NAME=(REGREC,ZTBPDRED),                                X
               INDEX=CLREGREC                                           
         FIELD NAME=(KINDXREC,SEQ,U),                                  X
               BYTES=36,                                               X
               START=1                                                  
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

D.B. de recepción número 2

Datos

         DBD   NAME=ZTBPDR2D,                                          X
               ACCESS=(HIDAM,VSAM)                                      
         DATASET DD1=ZTBPFR2D,                                         X
               DEVICE=3380                                              
         SEGM  NAME=REGREC,                                            X
               PARENT=0,                                               X
               PTR=TB,                                                 X
               BYTES=4074                                               
         FIELD NAME=(CLREGREC,SEQ),                                    X
               BYTES=36,                                               X
               START=1                                                  
         LCHILD NAME=(INDXFREC,ZTBPDR2I),                              X
               PTR=INDX                                                 
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

Índices

         DBD   NAME=ZTBPDR2I,                                          X
               ACCESS=(INDEX,VSAM)                                      
         DATASET DD1=ZTBPFR2I,                                         X
               DEVICE=3380                                              
         SEGM  NAME=INDXFREC,                                          X
               BYTES=36                                                 
         LCHILD NAME=(REGREC,ZTBPDR2D),                                X
               INDEX=CLREGREC                                           
         FIELD NAME=(KINDXREC,SEQ,U),                                  X
               BYTES=36,                                               X
               START=1                                                  
         DBDGEN                                                         
         FINISH                                                         
         END                                                            

D.B. de terminales

Datos

         DBD   NAME=ZTBPDTED,                                          X
               ACCESS=(HDAM,VSAM),                                     X
               RMNAME=(DFSHDC40,1,10000)                                
         DATASET DD1=ZTBPFTED,                                         X
               DEVICE=3380,                                            X
               BLOCK=106                                                
         SEGM  NAME=REGTER,                                            X
               PARENT=0,                                               X
               BYTES=100                                                
         FIELD NAME=(CLREGTE,SEQ,U),                                   X
               BYTES=33,                                               X
               START=1,                                                X
               TYPE=C                                                   
         DBDGEN                                                         
         FINISH                                                         
         END