Midrange News for the IBM i Community


Posted by: Chris Proctor
Programmer Analyst
Columbia Sports Company
Portland, OR
QDLS folder question
has no ratings.
Published: 17 Sep 2015
Revised: 18 Sep 2015 - 1490 days ago
Last viewed on: 17 Oct 2019 (3142 views) 

Using IBM i? Need to create Excel, CSV, HTML, JSON, PDF, SPOOL reports? Learn more about the fastest and least expensive tool for the job: SQL iQuery.

QDLS folder question Published by: Chris Proctor on 17 Sep 2015 view comments(6)

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) +

ADDCOLNAM(*SQL)

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) +

DOC(&DOCNM) FLR(TMP)

Return to midrangenews.com home page.
Sort Ascend | Descend

COMMENTS