sexta-feira, agosto 22, 2014

Copiando File pelo Predict

Imagina um pedido de um analista que quer que você crie um outro file igual a um file que já existe (sem dados - com os campos e as views - só que as views com outro nome), existe uma solução rápida de "copiar" este file vazio pelo Predict; Este procedimento no Predict copia (file, view) um de cada vez, as views vamos copiar mais criar com outros nomes, isso para não ter duas views com o mesmo nome.

Copiando o Fisico

Vamos pesquisar pelo SYSSEC um numero de file livre - 501 - vamos usar ele;
09:31:15          ***** A D A B A S  BASIC  SERVICES *****       2014-04-24
  DBID 220                       - Display Files -                    PDRF002

Fnr  File Name        Loaded     Top-ISN    Max-ISN    Ext. Pad %  Ind.   %Used
                                                        NUAD  A  D ACISEXU  A  D
---- ---------------- ---------- ---------- ---------- ---- -- -- ------- -----
  317 ATCD-DEBITO      2008-12-03          0       5511 1111  3  3 NNISNNN  1  0
  318 AEOD-FISICO-318  2009-02-17       3034       4133 1111  5  5 NNISNNN 51 18
  320 ABZD-FISICO-320  2009-06-24        117       1377 1111  3  3 NNISNNN 28  0
  321 ABSD-FISICO-321  2010-12-14          1       1377 1111  5  5 NNISNNN 21  0
  322 AEAD-FISICO-322  2010-07-05         41       1377 1111  3  3 NNISNNN 68  0
  323 AECD-FISICO-323  2009-10-09          0       4133 1111 10 10 NNISNNN  3  0
  324 AEDU-FISICO-324  2009-10-23         25      44095 1111 10 10 NNISNNN  5  0
  325 AEMD-FISICO-325  2010-05-18        146       1377 1111  3  3 NNISNNN 45  0
  326 AEAD-FISICO-326  2010-07-22         42       1377 1111  3  3 NNISNNN 45  1
  327 AEAD-FISICO-327  2010-12-07          9       1377 1111  3  3 NNISNNN 18  2
  338 ABID-FISICO-338  2010-07-09          5       1377 1111  3  3 NNISNNN 36 17
  344 AEKD-FISICO-344  2010-03-03          0       1377 1111  3  3 NNISNNN 10  0
  400 ABZD-FISICO-400  2006-11-22        376       8267 1111 10 10 NNISNNN 36  0
  401 ABZD-FISICO-401  2008-05-14     281769     315561 1111  5  5 NNISNNN 34 98
  403 AEAD-FISICO-403  2009-04-07         28       1377 1111  3  3 NNISNNN 20  1
  500 AABD-TESTE       2013-05-22          0       1377 1111 10 10 NNISNNN 50  0



  PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
  Help     Repos     Exit                --       -        +        Menu
Vamos acessar o Predict do banco 220 (como é um teste que estou fazendo)
09:24:40        TID   121          COM641/D          User AA01055      24.04.14
                                 -- COM-PASS --                             USTS
        Suspended Programs                          Program Services
---------------------------------       ---------------------------------------
Programs     Name     C Level  PF       Service Description    Programs  ID  PF
--------   --------   - -----  --       --------------------   --------  --  --
UQ         AABSPROG   U  1              Logon/Logoff Utility   ULOG       A
UPDS       AAFAI220   U  2              System Job Queue       UQ         B
UQ         AAFAFRMS   U  3 *            Text Editor Utility    UEDIT      C
                          4              PDS Maint. Utility     UPDS       D
                          5              Spooling System        USPOOL     E
                          6              Message Sending        UM         F
                          7              Natural de Producao    NATP       G
                          8              Aplicacoes Natural     NAT2       H
                          9              Dataset Maintenance    UDS        I

