Imagina um pedido de um analista que quer que você crie um outro file igual a um file que já existe (sem dados - com os campos e as views - só que as views com outro nome), existe uma solução rápida de "copiar" este file vazio pelo Predict; Este procedimento no Predict copia (file, view) um de cada vez, as views vamos copiar mais criar com outros nomes, isso para não ter duas views com o mesmo nome.
Copiando o Fisico
Vamos pesquisar pelo SYSSEC um numero de file livre - 501 - vamos usar ele;
09:31:15 ***** A D A B A S BASIC SERVICES ***** 2014-04-24
DBID 220 - Display Files - PDRF002
Fnr File Name Loaded Top-ISN Max-ISN Ext. Pad % Ind. %Used
NUAD A D ACISEXU A D
---- ---------------- ---------- ---------- ---------- ---- -- -- ------- -----
317 ATCD-DEBITO 2008-12-03 0 5511 1111 3 3 NNISNNN 1 0
318 AEOD-FISICO-318 2009-02-17 3034 4133 1111 5 5 NNISNNN 51 18
320 ABZD-FISICO-320 2009-06-24 117 1377 1111 3 3 NNISNNN 28 0
321 ABSD-FISICO-321 2010-12-14 1 1377 1111 5 5 NNISNNN 21 0
322 AEAD-FISICO-322 2010-07-05 41 1377 1111 3 3 NNISNNN 68 0
323 AECD-FISICO-323 2009-10-09 0 4133 1111 10 10 NNISNNN 3 0
324 AEDU-FISICO-324 2009-10-23 25 44095 1111 10 10 NNISNNN 5 0
325 AEMD-FISICO-325 2010-05-18 146 1377 1111 3 3 NNISNNN 45 0
326 AEAD-FISICO-326 2010-07-22 42 1377 1111 3 3 NNISNNN 45 1
327 AEAD-FISICO-327 2010-12-07 9 1377 1111 3 3 NNISNNN 18 2
338 ABID-FISICO-338 2010-07-09 5 1377 1111 3 3 NNISNNN 36 17
344 AEKD-FISICO-344 2010-03-03 0 1377 1111 3 3 NNISNNN 10 0
400 ABZD-FISICO-400 2006-11-22 376 8267 1111 10 10 NNISNNN 36 0
401 ABZD-FISICO-401 2008-05-14 281769 315561 1111 5 5 NNISNNN 34 98
403 AEAD-FISICO-403 2009-04-07 28 1377 1111 3 3 NNISNNN 20 1
500 AABD-TESTE 2013-05-22 0 1377 1111 10 10 NNISNNN 50 0
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Repos Exit -- - + Menu
Vamos acessar o Predict do banco 220 (como é um teste que estou fazendo)09:24:40 TID 121 COM641/D User AA01055 24.04.14
-- COM-PASS -- USTS
Suspended Programs Program Services
--------------------------------- ---------------------------------------
Programs Name C Level PF Service Description Programs ID PF
-------- -------- - ----- -- -------------------- -------- -- --
UQ AABSPROG U 1 Logon/Logoff Utility ULOG A
UPDS AAFAI220 U 2 System Job Queue UQ B
UQ AAFAFRMS U 3 * Text Editor Utility UEDIT C
4 PDS Maint. Utility UPDS D
5 Spooling System USPOOL E
6 Message Sending UM F
7 Natural de Producao NATP G
8 Aplicacoes Natural NAT2 H
9 Dataset Maintenance UDS I
Enter Input: HELP ?
dbax 220 sysdic
-------------------------------------------------------------------------------
LU Name: TICS0703 HC TID: Recall: = Language: 001
Devtype: 3279 V Device: PICS0966 Suspend: < PA1 Case : UPPER
Lines : 24 Key: PA2 Jump: NO NO
Columns: 80
No Predict vamos escolher as opções M/FI09:24:57 ***** P R E D I C T 4.4.1 ***** 2014-04-24
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 ........ m
Object type ....* fi 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
Agora selecionamos o file que quero copiar - 201 é o file do analista
09:33:49 ***** P R E D I C T 4.4.1 ***** 2014-04-24
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 ......... S
File ID .......... Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 205
External name ....
Restrictions ....* Profile Default,empty Association .......*
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
Vamos selecionar o fisico com x e enter
09:34:00 ***** P R E D I C T 4.4.1 ***** 2014-04-24
Plan 0 - Select File -
Cmd File ID Type Fnr DDM Impl Other
x_ * AAID-FISICO-205 A 205 A
__ * AAIU-ARQ-OBJETOS U 205 * *
__ * AAIU-DDDSN U 205 * *
__ * AAIU-DDREL U 205 * *
__ * AAIU-DSNAMES U 205 * *
__ * AAIU-JOBS U 205 * *
__ * AAIU-STEPS U 205 * *
__ * AAIU-SYSIN U 205 * *
__ * AAIU-TAB-ARQUIVOS U 205 * *
__ * AAIU-TAB-BIBLIOTECAS U 205 * *
__ * AAIU-TAB-MODULOS U 205 * *
__ * AAIU-TAB-SISTEMAS U 205 * *
__ ('.' = EXIT, 'T' = TOP, 'C' = Specify association ( ))
Depois de selecionado temos que escolher a opção C - Copy File - em Copy ID colocamos o nome do file NovoDIC2805 EXECUTION STOPPED WITH PF-KEY.
09:35:00 ***** P R E D I C T 4.4.1 ***** 2014-04-24
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 ......... C
File ID .......... AAID-FISICO-205 Attributes ........*
Copy ID .......... AABD-TESTE-CLAU-501 File of type ......*
Contained in DA .. File nr ............ 205
External name ....
Restrictions ....* Profile Default,empty Association .......*
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
Foi alterado o nome do FILE MASTER e o FILE NUMBER - 501 - Depois dei (dois) enters10:27:44 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Copy file -
File ID ......... AABD-TESTE-CLAU-501
File type .................* a Adabas userview
Master file ...............* AAID-FISICO-205
File number ...............* 501
Logical distribution type .*
Contained in DA ...........*
ConfirmandoDIC1276 MASTER FILE CAN NOT BE SPECIFIED.
10:27:44 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Copy file -
File ID ......... AABD-TESTE-CLAU-501
File type .................* A Adabas userview
Master file ...............*
File number ...............* 501
Logical distribution type .*
Contained in DA ...........*
Nesta parte só dei ENTER10:28:30 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Copy file -
File ID ......... AABD-TESTE-CLAU-501 Added 2014-04-24 at 10:27
Type ............ Adabas, Simple file by AA01055
File number ..... 501
Contained in DA .
Keys .. Zoom: N
Literal name ............
Average count ...........
Stability ..............* Not specified
Sequence field .........*
Vista Access DBnr ......*
Vista Access Fnr ........
Adabas SQL usage ........ N (Y/N)
Abstract Zoom: N
* Additional attributes ..* S * Database link attr. .. Y * Associations ..* S
Vamos colocar os atributos - como espaço do DATA/ASSO - vou copiar esses valores do file que estou copiando10:28:30 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Copy file -
File ID ......... AABD-TESTE-CLAU-501 +----- Database link attributes -----+
Type ............ Adabas, Simple file | --> Mark one or more 1055 |
File number ..... 501 | attributes |
Contained in DA . | _ * Adabas attributes |
Keys .. | |
| |
Literal name ............ | |
Average count ........... | |
Stability ..............* Not specifi | |
Sequence field .........* | |
Vista Access DBnr ......* | |
Vista Access Fnr ........ | |
Adabas SQL usage ........ N (Y/N) | |
Abstract Zoom: N | |
| |
| |
| |
| |
| |
| |
* Additional attributes ..* S * Databa +------------------------------------+
Como é teste não vou alterar nada - vou dar enter - mais se fosse realmente em produção eu colocaria os valores iguais do file copiadoDIC2502 FILE COPIED SUCCESSFULLY.
10:28:47 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Modify Adabas attributes -
File ID ......... AABD-TESTE-CLAU-501 Added 2014-04-24 at 10:28
Type ............ Adabas, Simple file by AA01055
Contained in DA .
Required attributes Physical distribution type
Phys. file number ..* 501 Simple file
Min ISN ............. 1
Max ISN ............. 1377
Device Cylinder Blocks Padding factor Max 2. alloc
*----- ---------- ---------- -------------- ------------
ASSO 8391 UI 1 10
NI 1
DATA 8391 DS 1 10
Loading attributes Loading attributes
Max recl. ........... One AC extent .......... N (Y,N)
ISN reusage ......... Y (Y,N) DS reusage ............. Y (Y,N)
User ISN ............ N (Y,N) Mixed DS device ........ Y (Y,N)
Additional attributes ..* N
De . (ponto) enter para sairDIC1069 TEXT FROM ORIGINAL OBJECT HAS BEEN READ.
10:28:54 - File : AABD-TESTE-CLAU-501 - 2014-04-24
--------------- < Extended description > ---------------
***** ****************************** top of data *****************************
00001 ====================================
00002 File additional description
00003 ====================================
***** **************************** bottom of data ****************************
Command ===> Scroll ==> CSR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Rfind Rch up down left right leave
De . (ponto) enter para sair10:28:54 - File : AABD-TESTE-CLAU-501 - 2014-04-24
--------------- < Extended description > ---------------
***** ****************************** top of data *****************************
00001 ====================================
00002 File additional description
00003 ====================================
***** ****** +---------------------------------------+ ***********************
| Attention: edited description |
| was not saved after |
| modifications. |
| |
| ENTER '.' to return to the menu |
| or 'E' to continue editing |
| or 'C' to catalog modifications: |
+---------------------------------------|
Command ===> . Scroll ==> CSR
Campos copiados para o 501DIC2713 EDITING TERMINATED.
> > + Fi: AABD-TESTE-CLAU-501 L: 1 S: 128
Ty L Field ID F Cs Length Occ D U DB S Top
*- - -------------------------------- *- * -------- ----- * * -- *
** * Tabela de Sistemas *ins*
1 AAI-SIGLA-SISTEMA A 3,0 D AA N *ins*
1 AAI-FUNCAO-SISTEMA A 200,0 AB N *ins*
1 AAI-BIBLIOTECA-SISTEMA A 8,0 AC N *ins*
1 AAI-STATUS-SISTEMA N 1,0 AD N *ins*
1 AAI-DT-ATUALIZ-SISTEMA N 8,0 AE N *ins*
1 AAI-USER-SISTEMA A 8,0 AF N *ins*
** * Tabela de Modulos *ins*
1 AAI-SIGLA-MODULO A 8,0 D AG N *ins*
1 AAI-NOME-MODULO A 30,0 AH N *ins*
1 AAI-FUNCAO-MODULO A 200,0 AI N *ins*
1 AAI-SISTEMA-MODULO A 3,0 AJ N *ins*
1 AAI-STATUS-MODULO N 1,0 AK N *ins*
1 AAI-DT-ATUALIZ-MODULO N 8,0 AL N *ins*
1 AAI-USER-MODULO A 8,0 AM N *ins*
** * Tabela de Biblioteca *ins*
1 AAI-SIGLA-BIBLIOTECA A 8,0 D AN N *ins*
1 AAI-NOME-BIBLIOTECA A 30,0 AO N *ins*
1 AAI-STATUS-BIBLIOTECA N 1,0 AP N *ins*
-- - -------------------------------- -- - -------- ----- - - -- -
De cat (enter) para catalogar esses campos neste novo file> cat > + Fi: AABD-TESTE-CLAU-501 L: 1 S: 128
Ty L Field ID F Cs Length Occ D U DB S Top
*- - -------------------------------- *- * -------- ----- * * -- *
** * Tabela de Sistemas *ins*
1 AAI-SIGLA-SISTEMA A 3,0 D AA N *ins*
1 AAI-FUNCAO-SISTEMA A 200,0 AB N *ins*
1 AAI-BIBLIOTECA-SISTEMA A 8,0 AC N *ins*
1 AAI-STATUS-SISTEMA N 1,0 AD N *ins*
1 AAI-DT-ATUALIZ-SISTEMA N 8,0 AE N *ins*
1 AAI-USER-SISTEMA A 8,0 AF N *ins*
** * Tabela de Modulos *ins*
1 AAI-SIGLA-MODULO A 8,0 D AG N *ins*
1 AAI-NOME-MODULO A 30,0 AH N *ins*
1 AAI-FUNCAO-MODULO A 200,0 AI N *ins*
1 AAI-SISTEMA-MODULO A 3,0 AJ N *ins*
1 AAI-STATUS-MODULO N 1,0 AK N *ins*
1 AAI-DT-ATUALIZ-MODULO N 8,0 AL N *ins*
1 AAI-USER-MODULO A 8,0 AM N *ins*
** * Tabela de Biblioteca *ins*
1 AAI-SIGLA-BIBLIOTECA A 8,0 D AN N *ins*
1 AAI-NOME-BIBLIOTECA A 30,0 AO N *ins*
1 AAI-STATUS-BIBLIOTECA N 1,0 AP N *ins*
-- - -------------------------------- -- - -------- ----- - - -- -
Feito10:30:00 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Edit Elements to a File - Page: 1
List of fields inserted
AAI-SIGLA-SISTEMA AABD-TESTE-CLAU-501 *** ins ***
AAI-FUNCAO-SISTEMA AABD-TESTE-CLAU-501 *** ins ***
AAI-BIBLIOTECA-SISTEMA AABD-TESTE-CLAU-501 *** ins ***
AAI-STATUS-SISTEMA AABD-TESTE-CLAU-501 *** ins ***
AAI-DT-ATUALIZ-SISTEMA AABD-TESTE-CLAU-501 *** ins ***
AAI-USER-SISTEMA AABD-TESTE-CLAU-501 *** ins ***
AAI-SIGLA-MODULO AABD-TESTE-CLAU-501 *** ins ***
AAI-NOME-MODULO AABD-TESTE-CLAU-501 *** ins ***
AAI-FUNCAO-MODULO AABD-TESTE-CLAU-501 *** ins ***
AAI-SISTEMA-MODULO AABD-TESTE-CLAU-501 *** ins ***
AAI-STATUS-MODULO AABD-TESTE-CLAU-501 *** ins ***
AAI-DT-ATUALIZ-MODULO AABD-TESTE-CLAU-501 *** ins ***
AAI-USER-MODULO AABD-TESTE-CLAU-501 *** ins ***
AAI-SIGLA-BIBLIOTECA AABD-TESTE-CLAU-501 *** ins ***
AAI-NOME-BIBLIOTECA AABD-TESTE-CLAU-501 *** ins ***
AAI-STATUS-BIBLIOTECA AABD-TESTE-CLAU-501 *** ins ***
AAI-DT-ATUALIZ-BIBLIOTECA AABD-TESTE-CLAU-501 *** ins ***
AAI-USER-BIBLIOTECA AABD-TESTE-CLAU-501 *** ins ***
Hit 'ENTER' to continue.
Vamos ver como ficou - s (enter)11:02:49 ***** P R E D I C T 4.4.1 ***** 2014-04-24
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 ......... s
File ID .......... AABD-TESTE-CLAU-501 Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 205
External name ....
Restrictions ....* Profile Default,empty Association .......*
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
Criou o file fisico 501 igual 20511:03:20 ***** P R E D I C T 4.4.1 ***** 2014-04-24
Plan 0 - Select File -
Cmd File ID Type Fnr DDM Impl Other
__ AABD-TESTE-CLAU-501 A 501
__ ('.' = EXIT, 'T' = TOP, 'C' = Specify association ( ))
Copiando a View
Como copiamos o file fisico agora vamos copiar as views (neste exemplo vou copiar somente uma view), neste passo vamos selecionar a view do file 201 para o 501;
DIC2792 NO FILE SELECTED.
11:10:54 ***** P R E D I C T 4.4.1 ***** 2014-04-24
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 ......... s
File ID .......... Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 205
External name ....
Restrictions ....* Profile Default,empty Association .......*
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
Vamos copiar a view AAIU-ARQ-OBJETOS para o file 501 - vamos colocar um x na frente do nome dele e dar enter11:11:48 ***** P R E D I C T 4.4.1 ***** 2014-04-24
Plan 0 - Select File -
Cmd File ID Type Fnr DDM Impl Other
__ * AAID-FISICO-205 A 205 A
x_ * AAIU-ARQ-OBJETOS U 205 * *
__ * AAIU-DDDSN U 205 * *
__ * AAIU-DDREL U 205 * *
__ * AAIU-DSNAMES U 205 * *
__ * AAIU-JOBS U 205 * *
__ * AAIU-STEPS U 205 * *
__ * AAIU-SYSIN U 205 * *
__ * AAIU-TAB-ARQUIVOS U 205 * *
__ * AAIU-TAB-BIBLIOTECAS U 205 * *
__ * AAIU-TAB-MODULOS U 205 * *
__ * AAIU-TAB-SISTEMAS U 205 * *
__ ('.' = EXIT, 'T' = TOP, 'C' = Specify association ( ))
Agora vamos copiar ela - temos que colocar o novo nomeDIC2793 FILE SELECTED.
11:12:32 ***** P R E D I C T 4.4.1 ***** 2014-04-24
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 ......... C
File ID .......... AAIU-ARQ-OBJETOS Attributes ........*
Copy ID .......... AABD-TESTE-CLAU-view-501 File of type ......*
Contained in DA .. File nr ............ 205
External name ....
Restrictions ....* Profile Default,empty Association .......*
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
Alterando o nome do FILE MASTER e o FILE NUMBER - 501 - Depois vamos dar dois enters11:26:27 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Copy file -
File ID ......... AABD-TESTE-CLAU-VIEW-501
File type .................* U Adabas userview
Master file ...............* AABD-TESTE-CLAU-501
File number ...............* 501
Logical distribution type .*
Contained in DA ...........*
enter11:28:08 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Copy file -
File ID ......... AABD-TESTE-CLAU-VIEW-501 Added 2014-04-24 at 11:25
Type ............ Adabas userview by AA01055
File number ..... 501 Master file: AABD-TESTE-CLAU-501
Contained in DA .
Keys .. Zoom: N
Literal name ............
Average count ...........
Stability ..............* Not specified
Sequence field .........*
Vista Access DBnr ......*
Vista Access Fnr ........
Adabas SQL usage ........ N (Y/N)
Abstract Zoom: N
Additional attributes ..* N * Associations ..* S
Digitei cat (enter) para catalogar esta nova viewDIC2502 FILE COPIED SUCCESSFULLY.
> cat > + Fi: AABD-TESTE-CLAU-VIEW-501 L: 1 S: 37
Ty L Field ID F Cs Length Occ D U DB S Top
*- - -------------------------------- *- * -------- ----- * * -- *
1 AAI-SIGLA-OBJETO A 8,0 D BB N *ins*
1 AAI-NOME-OBJETO A 30,0 BC N *ins*
1 AAI-FUNCAO-OBJETO A 200,0 BD N *ins*
1 AAI-TIPO-OBJETO N 1,0 BE N *ins*
** * *** 1 - programa *ins*
** * *** 2 - subprograma *ins*
** * *** 3 - subrotina *ins*
** * *** 4 - mapas *ins*
** * *** 5 - help-routine *ins*
1 AAI-MODO-EXEC-OBJETO N 1,0 BF N *ins*
** * *** 1 - batch *ins*
** * *** 2 - on-line *ins*
1 AAI-STATUS-OBJETO N 1,0 BG N *ins*
** * *** 1 - ativo *ins*
** * *** 2 - desativado *ins*
1 AAI-SEQ-ORGANOGRAMA N 6,0 BH N *ins*
1 AAI-NOME-JOB A 8,0 BI N *ins*
1 AAI-SEQ-JOB N 2,0 BJ N *ins*
1 AAI-MODULO-OBJETO A 8,0 BK N *ins*
-- - -------------------------------- -- - -------- ----- - - -- -
Feito11:28:43 ***** P R E D I C T 4.4.1 ***** 2014-04-24
- Edit Elements to a File - Page: 1
List of fields inserted
AAI-SIGLA-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-NOME-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-FUNCAO-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-TIPO-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-MODO-EXEC-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-STATUS-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-SEQ-ORGANOGRAMA AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-NOME-JOB AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-SEQ-JOB AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-MODULO-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-STAT-PROD AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-OBJETO-CHAMADO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-SUBOBJETO-CHAMADO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-SUBROTINA-CHAMADA AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-TELA-CHAMADA AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-ARQ-USADO-ABERTURA AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-DT-ATUALIZ-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
AAI-USER-OBJETO AABD-TESTE-CLAU-VIEW-501 *** ins ***
Hit 'ENTER' to continue.
Checando o file 501 para ver se copiou a viewDIC2516 INVALID FUNCTION CODE.
11:28:56 ***** P R E D I C T 4.4.1 ***** 2014-04-24
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 ......... s
File ID .......... Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 501
External name ....
Restrictions ....* Profile Default,empty Association .......*
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
Copiou a view11:29:27 ***** P R E D I C T 4.4.1 ***** 2014-04-24
Plan 0 - Select File -
Cmd File ID Type Fnr DDM Impl Other
__ AABD-TESTE-CLAU-VIEW-501 U 501
__ AABD-TESTE-CLAU-501 A 501
__ ('.' = EXIT, 'T' = TOP, 'C' = Specify association ( ))
Observação
Nesses passos que fizemos de copiar o file fisico e da view só copiamos as definições dos campos não copiamos os dados;
0 comentários:
Enviar um comentário