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
*************************************************************
Pourquoi la 5G est-elle faite pour votre entreprise ? La 5G peut améliorer la vitesse, la fiabilité et la capacité de votre réseau, permettant ainsi une meilleure collaboration, une productivité accrue et une prise de décision plus rapide. Notre livre blanc " The Big Book of Enterprise 5G" vous fournit les informations stratégiques dont vous avez besoin pour prendre des décisions éclairées et préparer votre entreprise à prospérer dans l'ère de la 5G. Cradlepoint, part of Ericsson est le leader mondial des solutions de réseau sans fil 4G LTE et 5G fournies via le cloud. Connectez vos employés, lieux et objets avec la 4G LTE et la 5G pour un WAN sans fil d'entreprise.