Enter Input:                                                   HELP       ?
dbax 220 sysdic
-------------------------------------------------------------------------------
LU Name: TICS0703      HC TID:               Recall: =         Language: 001
Devtype: 3279 V        Device: PICS0966     Suspend: <  PA1    Case    : UPPER
Lines  : 24               Key: PA2             Jump: NO NO
Columns: 80
No Predict vamos escolher as opções M/FI
09:24:57             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                   - Function Main Menu -                Profile SYSTEM

        Documentation                      External objects

        A  Active retrieval                F  File implementation
        M  Maintenance                     G  Generation
        R  Retrieval                       I  Incorporation
        X  List xref for 3GL               C  Comparison
                                           L  Administration

        DDA services                       Miscellaneous

        D  Defaults                        W  What is new ?
        S  Special functions               ?  Help system
                                           .  Leave Predict

Function ........ m
Object type ....* fi                  Menu type ....* F

Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Agora selecionamos o file que quero copiar - 201 é o file do analista
09:33:49             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                 - (FI) File Maintenance -               Profile SYSTEM

  Function                              Function

  A  Add a file                         L  Link children
  C  Copy file                          S  Select file from a list
  M  Modify file                        B  Push backward
  N  Rename/Renumber file               F  Force standard
  P  Purge file                         J  Physical Attributes
  D  Display file                       K  Modify Vista elements

Function ......... S
File ID ..........                                  Attributes ........*
Copy ID ..........                                  File of type ......*
Contained in DA ..                                  File nr ............ 205
External name ....

Restrictions ....*   Profile Default,empty          Association .......*

Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Vamos selecionar o fisico com x e enter
09:34:00             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                      - Select File -

Cmd  File ID                            Type   Fnr    DDM Impl Other

  x_  * AAID-FISICO-205                   A     205         A
  __  * AAIU-ARQ-OBJETOS                  U     205     *         *
  __  * AAIU-DDDSN                        U     205     *         *
  __  * AAIU-DDREL                        U     205     *         *
  __  * AAIU-DSNAMES                      U     205     *         *
  __  * AAIU-JOBS                         U     205     *         *
  __  * AAIU-STEPS                        U     205     *         *
  __  * AAIU-SYSIN                        U     205     *         *
  __  * AAIU-TAB-ARQUIVOS                 U     205     *         *
  __  * AAIU-TAB-BIBLIOTECAS              U     205     *         *
  __  * AAIU-TAB-MODULOS                  U     205     *         *
  __  * AAIU-TAB-SISTEMAS                 U     205     *         *





  __ ('.' = EXIT, 'T' = TOP, 'C' = Specify association (     ))
Depois de selecionado temos que escolher a opção C - Copy File - em Copy ID colocamos o nome do file Novo
DIC2805 EXECUTION STOPPED WITH PF-KEY.
09:35:00             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                 - (FI) File Maintenance -               Profile SYSTEM

  Function                              Function

  A  Add a file                         L  Link children
  C  Copy file                          S  Select file from a list
  M  Modify file                        B  Push backward
  N  Rename/Renumber file               F  Force standard
  P  Purge file                         J  Physical Attributes
  D  Display file                       K  Modify Vista elements

Function ......... C
File ID .......... AAID-FISICO-205                  Attributes ........*
Copy ID .......... AABD-TESTE-CLAU-501              File of type ......*
Contained in DA ..                                  File nr ............ 205
External name ....

Restrictions ....*   Profile Default,empty          Association .......*

Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Foi alterado o nome do FILE MASTER e o FILE NUMBER - 501 - Depois dei (dois) enters
10:27:44             *****  P R E D I C T  4.4.1  *****              2014-04-24
                                 - Copy file -
File ID ......... AABD-TESTE-CLAU-501


             File type .................* a  Adabas userview
             Master file ...............* AAID-FISICO-205
             File number ...............* 501
             Logical distribution type .*
             Contained in DA ...........*
