midrange.com code scratchpad |
Name:
Send out a range of emails
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
02/10/2012 06:44:47 pm
|
IP:
Logged
|
|
Description:
The user was to lazy to give a description
|
Code:
- H DFTACTGRP(*NO) ACTGRP(*CALLER) BNDDIR('QC2LE')
-
- D IFS500TEST PR EXTPGM('IFS500TEST')
- D EmailAddress 25a
- D FromNbr 5p 0
- D ToNbr 5p 0
- D IFS500TEST PI *ENTRY PLIST
- D EmailAddress 25a
- D FromNbr 5p 0
- D ToNbr 5p 0
-
- D/copy ROUTINES/QAPISRC,QCMDEXC
- D Apos S 1A INZ(X'7D')
-
- D FileNameDs ds 15
- D FilePrefix 6a inz('/rob/F')
- D FileNumber 5S 0
- D FileNumberA 5a overlay(FileNumber)
- D FileSuffix 4a inz('.txt')
-
- D OurCmdDs ds Qualified
- D 20a inz('SNDEMAIL ADDRESSEE((')
- D To like(EmailAddress)
- D 14a inz(' *NONE *PRI)) ')
- D 22a inz('SENDER(ROB@DEKKO.COM) ')
- D 23a inz('SUBJECT(TEST) FILENAME(')
- D 1a inz(x'7D')
- D FileStructure like(FileNameDs)
- D 1a inz(x'7D')
- D 10a inz(') MESSAGE(')
- D MsgText like(FileNumberA)
- D 1a inz(')')
-
- /free
- OurCmdDs.To=EmailAddress;
-
- for FileNumber = FromNbr to ToNbr;
- OurCmdDs.FileStructure=FileNameDs;
- OurCmdDs.MsgText=FileNumberA;
- cmd=OurCmdDs;
- callp qcmdexc(%trim(cmd): %len(%trim(cmd)));
- ENDFOR;
-
- *inlr=*on;
- return;
-
-
- CMD PROMPT(IFS500TSTC)
- PARM KWD(ADDRESS) TYPE(*CHAR) LEN(25)
- PARM KWD(FROMNBR) TYPE(*DEC) LEN(5)
- PARM KWD(TOOMNBR) TYPE(*DEC) LEN(5)
|
|
|