> Tech > Figure 1

Figure 1

Tech - Par iTPro - Publié le 24 juin 2010
email

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)

Figure 1

+
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
*************************************************************

Téléchargez gratuitement cette ressource

Protection des Données : 10 Best Practices

Protection des Données : 10 Best Practices

Le TOP 10 des meilleures pratiques, processus et solutions de sécurité pour mettre en œuvre une protection efficace des données et limiter au maximum les répercutions d’une violation de données.

Tech - Par iTPro - Publié le 24 juin 2010