Display Buffer Pool
Acessando o buffer pool - opção A 21:49:04 ***** NATURAL SYSBPM UTILITY ***** 02/10/2021
BPNAME NATGBP - Main Menu - Type Global Nat
BPPROP OFF Loc CPAC NAT4
Object Functions Object Pool Statistics
L List Objects A Buffer Pool
D Delete Objects C BP Cache
I Directory Information
H Hexadecimal Display Other Functions
W Write to Work File
X Display Sorted Extract S Select Buffer Pool
? Help B Blacklist Maintenance
. Exit P Preload List Maintenance
Code .. a Library ... *_______
Object .... *_______________________________________
DBID ...... 0____ FNR .. 0____ Object Pool ... * (B,C,*)
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Last Flip Canc
Opção G
21:49:16 ***** NATURAL SYSBPM UTILITY ***** 02/10/2021
BPNAME NATGBP - Buffer Pool Statistics - Type Global Nat
BPPROP OFF Loc CPAC NAT4
Code Function
G General Buffer Pool Statistics
L Buffer Pool Load/Locate Statistics
F Buffer Pool Fragmentation
I Internal Function Usage
H Buffer Pool Hash Table Statistics
P Performance Hints
? Help
. Exit
Code .. g
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Last Flip Canc
Display completo do buffer pool - Repare no "Space Used"
12:38:32 ***** NATURAL SYSBPM UTILITY ***** 01/06/2021
BPNAME NATGBP - General Buffer Pool Statistics - Type Global Nat
BPPROP OFF Loc CPAC NAT4
Buffer Pool Address ..... 13C63000 Buffer Pool Size (MB) ... 25,00
Directory Section ...... 00000400 Directory Entry Size .... 128
Text Record Section .... 001A5000 Text Record Size (KB) ... 2
Dataspace attached ......
Initialization .......... 23:20:13 2025-12-06
Last Refresh ............ 23:20:13 2025-12-06 by User .. NATBPMG4
_______________________________ Text Records ______________________________
Total Used in % Max Used Total Size Avg Usage %
11,958 11,785 98,55 11,956 24,135,680 90,47
_____________________ Objects ________________________________
Space Used % Loaded Max Loaded Total Size Avg TR Used
89,16 2,301 2,777 21,836,723 5,1
SumOfUseCounts AvgLifetimeUsed(min) AvgLifetimeReplace(min)
880 4,643 804
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Last Flip Load Canc
O Space Used esta em 89% é atenção alta
+--------------+---------------+---------------------------------------------------+ | Space Used % | Situação | Interpretação | +--------------+---------------+---------------------------------------------------+ | 0% até 50% | Excelente | Muito espaço disponível | | 50% até 70% | Bom | Operação tranquila | | 70% até 80% | Atenção | Começa a acompanhar a evolução | | 80% até 90% | Atenção alta | Buffer Pool ficando bastante ocupado | | 90% até 95% | Crítico | Pouca folga; avaliar aumento | | 95% até 100% | Muito crítico | Próximo do limite, risco de substituição/pressão | +--------------+---------------+---------------------------------------------------+
Listar os Programas
Vamos listar os programas que estão carregados no buffer pool - opção L 12:38:32 ***** NATURAL SYSBPM UTILITY ***** 01/06/2021
BPNAME NATGBP - Main Menu - Type Global Nat
BPPROP OFF Loc CPAC NAT4
Object Functions Object Pool Statistics
L List Objects A Buffer Pool
D Delete Objects C BP Cache
I Directory Information
H Hexadecimal Display Other Functions
W Write to Work File
X Display Sorted Extract S Select Buffer Pool
? Help B Blacklist Maintenance
. Exit P Preload List Maintenance
Code .. l Library ... *_______
Object .... *_______________________________________
DBID ...... 0____ FNR .. 0____ Object Pool ... * (B,C,*)
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Last Flip Canc
Por isso, o Buffer Pool é tão importante para o desempenho das aplicações Natural. Imagine que, toda vez que uma aplicação precisasse executar um programa, subprograma ou outro objeto Natural, fosse necessário chamar esse programa dentro do Adabas. Esse processo poderia gerar inúmeras operações de I/O e aumentar o tempo de resposta das aplicações. O Buffer Pool funciona justamente para evitar esse trabalho repetitivo. Ao manter em memória os objetos que são utilizados pelas aplicações, o Natural pode reutilizá-los sempre que forem necessários, sem precisar carregá-los novamente a cada execução. Em um ambiente Mainframe com grande volume de processamento, essa diferença pode ser significativa. Quanto mais frequentemente um programa é utilizado, maior tende a ser o benefício de mantê-lo disponível no Buffer Pool. Em vez de realizar continuamente novas buscas e carregamentos, o sistema pode localizar o objeto que já está em memória e utilizá-lo imediatamente.
12:38:32 ***** NATURAL SYSBPM UTILITY ***** 01/06/2021
BPNAME NATGBP - List Objects - Type Global Nat
BPPROP OFF Loc CPAC NAT4
C Library Object DBID FNR Loc RLD Use Max Reuse TotalUC ObjSize Sto
*_______ *_______ _____ ____ ___ ___ ___ ___ ______ ___________ _______ ___
__ SYSMAIN SMPCMD 230 8 B 1 72 41,640 42
__ SYSLIB LOGONM1 82 8 B 1 4 3,692 4
__ LOSTERM AEBSMUN 240 15 B 1 363 1,468 2
__ SYSSEC NSCUS1 240 8 B 1 5 41,644 42
__ LOSTERM O29822LN 240 15 B 1 12 225,926 5,808 6
__ LOSTERM AEBNA009 240 15 B 2 19,438 1,444 2
__ LOSTERM AEKP401 240 15 B 2 14,293 44,468 44
__ LOSTERM AEBSR001 240 15 B 1 1,208 1,364 2
__ SYSLIBS NAT41020 141 8 B 1 4 4,016 4
__ SYSLIB SECPGM 82 8 B 1 2 46,564 46
__ SYSLIB SECUH 130 8 B 1 4 18,340 18
__ SYSLIB LOGONEX1 120 8 B 1 8 4,284 6
__ LOSTER99 ABBMZ05J 80 15 B 1 16 4,564 6
__ LOSTERM ADIMID01 240 15 B 1 8 15,272 16
Top of List
Command ===>
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Last -- - + ++ > Canc
Mudando o Tamanho da Buffer Pool
Durante o monitoramento do Natural Buffer Pool, identificamos que o indicador Space Used % atingiu aproximadamente 89% de utilização. Embora esse percentual não represente, por si só, uma situação de falha, ele indica que o Buffer Pool está trabalhando com pouca folga e merece atenção. Atualmente, o ambiente possui 40 MB de memória disponibilizados para o Buffer Pool. Para aumentar a margem de segurança e proporcionar mais espaço para o carregamento e permanência dos objetos Natural, a capacidade será ampliada para 80 MB. A ideia é simples: mais espaço disponível significa maior folga para o Buffer Pool trabalhar, reduzindo a pressão sobre suas áreas internas e permitindo acompanhar com mais tranquilidade o crescimento da utilização. Após a alteração, será importante observar novamente os indicadores do SYSBPM, principalmente o Space Used %, o consumo dos Text Records, a quantidade de Objects Loaded e o Max Loaded. Mais do que simplesmente aumentar a memória, o objetivo é medir o comportamento do ambiente antes e depois da mudança. Dessa forma, conseguimos verificar na prática qual foi o impacto do aumento de 40 MB para 80 MB e determinar se a nova capacidade proporciona a margem necessária para o crescimento futuro das aplicações Natural. Em outras palavras, não estamos esperando o Buffer Pool chegar ao seu limite para agir. A ideia é antecipar a necessidade e trabalhar com uma margem de segurança maior.Display Buffer Pool
Para a gente visualizar a Buffer Pool ativas;MEMBER=GBEDSHOW 000011 REC SAVE:23.01.2021 09:40 BY USERID DBA0055 R=00000001 DSN=NATURAL.V414.JOBS VOL=PRL302 UNIT=1525 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 //AAFSNATB JOB (AAFP,DIBD),CLAUD,CLASS=S,MSGCLASS=A,TYPRUN=HOLD //*UQ ALLOW //* ----------------------------------------------------------- //* VERIFICAR SE O BUFFER POOL ESTA NO AR //* ----------------------------------------------------------- //STARTEDT EXEC PGM=NATGBP41,PARM='CF=STARTEDT' //STEPLIB DD DSN=ADA5.LOADLIB,DISP=SHR //SYSUDUMP DD SYSOUT=* //STARTEDT DD * SHOWBP //*
Antes estava com 40M
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 18.16.03 JOB01104 ---- SATURDAY, 03 OCT 2021 ---- 18.16.03 JOB01104 ICH70001I DBA0055 LAST ACCESS AT 18:10:40 ON SATURDAY, OCTOBER 3, 2021 18.16.03 JOB01104 $HASP373 AAFSNATB STARTED - INIT K - CLASS S - SYS CPAC 18.16.03 JOB01104 IEF403I AAFSNATB - STARTED - TIME=18.16.03 18.16.03 JOB01104 GBP0101 AAFSNATB: Specified parms: CF=STARTEDT 18.16.03 JOB01104 GBP0201 AAFSNATB: Reading parm input from file STARTEDT 18.16.03 JOB01104 GBP0199 AAFSNATB: Natural Global Buffer Pool Manager Version 414 18.16.03 JOB01104 GBP0103 AAFSNATB: Input from file: SHOWBP 18.16.03 JOB01104 GBP0131 AAFSNATB: List of all global buffer pools with SUBSID: NAT4 18.16.03 JOB01104 GBP0132 AAFSNATB: BP-Name/SUBSID Size(KB) A(GBP) A(DIR) ALET Cache Size Cache Owner 18.16.03 JOB01104 GBP0000 AAFSNATB: NATGBP /NAT4 40.600 13C63000 1581EA20 18.16.03 JOB01104 GBP0000 AAFSNATB: EDTGBP /NAT4 4.096 13862000 1581EA90 18.16.03 JOB01104 GBP0202 AAFSNATB: EOF encountered reading file STARTEDT 18.16.03 JOB01104 - --TIMINGS (MINS.)-- -----PAGING COUNTS---- 18.16.03 JOB01104 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS 18.16.03 JOB01104 -STARTEDT 00 28 7 .00 .00 .0 1038 SYSTEM 0 0 0 0 18.16.03 JOB01104 IEF404I AAFSNATB - ENDED - TIME=18.16.03 18.16.03 JOB01104 -AAFSNATB ENDED. NAME-CLAUD TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0 18.16.03 JOB01104 $HASP395 AAFSNATB ENDED 0------ JES2 JOB STATISTICS ------ - 03 OCT 2021 JOB EXECUTION DATE - 13 CARDS READ - 54 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 3 SYSOUT SPOOL KBYTES - 0.00 MINUTES EXECUTION TIME UQS0009 - END OF DATASET.
Stop Buffer Pool
Este é o job que vai pararMEMBER=GBNASTOP 000011 REC SAVE:23.01.2021 11:17 BY USERID DBA0055 R=00000001 DSN=NATURAL.V414.JOBS VOL=PRL302 UNIT=1525 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 //AAFSNATB JOB (AAAC,OSS),DIBD,CLASS=A,MSGCLASS=A //*UQ ALLOW //* -------------------------------------------------------- //* STOP NATURAL GLOBAL BUFFER POOL //* -------------------------------------------------------- //STOPNAT EXEC PGM=NATGBP41,PARM='CF=STOPNAT' //STEPLIB DD DSN=ADA5.LOADLIB,DISP=SHR //SYSUDUMP DD SYSOUT=* //STOPNAT DD * F,BPN=NATGBP,S=NAT4 //*
Vai dar uma pendencia na console - xx,y
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 18.22.51 JOB01134 ---- SATURDAY, 03 OCT 2021 ---- 18.22.51 JOB01134 ICH70001I DBA0055 LAST ACCESS AT 18:16:12 ON SATURDAY, OCTOBER 3, 2021 18.22.51 JOB01134 $HASP373 AAFSNATB STARTED - INIT K - CLASS S - SYS CPAC 18.22.51 JOB01134 IEF403I AAFSNATB - STARTED - TIME=18.22.51 18.22.51 JOB01134 GBP0101 AAFSNATB: Specified parms: CF=STOPNAT 18.22.51 JOB01134 GBP0201 AAFSNATB: Reading parm input from file STOPNAT 18.22.51 JOB01134 GBP0199 AAFSNATB: Natural Global Buffer Pool Manager Version 414 18.22.51 JOB01134 GBP0103 AAFSNATB: Input from file: F,BPN=NATGBP,S=NAT4 18.22.51 JOB01134 GBP0115 AAFSNATB: GBP still in use: NATGBP /NAT4 - DIR=1581EA20 ADDR=13C63000 18.22.51 JOB01134 *04 GBP0118 AAFSNATB: Reply Y to force shutdown of GBP 18.23.25 JOB01134 R 04,Y 18.23.25 JOB01134 GBP0113 AAFSNATB: GBP stopped: NATGBP /NAT4 - DIR=1581EA20 ADDR=13C63000 18.23.25 JOB01134 GBP0202 AAFSNATB: EOF encountered reading file STOPNAT 18.23.25 JOB01134 - --TIMINGS (MINS.)-- -----PAGING COUNTS---- 18.23.25 JOB01134 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS 18.23.25 JOB01134 -STOPNAT 00 28 8 .00 .00 .5 3393 SYSTEM 0 0 0 0 18.23.25 JOB01134 IEF404I AAFSNATB - ENDED - TIME=18.23.25 18.23.25 JOB01134 -AAFSNATB ENDED. NAME-DIBD TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .5 18.23.25 JOB01134 $HASP395 AAFSNATB ENDED 0------ JES2 JOB STATISTICS ------ - 03 OCT 2021 JOB EXECUTION DATE - 13 CARDS READ - 54 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 3 SYSOUT SPOOL KBYTES - 0.56 MINUTES EXECUTION TIME UQS0009 - END OF DATASET.
Respondendo a pendencia na console 04,y
14:15:24 TID 13 COM641/D User DBA0055 07.10.21
--- System Messages --- UQM1
JOB00878 -NATURAL NATURAL 00 553 132 .00 .00 .0 5833 B
JOB00878 IEF404I AEBPREST - ENDED - TIME=14.15.20
JOB00878 -AEBPREST ENDED. NAME-DETRAN TOTAL TCB CPU TIME= .0
JOB00878 $HASP395 AEBPREST ENDED
$HASP309 INIT M INACTIVE ******** C=2
JOB00878 $HASP250 AEBPREST PURGED -- (JOB KEY WAS E364F432)
STC02176 COMVTM2020-P LOSTERM LU=TICSI025 Tid=299 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI024 Tid=698 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI027 Tid=299 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI028 Tid=416 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI029 Tid=299 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI031 Tid=299 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI032 Tid=416 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI215 Tid=552 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI033 Tid=416 Code=20
STC02176 COMVTM2020-P LOSTERM LU=TICSI039 Tid=418 Code=20
STC06673 *95 DF3001A *** RVS 5.1 ***
JOB01134 *04 GBP0118 AAFSNATB: Reply Y to force shutdown of GBP
******************************** BOTTOM OF DATA *******************************
Select Function: CONSOLE
Operand/Command: 04,y
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Retrv Up Down Left Right
Start Buffer Pool
Este é o job que vai iniciar - 25MMEMBER=GBEDSTRT 000011 REC SAVE:23.01.2021 11:17 BY USERID DBA0055 R=00000001 DSN=NATURAL.V414.JOBS VOL=PRL302 UNIT=1525 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 //AAFSEGBP JOB (AAAC,OSS),DIBD,CLASS=A,MSGCLASS=A //*UQ ALLOW //* -------------------------------------------------- //* START EDITOR GLOBAL BUFFER POOL //* -------------------------------------------------- //STARTNAT EXEC PGM=NATGBP41, // PARM='BPN=NATGBP,S=NAT4,N=(80M,XA,2),R=N' //STEPLIB DD DSN=ADA5.LOADLIB,DISP=SHR //SYSUDUMP DD SYSOUT=A //GBPPRINT DD SYSOUT=A //SYSPRINT DD SYSOUT=A
Resultado
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 18.24.51 JOB01136 ---- SATURDAY, 03 OCT 2021 ---- 18.24.51 JOB01136 ICH70001I DBA0055 LAST ACCESS AT 18:22:51 ON SATURDAY, OCTOBER 3, 2021 18.24.51 JOB01136 $HASP373 AAFSEGBP STARTED - INIT K - CLASS S - SYS CPAC 18.24.51 JOB01136 IEF403I AAFSEGBP - STARTED - TIME=18.24.51 18.24.51 JOB01136 GBP0199 AAFSEGBP: Natural Global Buffer Pool Manager Version 414 18.24.51 JOB01136 GBP0101 AAFSEGBP: Specified parms: BPN=NATGBP,S=NAT4,N=(40M,XA,2),R=N 18.24.51 JOB01136 GBP0111 AAFSEGBP: GBP active: NATGBP /NAT4 - DIR=1581EA20 ADDR=0FC71000 18.24.51 JOB01136 - --TIMINGS (MINS.)-- -----PAGING COUNTS---- 18.24.51 JOB01136 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS 18.24.51 JOB01136 -STARTNAT 00 26 10 .00 .00 .0 1352 BATCH 0 0 0 0 18.24.51 JOB01136 IEF404I AAFSEGBP - ENDED - TIME=18.24.51 18.24.51 JOB01136 -AAFSEGBP ENDED. NAME-DIBD TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0 18.24.51 JOB01136 $HASP395 AAFSEGBP ENDED 0------ JES2 JOB STATISTICS ------ - 03 OCT 2021 JOB EXECUTION DATE - 13 CARDS READ - 51 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 3 SYSOUT SPOOL KBYTES - 0.00 MINUTES EXECUTION TIME UQS0009 - END OF DATASET.
Display Buffer Pool
Para a gente visualizar a Buffer Pool ativas;MEMBER=GBEDSHOW 000011 REC SAVE:23.01.2021 09:40 BY USERID DBA0055 R=00000001 DSN=NATURAL.V414.JOBS VOL=PRL302 UNIT=1525 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 //AAFSNATB JOB (AAFP,DIBD),CLAUD,CLASS=S,MSGCLASS=A,TYPRUN=HOLD //*UQ ALLOW //* ----------------------------------------------------------- //* VERIFICAR SE O BUFFER POOL ESTA NO AR //* ----------------------------------------------------------- //STARTEDT EXEC PGM=NATGBP41,PARM='CF=STARTEDT' //STEPLIB DD DSN=ADA5.LOADLIB,DISP=SHR //SYSUDUMP DD SYSOUT=* //STARTEDT DD * SHOWBP //*
Antes estava com 40M agora esta com 80
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 18.25.20 JOB01137 ---- SATURDAY, 03 OCT 2021 ---- 18.25.20 JOB01137 ICH70001I DBA0055 LAST ACCESS AT 18:24:51 ON SATURDAY, OCTOBER 3, 2021 18.25.20 JOB01137 $HASP373 AAFSNATB STARTED - INIT K - CLASS S - SYS CPAC 18.25.20 JOB01137 IEF403I AAFSNATB - STARTED - TIME=18.25.20 18.25.20 JOB01137 GBP0101 AAFSNATB: Specified parms: CF=STARTEDT 18.25.20 JOB01137 GBP0201 AAFSNATB: Reading parm input from file STARTEDT 18.25.20 JOB01137 GBP0199 AAFSNATB: Natural Global Buffer Pool Manager Version 414 18.25.20 JOB01137 GBP0103 AAFSNATB: Input from file: SHOWBP 18.25.20 JOB01137 GBP0131 AAFSNATB: List of all global buffer pools with SUBSID: NAT4 18.25.20 JOB01137 GBP0132 AAFSNATB: BP-Name/SUBSID Size(KB) A(GBP) A(DIR) ALET Cache Size Cache Owner 18.25.20 JOB01137 GBP0000 AAFSNATB: NATGBP /NAT4 80.960 0FC71000 1581EA20 18.25.20 JOB01137 GBP0000 AAFSNATB: EDTGBP /NAT4 4.096 13862000 1581EA90 18.25.20 JOB01137 GBP0202 AAFSNATB: EOF encountered reading file STARTEDT 18.25.20 JOB01137 - --TIMINGS (MINS.)-- -----PAGING COUNTS---- 18.25.20 JOB01137 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS 18.25.20 JOB01137 -STARTEDT 00 28 7 .00 .00 .0 976 SYSTEM 0 0 0 0 18.25.20 JOB01137 IEF404I AAFSNATB - ENDED - TIME=18.25.20 18.25.20 JOB01137 -AAFSNATB ENDED. NAME-CLAUD TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0 18.25.20 JOB01137 $HASP395 AAFSNATB ENDED 0------ JES2 JOB STATISTICS ------ - 03 OCT 2021 JOB EXECUTION DATE - 13 CARDS READ - 54 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 3 SYSOUT SPOOL KBYTES - 0.00 MINUTES EXECUTION TIME UQS0009 - END OF DATASET.






