domingo, agosto 24, 2014

Apontando View de um banco para outro banco - Predict

Esta opção é interessante, para ser usada quando o analista vai acessar em um banco uma view mais os dados serão atualizados/chegado em outro banco de dados, um bom exemplo disso é o banco de histórico os usuários acessam o banco de produção mais uma determinada data os dados estão no banco de histórico, usando uma view no banco de produção apontando o banco de histórico o usuário consegue acessar ler os dados do banco de histórico.

Vamos ter que alterar na view este apontamento, usando o Predict;
DIC2805 EXECUTION STOPPED WITH PF-KEY.                                        
15:49:03             *****  P R E D I C T  4.4.1  *****              2008-09-19
Plan   0                   - Function Main Menu -                Profile SYSTEM
                                                                                
        Documentation                      External objects                    
                                                                                
        A  Active retrieval                F  File implementation              
        M  Maintenance                     G  Generation                        
        R  Retrieval                       I  Incorporation                    
        X  List xref for 3GL               C  Comparison                        
                                           L  Administration                    
                                                                                
        DDA services                       Miscellaneous                        
                                                                                
        D  Defaults                        W  What is new ?                    
        S  Special functions               ?  Help system                      
                                           .  Leave Predict                    
                                                                                
Function ........ d                                                            
Object type ....*                     Menu type ....* F                        
                                                                                
Command ===>                                                                  
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Opção G/DD
15:49:17             *****  P R E D I C T  4.4.1  *****              2008-09-19
Plan   0                       - Defaults -                                    
                                                                                
                       Function                                                
                                                                                
                       D  General defaults                                      
                       E  Extended description skeleton                        
                       S  DEFAULT profile                                      
                       L  LIST XREF default profile                            
                       G  Generation defaults                                  
                       C  Coordinator defaults                                  
                       A  Adabas Native SQL defaults                            
                       U  User exits                                            
                                                                                
Function ................ g                                                    
                                                                                
Object type ............* dd                                                  
Subtype for skeleton ...*                                                      
Language for skeleton ..*                                                      
                                                                                
Command ===>                                                                  
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
(enter) (enter) - duas vezes o enter
15:43:54             *****  P R E D I C T  4.4.1  *****              2008-09-19
                            - Modify DDM defaults -                            
                                                    Modified 2008-05-13 at 10:16
                                                          by AA00124            
Mark with 'X' the options which may be modified by the user.                  
                                                                                
For Adabas                                                                    
   Use Vista access-nr .....* N           VSAM trailing BLANK char ...          
   Specification DB ID .....* D                                                
                                                                                
For SQL                                                                        
X Truncate creator ......... N (Y,N)                                          
X NAT-l for long fields .... N (Y/N)                                          
   Money format ............* N                                                
   Date/Time representation.* A                                                
   SQL Server ..............*                                                  
                                                                                
For IMS                                  For Natural Subsystems                
X Generate UDFs ............ N (Y,N)     X Generate security ........ Y (Y,N)  
X Replace modified UDFs .... N (Y,N)       Super Natural file opt ... N (Y,N)  
X List UDFs ................ N (Y,N)       Super Natural file DBNR ..          
X IMS field suffix ......... N (Y,N)       Super Natural file FNR ...          
For HELP enter '?' in the first field.
Coloque - Specification DB ID - YES
For Adabas                    
  Use Vista access-nr .....* N
  Specification DB ID .....* y
Selecione a view para gerar ela
10:45:15             *****  P R E D I C T  4.4.1  *****              2009-11-13
Plan   0                 - (FI) File Maintenance -               Profile SYSTEM
                                                                                
  Function                              Function                                
                                                                                
  A  Add a file                         L  Link children                        
  C  Copy file                          S  Select file from a list              
  M  Modify file                        B  Push backward                        
  N  Rename/Renumber file               F  Force standard                      
  P  Purge file                         J  Physical Attributes                  
  D  Display file                       K  Modify Vista elements                
                                                                                
Function .........                                                            
File ID .......... ABZU-PAGAMENTO-PARCELA-242       Attributes ........*      
Copy ID ..........                                  File of type ......*      
Contained in DA ..                                  File nr ............ 313  
External name ....                                                            
                                                                                
Restrictions ....*   Profile Default,empty          Association .......* EL    
                                                                                
Command ===>                                                                  
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Opção G/DD
DIC2805 EXECUTION STOPPED WITH PF-KEY.                                        
10:45:33             *****  P R E D I C T  4.4.1  *****              2009-11-13
Plan   0                   - Function Main Menu -                Profile SYSTEM
                                                                                
        Documentation                      External objects                    
                                                                                
        A  Active retrieval                F  File implementation              
        M  Maintenance                     G  Generation                        
        R  Retrieval                       I  Incorporation                    
        X  List xref for 3GL               C  Comparison                        
                                           L  Administration                    
                                                                                
        DDA services                       Miscellaneous                        
                                                                                
        D  Defaults                        W  What is new ?                    
        S  Special functions               ?  Help system                      
                                           .  Leave Predict                    
                                                                                