Confirmando
DIC1276 MASTER FILE CAN NOT BE SPECIFIED.
10:27:44             *****  P R E D I C T  4.4.1  *****              2014-04-24
                                 - Copy file -
File ID ......... AABD-TESTE-CLAU-501


             File type .................* A  Adabas userview
             Master file ...............*
             File number ...............* 501
             Logical distribution type .*
             Contained in DA ...........*
Nesta parte só dei ENTER
10:28:30             *****  P R E D I C T  4.4.1  *****              2014-04-24
                                 - Copy file -
File ID ......... AABD-TESTE-CLAU-501                 Added 2014-04-24 at 10:27
Type ............ Adabas, Simple file                    by AA01055
File number ..... 501
Contained in DA .
Keys ..                                                                 Zoom: N

Literal name ............
Average count ...........
Stability ..............*   Not specified
Sequence field .........*
Vista Access DBnr ......*
Vista Access Fnr ........
Adabas SQL usage ........ N (Y/N)
Abstract     Zoom: N






* Additional attributes ..* S  * Database link attr. .. Y  * Associations ..* S
Vamos colocar os atributos - como espaço do DATA/ASSO - vou copiar esses valores do file que estou copiando
10:28:30             *****  P R E D I C T  4.4.1  *****              2014-04-24
                                 - Copy file -
File ID ......... AABD-TESTE-CLAU-501   +----- Database link attributes -----+
Type ............ Adabas, Simple file   | --> Mark one or more 1055       |
File number ..... 501                   |     attributes                     |
Contained in DA .                       | _ * Adabas attributes              |
Keys ..                                 |                                    |
                                        |                                    |
Literal name ............               |                                    |
Average count ...........               |                                    |
Stability ..............*   Not specifi |                                    |
Sequence field .........*               |                                    |
Vista Access DBnr ......*               |                                    |
Vista Access Fnr ........               |                                    |
Adabas SQL usage ........ N (Y/N)       |                                    |
Abstract     Zoom: N                    |                                    |
                                        |                                    |
                                        |                                    |
                                        |                                    |
                                        |                                    |
                                        |                                    |
                                        |                                    |
* Additional attributes ..* S  * Databa +------------------------------------+
Como é teste não vou alterar nada - vou dar enter - mais se fosse realmente em produção eu colocaria os valores iguais do file copiado
DIC2502 FILE COPIED SUCCESSFULLY.
10:28:47             *****  P R E D I C T  4.4.1  *****              2014-04-24
                         - Modify Adabas attributes -
File ID ......... AABD-TESTE-CLAU-501                 Added 2014-04-24 at 10:28
Type ............ Adabas, Simple file                    by AA01055
Contained in DA .

Required attributes                       Physical distribution type
   Phys. file number ..* 501                 Simple file
   Min ISN ............. 1
   Max ISN ............. 1377

       Device       Cylinder   Blocks      Padding factor  Max 2. alloc
       *-----       ---------- ----------  --------------  ------------
ASSO    8391   UI             1                 10
                NI             1
DATA    8391   DS             1                 10

Loading attributes                        Loading attributes
   Max recl. ...........                     One AC extent .......... N (Y,N)
   ISN reusage ......... Y (Y,N)             DS reusage ............. Y (Y,N)
   User ISN ............ N (Y,N)             Mixed DS device ........ Y (Y,N)

   Additional attributes ..* N
De . (ponto) enter para sair
DIC1069 TEXT FROM ORIGINAL OBJECT HAS BEEN READ.
10:28:54                - File : AABD-TESTE-CLAU-501 -               2014-04-24
       --------------- < Extended description > ---------------
***** ****************************** top of data *****************************
00001           ====================================
00002              File additional description
00003           ====================================
***** **************************** bottom of data ****************************













Command ===>                                                    Scroll ==> CSR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help        Exit        Rfind Rch   up    down        left  right leave
De . (ponto) enter para sair
10:28:54                - File : AABD-TESTE-CLAU-501 -               2014-04-24
       --------------- < Extended description > ---------------
