PGM        PARM(&DSTID)
             DCL        VAR(&DSTID) TYPE(*CHAR) LEN(20)
             RCVDST     DSTID(&DSTID) USRID(*CURRENT) +
                          OUTFILE(QTEMP/DSTDOC) OUTDTATYP(*DOC) +
                          KEEP(*YES)
             ENDPGM