O SYSAOS eu amo, sim, como não amar algo que consegue fazer muitas coisas que sem ele teriamos que rodar vários jobs - O SYSAOS tem algumas coisas que só tem nele, um bom exemplo é saber a % de utilização do PLOG - No SYSAOS acessando a opção A/U/P temos a % de utilização do PLOG - esse valor em % do PLOG essa informação não pode ser obtido através de comandos convencionais no Adabas. A singularidade dessa informação evidencia a importância do SYSAOS como uma ferramenta essencial para monitorar e obter insights específicos que não estão disponíveis por meio das interfaces tradicionais do Adabas. Essa funcionalidade exclusiva ressalta a relevância do SYSAOS para a gestão eficaz e aprofundada do ambiente Adabas.
Conseguimos rodar um job para conseguir essa informação - esse é o JCL
Resultado do job
Essa é a parte do job importante - podemos gravar em um dataset e criar um programa natural para fazer um filtro dessa informação
20:20:37 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
DBID 096 - PLOG Status - PACUP02
The nucleus is currently writing on ..... PLOGR1
Size of one PLOG area (in BLKs.) ........ 188296
Last block written ...................... 18459 ( 10 %)
Number of switches since nucleus start .. 5
Date/Time of last switch ................ 2023-03-11 06:13:20
Number of PLOGs ......................... 5
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
Conseguimos rodar um job para conseguir essa informação - esse é o JCL
MEMBER=@A1003 000011 REC SAVE:21.02.2022 15:58 BY USERID DBA0281 R=00000001 DSN=ADABAS.JCLS.DBA LIB=S3 VOL=ADAC03 UNIT=1526 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 //AAFSNATB JOB (AAFA,DIBD),SUPORTE,CLASS=S,MSGCLASS=Z //*UQ ALLOW //*------------------------------------------------------------ //* SYSAOS - PLOG STATUS% //*------------------------------------------------------------ //GBP0100 EXEC NATURAL,PARM1='SYS=PA15 MT=0 OBJIN=N IM=D' //CMPRINT DD SYSOUT=A //SYSIN DD * LOGON SYSAOS ||DI PLOGST FIN
Resultado do job
1Logon accepted to library SUPORTE2.
1NEXT LOGON SYSAOS
1 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
Isolated - Main Menu - PMAIN02
+ Isolated - Main Menu -
+ Isolated - Main Menu -
- Code Basic Services Code Other Services
+ Code Basic Services Code Other Services
+ Code Basic Services Code Other Services
---- ---------------------- ---- ---------------------
A Session monitoring 1 Adabas Cache Facility
+ A
+ A
C Checkpoint maintenance 2 Delta Save Facility
+ C
+ C
F File maintenance 3 Trigger Maintenance
+ F
+ F
M Database maintenance 4 AOS Security
+ M 4 AOS Security
+ M 4 AOS Security
O Session opercoms 5 Transaction Manager
+ O
+ O
R Database report 6 Adabas Statistics
+ R
+ R
S Space calculation 7 Vista
+ S
+ S
? Help 8 Fastpath
+ ?
+ ?
. Exit 9 SAF Security
+ .
+ .
---- ---------------------- ---- ---------------------
0 Code ....... _
+ _
+ _
Database ... 96 (DB.S096.PARMLIB)
+ 96
+ 96
0 Command ==>
+
+
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit
+ Help Exit
+ Help Exit
DATA ||DI PLOGST
1 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
DBID 96 - PLOG Status - PACUP02
+ DBID 96 - PLOG Status -
+ DBID 96 - PLOG Status -
+
+
- The nucleus is currently writing on ..... PLOGR1
0 Size of one PLOG area (in BLKs.) ........ 60000
0 Last block written ...................... 13127 ( 22 %)
+ ( %)
+ ( %)
0 Number of switches since nucleus start .. 0
0 Date/Time of last switch ................ 0000-00-00 00:00:00
0 Number of PLOGs ......................... 5
-
+
+
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Refresh Menu
+ Help Exit Refresh Menu
+ Help Exit Refresh Menu
1 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
- Resource Utilization - PACU002
+ - Resource Utilization -
+ - Resource Utilization -
0 Code Service Code Service
+ Code Service Code Service
+ Code Service Code Service
---- ------------------------------- ---- -------------------------------
C Command usage S System status
+ C S
+ C S
F File usage T Thread usage
+ F T
+ F T
H High water marks (pools/queues) W WORK status
+ H W
+ H W
L Workpool (LWP) usage X Cluster usage
+ L
+ L
N Nucleus File Status Y Display PPT table
+ N Y
+ N Y
P PLOG status
+ P
+ P
? Help
+ ?
+ ?
. Exit
+ .
+ .
---- ------------------------------- ---- -------------------------------
- Code ......... _
+ _
+ _
File Number .. 0
+ 0
+ 0
Database ID .. 96 (DB.S096.PARMLIB)
+ 96
+ 96
EPACU03 : 'PLOG Status' successfully displayed
+ EPACU03 : 'PLOG Status' successfully displayed
+ EPACU03 : 'PLOG Status' successfully displayed
Command ==>
+
+
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
+ Help Exit Menu
+ Help Exit Menu
DATA FIN
1 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
+ 19:58:18 ***** A D A B A S BASIC SERVICES ***** 2023-03-11
- Resource Utilization - PACU002
+ - Resource Utilization -
+ - Resource Utilization -
0 Code Service Code Service
+ Code Service Code Service
+ Code Service Code Service
---- ------------------------------- ---- -------------------------------
C Command usage S System status
+ C S
+ C S
F File usage T Thread usage
+ F T
+ F T
H High water marks (pools/queues) W WORK status
+ H W
+ H W
L Workpool (LWP) usage X Cluster usage
+ L
+ L
N Nucleus File Status Y Display PPT table
+ N Y
+ N Y
P PLOG status
+ P
+ P
? Help
+ ?
+ ?
. Exit
+ .
+ .
---- ------------------------------- ---- -------------------------------
- Code ......... _
+ _
+ _
File Number .. 0
+ 0
+ 0
Database ID .. 96 (DB.S096.PARMLIB)
+ 96
+ 96
EPACU03 : 'PLOG Status' successfully displayed
+ EPACU03 : 'PLOG Status' successfully displayed
+ EPACU03 : 'PLOG Status' successfully displayed
Command ==>
+
+
PF1----- PF2------ PF3------ PF4------ PF6----- PF7----- PF8----- PF12-----
Help Exit Menu
+ Help Exit Menu
+ Help Exit Menu
MACU002 0038 NAT1106 Data string for input field too long.
1NAT9978 Error occurred during execution/compilation.
UQS0009 - END OF DATA SET.
Essa é a parte do job importante - podemos gravar em um dataset e criar um programa natural para fazer um filtro dessa informação
- The nucleus is currently writing on ..... PLOGR1 0 Size of one PLOG area (in BLKs.) ........ 60000 0 Last block written ...................... 13127 ( 22 %) + ( %) + ( %) 0 Number of switches since nucleus start .. 0 0 Date/Time of last switch ................ 0000-00-00 00:00:00 0 Number of PLOGs ......................... 5
0 comentários:
Enviar um comentário