***** ****************************** top of data *****************************
00001           ====================================
00002              File additional description
00003           ====================================
***** ****** +---------------------------------------+ ***********************
              |  Attention: edited description        |
              |             was not saved after       |
              |             modifications.            |
              |                                       |
              | ENTER '.' to return to the menu       |
              |    or 'E' to continue editing         |
              |    or 'C' to catalog modifications:   |
              +---------------------------------------|





Command ===> .                                                  Scroll ==> CSR
Campos copiados para o 501
DIC2713 EDITING TERMINATED.
>                     > + Fi: AABD-TESTE-CLAU-501              L: 1    S: 128
     Ty L Field ID                         F Cs Length   Occ   D U DB S    Top
     *- - -------------------------------- *- * -------- ----- * * -- *
     ** * Tabela de Sistemas                                            *ins*
        1 AAI-SIGLA-SISTEMA                A        3,0        D   AA N *ins*
        1 AAI-FUNCAO-SISTEMA               A      200,0            AB N *ins*
        1 AAI-BIBLIOTECA-SISTEMA           A        8,0            AC N *ins*
        1 AAI-STATUS-SISTEMA               N        1,0            AD N *ins*
        1 AAI-DT-ATUALIZ-SISTEMA           N        8,0            AE N *ins*
        1 AAI-USER-SISTEMA                 A        8,0            AF N *ins*
     ** *     Tabela de Modulos                                         *ins*
        1 AAI-SIGLA-MODULO                 A        8,0        D   AG N *ins*
        1 AAI-NOME-MODULO                  A       30,0            AH N *ins*
        1 AAI-FUNCAO-MODULO                A      200,0            AI N *ins*
        1 AAI-SISTEMA-MODULO               A        3,0            AJ N *ins*
        1 AAI-STATUS-MODULO                N        1,0            AK N *ins*
        1 AAI-DT-ATUALIZ-MODULO            N        8,0            AL N *ins*
        1 AAI-USER-MODULO                  A        8,0            AM N *ins*
     ** *     Tabela de Biblioteca                                      *ins*
        1 AAI-SIGLA-BIBLIOTECA             A        8,0        D   AN N *ins*
        1 AAI-NOME-BIBLIOTECA              A       30,0            AO N *ins*
        1 AAI-STATUS-BIBLIOTECA            N        1,0            AP N *ins*
     -- - -------------------------------- -- - -------- ----- - - -- -
De cat (enter) para catalogar esses campos neste novo file
> cat                 > + Fi: AABD-TESTE-CLAU-501              L: 1    S: 128
     Ty L Field ID                         F Cs Length   Occ   D U DB S    Top
     *- - -------------------------------- *- * -------- ----- * * -- *
     ** * Tabela de Sistemas                                            *ins*
        1 AAI-SIGLA-SISTEMA                A        3,0        D   AA N *ins*
        1 AAI-FUNCAO-SISTEMA               A      200,0            AB N *ins*
        1 AAI-BIBLIOTECA-SISTEMA           A        8,0            AC N *ins*
        1 AAI-STATUS-SISTEMA               N        1,0            AD N *ins*
        1 AAI-DT-ATUALIZ-SISTEMA           N        8,0            AE N *ins*
        1 AAI-USER-SISTEMA                 A        8,0            AF N *ins*
     ** *     Tabela de Modulos                                         *ins*
        1 AAI-SIGLA-MODULO                 A        8,0        D   AG N *ins*
        1 AAI-NOME-MODULO                  A       30,0            AH N *ins*
        1 AAI-FUNCAO-MODULO                A      200,0            AI N *ins*
        1 AAI-SISTEMA-MODULO               A        3,0            AJ N *ins*
        1 AAI-STATUS-MODULO                N        1,0            AK N *ins*
        1 AAI-DT-ATUALIZ-MODULO            N        8,0            AL N *ins*
        1 AAI-USER-MODULO                  A        8,0            AM N *ins*
     ** *     Tabela de Biblioteca                                      *ins*
        1 AAI-SIGLA-BIBLIOTECA             A        8,0        D   AN N *ins*
        1 AAI-NOME-BIBLIOTECA              A       30,0            AO N *ins*
        1 AAI-STATUS-BIBLIOTECA            N        1,0            AP N *ins*
     -- - -------------------------------- -- - -------- ----- - - -- -
