Customer would like to drive an email when an alert is driven
Below is a sample email NCL.
Download / copy the content to the TESTEXEC.
Modify USERxEmail (as many as desired) and @COMPANY.COM to match the local environment.
A distribution list email address can also be used.
Add the name of the NCL member in the RUN_NCL option where alert actions are defined.
&CONTROL NOENDMSG NOINTLOG 00010000
-* &CONTROL TRACELOG 00020000
00030000
&CONTROL SHRVARS=($AM) NOUCASE 00040000
&ASSIGN MDO=$AMALERT MAP=$AMALERT 00050000
00060000
&ASSIGN VARS=$AMDESC FROM MDO=$AMALERT.DESC 00070000
&ASSIGN VARS=$AMRESOURCE FROM MDO=$AMALERT.RESOURCE 00080000
&ASSIGN VARS=$AMRESID FROM MDO=$AMALERT.RESID 00090000
&ASSIGN VARS=$AMSEVERITY FROM MDO=$AMALERT.SEVERITY 00100000
00110000
&CONTROL SHRVARS=($PS) 00120000
&ASSIGN VARS=$PSDATA* FROM MDO=$AMALERT.TEXT.{*} 00130000
&ASSIGN VARS=#TEXTCOUNT OPT=#ITEMS PRESENT_IN + 00140000
MDO=$AMALERT.TEXT.{*} 00150000
&$USER1 = &STR USER1Email 00160000
&$USER2 = &STR User2Email 00170000
&UCNT = 1 00180000
&TITLE = &STR &$AMDESC 00190000
00200000
&Dowhile .&$user&ucnt ne . 00210000
&$UADDR = &CONCAT &$USER&UCNT @COMPANY.COM 00220000
&gosub .sendemail 00230000
&UCNT = &ucnt + 1 00240000
&Doend 00250000
&exit 00260000
00270000
.sendemail 00280000
&TITLE = &zquote &TITLE 00290000
-EXEC $PSCALL OPT=OPEN PRINTER=$PSEMAIL HOLD=NO KEEP=NO + 00300000
TITLE=&TITLE EXITDATA='JOB=SMTP TO=&$UADDR HOST= NODE= ATT=NMPRT' 00310000
&IF .&RETCODE EQ .0 &THEN + 00320000
&WRITE DATA=GOOD? 00330000
-EXEC $PSCALL OPT=PUT REQ=&$PSREQ# TOTAL=&#TEXTCOUNT 00340000
&IF .&RETCODE EQ .0 &THEN + 00350000
&WRITE DATA= OK? 00360000
&WRITE DATA= rtc=&RETCODE// &SYSMSG 00370000
-EXEC $PSCALL OPT=CLOSE REQ=&$PSREQ# 00380000
&IF .&RETCODE EQ .0 &THEN + 00390000
&WRITE DATA= GOOD OR OK¦ 00400000
&WRITE DATA= PRINT RTC=&ETCODE//&SYSMSG 00410000
&retsub 00420000
00430000
&$PSDATA1 = &STR &ALLPARMS 00440000
&$PSDATA2 = &STR line #2 00450000
&$PSDATA3 = &STR line #3 00460000
&$PSDATA4 = &STR line #4 00470000
&$PSDATA5 = &STR line #5 00480000
&$PSDATA6 = &STR line #6 00490000
&ASSIGN VARS=$AMTYPE FROM MDO=$AMALERT.TYPE 00500000
&ASSIGN VARS=$AMAPPLID FROM MDO=$AMALERT.APPLID 00510000
&ASSIGN VARS=$AMCLASSID FROM MDO=$AMALERT.CLASSID 00520000
&ASSIGN VARS=$AMAPPLOBJ FROM MDO=$AMALERT.APPLOBJ 00530000
&CNT = 6 00540000