> 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

Sécurité Office 365 : 5 erreurs à ne pas commettre

Sécurité Office 365 : 5 erreurs à ne pas commettre

A l’heure où les données des solutions Microsoft de Digital Workplace sont devenues indispensables au bon fonctionnement de l’entreprise, êtes-vous certain de pouvoir compter sur votre plan de sécurité des données et de sauvegarde des identités Microsoft 365, Exchange et Teams ? Découvrez les 5 erreurs à ne pas commettre et les bonnes pratiques recommandées par les Experts DIB France.

Tech - Par iTPro - Publié le 24 juin 2010

A lire aussi sur le site

Revue Smart DSI

La Revue du Décideur IT