|
|
|
|
|
|
|
|
|
|
/* |
COPYRIGHT JÜRGEN REULE 2010-2026 */ |
|
|
|
|
|
|
|
|
CMD |
PROMPT('Minibild erstellen') |
|
|
|
|
|
|
|
|
PARM |
KWD(IMAGE) TYPE(*PNAME) LEN(5000) MIN(1) + |
|
|
|
|
EXPR(*YES) CASE(*MIXED) PROMPT('Bild') |
|
|
|
PARM |
KWD(FORMAT) TYPE(*CHAR) LEN(4) RSTD(*YES) + |
|
|
|
|
DFT(JPEG) VALUES(JPEG) EXPR(*YES) + |
|
|
|
|
PROMPT('Format') |
|
|
|
PARM |
KWD(SUBMIT) TYPE(*CHAR) LEN(1) RSTD(*YES) + |
|
|
|
|
DFT(*YES) SPCVAL((*YES '1') (*NO '0')) + |
|
|
|
|
PROMPT('Job übergeben') |
|