#desc Email Test #callable ADDRESS SYSVIEWE 'C(ASLIST;SELECT ASStatus EQ ACTIVE)' n = QUEUED() SMOUT.0 = n IF n > 0 THEN DO i=1 TO n PULL SMOUT.i END uname = 'John Doe' fromid = 'john.doe@company.com' toid = 'john.doe@company.com' subj = 'SYSVIEW : ASLIST display' date() time() rc = send_email(uname,fromid,toid,subj) ADDRESS SYSVIEWE 'C(END)' EXIT /* Variable SMOUT should be a stem variable that contains the */ /* display data that is to be written in the email attachment */ send_email: SMUSER = arg(1) SMFROM = arg(2) SMTO = arg(3) SMSUBJ = arg(4) RCPT.0 = 1 RCPT.1 = 'RCPT TO:<'SMTO'>' sname = '"'SMUSER'"' smtp1.0 = 2 smtp1.1 = 'HELO EMAILTO' smtp1.2 = 'MAIL FROM:<'SMFROM'>' smtp2.0 = 12 smtp2.1 = 'DATA' smtp2.2 = 'FROM:'sname' <'SMFROM'>' smtp2.3 = 'TO:' SMTO smtp2.4 = 'Subject: 'SMSUBJ smtp2.5 = 'MIME-Version: 1.0' smtp2.6 = 'Content-type: multipart/mixed;boundary="simple"' smtp2.7 = '--simple' smtp2.8 = ' ' smtp2.9 = 'Please open Commands.txt for SYSVIEW displays' smtp2.10 = '--simple' smtp2.11 = 'Content-disposition: attachment; filename=Commands.txt' smtp2.12 = ' ' x = BPXWDYN("ALLOC FI(SMTPOUT) SYSOUT(A) WRITER(SMTP)") dcb = SAM('OBTAIN',,'SMTPOUT','OUTPUT') IF rc ¬= 0 THEN SAY 'EMAILTO - OBTAIN - RC= ' rc SAM('OPTION',dcb,'F','1024') IF rc ¬= 0 THEN SAY 'EMAILTO - OPTION - RC= ' rc SAM('OPEN',dcb) IF rc ¬= 0 THEN SAY 'EMAILTO - OPEN - RC= ' rc DO i=1 TO SMTP1.0 SAM(PUT,dcb,SMTP1.i,' ') END DO i=1 TO RCPT.0 SAM(PUT,dcb,RCPT.i,' ') END DO i=1 TO SMTP2.0 SAM(PUT,dcb,SMTP2.i,' ') END DO i=1 TO SMOUT.0 SAM(PUT,dcb,SMOUT.i,' ') END SAM('CLOSE',dcb) IF rc ¬= 0 THEN SAY 'EMAILTO - CLOSE - RC= ' rc SAM('RELEASE',dcb) IF rc ¬= 0 THEN SAY 'EMAILTO - RELEASE - RC= ' rc x = BPXWDYN("FREE FI(SMTPOUT)") return 0