Feito
10:30:00             *****  P R E D I C T  4.4.1  *****             2014-04-24
                         - Edit Elements to a File -                  Page:   1

List of fields inserted
   AAI-SIGLA-SISTEMA                AABD-TESTE-CLAU-501              *** ins ***
   AAI-FUNCAO-SISTEMA               AABD-TESTE-CLAU-501              *** ins ***
   AAI-BIBLIOTECA-SISTEMA           AABD-TESTE-CLAU-501              *** ins ***
   AAI-STATUS-SISTEMA               AABD-TESTE-CLAU-501              *** ins ***
   AAI-DT-ATUALIZ-SISTEMA           AABD-TESTE-CLAU-501              *** ins ***
   AAI-USER-SISTEMA                 AABD-TESTE-CLAU-501              *** ins ***
   AAI-SIGLA-MODULO                 AABD-TESTE-CLAU-501              *** ins ***
   AAI-NOME-MODULO                  AABD-TESTE-CLAU-501              *** ins ***
   AAI-FUNCAO-MODULO                AABD-TESTE-CLAU-501              *** ins ***
   AAI-SISTEMA-MODULO               AABD-TESTE-CLAU-501              *** ins ***
   AAI-STATUS-MODULO                AABD-TESTE-CLAU-501              *** ins ***
   AAI-DT-ATUALIZ-MODULO            AABD-TESTE-CLAU-501              *** ins ***
   AAI-USER-MODULO                  AABD-TESTE-CLAU-501              *** ins ***
   AAI-SIGLA-BIBLIOTECA             AABD-TESTE-CLAU-501              *** ins ***
   AAI-NOME-BIBLIOTECA              AABD-TESTE-CLAU-501              *** ins ***
   AAI-STATUS-BIBLIOTECA            AABD-TESTE-CLAU-501              *** ins ***
   AAI-DT-ATUALIZ-BIBLIOTECA        AABD-TESTE-CLAU-501              *** ins ***
   AAI-USER-BIBLIOTECA              AABD-TESTE-CLAU-501              *** ins ***
Hit 'ENTER' to continue.
Vamos ver como ficou - s (enter)
11:02:49             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                 - (FI) File Maintenance -               Profile SYSTEM

Function                              Function

A  Add a file                         L  Link children
C  Copy file                          S  Select file from a list
M  Modify file                        B  Push backward
N  Rename/Renumber file               F  Force standard
P  Purge file                         J  Physical Attributes
D  Display file                       K  Modify Vista elements

Function ......... s
File ID .......... AABD-TESTE-CLAU-501              Attributes ........*
Copy ID ..........                                  File of type ......*
Contained in DA ..                                  File nr ............ 205
External name ....

Restrictions ....*   Profile Default,empty          Association .......*

Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
      Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Criou o file fisico 501 igual 205
11:03:20             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                      - Select File -

Cmd  File ID                            Type   Fnr    DDM Impl Other

  __  AABD-TESTE-CLAU-501                 A     501
















  __ ('.' = EXIT, 'T' = TOP, 'C' = Specify association (     ))
Copiando a View

Como copiamos o file fisico agora vamos copiar as views (neste exemplo vou copiar somente uma view), neste passo vamos selecionar a view do file 201 para o 501;
DIC2792 NO FILE SELECTED.
11:10:54             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                 - (FI) File Maintenance -               Profile SYSTEM

  Function                              Function

  A  Add a file                         L  Link children
  C  Copy file                          S  Select file from a list
  M  Modify file                        B  Push backward
  N  Rename/Renumber file               F  Force standard
  P  Purge file                         J  Physical Attributes
  D  Display file                       K  Modify Vista elements