Function ........ g                                                            
Object type ....* dd                  Menu type ....* F                        
                                                                                
Command ===>                                                                  
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Gerando a view
10:45:39             *****  P R E D I C T  4.4.1  *****              2009-11-13
Plan   0                     - Generate a DDM -                                
                                                                                
Current VM ............. HOME                                                  
File ID ...............* ABZU-PAGAMENTO-PARCELA-242                            
Contained in DA ........                                  (required)          
                                            For Adabas                          
Overwrite option ....... Y  (Y,N)            Use Vista access-nr ....* N      
List generated code .... Y  (Y,N)          For SQL                            
Adabas version ........* I7                  Truncate creator ........ N (Y,N)
                                              NAT-l for long fields ... N (Y/N)
Field name prefix ......                   For IMS                            
Line comments .........* N                   Generate UDFs ........... N (Y,N)
Abstract ............... 0  (0-16)           Replace modified UDFs ... N (Y,N)
General comments ....... Y  (Y,N)            List UDFs ............... N (Y,N)
                                              IMS field suffix ........ N (Y,N)
Generate verif. rules .. Y  (Y,N)          For Natural Subsystems              
Replace verif. rules ..* Y                   Generate security ....... Y (Y,N)
List verif. rules ...... Y  (Y,N)            Super Natural file opt .. N (Y,N)
                                                                                
Command ===>                                                                  
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Agora com esta view apontando um outro banco qualquer um que acesse ela vai atualizar o file/banco que a gente colocou.
10:45:44              *****  P R E D I C T  4.4.1  *****             2009-11-13
                           - Database Selection Menu -                          
                                                                                
Please mark one of the related databases.                                      
                                                                                
M   Database                         Type   Nr     Type of file in database    
                                                                                
_   DB.D230.SINTEGRA                   A    230    Simple file                
x   DB.S242.SINTEGRA                   A    242    Simple file
Gerando a view
DIC2793 DATABASE SELECTED.                                                    
10:45:55             *****  P R E D I C T  4.4.1  *****              2009-11-13
Plan   0                     - Generate a DDM -                                
                                                                                
Current VM ............. HOME                                                  
File ID ...............* ABZU-PAGAMENTO-PARCELA-242                            
Contained in DA ........ DB.S242.SINTEGRA                 (required)          
                                            For Adabas                          
Overwrite option ....... Y  (Y,N)            Use Vista access-nr ....* N      
List generated code .... Y  (Y,N)          For SQL                            
Adabas version ........* I7                  Truncate creator ........ N (Y,N)
                                              NAT-l for long fields ... N (Y/N)
Field name prefix ......                   For IMS                            
Line comments .........* N                   Generate UDFs ........... N (Y,N)
Abstract ............... 0  (0-16)           Replace modified UDFs ... N (Y,N)
General comments ....... Y  (Y,N)            List UDFs ............... N (Y,N)
                                              IMS field suffix ........ N (Y,N)
Generate verif. rules .. Y  (Y,N)          For Natural Subsystems              
Replace verif. rules ..* Y                   Generate security ....... Y (Y,N)
List verif. rules ...... Y  (Y,N)            Super Natural file opt .. N (Y,N)
                                                                                
Command ===>                                                                  
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Repare que agora o DBID não esta 0 mais esta apontando o banco que colocamos;
MORE                                                                          
10:47:02             *****  P R E D I C T  4.4.1  *****             2009-11-13
                              - Generate a DDM -                      Page:   1
                                                                                
     DBID: 242    FNR: 313    DDM: ABZU-PAGAMENTO-PARCELA-242       DEF.SEQ:    
                                                                                
T L  DB  Name                             F Leng  S D Remarks                  
- -  --  -------------------------------- - ----- - - -----------------------  
*    Generation started                                                        
*    at 2009-11-13 10:47:02                                                    
*    by user AA01055                                                          
*                                                                              
*   ------------------------------                                            
*   DBA ADABAS: Quando adicionar um                                            
*   campo nesta view tem que gerar                                            
*   ela no DB 230 apontando o DB 242                                          
*   * ------------------------------                                          
   1  AA  ABZ-TIPO                         N 1,0   N                            
*   1 - IPVA                                                                  
*   2 - PPD                                                                    
*   3 - IPVA 2001/PARCELADO                                                    
   1  AB  ABZ-STATUS                       N 1,0   N                            
*   0 - Omisso                                                                
*   1 - Omisso

0 comentários:

Enviar um comentário