A utilização de uma versão consideravelmente antiga pode resultar em diversos desafios. Gostaria de compartilhar uma situação específica que me fez pensar que não tinha o que fazer, pois não havia nenhuma mensagem de erro ou qualquer indicação aparente. Como a versão dos software envolvidos eram todos muito antigas, tornou-se inviável o suporte criar uma correção especifica. O problema em questão ocorria algumas vezes ao tentar acessar o Predict, quando, por vezes, não entrava no sistema do Predict, não dando pistas sobre a origem do problema.
Não acontece nada - Tem cara de ser coisa do Buffer Pool;
Vamos deletar os programas das bibliotecas SYS* do banco 099
Deletado 204 programas no buffer pool
Tentando acessar o SYSDIC do banco 099
Deu certo
10:26:03 TID 83 COM641/D User DBA023 26.12.18
-- COM-PASS -- USTS
Suspended Programs Program Services
--------------------------------- ---------------------------------------
Programs Name C Level PF Service Description Programs ID PF
-------- -------- - ----- -- -------------------- -------- -- --
1 Logon/Logoff Utility ULOG A
2 System Job Queue UQ B
3 Text Editor Utility UEDIT C
4 PDS Maint. Utility UPDS D
5
6
7
8
9
Enter Input: HELP ?
DBAX 099 SYSDIC
-------------------------------------------------------------------------------
LU Name: TERM1381 HC TID: Recall: = Language: 001
Devtype: 3270 VS Device: PRINT520 Suspend: < PA1 Case : UPPER
Lines : 24 Key: PA2 Jump: NO NO
Columns: 80
Não acontece nada - Tem cara de ser coisa do Buffer Pool;
10:24:57 TID 83 COM641/D User DBA023 26.12.18
-- COM-PASS -- USTS
Suspended Programs Program Services
--------------------------------- ---------------------------------------
Programs Name C Level PF Service Description Programs ID PF
-------- -------- - ----- -- -------------------- -------- -- --
1 Logon/Logoff Utility ULOG A
2 System Job Queue UQ B
3 Text Editor Utility UEDIT C
4 PDS Maint. Utility UPDS D
5
6
7
8
9
Enter Input: HELP ?
-------------------------------------------------------------------------------
LU Name: TERM1381 HC TID: Recall: = Language: 001
Devtype: 3270 VS Device: PRINT520 Suspend: < PA1 Case : UPPER
Lines : 24 Key: PA2 Jump: NO NO
Columns: 80
Solução
Deletado todos os programas das bibliotecas SYS* do banco 099 - suspeito que tem um programa SYS* causando esse problema;09:52:33 TID 66 COM641/D User DBA023 28.12.23
-- COM-PASS -- USTS
Suspended Programs Program Services
--------------------------------- ---------------------------------------
Programs Name C Level PF Service Description Programs ID PF
-------- -------- - ----- -- -------------------- -------- -- --
1 Logon/Logoff Utility ULOG A
2 System Job Queue UQ B
3 Text Editor Utility UEDIT C
4 PDS Maint. Utility UPDS D
5
6
7
8
9
Enter Input: HELP ?
nat2 stack=(sysbpm)
-------------------------------------------------------------------------------
LU Name: TERM1381 HC TID: Recall: = Language: 001
Devtype: 3279 V Device: PRINT520 Suspend: < PA1 Case : UPPER
Lines : 43 Key: PA2 Jump: NO NO
Columns: 80
Vamos deletar os programas das bibliotecas SYS* do banco 099
09:41:25 ***** NATURAL SYSBPM UTILITY ***** 28/12/2023
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 .. d Library ... SYS*____
Object .... *_______________________________________
DBID ...... 099__ FNR .. 0____ Object Pool ... * (B,C,*)
Command ===>
Deletado 204 programas no buffer pool
09:41:25 ***** NATURAL SYSBPM UTILITY ***** 28/12/2023
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 .. d Library ... SYS*____
Object .... *_______________________________________
DBID ...... 099__ FNR .. 0____ Object Pool ... * (B,C,*)
Command ===>
204 object(s) deleted or marked for deletion.
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Exit Last Flip Canc
Tentando acessar o SYSDIC do banco 099
09:44:21 TID 75 COM641/D User DBA023 28.12.23
-- COM-PASS -- USTS
Suspended Programs Program Services
--------------------------------- ---------------------------------------
Programs Name C Level PF Service Description Programs ID PF
-------- -------- - ----- -- -------------------- -------- -- --
NCF414 SUPORTE2 L 1 * Logon/Logoff Utility ULOG A
2 System Job Queue UQ B
3 Text Editor Utility UEDIT C
4 PDS Maint. Utility UPDS D
5
6
7
8
9
Enter Input: HELP ?
DBAX 099 SYSDIC
-------------------------------------------------------------------------------
LU Name: TERM1381 HC TID: Recall: = Language: 001
Devtype: 3279 V Device: PRINT520 Suspend: < PA1 Case : UPPER
Lines : 43 Key: PA2 Jump: NO NO
Columns: 80
Deu certo
09:45:27 ***** P R E D I C T 4.4.1 ***** 2023-12-28
Plan 0 - Function Main Menu - Profile DBA023
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 ........
Object type ....* Menu type ....* F
Command ===>
0 comentários:
Enviar um comentário