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;
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