Tweet
We are successfully sending SMTP mails out of our 400 to the internet. Is the 400 keeping a log of these Emails? I'm aware of the DSPDSTLOG command. This doesn't help much. Please advise.
-
-
Does the 400 keep a log of 'sent' Emails ?
As far as I know, there is none other than running SMTP flight recorders by create some SMTP dataarea and files. However, this should be done only at the advice of an IBM tech support to analyze SMTP problems. Because it can have some performance issue and those files will continue to increase until all the DASD is used. Shawn Fu -
Does the 400 keep a log of 'sent' Emails ?
Jenny, You have to use an API to retrieve a message. Here is some code that may get you started:DRtvEM PR EXTPROC('QzmfRtvMailMsg') D PR_EMID 32A CONST Mail ID. D PR_EMDscAtt 32A CONST DIM(8) OPTIONS(*VARSIZE) Mail descript attr. D PR_EMDscAttCnt 9B 0 CONST Count of attr. D PR_FmtNam 8A CONST Format name. D PR_APIErr LIKE(APIErr) ************************************************** ****************************** ************** * *RtvEMAtt - Retrieve E-mail message attributes. * ************************************************** ****************************** ************** PRtvEMAtt B EXPORT DRtvEMAtt PI OPDESC LIKE(RtnErr) Error. D EMID 32A CONST Mail ID assigned. D Fmt 8A CONST Format to retrieve. D FmtDta 32767A OPTIONS(*VARSIZE) Return data. D FmtDtaLen 5U 0 Return data length. DRtnErr S 1A INZ(*OFF) Return flag. DAPIEMDscAtt DS D APIEMDsc LIKE(QZMFMDAE) DIM(1) Mail descriptors. D pRen LIKE(QZMMDP) OVERLAY(APIEMDsc) Rename pointer. DAPIEMDscAttCnt S 9B 0 INZ(1) Count of descriptor. C CALLP CEEDOD(3: Get length passed. C DscTyp: C DtaTyp: C DscInf1: C DscInf2: C PrmLen: C *OMIT) C* C EVAL QZMMDP = %ADDR(FmtDta) C EVAL QZMMDL00 = PrmLen C EVAL QZMMDFN08 = Fmt Set format. C EVAL QZMERVED14 = *ZEROS Reserved. C EVAL APIEMDsc(1) = QZMFMDAE Set descriptor entry C CALLP RtvEM(EMID: C APIEMDsc: C APIEMDscAttCnt: C 'RTVM0100': C APIErr) C* C EVAL RtnErr = SndAPIErr(APIErr) Error in API. C* C IF RtnErr = *ZEROS C EVAL QZMFMDAE = APIEMDsc(1) Set descriptor entry C EVAL FmtDtaLen = QZMMDL00 C END C* C RETURN RtnErr PRtvEMAtt EDavid MorrisComment
Comment