|
|
|
|
|
|
|
|
|
|
/* |
COPYRIGHT JÜRGEN REULE 2011-2026 */ |
|
|
|
|
|
|
|
|
PGM |
PARM(&HOMEDIR &SRC &CODPAG) |
|
|
|
|
|
|
|
|
DCL |
VAR(&SRC) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&CMD) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&JAVA) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&PREVIEW) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&HOMEDIR) TYPE(*CHAR) LEN(5000) |
|
|
|
DCL |
VAR(&CODPAG) TYPE(*CHAR) LEN(5) |
|
|
|
|
|
|
|
|
MONMSG |
MSGID(CPFA0A0) |
|
|
|
MONMSG |
MSGID(CPFA0A9) |
|
|
|
MONMSG |
MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR)) |
|
|
|
|
|
|
|
|
/* |
----------------------- + |
|
|
|
Pfad setzen und anlegen + |
|
|
|
----------------------- */ |
|
|
|
/* |
CHGVAR VAR(&HOMEDIR) VALUE('/home/AIBOBAR') */ |
|
|
|
|
|
|
|
|
CRTDIR |
DIR(&HOMEDIR) |
|
|
|
CHGAUT |
OBJ(&HOMEDIR) USER(*PUBLIC) DTAAUT(*RX) |
|
|
|
|
|
|
|
|
/* |
----------------------- + |
|
|
|
Pfad setzen und anlegen + |
|
|
|
----------------------- */ |
|
|
|
CHGVAR |
VAR(&JAVA) + |
|
|
|
|
VALUE(&HOMEDIR *TCAT '/' + |
|
|
|
|
*TCAT 'java' *TCAT '/') |
|
|
|
|
|
|
|
|
CRTDIR |
DIR(&JAVA) |
|
|
|
CHGAUT |
OBJ(&JAVA) USER(*PUBLIC) DTAAUT(*RX) |
|
|
|
|
|
|
|
|
/* |
------------------ + |
|
|
|
Objektnamen setzen + |
|
|
|
------------------ */ |
|
|
|
CHGVAR |
VAR(&PREVIEW) + |
|
|
|
|
VALUE(&JAVA *TCAT 'Preview.java') |
|
|
|
|
|
|
|
|
/* |
------------------------ + |
|
|
|
Quellen ins IFS kopieren + |
|
|
|
------------------------ */ |
|
|
|
CPYTOSTMF |
FROMMBR(&SRC *TCAT 'PREVIEWJ.MBR') + |
|
|
|
|
TOSTMF(&PREVIEW) STMFOPT(*REPLACE) + |
|
|
|
|
ENDLINFMT(*LF) STMFCODPAG(&CODPAG) |
|
|
|
|
|
|
|
|
/* |
---------------------------- + |
|
|
|
Berechtigungen im IFS setzen + |
|
|
|
---------------------------- */ |
|
|
|
CHGAUT |
OBJ(&PREVIEW) USER(*PUBLIC) DTAAUT(*RX) |
|
|
|
|
|
|
|
|
/* |
---------------------- + |
|
|
|
Java-Klassen erstellen + |
|
|
|
---------------------- */ |
|
|
|
CHGVAR |
VAR(&CMD) VALUE('javac' + |
|
|
|
|
*BCAT &PREVIEW) |
|
|
|
QSH |
CMD(&CMD) |
|
|
|
|
|
|
|
|
/* |
------------- + |
|
|
|
Fehler melden + |
|
|
|
------------- */ |
|
|
|
IF |
COND('0') THEN(DO) |
|
|
ERROR: |
SNDPGMMSG |
MSGID(CPF9897) MSGF(QCPFMSG) + |
|
|
|
|
MSGDTA('Fehler beim Wandeln') + |
|
|
|
|
MSGTYPE(*ESCAPE) |
|
|
|
ENDDO |
|
|
|
ENDPGM: |
ENDPGM |
|
|