Re: Need example of sending file from QDLS using SNDDST

Mary Koetting <Mary_Koetting@mail.mchcp.org> on 07/05/2000 02:20:35 PM

Please respond to MIDRANGE-L@midrange.com

To:   "'midrange'" <midrange-l@midrange.com>
cc:    (bcc: Arlene M Soderlund/NFCNA.COM)
Subject:  Need 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









+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---