
Return to the EMail Tips
Example of sending file from QDLS using SNDDST
Does anyone have a working example of a SNDDST where the file being sent
is from QDLS? I trying to send a text file and an excel file. Many thanks.
Yes, but I used CLLE callb from a RPGLE,
PGM PARM(&FILE &MEMBER &Folder &GROUP &ADDRES)
DCL VAR(&Member) TYPE(*CHAR) LEN(10)
DCL VAR(&File) TYPE(*CHAR) LEN(10)
DCL VAR(&Group) TYPE(*CHAR) LEN(10)
DCL VAR(&Addres) TYPE(*CHAR) LEN(10)
DCL VAR(&Folder) TYPE(*CHAR) LEN(63)
CPYTOPCD FROMFILE(&FILE) TOFLR(&FOLDER) +
FROMMBR(&MEMBER) REPLACE(*YES)
SNDDST TYPE(*DOC) TOUSRID((&GROUP &ADDRES)) +
DSTD(&Group) CFMDEL(*YES) DOC(&MEMBER) +
FLR(&Folder)
ENDPGM
or just the *DOC
PGM PARM(&Doc &Folder &GROUP &ADDRES)
DCL VAR(&Doc) TYPE(*CHAR) LEN(10)
DCL VAR(&Folder) TYPE(*CHAR) LEN(63)
DCL VAR(&Group) TYPE(*CHAR) LEN(10)
DCL VAR(&Addres) TYPE(*CHAR) LEN(10)
SNDDST TYPE(*DOC) TOUSRID((&GROUP &ADDRES)) +
DSTD(&Group) CFMDEL(*YES) DOC(&Doc) +
FLR(&Folder)
ENDPGM
[report a broken link by clicking here]






