|
|
|
/* COPYRIGHT JÜRGEN REULE 2010-2023 */ |
|
|
|
|
|
|
|
|
PGM |
PARM(&IMAGE &PREVIEW &FORMAT &SUBMIT) |
|
|
|
|
|
|
|
|
DCL |
VAR(&IMAGE) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&PREVIEW) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&CLASSPATH) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&FORMAT) TYPE(*CHAR) LEN(4) |
|
|
|
DCL |
VAR(&WIDTH) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&HEIGHT) TYPE(*CHAR) LEN(10) |
|
|
|
DCL |
VAR(&SUBMIT) TYPE(*CHAR) LEN(1) |
|
|
|
DCL |
VAR(&USER) TYPE(*CHAR) LEN(10) |
|
|
|
|
|
|
|
|
MONMSG |
MSGID(CPF0000) |
|
|
|
|
|
|
|
|
IF |
COND(&SUBMIT *EQ '0') THEN(DO) |
|
|
|
RTVJOBA |
USER(&USER) |
|
|
|
|
|
|
|
|
IF |
COND(&PREVIEW *NE ' ') THEN(DO) |
|
|
|
RMVLNK |
OBJLNK(&PREVIEW) |
|
|
|
|
|
|
|
|
CHGVAR |
VAR(&WIDTH) VALUE('120') |
|
|
|
CHGVAR |
VAR(&HEIGHT) VALUE('120') |
|
|
|
CHGVAR |
VAR(&CLASSPATH) VALUE('java') |
|
|
|
|
|
|
|
|
IF |
COND(&IMAGE *NE ' ' + |
|
|
|
|
*AND &PREVIEW *NE ' ' + |
|
|
|
|
*AND &FORMAT *NE ' ') THEN(DO) |
|
|
|
|
|
|
|
|
JAVA |
CLASS('Minibild') + |
|
|
|
|
PARM(&IMAGE &PREVIEW &FORMAT + |
|
|
|
|
&WIDTH &HEIGHT) + |
|
|
|
|
CLASSPATH(&CLASSPATH) + |
|
|
|
|
PROP((java.awt.headless true)) |
|
|
|
|
|
|
|
|
MONMSG |
MSGID(JVA0000) EXEC(DO) |
|
|
|
SNDPGMMSG |
MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA(' ' + |
|
|
|
|
*CAT &IMAGE *BCAT &WIDTH + |
|
|
|
|
*BCAT &HEIGHT + |
|
|
|
|
*BCAT &FORMAT + |
|
|
|
|
*BCAT &PREVIEW) + |
|
|
|
|
TOUSR(&USER) |
|
|
|
ENDDO |
|
|
|
|
ENDDO |
|
|
|
|
ENDDO |
|
|
|
|
ENDDO |
|
|
|
|
|
|
|
|
|
IF |
COND(&SUBMIT *EQ '1') THEN(DO) |
|
|
|
SBMJOB |
CMD(IMAGE IMAGE(&IMAGE) + |
|
|
|
|
PREVIEW(&PREVIEW) + |
|
|
|
|
FORMAT(&FORMAT) + |
|
|
|
|
SUBMIT(*NO)) + |
|
|
|
|
JOB(IMAGE) + |
|
|
|
|
LOG(4 0 *NOLIST) + |
|
|
|
|
LOGCLPGM(*NO) |
|
|
|
ENDDO |
|
|
|
ENDPGM: |
ENDPGM |
|
|