Tem um utilitário que descobre quem deleteu, alterou e inseriu qualquer registro do banco chamamos ele de ADASEL; No exemplo abaixo pegamos um cartucho onde estava gravado o PLOG que o analista queria saber quem adicionou um registro no file 115 que esta com o ISN 43647.
JCL ADASEL
Temos uma aplicação que pega do SMF e grava os dados de quem acessou cada TID do sistema, pesquisando este log:
JCL ADASEL
//AAFASEL JOB (AAFA,DIBD),FREDDIE,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ------------------------------------------------------------
//* IMPRESSAO DOS REGISTROS DO ARQUIVO GRAVADO DO PLOG
//* ------------------------------------------------------------
//SEL EXEC AAFAUTIP
//DDASSOR1 DD DSN=ADABAS.DB240.ASSO1,DISP=SHR
//DDASSOR2 DD DSN=ADABAS.DB240.ASSO2,DISP=SHR
//DDSIIN DD DSN=ADABAS.C.DB240.PLOG.G2270V00,DISP=OLD,
// UNIT=TP35,VOL=SER=TP0709
//* ------------------------------------------------------------
//DDEXPA DD SYSOUT=A
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=G
//SYSUDUMP DD SYSOUT=A
//* ------------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADASEL
//DDKARTE DD *
SELECT ALL FROM FILE 115
WITH ISN = 43647
DISPLAY AA AB AD USERID HEX USERTID
/*
SNR FNR ISN USERTID NEWREC - AI 2009-06-01 10:49:04
1 115 43647 14061
AA 286441314
AB 053
AD 6
USERID F1404040F1F4F0F6 1 1406
USERTID 14061Temos uma aplicação que pega do SMF e grava os dados de quem acessou cada TID do sistema, pesquisando este log:
PAG 1 10/06/09 13:53:35
USUARIO DATA TID HORA TIPO
--------------------------------------------------
SC991252 20090601 1406 10442637 1
SC991252 20090601 1406 12321104 3
SC981234 20090601 1406 9090903 1
SC991256 20090601 1406 9090905 3
SC991257 20090601 1406 10292158 1
SC991258 20090601 1406 10433909 3
SC991250 20090601 1406 9342682 1
SC991253 20090601 1406 10115886 3
SC991257 20090601 1406 10121068 1
SC991250 20090601 1406 10291898 3
SC991255 20090601 1406 13010490 1
SC991252 20090601 1406 13340937 3
SC991257 20090601 1406 12321216 1
SC991259 20090601 1406 12523940 3
SC991252 20090601 1406 8154719 1
SC991259 20090601 1406 8455836 3
SC991251 20090601 1406 10441283 1
SC991252 20090601 1406 10441284 3
Estou com um problema parecido. Preciso identificar como um registro foi apagado no file 006, conforme log abaixo:
ResponderEliminarSNR FNR ISN USERTID DELETE - BI 2017-03-10 16:04:51
1 6 7546 D23755386EC6FB05
Como eu identifico esse D23755386EC6FB05?
Obrigado!
Eu já li sobre isso em um lugar, agora não lembro, deixa eu ver nas minhas anotações;
EliminarAcho que esta em hexadecimal, faz um teste:
ResponderEliminar1 - rode: DISPLAY campo1 campo2 campo3 USERID USERTID HEX
2 - rode: DISPLAY campo1 campo2 campo3 USERID USERTID
Observe o campo USERTID que vai aparecer nos resultados, vamos mostrar que o seu USERTID que você esta pegando esta em hexadecimal.
Roda um programa natural que vai transformar:
MOVE H'D23755386EC6FB05' TO #A(A16)
DISPLAY #A
.