Usou, Informou
A ferramenta denominada “USOU INFORMOU” é uma rotina desenvolvida com dois objetivos básicos:
Possibilitar a apropriação de consumo de forma on-line e em tempo real.
Servir de base para a gravação de registros de eventos e seus respectivos consumos.
DESCRIÇÃO DA FERRAMENTA
Todas as transações online (CICS), ininterruptamente, Estão sendo contabilizadas por esse processo, que é derivado do account formal.
A ferramenta possibilita reinicializar a contabilização do consumo (sem prejuízo para o account formal), oferecendo com isso a possibilidade de medir trechos de programas com cujas análises podemos optar por algorítmos mais eficientes.
É uma ferramenta auxiliar para os técnicos de desenvolvimento de sistemas e programas com o intuito de medir ou estimar o consumo de suas rotinas; só poderá ser executada sob transações de desenvolvimento em Natural 2 e com a chave do operador iniciando po “000”.
USO DA FERRAMENTA
CTPP31ET
Este programa recupera informações de consumo e/ou inicializa novas contabilizações.
Recebe uma área composta de três campos básicos:
- código de ação
-área de dados
-código de terminal
CÓDIGO DE AÇÃO – UM BYTE COM CONTEÚDO NUMÉRICO ZONADO:
“1” - zerar recursos
“2” - recuperar recursos
“3” - recuperar e zerar recursos
Área de dados – Trinta e dois bytes onde serão retornados os totais dos recursos consumidos no ADABAS e no CICS; subdivida em oito subcampos de quatro bytes no formato binário.
1. ADABAS - número de comandos executados.
2. ADABAS – CPU TIME em milisegundos
3. ADABAS - I/O na Associator
4. ADABAS – I/O no Data Storage
5. ADABAS - I/O no Work
6. CICS – CPU TIME em milisegundos
7. CICS – Maior memória alocada
8. CICS – I/O de terminal
Código de terminal – Quatro bytes com conteúdo alfa numérico. Código do terminal que se quer apropriar o consumo. Informar com espaços se for o próprio terminal.
Formas de Chamada.
Natural – CALL 'CTPP31ET' AREA
CICS - EXEC CICS LINK
..........PROGRAM ('CTPP31ET')
..........LENGTH(37)
Return Codes
O return Codes é devolvido no primeiro byte da área pasada (corresponde ao código de ação) no formato Binário.
X '00' – execução normal
X '01' – usuário não autorizado (chave diferente de
“000...”)
X '02' - terminal sem ser área (definição no CICS)
X '03' - terminal em produção (transação de
produção)
X '04' - terminal inválido
X '05' - terminal inativo
Exemplos
Verificação do consumo
Via programa:
0010 Define data local
0020 1#Area (A057)
0030 1 Redefine # Area
0040 2#Cod (A001)
0050 2 Redefine # Cod
0060 2 # Ret-Code (B001)
0070 2 #DADOS (A032)
0080 2 REDEFINE # DADOS
0090 3 #ADNCMD (B004)
0100 3 #ADCPU (B004)
0110 3 #ADIOA (B004)
0120 3 #ADIOD (B004)
0130 3 #ADIOW (B004)
0140 3 #CICPU (B004)
0150 3 #CIMEN (B004)
0160 3 #CHOT (B004)
0170 2 #TERM (A004)
0180 END-DEFINE
0190 MOVE'1' TO # COD /* ZERA RECURSOS
0200 CALL ' CTPP31ET' USING # AREA
0210 IF # RET-COD NE 0
0220 DO
0230 WRITE 'OCORREU ERRO NA CTPP31ET - CODIGO ='# RET-COD
0240 STOP
0250 DOEND
0260
0270
0280 ======} TRECHO DO PROGRAMA A MEDIR
0290
0300
0310 MOVE '2' TO # COD /* RECUPERA RECURSOS
0320 CLL 'CTPP31ET' USING AREA
0330 IF # RET-CODE NE 0
0340 DO
0350 WRITE 'OCORREU ERRO NA CTPP31ET - CODIGO =' #RET-CODE
0360 STOP
0370 DOEND
0380
0390
0400
0410 END
Via Utilitário:
Em qualquer logon invoque um dos programas "RECURSO" ou "CONSUMO" e estarão disponíveis as seguintes opções:
'1' - zerar o consumo
'2' - recuperar o consumo
'3' - recuperar e zerar o consumo
O terminal defaut é o próprio terminal, querendo-se informações de outro terminal basta preencher a identificação dos mesmos.
TELA 1:
30/07/91...............CONSUMO DE RECURSOS CICS E ADADAS...............DISOF
INFORME
CODIGO: 2 ====> 1 = ZERAR...............RECURSOS
........................... 2 = RECUPERAR........RECURSOS
........................... 3 = RECUPERAR E ZERAR.RECURSOS
TERMINAL: L5AD ====>NOME DO TREMINAL QUE DESEJA (OPCIONAL)
---------------------------PF3-------------------------------------------------------------------
.........................._ ENCERRA
TELA 2:
30/07/91...............CONSUMO DE RECURSOS CICS E ADADAS...............DISOF
OPERADOR : LISLANE ...........................TERMINAL : TF1K
MEMORIA : 36..................................... I/O TERMINAL: 4
..........................................................CONSUMO: %
CPU ====> CICS:...........................93 ...........................60%
..................ADABAS:.......................61............................40%
..................TOTAL:........................154..........................100%
........................................................................................ I/O MEDIA/COMANDO
COMANDOS ADABAS ====> ASSO:..........................11...........................0,366
........................................DATA:........................... 7...........................0,233
........................................WORK:.......................... 0...........................0,000