Function ......... s
File ID ..........                                  Attributes ........*
Copy ID ..........                                  File of type ......*
Contained in DA ..                                  File nr ............ 205
External name ....

Restrictions ....*   Profile Default,empty          Association .......*

Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Vamos copiar a view AAIU-ARQ-OBJETOS para o file 501 - vamos colocar um x na frente do nome dele e dar enter
11:11:48             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                      - Select File -

Cmd  File ID                            Type   Fnr    DDM Impl Other

  __  * AAID-FISICO-205                   A     205         A
  x_  * AAIU-ARQ-OBJETOS                  U     205     *         *
  __  * AAIU-DDDSN                        U     205     *         *
  __  * AAIU-DDREL                        U     205     *         *
  __  * AAIU-DSNAMES                      U     205     *         *
  __  * AAIU-JOBS                         U     205     *         *
  __  * AAIU-STEPS                        U     205     *         *
  __  * AAIU-SYSIN                        U     205     *         *
  __  * AAIU-TAB-ARQUIVOS                 U     205     *         *
  __  * AAIU-TAB-BIBLIOTECAS              U     205     *         *
  __  * AAIU-TAB-MODULOS                  U     205     *         *
  __  * AAIU-TAB-SISTEMAS                 U     205     *         *





  __ ('.' = EXIT, 'T' = TOP, 'C' = Specify association (     ))
Agora vamos copiar ela - temos que colocar o novo nome
DIC2793 FILE SELECTED.
11:12:32             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                 - (FI) File Maintenance -               Profile SYSTEM

  Function                              Function

  A  Add a file                         L  Link children
  C  Copy file                          S  Select file from a list
  M  Modify file                        B  Push backward
  N  Rename/Renumber file               F  Force standard
  P  Purge file                         J  Physical Attributes
  D  Display file                       K  Modify Vista elements

Function ......... C
File ID .......... AAIU-ARQ-OBJETOS                 Attributes ........*
Copy ID .......... AABD-TESTE-CLAU-view-501         File of type ......*
Contained in DA ..                                  File nr ............ 205
External name ....

Restrictions ....*   Profile Default,empty          Association .......*

Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Alterando o nome do FILE MASTER e o FILE NUMBER - 501 - Depois vamos dar dois enters
11:26:27             *****  P R E D I C T  4.4.1  *****              2014-04-24
                                 - Copy file -
File ID ......... AABD-TESTE-CLAU-VIEW-501


             File type .................* U  Adabas userview
             Master file ...............* AABD-TESTE-CLAU-501
             File number ...............* 501
             Logical distribution type .*
             Contained in DA ...........*
enter
11:28:08             *****  P R E D I C T  4.4.1  *****              2014-04-24
                                 - Copy file -
File ID ......... AABD-TESTE-CLAU-VIEW-501            Added 2014-04-24 at 11:25
Type ............ Adabas userview                        by AA01055
File number ..... 501   Master file: AABD-TESTE-CLAU-501
Contained in DA .
Keys ..                                                                 Zoom: N

Literal name ............
Average count ...........
Stability ..............*   Not specified
Sequence field .........*
Vista Access DBnr ......*
Vista Access Fnr ........
Adabas SQL usage ........ N (Y/N)
Abstract     Zoom: N






   Additional attributes ..* N        * Associations ..* S
