O Predict é um dicionário de dados, que documenta e suporta o desenho técnico, a implantação e manutenção de bancos de dados e aplicações. Este software permite aos administradores de bancos de dados e desenvolvedores de aplicações gerenciar a informação sobre dados, programas e o uso de dados os campos de um file Adabas.
Criando
Este é um passo a passo para se criar um file usando o Predict, primeiro temos que checar para ver o número de um file que não esteja sendo utilizado no banco, um jeito rápido para ver isso é no SYSAOS;
14:45:40 ***** A D A B A S BASIC SERVICES ***** 2014-08-05
Isolated - Main Menu - PMAIN02
Code Basic Services Code Other Services
---- ---------------------- ---- ---------------------
A Session monitoring 1 Adabas Cache Facility
C Checkpoint maintenance 2 Delta Save Facility
F File maintenance 3 Trigger Maintenance
M Database maintenance 4 AOS Security
O Session opercoms 5 Transaction Manager
R Database report 6 Adabas Statistics
S Space calculation 7 Vista
? Help 8 Fastpath
. Exit 9 SAF Security
---- ---------------------- ---- ---------------------
Code ....... r
Database ... 010 (DB.S010.ADABAS)
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit
Usando a opção F vamos checar todos os files do banco
14:46:07 ***** A D A B A S BASIC SERVICES ***** 2014-08-05
- Database Report - PDR0002
Code Service
---- -------------------------------------
C List files with crit. no. of extents
D Display field description table (FDT)
F Display file(s)
G General database layout
L List VOLSER distribution of database
R Display ASSO/DATA block (RABN)
U Display unused storage
? Help
. Exit
---- -------------------------------------
Code ......... f
File No ...... 0_____ Password ..
Database ID .. 010 (DB.S010.ADABAS)
VOLSER ....... ______
Command ==>
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
Na tela dos últimos files vai até o file 399 depois vai para o 500 vamos criar um novo file com o número 499
14:46:47 ***** A D A B A S BASIC SERVICES ***** 2014-08-05
DBID 010 - Display Files - PDRF002
Fnr File Name Loaded Top-ISN Max-ISN Ext. Pad % Ind. %Used
NUAD A D ACISEXU A D
---- ---------------- ---------- ---------- ---------- ---- -- -- ------- -----
389 BRAS-CONTEXTO-A 1999-08-21 1861 5511 1111 5 5 NNISNNN 11 16
390 BRAS-USUARIO-A 1999-08-21 58007 73033 1121 5 5 NNISNNN 43 99
391 BRAS-SISTEMA 1999-08-25 66552 67521 1111 5 5 NNISNNN 46 96
392 BRAS-CONTABILIZ 1999-08-23 1066446 1500641 1111 3 3 NNISNNN 55 69
393 BRAS-DOMICILIO 1999-08-20 2072 2755 1111 3 3 NNISNNN 4 2
394 BRAS-CONT-FITAS 1999-11-05 123 1377 1111 1 1 NNISNNN 37 7
395 BRAS-TRANSF 1999-11-11 6092 8267 1111 3 3 NNISNNN 57 58
396 BRAS-CREDOR 1999-12-09 70352 85435 1111 1 1 NNISNNN 92 84
397 BRAS-TB-MENSAGEM 1999-10-28 3879 5511 1111 10 10 NNNSNNN 77 70
398 BRAS-FISICO-251 2009-12-23 80987 150201 1111 3 3 NNNSNNN 57 63
399 BRAS-FISICO-252 2005-11-22 45769 50985 1111 10 10 NNISNNN 26 49
500 BRAS-FISICO-253 2009-12-23 0 8267 1111 10 10 NNISNNN 4 0
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Repos Exit -- - + Menu
Predict
No Predict vamos criar este novo file, opções M\FI;
14:48:04 ***** P R E D I C T 4.4.1 ***** 2014-08-05
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
Vamos criar o file usando a opção A - FILE NR - colocamos o numero que encontramos de file livre no SYSAOS;
15:47:30 ***** P R E D I C T 4.4.1 ***** 2008-06-10
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 ......... a
File ID .......... AAFD-FISICO-499 Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
Altero o (C) do Conceptual file (A) e dou enter;
15:35:55 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Add a file -
File ID ......... AAFD-FISICO-499
File type .................* C Conceptual file
Master file ...............*
File number ...............* 499
Logical distribution type .*
Contained in DA ...........*
File Type - a (Conceptual file) - A é para file Físico;
15:37:38 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Add a file -
File ID ......... AAFD-FISICO-499
File type .................* A Adabas file
Master file ...............*
File number ...............* 499
Logical distribution type .* Simple file
Contained in DA ...........*
Tecle Enter
15:54:48 ***** P R E D I C T 4.4.1 ***** 2008-06-10
- Add a file -
File ID ......... AAFD-FISICO-499
Type ............ Adabas, Simple file
File number ..... 499
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 * Database link attr. .. Y Associations ..* N
Vamos colocar um X em Adabas Attributes;
16:43:08 ***** P R E D I C T 4.4.1 ***** 2008-06-10
- Add a file -
File ID ......... AAFD-FISICO-499 +----- Database link attributes -----+
Type ............ Adabas, Simple file | --> Mark one or more |
File number ..... 499 | attributes |
Contained in DA . | x * 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 ..* N * Databa +------------------------------------+
Como este file vai ser criado no desenvolvimento primeiro e depois em produção o analista pediu pouco espaço em desenvolvimento
DIC2501 FILE ADDED SUCCESSFULLY.
15:40:15 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Modify Adabas attributes -
File ID ......... AAFD-FISICO-499 Added 2016-05-25 at 15:38
Type ............ Adabas, Simple file by DBA0002
Contained in DA .
Required attributes Physical distribution type
Phys. file number ..* 499 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
O desenvolvedor falou que em desenvolvimento terá no maximo 5511 registros, e para este tamanho vou colocar um UI - 66, NI - 58 e o DS - 81
DIC2501 FILE ADDED SUCCESSFULLY.
15:40:15 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Modify Adabas attributes -
File ID ......... AAFD-FISICO-499 Added 2016-05-25 at 15:38
Type ............ Adabas, Simple file by DBA0002
Contained in DA .
Required attributes Physical distribution type
Phys. file number ..* 499 Simple file
Min ISN ............. 1
Max ISN ............. 5511
Device Cylinder Blocks Padding factor Max 2. alloc
*----- ---------- ---------- -------------- ------------
ASSO 8391 UI 33 10
NI 58
DATA 8391 DS 81 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
File criado
DIC2503 ADABAS ATTRIBUTES MODIFIED SUCCESSFULLY.
15:45:06 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 .......... AAFD-FISICO-499 Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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 adicionar uns campos que este analista pediu;
DIC2503 ADABAS ATTRIBUTES MODIFIED SUCCESSFULLY.
15:45:06 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 ......... e
File ID .......... AAFD-FISICO-499 Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
De cara esta tudo em branco, vamos adicionar os campos;
> > + Fi: AAFD-FISICO-499 L: 1 S:
Ty L Field ID F Cs Length Occ D U DB S All
*- - -------------------------------- *- * -------- ----- * * -- *
-- - -------------------------------- -- - -------- ----- - - -- -
Depois de adicionado os campos vamos dar o comando CAT para salvar;
> cat > + Fi: AAFD-FISICO-499 L: 1 S: 19
Ty L Field ID F Cs Length Occ D U DB S All
*- - -------------------------------- *- * -------- ----- * * -- *
1 BANCO_ID N 3,0 D AA N *new*
1 NUMERO_FILE N 5,0 AB N *new*
1 DATA_COLETA A 10,0 D AC N *new*
1 NOME_FILE A 16,0 AD N *new*
1 TOP_ISN N 10,0 AE N *new*
1 MAX_ISN N 10,0 AF N *new*
1 EXTENTS N 4,0 AG N *new*
1 INDICADORES A 7,0 AH N *new*
1 NI_ALOCADO N 7,0 AI N *new*
1 UI_ALOCADO N 6,0 AJ N *new*
1 AC_ALOCADO N 7,0 AK N *new*
1 DS_ALOCADO N 8,0 AL N *new*
1 NI_NAO_USADO N 7,0 AM N *new*
1 UI_NAO_USADO N 6,0 AN N *new*
1 AC_NAO_USADO N 7,0 AO N *new*
1 DS_NAO_USADO N 8,0 AP N *new*
1 PADDING_ASSO N 2,0 AQ N *new*
1 PADDING_DATA N 2,0 AR N *new*
1 DATA_CRIACAO_FILE A 10,0 AS N *new*
-- - -------------------------------- -- - -------- ----- - - -- -
Campos criados;
16:04:25 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Edit Elements to a File - Page: 1
List of fields updated
BANCO_ID AAFD-FISICO-499 *** new ***
NUMERO_FILE AAFD-FISICO-499 *** new ***
DATA_COLETA AAFD-FISICO-499 *** new ***
NOME_FILE AAFD-FISICO-499 *** new ***
TOP_ISN AAFD-FISICO-499 *** new ***
MAX_ISN AAFD-FISICO-499 *** new ***
EXTENTS AAFD-FISICO-499 *** new ***
INDICADORES AAFD-FISICO-499 *** new ***
NI_ALOCADO AAFD-FISICO-499 *** new ***
UI_ALOCADO AAFD-FISICO-499 *** new ***
AC_ALOCADO AAFD-FISICO-499 *** new ***
DS_ALOCADO AAFD-FISICO-499 *** new ***
NI_NAO_USADO AAFD-FISICO-499 *** new ***
UI_NAO_USADO AAFD-FISICO-499 *** new ***
AC_NAO_USADO AAFD-FISICO-499 *** new ***
DS_NAO_USADO AAFD-FISICO-499 *** new ***
PADDING_ASSO AAFD-FISICO-499 *** new ***
PADDING_DATA AAFD-FISICO-499 *** new ***
Hit 'ENTER' to continue.
J - Physical Attributes - Vamos arrumar os atributos físicos (colocar o nome do banco)
DIC2713 EDITING TERMINATED.
12:03:28 ***** P R E D I C T 4.4.1 ***** 2015-08-21
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 ......... j
File ID .......... AAFD-FISICO-499 Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
New - Vamos colocar o nome do banco;
12:03:28 ***** P R E D I C T 4.4.1 ***** 2015-08-21
Plan 0 - (FI) File Maintenance - Profile SYSTEM
Function Function
+All--------Select one or more physical file----------+
A Add a file | Cmd Database name T PDBnr PFnr |
C Copy file | |
M Modify file | x ** new ** |
N Rename/Renumber fil | _ ** default record ** 499 |
P Purge file | |
D Display file | |
| |
Function ......... j | |
File ID .......... AEMU | |
Copy ID .......... | |
Contained in DA .. | |
External name .... | |
| |
Restrictions ....* Pr | |
+-----------------------------------------------------+
Command ===>
ADD - x
DIC1371 COMMAND X NOT POSSIBLE
12:03:28 ***** P R E D I C T 4.4.1 ***** 2015-08-21
Plan 0 - (FI) File Maintenance - Profile SYSTEM
+All--------Commands-----------+
Function Functio | x A Add |
+All--------Select one | _ ' ' No command |
A Add a file | Cmd Database name | |
C Copy file | | |
M Modify file | X ** new ** | |
N Rename/Renumber fil | _ ** default recor | |
P Purge file | | |
D Display file | | |
| | |
Function ......... j | | |
File ID .......... AEMU | | |
Copy ID .......... | | |
Contained in DA .. | | |
External name .... | | |
| | |
Restrictions ....* Pr | | |
+--------------------- | |
Command ===> | |
|Command ==> _______ |
+------------------------------+
12:03:28 ***** P R E D I C T 4.4.1 ***** 2015-08-21
Plan 0 - (FI) File Maintenance - Profile SYSTEM
+All--------Commands-----------+
Function Functio | X A Add |
+---------------- Link File to a Database ---------------+ |
A Add a | | |
C Copy | File ID ............. AAFD-FISICO-499 | |
M Modif | | |
N Renam | Database ID ........* DB.S010.ADABAS | |
P Purge | | |
D Displ | | |
| | |
Function | | |
File ID . | | |
Copy ID . | | |
Contained | | |
External | | |
+--------------------------------------------------------+ |
Restrictions ....* Pr | | |
+--------------------- | |
Command ===> | |
|Command ==> _______ |
+------------------------------+
DIC2793 DATABASE SELECTED.
12:03:28 ***** P R E D I C T 4.4.1 ***** 2015-08-21
Plan 0 - (FI) File Maintenance - Profile SYSTEM
+All--------Commands-----------+
Function Functio | X A Add |
+---------------- Link File to a Database ---------------+ |
A Add a | | |
C Copy | File ID ............. AAFD-FISICO-499 | |
M Modif | | |
N Renam | Database ID ........* DB.S010.ADABAS | |
P Purge | | |
D Displ | | |
| | |
Function | | |
File ID . | | |
Copy ID . | | |
Contained | | |
External | | |
+--------------------------------------------------------+ |
Restrictions ....* Pr | | |
+--------------------- | |
Command ===> | |
|Command ==> _______ |
+------------------------------+
Criando uma nova View
Criando a view
DIC2511 FIELD LIST CATALOGED.
16:05:00 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 ......... a
File ID .......... AAFD-monitoramento Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
Altero o (C) do campo File type para (U) e adiciono o nome do File mestre no campo (Master File)
16:15:48 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Add a file -
File ID ......... AAFD-MONITORAMENTO
File type .................* C Conceptual file
Master file ...............*
File number ...............* 499
Logical distribution type .*
Contained in DA ...........*
Depois do enter vai mudar para USERVIEW;
16:19:07 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Add a file -
File ID ......... AAFD-MONITORAMENTO
File type .................* U Adabas userview
Master file ...............* AAFD-FISICO-499
File number ...............* 499
Logical distribution type .*
Contained in DA ...........*
16:19:24 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Add a file -
File ID ......... AAFD-MONITORAMENTO
Type ............ Adabas userview
File number ..... 499 Master file: AAFD-FISICO-499
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 ..* N
View criada - Mais ela esta sem nenhum campo;
DIC2501 FILE ADDED SUCCESSFULLY.
16:19:42 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 .......... AAFD-MONITORAMENTO Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
DIC2501 FILE ADDED SUCCESSFULLY.
16:19:42 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 ......... e
File ID .......... AAFD-MONITORAMENTO Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
> sel > + Fi: AAFD-MONITORAMENTO L: 1 S:
Ty L Field ID F Cs Length Occ D U DB S All
*- - -------------------------------- *- * -------- ----- * * -- *
-- - -------------------------------- -- - -------- ----- - - -- -
16:20:50 ***** P R E D I C T 4.4.1 ***** 2016-05-25
Plan 0 - Field Selection Menu - Profile SYSTEM
File ID ............ AAFD-MONITORAMENTO
Added 2016-05-25 at 16:19
by DBA0002
Select object type .............. EL ( Field )
Retrieval type ......* D
Output mode .........* S Select
Search criteria
Field ID/Synonym ... Synonym of language*
Belongs to FI ...... AAFD-FISICO-499 Files of type .....*
Restrictions ........* Profile Default,empty
Association ....*
16:21:18 ***** P R E D I C T 4.4.1 ***** 2016-05-25
Plan 0 - Select Field -
Cmd Ty L Field ID F Cs Length D U DB S Occ
x 1 BANCO_ID N 3,0 D AA N
x_ 1 NUMERO_FILE N 5,0 AB N
x_ 1 DATA_COLETA A 10,0 D AC N
x_ 1 NOME_FILE A 16,0 AD N
x_ 1 TOP_ISN N 10,0 AE N
x_ 1 MAX_ISN N 10,0 AF N
x_ 1 EXTENTS N 4,0 AG N
x_ 1 INDICADORES A 7,0 AH N
x_ 1 NI_ALOCADO N 7,0 AI N
x_ 1 UI_ALOCADO N 6,0 AJ N
x_ 1 AC_ALOCADO N 7,0 AK N
x_ 1 DS_ALOCADO N 8,0 AL N
x_ 1 NI_NAO_USADO N 7,0 AM N
x_ 1 UI_NAO_USADO N 6,0 AN N
x_ 1 AC_NAO_USADO N 7,0 AO N
x_ 1 DS_NAO_USADO N 8,0 AP N
__ ('.' = EXIT, 'T' = TOP, 'C' = Specify association ( ))
16:22:03 ***** P R E D I C T 4.4.1 ***** 2016-05-25
Plan 0 - Select Field -
Cmd Ty L Field ID F Cs Length D U DB S Occ
x 1 PADDING_ASSO N 2,0 AQ N
x_ 1 PADDING_DATA N 2,0 AR N
x_ 1 DATA_CRIACAO_FILE A 10,0 AS N
__ ('.' = EXIT, 'T' = TOP, 'C' = Specify association ( ))
DIC2793 ELEMENT SELECTED.
> cat > + Fi: AAFD-MONITORAMENTO L: 1 S: 19
Ty L Field ID F Cs Length Occ D U DB S All
*- - -------------------------------- *- * -------- ----- * * -- *
1 BANCO_ID N 3,0 D AA N *ins*
1 NUMERO_FILE N 5,0 AB N *ins*
1 DATA_COLETA A 10,0 D AC N *ins*
1 NOME_FILE A 16,0 AD N *ins*
1 TOP_ISN N 10,0 AE N *ins*
1 MAX_ISN N 10,0 AF N *ins*
1 EXTENTS N 4,0 AG N *ins*
1 INDICADORES A 7,0 AH N *ins*
1 NI_ALOCADO N 7,0 AI N *ins*
1 UI_ALOCADO N 6,0 AJ N *ins*
1 AC_ALOCADO N 7,0 AK N *ins*
1 DS_ALOCADO N 8,0 AL N *ins*
1 NI_NAO_USADO N 7,0 AM N *ins*
1 UI_NAO_USADO N 6,0 AN N *ins*
1 AC_NAO_USADO N 7,0 AO N *ins*
1 DS_NAO_USADO N 8,0 AP N *ins*
1 PADDING_ASSO N 2,0 AQ N *ins*
1 PADDING_DATA N 2,0 AR N *ins*
1 DATA_CRIACAO_FILE A 10,0 AS N *ins*
-- - -------------------------------- -- - -------- ----- - - -- -
16:23:03 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Edit Elements to a File - Page: 1
List of fields inserted
BANCO_ID AAFD-MONITORAMENTO *** ins ***
NUMERO_FILE AAFD-MONITORAMENTO *** ins ***
DATA_COLETA AAFD-MONITORAMENTO *** ins ***
NOME_FILE AAFD-MONITORAMENTO *** ins ***
TOP_ISN AAFD-MONITORAMENTO *** ins ***
MAX_ISN AAFD-MONITORAMENTO *** ins ***
EXTENTS AAFD-MONITORAMENTO *** ins ***
INDICADORES AAFD-MONITORAMENTO *** ins ***
NI_ALOCADO AAFD-MONITORAMENTO *** ins ***
UI_ALOCADO AAFD-MONITORAMENTO *** ins ***
AC_ALOCADO AAFD-MONITORAMENTO *** ins ***
DS_ALOCADO AAFD-MONITORAMENTO *** ins ***
NI_NAO_USADO AAFD-MONITORAMENTO *** ins ***
UI_NAO_USADO AAFD-MONITORAMENTO *** ins ***
AC_NAO_USADO AAFD-MONITORAMENTO *** ins ***
DS_NAO_USADO AAFD-MONITORAMENTO *** ins ***
PADDING_ASSO AAFD-MONITORAMENTO *** ins ***
PADDING_DATA AAFD-MONITORAMENTO *** ins ***
Hit 'ENTER' to continue.
16:23:03 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Edit Elements to a File - Page: 2
List of fields inserted
DATA_CRIACAO_FILE AAFD-MONITORAMENTO *** ins ***
Hit 'ENTER' to continue.
DIC2511 FIELD LIST CATALOGED.
16:24:15 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 .......... AAFD-MONITORAMENTO Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
DIC2805 EXECUTION STOPPED WITH PF-KEY.
16:24:25 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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
16:24:39 ***** P R E D I C T 4.4.1 ***** 2016-05-25
Plan 0 - Generate a DDM -
Current VM ............. HOME
File ID ...............* AAFD-MONITORAMENTO
Contained in DA ........
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
MORE
16:25:13 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate a DDM - Page: 1
DBID: 0 FNR: 499 DDM: AAFD-MONITORAMENTO DEF.SEQ:
T L DB Name F Leng S D Remarks
- - -- -------------------------------- - ----- - - -----------------------
* Generation started
* at 2016-05-25 16:25:13
* by user DBA0002
*
1 AA BANCO_ID N 3,0 N D
1 AB NUMERO_FILE N 5,0 N
1 AC DATA_COLETA A 10,0 N D
1 AD NOME_FILE A 16,0 N
1 AE TOP_ISN N 10,0 N
1 AF MAX_ISN N 10,0 N
1 AG EXTENTS N 4,0 N
1 AH INDICADORES A 7,0 N
1 AI NI_ALOCADO N 7,0 N
1 AJ UI_ALOCADO N 6,0 N
1 AK AC_ALOCADO N 7,0 N
1 AL DS_ALOCADO N 8,0 N
MORE
16:25:13 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate a DDM - Page: 2
DBID: 0 FNR: 499 DDM: AAFD-MONITORAMENTO DEF.SEQ:
T L DB Name F Leng S D Remarks
- - -- -------------------------------- - ----- - - -----------------------
1 AM NI_NAO_USADO N 7,0 N
1 AN UI_NAO_USADO N 6,0 N
1 AO AC_NAO_USADO N 7,0 N
1 AP DS_NAO_USADO N 8,0 N
1 AQ PADDING_ASSO N 2,0 N
1 AR PADDING_DATA N 2,0 N
1 AS DATA_CRIACAO_FILE A 10,0 N
***** DDM generated ******
DIC2025 DDM ' AAFD-MONITORAMENTO ' GENERATED SUCCESSFULLY.
16:25:39 *** NATURAL SECURITY SYSTEM *** 2016-05-25
- Add File -
File ID .. AAFD-MONITORAMENTO Modified .. by
DBID ..... 0
FNR ...... 499
Status ... PUBL (PUBL, ACCE, PRIV)
-- DDM Modifier --
________ 0
________ 0
________ 0
________ 0
________ 0
________ 0
________ 0
________ 0
Additional Options ..: N
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit AddOp Flip Canc
Fala assim;
+---------+-----------------------------------------------------------------------------------------------------------+
| PUBLIC | O DDM não está protegido. Ele pode ser usado - ou seja, leitura/gravação - por qualquer biblioteca. |
+---------+-----------------------------------------------------------------------------------------------------------+
| ACCESS | O DDM é protegido tanto quanto UPDATE está em curso. Ele pode ser lido por qualquer biblioteca. Pode, |
| | no entanto, ser atualizado apenas por bibliotecas que foram ligados a ele. |
+---------+-----------------------------------------------------------------------------------------------------------+
| PRIVATE | A DDM está protegida. Ele pode ser usado apenas por bibliotecas que foram ligados a ele. Essa ligação |
| | pode ser definida como "READ" (isto é, somente leitura) ou "update" (que implica gravação). |
+---------+-----------------------------------------------------------------------------------------------------------+
DIC2025 DDM ' AAFD-MONITORAMENTO ' GENERATED SUCCESSFULLY.
16:25:39 *** NATURAL SECURITY SYSTEM *** 2016-05-25
- Add File -
File ID .. AAFD-MONITORAMENTO Modified .. by
DBID ..... 0
FNR ...... 499
Status ... PRIV (PUBL, ACCE, PRIV)
-- DDM Modifier --
________ 0
________ 0
________ 0
________ 0
________ 0
________ 0
________ 0
________ 0
Additional Options ..: N
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit AddOp Flip Canc
SYSSEC2226: File added successfully.
16:27:03 ***** P R E D I C T 4.4.1 ***** 2016-05-25
Plan 0 - Generate a DDM -
Current VM ............. HOME
File ID ...............* AAFD-MONITORAMENTO
Contained in DA ........
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
Acessando o SYSSEC vamos liberar acesso a esta view a biblioteca do usuário;
16:27:53 *** NATURAL SECURITY *** 2016-05-25
- Main Menu - FSEC (010,9)
Code Subsystem
---- ----------------------
A Administrator Services
M Maintenance
R Retrieval
? Help
. Exit
---- ----------------------
Code m
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Main Fdic Canc
16:27:53 *** NATURAL SECURITY *** 2016-05-25
- Main Menu - FSEC (010,9)
+----------- MAINTENANCE -------------+
| Please select one type of object: |
| |
Code S | _ User |
---- - | _ Application |
A A | x Library |
M M | _ File |
R R | _ Mailbox |
? H | _ Utility |
. E | |
---- - | _ *PRD-Docu-Object |
| _ *PRD-Ext-Object |
| _ *PRD-Function |
Code m | _ *PRD-3GL-Library |
| |
| Start Value .. ________________ |
| Type/Status .. ____ |
+-------------------------------------+
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Flip - + Main Fdic Canc
16:32:24 *** NATURAL SECURITY *** 2016-05-25
- Library Maintenance - FSEC (010,9)
Co Library ID Library Name Prot. Message
__ __________ ________________________________ _____ _____________________
lf ADACMP Library for ADACMP Cards YN
__ ADAWAN adawan YN
__ AOS-T Aos teste YN
__ NCCP Guardar fontes sistema ATtACH YN
__ APS220 Biblioteca Programas Interface YN
__ NEVADA Biblioteca do NEVADA ANTIGA YN
__ NEVADA2 Biblioteca do NEVADA UPGRADE YN
__ SINTEGRA SISTEMA INTEGRADO YN
__ CADASTRO Sefop/Cadastro Geral YN
__ FOLHA Folha de Pagamento YN
__ ABRIL2 Sist. Imp. de Relatorio ABRIL YN
__ CENSO CONTROLE DE CENSO YN
__ DLL Biblioteca p/ atender cfc-Mod. YN
__ CIAPE Contr. Interno Analise/Programac YN
__ CIEPE Biblioteca p/ atender YN
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Flip - + Main Fdic Canc
16:32:24 *** NATURAL SECURITY *** 2016-05-25
- Library Maintenance - FSEC (010,9)
Co Library ID Library Name Prot. Message
__ __________ ________________________________ _____ _____________________
lf ADACMP Library for ADACMP Cards YN
__ ADAWAN adawan YN
__ AOS +------------------------ LINK LIBRARY -----------------------------+
__ NCC | |
__ APS | Link library ADACMP |
__ NEV | |
__ NEV | Start value for list of files |
__ SIN | AAFD-MONITORAMENTO______________ |
__ CAD | Select only defined links ...... N |
__ FOL | |
__ ABR +-------------------------------------------------------------------+
__ CENSO CONTROLE DE CENSO YN
__ DLL Biblioteca p/ atender cfc-Mod. YN
__ CIAPE Contr. Interno Analise/Programac YN
__ CIEPE Biblioteca p/ atender YN
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Flip - + Main Fdic Canc
RE Read-Link
UP Update-Link
CL Cancel Link
DI Display File
16:44:57 *** NATURAL SECURITY *** 2016-05-25
- Link Library to Files - FSEC (010,9)
Library ID .. ADACMP
Co File ID Status Message
__ ________________________________ _______ _____________________
up AAFD-MONITORAMENTO PRIV
__ AAFD-TESTE PRIV
__ AAFD-TOTAIS-NETPASS PRIV
__ AAFU-ACC-LOGOFF PRIV
__ AAFU-BACKUP PRIV
__ AAFU-CMD PRIV
__ AAFU-CMD-WITHIN-FILE PRIV
__ AAFU-CMUSER PRIV
__ AAFU-CMUTAB PRIV
__ AAFU-CMUTAB-240 PRIV
__ AAFU-CONTR-LOGON-DETRAN PRIV
__ AAFU-CONTR-TCP-DETRAN PRIV
__ AAFU-CONTR-TCPIP PRIV
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Flip - + Main Fdic Canc
16:46:18 *** NATURAL SECURITY *** 2016-05-25
- Link Library to Files - FSEC (010,9)
Library ID .. ADACMP
Co File ID Status Message
__ ________________________________ _______ _____________________
__ AAFD-MONITORAMENTO PRIV Update linked
__ AAFD-TESTE PRIV
__ AAFD-TOTAIS-NETPASS PRIV
__ AAFU-ACC-LOGOFF PRIV
__ AAFU-BACKUP PRIV
__ AAFU-CMD PRIV
__ AAFU-CMD-WITHIN-FILE PRIV
__ AAFU-CMUSER PRIV
__ AAFU-CMUTAB PRIV
__ AAFU-CMUTAB-240 PRIV
__ AAFU-CONTR-LOGON-DETRAN PRIV
__ AAFU-CONTR-TCP-DETRAN PRIV
__ AAFU-CONTR-TCPIP PRIV
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Flip - + Main Fdic Canc
16:47:04 ***** NATURAL ***** 25/05/2016
User DBA0002 - Main Menu - Library ADACMP
Function
_ Development Functions
_ Development Environment Settings
_ Maintenance and Transfer Utilities
_ Debugging and Monitoring Utilities
_ Example Libraries
_ Other Products
_ Help
_ Exit Natural Session
Logon accepted to library ADACMP.
Command ===> L V AAFD-MONITORAMENTO
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Canc
16:47:39 ***** NATURAL LIST COMMAND ***** 25/05/2016
User DBA0002 - List DDM AAFD-MONITORAMENTO - Library ADACMP
DDM DBID 0 DDM FNR 499 VSAM Name Default Sequence Page 1
T L DB Name F Leng S D Remark
- - -- -------------------------------- - ---- - - ------------------------
* Generation started
* at 2016-05-25 16:25:13
* by user DBA0002
*
1 AA BANCO_ID N 3,0 N D
1 AB NUMERO_FILE N 5,0 N
1 AC DATA_COLETA A 10 N D
1 AD NOME_FILE A 16 N
1 AE TOP_ISN N 10,0 N
1 AF MAX_ISN N 10,0 N
1 AG EXTENTS N 4,0 N
1 AH INDICADORES A 7 N
1 AI NI_ALOCADO N 7,0 N
Top of List.
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Print Exit Short -- - + ++ Canc
Para o analista conseguir inserir registro neste file temos que criar no físico;
16:48:36 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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
16:48:44 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 ............ 499
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
16:48:55 ***** P R E D I C T 4.4.1 ***** 2016-05-25
Plan 0 - Select File -
Cmd File ID Type Fnr DDM Impl Other
x_ AAFD-FISICO-499 A 499
__ * AAFD-MONITORAMENTO U 499 * *
__ ('.' = EXIT, 'T' = TOP, 'C' = Specify association ( ))
DIC2793 FILE SELECTED.
16:49:04 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 .......... AAFD-FISICO-499 Attributes ........*
Copy ID .......... File of type ......*
Contained in DA .. File nr ............ 499
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
DIC2805 EXECUTION STOPPED WITH PF-KEY.
16:50:25 ***** P R E D I C T 4.4.1 ***** 2016-05-25
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 ....* af 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
16:50:39 ***** P R E D I C T 4.4.1 ***** 2016-05-25
Plan 0 - Generate Adabas file -
Current VM ................ HOME
File ID ..................* AAFD-FISICO-499
Phys. file number ......... 499
Contained in DA ...........
Phys. database number .....
Load file into database ... Y (Y/N) Replace if only FDT exists .... N (Y/N)
Update/add fields (FDT) ... N (Y/N)
Update file parameters .... N (Y/N) Replace if no records loaded .. N (Y/N)
Change file number ........ N (Y/N)
Format DS/Index ........... Y (Y/N)
Adabas password ...........
List actions .............. Y (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
MORE
16:50:48 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate Adabas file -
File ID ............... AAFD-FISICO-499 PFnr ... 499
Contained in DA ....... DB.S010.ADABAS PDBnr .. 010
Action Parameter Remark
DEFFDT FILE=499
FNDEF='01,AA,3,U,DE,NU'
Field: BANCO_ID
FNDEF='01,AB,5,U,NU'
Field: NUMERO_FILE
FNDEF='01,AC,10,A,DE,NU'
Field: DATA_COLETA
FNDEF='01,AD,16,A,NU'
Field: NOME_FILE
FNDEF='01,AE,10,U,NU'
Field: TOP_ISN
FNDEF='01,AF,10,U,NU'
Field: MAX_ISN
MORE
16:50:48 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate Adabas file -
File ID ............... AAFD-FISICO-499 PFnr ... 499
Contained in DA ....... DB.S010.ADABAS PDBnr .. 010
Action Parameter Remark
FNDEF='01,AG,4,U,NU'
Field: EXTENTS
FNDEF='01,AH,7,A,NU'
Field: INDICADORES
FNDEF='01,AI,7,U,NU'
Field: NI_ALOCADO
FNDEF='01,AJ,6,U,NU'
Field: UI_ALOCADO
FNDEF='01,AK,7,U,NU'
Field: AC_ALOCADO
FNDEF='01,AL,8,U,NU'
Field: DS_ALOCADO
FNDEF='01,AM,7,U,NU'
Field: NI_NAO_USADO
MORE
16:50:48 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate Adabas file -
File ID ............... AAFD-FISICO-499 PFnr ... 499
Contained in DA ....... DB.S010.ADABAS PDBnr .. 010
Action Parameter Remark
FNDEF='01,AN,6,U,NU'
Field: UI_NAO_USADO
FNDEF='01,AO,7,U,NU'
Field: AC_NAO_USADO
FNDEF='01,AP,8,U,NU'
Field: DS_NAO_USADO
FNDEF='01,AQ,2,U,NU'
Field: PADDING_ASSO
FNDEF='01,AR,2,U,NU'
Field: PADDING_DATA
FNDEF='01,AS,10,A,NU'
Field: DATA_CRIACAO_FILE
LOADFILE NOACEXTENSION=NO
MIXDSDEV=YES
DATAFRM=YES
MORE
16:50:48 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate Adabas file -
File ID ............... AAFD-FISICO-499 PFnr ... 499
Contained in DA ....... DB.S010.ADABAS PDBnr .. 010
Action Parameter Remark
LOADFILE MAXISN=5511
NAME=AAFD-FISICO-499
MINISN=1
ASSOPFAC=10
DATAPFAC=10
PGMREFRESH=NO
ISNSIZE=3
INDEXCOMPRESSION=NO
ISNREUSE=YES
DSREUSE=YES
MAXDS=0
MAXNI=0
MAXUI=0
CIPHER=NO
MAXRECL=10792
MORE
16:50:48 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate Adabas file -
File ID ............... AAFD-FISICO-499 PFnr ... 499
Contained in DA ....... DB.S010.ADABAS PDBnr .. 010
Action Parameter Remark
LOADFILE UISIZE=33B
NISIZE=58B
DSSIZE=81B
DSDEV=8391
16:51:27 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate Adabas file -
File ID ...... AAFD-FISICO-499 PFnr ... 499
Database ID .. DB.S010.ADABAS PDBnr .. 010
+-------------------------------------------------+
| Do you want to execute: y (Y/N) |
+-------------------------------------------------+
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
MORE
16:50:48 ***** P R E D I C T 4.4.1 ***** 2016-05-25
- Generate Adabas file -
File ID ............... AAFD-FISICO-499 PFnr ... 499
Contained in DA ....... DB.S010.ADABAS PDBnr .. 010
FDT defined successfully
File loaded successfully
Checando pelo SYSAOS pra ver se foi criado no fisico, foi criado;
16:52:27 ***** A D A B A S BASIC SERVICES ***** 2016-05-25
DBID 010 - Display File Layout - PDRF012
****************
* File 499 * AAFD-FISICO-499
****************
Records loaded ..... 0 Date loaded .......... 2016-05-25 16:51:36
TOP ISN ............ 0 Date of last update .. 2016-05-25 16:51:36
Max ISN expected ... 5511 Max Compr Rec Lngth .. 10792
Minimum ISN ........ 1 Asso/Data Padding .... 10%/10%
Size of ISN ........ 3 Bytes Highest Index Level .. 3
Number of Updates .. 0
ISN Reusage ........ YES USERISN .............. NO
Space Reusage ...... YES MIXDSDEV ............. YES
ADAM File .......... NO PGMREFRESH ........... NO
Ciphered File ...... NO NOACEXTENSION ........ NO
Coupled Files ...... NONE
Blk per DS Extent .. 0
Blk per UI Extent .. 0
Blk per NI Extent .. 0 Length of Owner ID ... 0
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
16:52:36 ***** A D A B A S BASIC SERVICES ***** 2016-05-25
DBID 010 - Display File Layout - PDRF022
File 499
I Dev LiI Space allocated I From To I Unused
I Type TyI Blocks / Cyls. I RABN RABN I BLOCKS / Cyls.
----I--------I-------------------I ------------------------I------------------
I I I I
ASSOI 8391 ACI 4 0 I 264176 - 264179 I 0 0
I 8391 UII 33 0 I 264180 - 264212 I 32 0
I 8391 NII 58 0 I 264213 - 264270 I 58 0
I I I I
DATAI 8391 DSI 81 1 I 452288 - 452368 I 81 1
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu

Predict, o sistema de dicionário de dados Adabas, é usado para estabelecer e manter um dicionário de dados online. Por estar armazenado em um arquivo Adabas padrão, pode ser acessado diretamente do Natural.
ResponderEliminarUm dicionário de dados contém informações sobre a definição, estrutura e uso de dados. Ele não armazena os dados reais em si, mas sim dados sobre dados ou "metadados". Contendo todas as definições dos dados, o dicionário torna-se o repositório de informações para os atributos, características, fontes, uso e inter-relacionamentos dos dados com outros dados. O dicionário coleta as informações necessárias para tornar os dados mais úteis.
Um dicionário de dados permite que o DBA gerencie e controle melhor os recursos de dados da organização. Usuários avançados de dicionários de dados os consideram ferramentas valiosas em gerenciamento de projetos e design de sistemas. As informações do banco de dados podem ser inseridas no dicionário no modo online ou em lote. A descrição dos dados no dicionário Adabas inclui informações sobre os arquivos, os campos definidos para cada arquivo e a relação entre os arquivos. A descrição de uso inclui informações sobre os proprietários e usuários dos dados, além dos sistemas, programas, módulos e relatórios que os utilizam. Entradas de dicionário são fornecidas para informações sobre:
■ estruturas de rede
■ Bancos de dados Adabas
■ arquivos, campos e relacionamentos
■ proprietários e usuários
■ sistemas, programas, módulos e relatórios
■ verificação de campo (regras de processamento)
Relatórios de dicionário de dados padrão podem ser usados para
■ exibir todo o conteúdo do dicionário de dados
■ campo de impressão, arquivo e informações de relacionamento
■ imprimir informações de campo por arquivo