quarta-feira, maio 25, 2016

Criando um File e View no Predict

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 ==> _______           |
                                                +------------------------------+

Como estou no 010 o nome dele é DB.S010.ADABAS
 
 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 ==> _______           |
                                                +------------------------------+

Enter vai confirmar o banco selecionado

 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 ...........*


Vamos teclar enter

 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

Colocando os campos do fisico na view;

 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 - para selecionar os campos;

 > sel                 > + Fi: AAFD-MONITORAMENTO               L: 1    S:
     Ty L Field ID                         F Cs Length   Occ   D U DB S    All
     *- - -------------------------------- *- * -------- ----- * * -- *



















     -- - -------------------------------- -- - -------- ----- - - -- -

Enter para continuar;

 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 ....*


Em Cmd coloco um X para poder selecionar os campos que vão ficar na view;

 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 (     ))

Ultimos 3 campos (enter)

 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 (     ))

Campos selecionados dou CAT para salvar;

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

Campos adicionados na view;

 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.

Continuação

 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.

Para gerar a view para que os analista acessem a view - tecle PF3 para voltar na tela inicial

 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

De o comando G/DD

 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

Enter (lembrando estou gerando a view);

 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

Mostrando os campos que serão gerados da view;

 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

Continuação

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


Em STATUS no lugar do PUBL colocamos PRIV (PRIVATE);

 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

Manual do Natural Security


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).               |
+---------+-----------------------------------------------------------------------------------------------------------+

Vou usar PRIVATE pois depois vou liberar acesso na biblioteca no SYSSEC - Nesta tela de dois enter - depois tecle pf3;

 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

Criada

 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

SYSSEC


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

Vamos marcar Library

 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

Na biblioteca que o analista pediu (ADACMP) vamos liberar acesso a esta view

 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

Vamos colocar a view que queremos liberar - AAFD-MONITORAMENTO

 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

vamos liberar acesso de update - up - mais temos mais opções pra usar

RE  Read-Link
UP  Update-Link
CL  Cancel Link
DI  Display File

Ficando assim;

 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

Liberado acesso de update na biblioteca ADACMP

 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

Checando na biblioteca ADACMP pra ver se esta disponivel mesmo esta view;

 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

Esta disponivel para o analista visualizar

 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

Gerando no Físico


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

Vamos marcar o file fisico;

 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

em Cmd colocamos um X e teclamos enter;

 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 (     ))

Tecle PF3 para voltar uma tela;

 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

Para gerar no fisico usamos a opção G/AF

 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

Gerando o físico;

 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

Mostrando os campos que serão criados;

 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


Continuação

 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

Continuação

 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

Continuação

 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

Continuação

 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











Pede confirmação para poder criar no físico do banco;

 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

Criado com sucesso no fisico;

 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













SYSAOS


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

Agora o analista vai conseguir gravar dados neste file novo criado;

  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

1 comentário:

  1. 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.

    Um 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

    ResponderEliminar