NATURAL SCAN UTILITY

Imagine que você tem que fazer uma pesquisa em uma determinada biblioteca que traga o nome de todos os programas que usam uma determinada view? A única saída para este problema é fazer um scan;

Rodando Scan

Na biblioteca onde quero pesquisar digito scan;

12:39:06                    *****  NATURAL  *****                    25/02/2016
 User DBA009                    - Main Menu -                Library ADACMP99


                    Function

                 _  Development Functions
                 _  Development Environment Settings
                 _  Maintenance and Transfer Utilities
                 _  Debugging and Monitoring Utilities
                 _  Example Libraries
                 _  Other Products
                 _  Help
                 _  Exit Natural Session







 Command ===> SCAN
 Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help        Exit                                                  Canc

Iniciando a pesquisa, vamos pesquisar os programas que tenham a view AAFU-MONITORAMENTO-BANCOS

12:39:31               ***** NATURAL SCAN COMMAND *****              25/02/2016
 User DBA009                    - Main Menu -                Library ADACMP99

                     Code  Function

                      T    Statistics
                      L    List modules containing scan value
                      S    List scan values found
                      ?    Help
                      .    Exit


     Code ........... S
     Scan value ..... AAFU-MONITORAMENTO-BANCOS_______
     Replace value .. ________________________________
     Library ........ ADACMP99
     Object name .... _________                  Selection list .. N
     Object type .... ______________
     Absolute scan .. N                          Trace ........... N


 Command ===>
 Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
       Help  Menu  Exit

Resultado, tecle enter para mudar para o próximo;

 >                                      > + Program     : AABPCLA  LIB: ADACMP99
 SCAN: AAFU-MONITORAMENTO-BANCOS        REP:

   0060 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS

Resultado, tecle enter para mudar para o próximo;

 >                                      > + Program     : AABPLASC LIB: ADACMP99
 SCAN: AAFU-MONITORAMENTO-BANCOS        REP:

   0680 01 MORITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS

Resultado, tecle enter para mudar para o próximo;

 >                                      > + Program     : AABPLASK LIB: ADACMP99
 SCAN: AAFU-MONITORAMENTO-BANCOS        REP:

   0740 01 MORITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS

Via Job

Este é um jcl pronto para fazer esta pesquisa;

MEMBER=SCAN     000015 REC SAVE:25.02.2016 12:30 BY   USERID DBA009  R=00000001
DSN=ADA.LIBR.JCLS                                LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFSNATB JOB (AAF,TSS),'CLAU',CLASS=S,MSGCLASS=A                      
//*UQ ALLOW                                                             
//* ----------------------------------------------------------------
//*  NATURAL SCAN UTILITY - PROCURANDO TABELAS EM PROGRAMAS NATURAL
//* ----------------------------------------------------------------
//NATURAL EXEC NATURAL,                                            
//    PARM1='MT=0,SYS=T,MADIO=0,IM=D,INTENS=1,MAXCL=0,OBJIN=N',
//    PARM2='STACK=(LOGON ADACMP99)'
//CMPRINT  DD SYSOUT=G
//CMWKF01  DD SYSOUT=G
//CMWKF02  DD SYSOUT=G
//CMPRT01  DD SYSOUT=G,HOLD=YES
//SYSIN    DD *
SCAN FUNC=S SVAL=AAFU-MONITORAMENTO-BANCOS
//SYSIN    DD *

Resultado;

1Logon accepted to library ADACMP99.
1NEXT SCAN FUNC=S SVAL=AAFU-MONITORAMENTO-BANCOS
1      *****   N A T U R A L   S C A N   B A T C H   U T I L I T Y   *****
12016-02-25           ****  NATURAL SCAN UTILITY  ****              PAGE: 1
                      ********************************
-SCAN VALUE   : AAFU-MONITORAMENTO-BANCOS                         DBID: 010
 REPLACE VALUE:                                                   FILE: 15
-+--------------------------------------------+
 |  Program       : AABPCLA    Lib: ADACMP99  |
 +--------------------------------------------+
00060 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AABPLASC   Lib: ADACMP99  |
 +--------------------------------------------+
00680 01 MORITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AABPLASK   Lib: ADACMP99  |
 +--------------------------------------------+
00740 01 MORITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AAFPCS00   Lib: ADACMP99  |
 +--------------------------------------------+
00810 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AAFPCS01   Lib: ADACMP99  |
 +--------------------------------------------+
00080 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AAFPCS02   Lib: ADACMP99  |
 +--------------------------------------------+
00080 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AAFPCS03   Lib: ADACMP99  |
 +--------------------------------------------+
00080 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
12016-02-25           ****  NATURAL SCAN UTILITY  ****              PAGE: 2
                      ********************************
-SCAN VALUE   : AAFU-MONITORAMENTO-BANCOS                         DBID: 010
 REPLACE VALUE:                                                   FILE: 15
-+--------------------------------------------+
 |  Program       : AAFPCS04   Lib: ADACMP99  |
 +--------------------------------------------+
00080 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AAFPCS06   Lib: ADACMP99  |
 +--------------------------------------------+
00110 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS
-+--------------------------------------------+
 |  Program       : AAFPLASK   Lib: ADACMP99  |
 +--------------------------------------------+
00800 01 MONITORAMENTO VIEW OF AAFU-MONITORAMENTO-BANCOS

-
         ***** End of Report *****
1NAT9995 Natural session terminated normally.
UQS0009 - END OF DATA SET.




--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=AAFSNATB,06199 DS=1 SI=SO LR=43 LL=80 PP=0 DC=
RL=999999 AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000

Observação - Clique Aqui

As opções disponíveis são:

FUNC : Código da função: "S" (SCAN), "?" (SCAN Help), ou "." (Terminate SCAN).
SVAL : Valor a ser procurado.
RVAL : Valor a substituir o procurado
LIB  : Biblioteca em que é feita a procura (se nã ofor a mesma que está logado).

TYPE : Tipo do objeto: 

    P=Programa, 
    C=Copycode,  
    N=Subprograma, 
    S=Subrotina, 
    H=Helprotina, 
    T=Texto, 
    M=Mapa, 
    G=Área de dados globais, 
    L=Área de dados locais, 
    A=Área de dados de parâmetros, 
    Z=Registro, 
    R=Relatório, 
    3=Diálogo, 
    4=Classe,
    * ou branco=todos os objetos.

OBJ  : nome do objeto a ser feita a procura: * or branco=todos os objetos, XXXX*=todos os objetos iniciados em ‘XXXX’.
ABSOL: Qualquer valor a ser especificado será absoluto.

Procura a palavra "DANIEL"

SCAN FUNC=S SVAL=DANIEL

Troca "JOAO" por "MARIA"

SCAN FUNC=S SVAL=JOAO RVAL=MARIA

Procura "FETCH" em todos os objetos do tipo programa ("P") da "MINHALIB" que começam com "P09876"

SCAN FUNC=S SVAL=FETCH LIB=MINHABIB TYPE=P OBJ=P09876*

Categories: Natural