|
Hello acolodrero, you can use dtatq link to outq to get spooled file entry information, then convert spooled file contents to STMF(CVTSPLSTMF), and use SNDDST or SNDM to send mail. CVTSPLSTMF -- http://www.help400.com/asp/utils/109909.zip SNDM -- http://homepage1.nifty.com/uzaemon/index.html#download And use following pgm to process spooled entry to integrate above to command, that's it. Date: May 26, 2005 09:08 AM Author: Herman (iseries400@xxxxxxxxxxx) Subject: Example /* Program : PRCRDYSPLF */ /* Version : 3.00 */ /* System : iSeries */ /* Author : Herman Van der Staey */ /* */ /* Description : Process Ready Spooled files in an OUTQ */ /* */ /* Submit this program to jobq QSYSNOMAX or QUSRNOMAX */ /* so that it stays active all the time. */ /* */ /* Create a DTAQ with length 128 and connect it to the OUTQ */ /* that must be processed. */ /* */ /* Execute this once : */ /* */ /* CRTDTAQ DTAQ(MYLIB/MYDTAQ) MAXLEN(128) TEXT('dtaq + */ /* connected to outq MYOUTQ') */ /* CHGOUTQ OUTQ(MYLIB/MYOUTQ) DTAQ(MYLIB/MYDTAQ) */ /* */ /* Each time a spooled files comes READY in the outq */ /* an entry is written to the associated dataqueue. */ PRCRDYSPLF: PGM DCL VAR(&FLDLEN) TYPE(*DEC) LEN(5 0) VALUE(128) DCL VAR(&FIELD) TYPE(*CHAR) LEN(128) DCL VAR(&WAIT) TYPE(*DEC) LEN(5 0) VALUE(-1) DCL VAR(&JOBQUAL) TYPE(*CHAR) LEN(26) DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10) DCL VAR(&USER ) TYPE(*CHAR) LEN(10) DCL VAR(&JOBNBR ) TYPE(*CHAR) LEN(6) DCL VAR(&SPLFILE) TYPE(*CHAR) LEN(10) DCL VAR(&SPLNBRBIN) TYPE(*CHAR) LEN(4) DCL VAR(&SPLNBRCHR) TYPE(*CHAR) LEN(6) DCL VAR(&SPLNBRDEC) TYPE(*DEC) LEN(6 0) DCL VAR(&TOTPAGCHR) TYPE(*CHAR) LEN(4) DCL VAR(&TOTPAGDEC) TYPE(*DEC) LEN(5 0) DCL VAR(&TOTCOPCHR) TYPE(*CHAR) LEN(4) DCL VAR(&TOTCOPDEC) TYPE(*DEC) LEN(5 0) DCL VAR(&FORMTYPE) TYPE(*CHAR) LEN(10) DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(3000) DCL VAR(&RECLEN) TYPE(*CHAR) LEN(4) CHGVAR VAR(%BIN(&RECLEN)) VALUE(3000) /* &wait = -1, which means : wait indefinitely */ /* until an entry arrives. */ LOOP: CALL PGM(QRCVDTAQ) PARM('MYDTAQ ' 'MYLIB ' &FLDLEN + &FIELD &WAIT) IF COND(&FLDLEN *NE 0) THEN(DO) /* entry + received */ CHGVAR VAR(&JOBQUAL) VALUE(%SST(&FIELD 13 26)) CHGVAR VAR(&JOBNAME) VALUE(%SST(&FIELD 13 10)) CHGVAR VAR(&USER) VALUE(%SST(&FIELD 23 10)) CHGVAR VAR(&JOBNBR) VALUE(%SST(&FIELD 33 6)) CHGVAR VAR(&SPLFILE) VALUE(%SST(&FIELD 39 10)) CHGVAR VAR(&SPLNBRBIN) VALUE(%SST(&FIELD 49 4)) CHGVAR VAR(&SPLNBRDEC) VALUE(%BIN(&FIELD 49 4)) CHGVAR VAR(&SPLNBRCHR) VALUE(&SPLNBRDEC) /* Here you can retrieve spooled file attributes. */ /* I give an example with Formtype, total pages and */ /* total copies. */ CALL PGM(QUSRSPLA) PARM(&RECEIVER &RECLEN + 'SPLA0100' &JOBQUAL ' ' ' ' &SPLFILE + &SPLNBRBIN) CHGVAR VAR(&FORMTYPE) VALUE(%SST(&RECEIVER 81 10)) CHGVAR VAR(&TOTPAGDEC) VALUE(%BIN(&RECEIVER 141 4)) CHGVAR VAR(&TOTPAGCHR) VALUE(&TOTPAGDEC) CHGVAR VAR(&TOTCOPDEC) VALUE(%BIN(&RECEIVER 169 4)) CHGVAR VAR(&TOTCOPCHR) VALUE(&TOTCOPDEC) /* Put here the instructions you want to perform when */ /* a spooled file arrives in the outq */ /* */ Here at this location in the program you have the &JOBNAME, &USER, &JOBNBR, &SPLFILE and &SPLNBRCHR variables available to identify the new spooled file that became READY in the outq. SNDPGMMSG MSG('New spooled file arrived') /* read next dataqueue entry */ GOTO CMDLBL(LOOP) ENDDO END: ENDPGM Hope above information could help you. Best regards, Vengoal vhamberg@xxxxxxxxxxx wrote: >There is nothing native on iSeries for doing this. ><vendor response> >We at RJS Software have a product that can handle this, Email Report Server. >You can check it out at www.rjssoftware.com or call for information in the US >at 952.898.3038 ></vendor response> > >-------------- Original message -------------- >From: Andres Colodrero <acolodrero@xxxxxxxx> > > > >>I惴 trying (call me crazy) to configure OUTQ to send >>spool file by e-mail. >>Actually, i use OUTQ to send spool file to other >>iSeries, but >>磨t愀 possible with outq RMTSYS *INTNETADR to send >>e-mail using iSeries smtp? >> >>any ideas? >> >>Thanks. >> >> >> >> >>______________________________________________ >>LLama Gratis a cualquier PC del Mundo. >>Llamadas a fijos y m镽iles desde 1 c幯timo por minuto. >>http://es.voice.yahoo.com >>-- >>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list >>To post a message email: MIDRANGE-L@xxxxxxxxxxxx >>To subscribe, unsubscribe, or change list options, >>visit: http://lists.midrange.com/mailman/listinfo/midrange-l >>or email: MIDRANGE-L-request@xxxxxxxxxxxx >>Before posting, please take a moment to review the archives >>at http://archive.midrange.com/midrange-l. >> >>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
