Good afternoon. I have an issue where some of our reports that get emailed via SNDDST are no longer working. The files are first copied to QDLS/TMP using CPYTOIMPF and then the SNDDST command emails the file as a *DOC. I hate using QDLS, but is there any other way to do it if I'm copying the file to the IFS as a *PCASCII file? I was under the impression that *DOC types always have to be copied to the QDLS directory.
I'm hoping there's something new in V7R1 that might help me to eliminate the need to use this directory. Any suggestions would be appreciated. Here's the code, if you would like to look at it. Thanks!
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&SYSTIME)
CHGVAR VAR(&DOCNM) VALUE('GL' *TCAT &SYSTIME *TCAT '.CSV')
CHGVAR VAR(&TOSTMF) VALUE('/qdls/tmp/' *TCAT &DOCNM)
CPYTOIMPF FROMFILE(QTEMP/CSC117P) TOSTMF(&TOSTMF) STMFCCSID(*PCASCII) +
MBROPT(*REPLACE) RCDDLM(*CRLF) STRDLM(*NONE) RMVBLANK(*BOTH) +
CHGDOCD DOC(&DOCNM) FLR(TMP) DOCD('SODA Sales G/L Posting Report')
CHGVAR VAR(&MSG) VALUE('The SODA Sales G/L Posting Report that you +
requested is attached.')
SNDDST TYPE(*DOC) TOINTNET((&EMAIL1) (&EMAIL2) (&EMAIL3) (&EMAIL4) +
(&EMAIL5)) DSTD('SODA Sales G/L Posting Report') MSG(&MSG) +