Explorer deux fichiers de messages par mot-clé
*************************************************************
PGM
*** First create a PF to output to ***
CRTPF FILE(QTEMP/SCANMSG) RCDLEN(132)
*** Print the all messages from the first MSGF ***
DSPMSGD RANGE(*FIRST *LAST) MSGF(ERRMSGF1) +
DETAIL(*BASIC) OUTPUT(*PRINT)
*** Copy it to PF just created ***
CPYSPLF FILE(QPMSGD) TOFILE(QTEMP/SCANMSG)
+
SPLNBR(*LAST) MBROPT(*REPLACE)
*** Delete the spooled file ***
DLTSPLF FILE(QPMSGD) SPLNBR(*LAST)
*** Repeat the whole operation on the next MSGF ***
DSPMSGD RANGE(*FIRST *LAST) MSGF(ERRMSGF2) +
DETAIL(*BASIC) OUTPUT(*PRINT)
CPYSPLF FILE(QPMSGD) TOFILE(QTEMP/SCANMSG) +
SPLNBR(*LAST) MBROPT(*ADD)
DLTSPLF FILE(QPMSGD) SPLNBR(*LAST)
*** Now run a query on the PF ***
RUNQRY QRY(*NONE) QRYFILE((QTEMP/SCANMSG)) +
OUTTYPE(*DISPLAY) RCDSLT(*YES)
*************************************************
*** For the record selection,
type: ***
*** SCANMSG LIKE ‘%keyword%’ ***
*** replacing keyword with whatever your looking for.
***
*************************************************
*** Delete the PF in QTEMP
DLTF FILE(QTEMP/SCANMSG)
ENDPGM
*************************************************************
Les experts de Palo Alto Networks, Unit 42 et Forrester Research livrent dans ce webinaire exclusif leurs éclairages et stratégies en matière de réponses aux incidents. Bénéficiez d'un panorama complet du paysage actuel de la réponse aux incidents et de sa relation avec la continuité de l'activité, des défis auxquels font face les entreprises et des tendances majeures qui modèlent ce domaine. Un état des lieux précieux pour les décideurs et professionnels IT.
