Good afternoon
Using ICETOOL I am able to group message that begin with BIP2977I from the 
SYSLOG.  Now that I have the groups of BIP2977I messages,  I would only like to 
keep only a group that contains ".NAI":

//SELECT   EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSLOG   DD  DISP=SHR,DSN=OPS.SYSLOG.WEEKLY(0)
//OUT DD SYSOUT=*
//TOOLIN DD *
  COPY  FROM(SYSLOG) TO(OUT) USING(CTL1)
//CTL1CNTL DD *
  OPTION VLSHRT
  INREC IFTHEN=(WHEN=GROUP,RECORDS=4,
  BEGIN=(64,9,CH,EQ,C'+BIP2977I'),PUSH=(154:ID=1))
  OUTFIL INCLUDE=(154,1,CH,NE,C' '),BUILD=(1,150)

This generates a great deal of messages like (edited sample)
+BIP2977I (Msg 1/1) MQSPBRK GAS 84 A USER GENERATED ESQL EXCEPTION HAS 054
BEEN THROWN. THE ADDITIONAL INFORMATION PROVIDED WITH THIS EXCEPTION I
 S: 'PIPS_FIN_AGS_EXTRACT' 'FLOW COMPLETED' 'PIPS_FIN_AGS_EXTRACT.Build
  AGS Extract Message' ' 3 ' ' 4 ' ' 5 ' ' 6 ' ' 7 ' ' 8 ' ' 9 '
+BIP2977I (Msg 1/1) MQSPBRK GAS 88 A USER GENERATED ESQL EXCEPTION HAS 078
BEEN THROWN. THE ADDITIONAL INFORMATION PROVIDED WITH THIS EXCEPTION I
 S: 'NAB_GAS_ACCOUNTS.msgflow' '20180710.NAI' 'FLOW COMPLETED' 'NAB_GAS
 _ACCOUNTS.Account Route' ' 4 ' ' 5 ' ' 6 ' ' 7 ' ' 8 ' ' 9 '

Any assistance from the brains trust would be much appreciated

Thanks

Benjamin Thompson
Middleware Systems Programmer
Data Centre Services
Department of Corporate and Information Services
Northern Territory Government
twitter: benthompsonau
ph (08) 89997693

Our Vision: Creating a public sector that provides the highest quality service 
to Territorians
Our Values: Commitment to Service  |  Ethical Practice  |  Respect  |  
Accountability  |  Impartiality  |  Diversity

Use or transmittal of the information in this email other than for authorised 
NT Government business purposes may constitute misconduct under the NT Public 
Sector Code of Conduct and could potentially be an offence under the NT 
Criminal Code.


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to