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]