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 DSI, acteurs de la transformation digitale ! Découvrez, dans ce rapport basé sur une enquête internationale auprès de 1 060 directeurs financiers et IT, pourquoi l'alignement DSI - DAF est essentiel au succès de la transformation digitale de la Finance.
