|
|
|
/* COPYRIGHT JÜRGEN REULE 2010-2023 */ |
|
|
|
|
|
|
|
|
CMD |
PROMPT('E-Mail senden') |
|
|
|
|
|
|
|
|
PARM |
KWD(FROM) TYPE(*CHAR) LEN(64) + |
|
|
|
|
DFT('info@aibobar.de') EXPR(*YES) + |
|
|
|
|
PROMPT('Absenderadresse') |
|
|
|
PARM |
KWD(FROMNAME) TYPE(*CHAR) LEN(64) + |
|
|
|
|
DFT('Aibo-Bar') EXPR(*YES) + |
|
|
|
|
PROMPT('Absendername') |
|
|
|
PARM |
KWD(TO) TYPE(*CHAR) LEN(64) + |
|
|
|
|
DFT('info@aibobar.de') EXPR(*YES) + |
|
|
|
|
PROMPT('Empfängeradresse') |
|
|
|
PARM |
KWD(TONAME) TYPE(*CHAR) LEN(64) + |
|
|
|
|
DFT('Aibo-Bar') EXPR(*YES) + |
|
|
|
|
PROMPT('Empfängername') |
|
|
|
PARM |
KWD(SUBJECT) TYPE(*CHAR) LEN(60) MIN(1) + |
|
|
|
|
EXPR(*YES) PROMPT('Betreff') |
|
|
|
PARM |
KWD(LONGMSG) TYPE(*CHAR) LEN(5000) MIN(1) + |
|
|
|
|
EXPR(*YES) PROMPT('Lange Nachricht') |
|
|
|
PARM |
KWD(SUBMIT) TYPE(*CHAR) LEN(1) RSTD(*YES) + |
|
|
|
|
DFT(*YES) SPCVAL((*YES '1') (*NO '0')) + |
|
|
|
|
PROMPT('Job übergeben') |
|