Digitei cat (enter) para catalogar esta nova view
DIC2502 FILE COPIED SUCCESSFULLY.
> cat                 > + Fi: AABD-TESTE-CLAU-VIEW-501         L: 1    S: 37
     Ty L Field ID                         F Cs Length   Occ   D U DB S    Top
     *- - -------------------------------- *- * -------- ----- * * -- *
        1 AAI-SIGLA-OBJETO                 A        8,0        D   BB N *ins*
        1 AAI-NOME-OBJETO                  A       30,0            BC N *ins*
        1 AAI-FUNCAO-OBJETO                A      200,0            BD N *ins*
        1 AAI-TIPO-OBJETO                  N        1,0            BE N *ins*
     ** * *** 1 - programa                                              *ins*
     ** * *** 2 - subprograma                                           *ins*
     ** * *** 3 - subrotina                                             *ins*
     ** * *** 4 - mapas                                                 *ins*
     ** * *** 5 - help-routine                                          *ins*
        1 AAI-MODO-EXEC-OBJETO             N        1,0            BF N *ins*
     ** * *** 1 - batch                                                 *ins*
     ** * *** 2 - on-line                                               *ins*
        1 AAI-STATUS-OBJETO                N        1,0            BG N *ins*
     ** * *** 1 - ativo                                                 *ins*
     ** * *** 2 - desativado                                            *ins*
        1 AAI-SEQ-ORGANOGRAMA              N        6,0            BH N *ins*
        1 AAI-NOME-JOB                     A        8,0            BI N *ins*
        1 AAI-SEQ-JOB                      N        2,0            BJ N *ins*
        1 AAI-MODULO-OBJETO                A        8,0            BK N *ins*
     -- - -------------------------------- -- - -------- ----- - - -- -
Feito
11:28:43             *****  P R E D I C T  4.4.1  *****             2014-04-24
                         - Edit Elements to a File -                  Page:   1

List of fields inserted
   AAI-SIGLA-OBJETO                 AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-NOME-OBJETO                  AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-FUNCAO-OBJETO                AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-TIPO-OBJETO                  AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-MODO-EXEC-OBJETO             AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-STATUS-OBJETO                AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-SEQ-ORGANOGRAMA              AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-NOME-JOB                     AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-SEQ-JOB                      AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-MODULO-OBJETO                AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-STAT-PROD                    AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-OBJETO-CHAMADO               AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-SUBOBJETO-CHAMADO            AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-SUBROTINA-CHAMADA            AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-TELA-CHAMADA                 AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-ARQ-USADO-ABERTURA           AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-DT-ATUALIZ-OBJETO            AABD-TESTE-CLAU-VIEW-501         *** ins ***
   AAI-USER-OBJETO                  AABD-TESTE-CLAU-VIEW-501         *** ins ***
Hit 'ENTER' to continue.
Checando o file 501 para ver se copiou a view
DIC2516 INVALID FUNCTION CODE.
11:28:56             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                 - (FI) File Maintenance -               Profile SYSTEM

  Function                              Function

  A  Add a file                         L  Link children
  C  Copy file                          S  Select file from a list
  M  Modify file                        B  Push backward
  N  Rename/Renumber file               F  Force standard
  P  Purge file                         J  Physical Attributes
  D  Display file                       K  Modify Vista elements

Function ......... s
File ID ..........                                  Attributes ........*
Copy ID ..........                                  File of type ......*
Contained in DA ..                                  File nr ............ 501
External name ....

Restrictions ....*   Profile Default,empty          Association .......*

Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Next  Stop  Last  E-el  Flip  Print Impl  Acmp  Ssec  Prof  Main
Copiou a view
11:29:27             *****  P R E D I C T  4.4.1  *****              2014-04-24
Plan   0                      - Select File -

Cmd  File ID                            Type   Fnr    DDM Impl Other

  __  AABD-TESTE-CLAU-VIEW-501            U     501
  __  AABD-TESTE-CLAU-501                 A     501















  __ ('.' = EXIT, 'T' = TOP, 'C' = Specify association (     ))
Observação

Nesses passos que fizemos de copiar o file fisico e da view só copiamos as definições dos campos não copiamos os dados;

0 comentários:

Enviar um comentário