Descrição
Existe uma ferramenta que permite determinar quais índices (descritores, superdescritores) não são mais usados?Resolução
Para descobrir quais descritores são usados em um arquivo (e quais não), você pode usar o comando o AFPLOOK. Este módulo é entregue na biblioteca de LOAD do Adabas.O AFPLOOK é habilitado especificando (ADARUN FASTPATH=YES) no núcleo de inicialização jcl.
Um relatório está incluído no protocolo de desligamento do núcleo Adabas (DDPRINT), que mostra quais comandos estão sendo lidos por quais descritores. O relatório AFPLOOK também pode ser visualizado online usando SYSAOS ( SYSAFP ).
Simulação
Foi colocado o parametro;MEMBER=ADAP420 000060 REC SAVE:11.03.2023 21:52 BY USERID ADA0025 R=00000001 DSN=ADA.ADABAS.ADAPARM VOL=PRL303 UNIT=1526 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 * ------------------------------------------------------------ * ADAP420 - PARAMENTROS DO BANCO 420 * ------------------------------------------------------------ ADARUN AOSLOG=YES <=== LOG ACTIVE NUCLEUS UPDATE COMMANDS ADARUN FASTPATH=YES <=== DESCOBRIR DESCRITORES USADOS ADARUN PROG=ADANUC <=== PROGRAM ADARUN CLOGL=5 <=== CLOGLAYOUT ADARUN MODE=MULTI <=== MODE OF OPERATION ADARUN SVC=249 <=== SVC NUMBER ADARUN DBID=420 <=== DATA BASE ID (PHYSICAL) . ADARUN DEVICE=8391 <=== DEVICE TYPE OF RABN 1 OF ASSO ADARUN DSF=NO <=== DSF ADARUN LOCAL=NO <=== LOCAL DATA-BASE ADARUN CT=300 <=== COMMAND TIME LIMIT (SECONDS) . ADARUN LBP=2000000 <=== LENGTH OF BUFFER POOL ADARUN LCP=2000 <=== LENGTH OF SECURITY POOL ADARUN LFP=2048000 <=== LENGTH OF INTERNAL FORMAT POOL ADARUN LFIOP=500000 <=== LENGTH OF ASYNC BUFFER FLUSH ADARUN LI=40000 <=== LENGTH OF ISN LIST TABLE ADARUN LOGGING=YES <=== LOGGING OF ADABAS COMMANDS
Colocando no ar
21:53:39 TID 204 COM641/P User ADA0025 11.03.23
--- System Messages --- UQM1
STC05599 S AAFAI420
STC00505 $HASP100 AAFAI420 ON STCINRDR
STC00505 IEF695I START AAFAI420 WITH JOBNAME AAFAI420 IS ASSIGNED TO USER ADAB
STC00505 $HASP373 AAFAI420 STARTED
STC00505 IEF403I AAFAI420 - STARTED - TIME=21.53.39
STC00505 TSS7250E 136 J=AAFAI420 A=ADAT TYPE=PROGRAM RESOURCE=SDKADA
STC00505 TSS7251E Access Denied to PROGRAM
STC00505 +POP000I Adapop V7.4.2 initialised, EP=972091D0 CIB=1721D268
STC00505 +ADAN02 00420 Nucleus run without protection log
STC00505 +ADAL01 00420 2023-03-11 21:53:38 CLOG not active
STC00505 +ADAN03 00420 ADABAS coming up
STC00505 +ADAN19 00420 Buffer flush is a s y n c h r o n o u s
STC00505 +ADAN01 00420 A D A B A S V7.4.4 is active
STC00505 +ADAN01 00420 MODE = MULTI
STC00505 +ADAN01 00420 Running without recovery log
STC00174 @59 DF3001A *** RVS 5.1 ***
******************************** BOTTOM OF DATA *******************************
Select Function: CONSOLE
Operand/Command:
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Retrv Up Down Left Right
Depois que tiramos o banco do ar
1 J E S 2 J O B L O G -- S Y S T E M C P A C -- N O D E J E S 2 0 21.21.20 STC00492 ---- SATURDAY, 11 MAR 2023 ---- 21.21.20 STC00492 IEF695I START AAFAI420 WITH JOBNAME AAFAI420 IS ASSIGNED TO USER ADAT 21.21.20 STC00492 $HASP373 AAFAI420 STARTED 21.21.20 STC00492 IEF403I AAFAI420 - STARTED - TIME=21.21.20 21.21.21 STC00492 TSS7250E 136 J=AAFAI420 A=ADAT TYPE=PROGRAM RESOURCE=SDKADA 21.21.21 STC00492 TSS7251E Access Denied to PROGRAM21.21.21 STC00492 +POP000I Adapop V7.4.2 initialised, EP=972091D0 CIB=1721D268 21.21.21 STC00492 +ADAN02 00420 Nucleus run without protection log 21.21.21 STC00492 +ADAL01 00420 2023-03-11 21:21:19 CLOG not active 21.21.21 STC00492 +ADAN03 00420 ADABAS coming up 21.21.21 STC00492 +ADAN19 00420 Buffer flush is a s y n c h r o n o u s 21.21.21 STC00492 +ADAN01 00420 A D A B A S V7.4.4 is active 21.21.21 STC00492 +ADAN01 00420 MODE = MULTI 21.21.21 STC00492 +ADAN01 00420 Running without recovery log 21.22.39 STC00492 +ADAN51 00420 2023-03-11 21:22:39 Operator type-in: ADAEND 21.22.39 STC00492 +ADAN42 00420 2023-03-11 21:22:39 Function accepted 21.22.39 STC00492 +ADAM97 00420 This ASCB/initiator will be terminated by MVS at EOJ 21.22.39 STC00492 IEF404I AAFAI420 - ENDED - TIME=21.22.39 21.22.39 STC00492 IEF352I ADDRESS SPACE UNAVAILABLE 21.22.39 STC00492 $HASP395 AAFAI420 ENDED 0------ JES2 JOB STATISTICS ------ - 11 MAR 2023 JOB EXECUTION DATE - 2 CARDS READ - 579 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 25 SYSOUT SPOOL KBYTES - 1.32 MINUTES EXECUTION TIME
S,SI=SO - é gerado dentro da SYSOUT do relatório abaixo
DBID 420 ADABAS/FASTPATH COMMAND SAMPLER PAGE: 1
STARTED 21:22 17/070 ENDED 21:22 17/070
----- -- -- ---------- -- ---------- ---------
FILE CC DE DIRECT ACC RC SEQUENTIAL SEQUENCES
----- -- -- ---------- -- ---------- ---------
8 L3 LL 1 1
L9 LL 7 7
L9 LO 12 12
S1 LE 3 1
S1 LL 103
S1 LO 12 5 5
TOTAL 138 21 5 211 ( 65%)
ALREADY PREFETCHED: 57
(MAX.RBL DA 3129,SEQ 3129)
--------------------------------------------------------------
9 L3 LX 16 14 2 2
L9 LX 2 2
TOTAL 18 16 2 38 ( 11%)
(MAX.RBL DA 1524,SEQ 1524)
--------------------------------------------------------------
11 L1 -- 1
L3 S4 1 1
L3 UA 1 33 1
S1 AC 1
S1 AU 1
S1 FU 1
S1 KG 1
S1 LO 1
S1 S4 8
S1 S5 1
S1 UA 3
TOTAL 20 1 33 54 ( 16%)
EXCLUDED COMMANDS: 1
(MAX.RBL DA 1750,SEQ 42)
--------------------------------------------------------------
15 L9 LL 5 5
S1 LL 10
TOTAL 15 5 20 ( 6%)
--------------------------------------------------------------
DBID 420 ADABAS/FASTPATH COMMAND SAMPLER PAGE: 2
STARTED 21:22 17/070 ENDED 21:22 17/070
JOB/COMMAND SUMMARY:
AAFCINIP: 401
DBID 420 ADABAS/FASTPATH COMMAND SAMPLER PAGE: 3
STARTED 21:22 17/070 ENDED 21:22 17/070
---------------------- POTENTIAL OPTIMIZATION SUMMARY -------------------------
SAMPLED COMMANDS MAXIMUM OPTIMIZATION
SAMPLED FILE COMMANDS 323 ( 80%) <------ SEQUENTIAL: 40 ( 12%)
DIRECT ACCESS: 191 ( 59%)
RCS: 82 ( 25%)
EXCLUDED COMMANDS 79 ( 19%)
TOTALS 402 (100%) 313 ( 77%)
-------------------------------------------------------------------------------
COMMAND ANALYSIS
REJECTED COMMANDS
MAX. USERS EXCEEDED: 0
MAX. CIDS EXCEEDED: 0
MAX. FILES EXCEEDED: 0 0 ( 0%)
EXCLUDED COMMANDS
BAD COMMANDS: 0
NON-FILE COMMANDS: 9
NON-FILE RCS: 12
EXCLUDED FILE COMMANDS: 1
UPDATE COMMANDS: 0
ALREADY PREFETCHED: 57 79 ( 19%)
SAMPLED FILE COMMANDS 323 ( 80%)
ALL COMMANDS SEEN 402 (100%)
-------------------------------------------------------------------------------
PARAMETERS USED
MAX. FILES: 32 FILES NEEDED: 4
..MAX. DE: 16 OVERFLOWS: 0
MAX. USERS: 256 HIGH USERS: 5
..MAX.CID: 5 HIGH CIDS: 4
* REUSED USER AREA OCCURENCES: 0
MAX.RECORDS: NO LIMIT
21:22:39 ADAM97 00420 This ASCB/initiator will be terminated by MVS at EOJ
0 comentários:
Enviar um comentário