/********************************************************************/ /* Autor : Dieter Bender 06/2004 */ /********************************************************************/ PGM PARM( + &ZIPPATH + &DIRECTION + &FILES + ) /********************************************************************/ DCLF FILE(QTEMP/ERROR) DCL VAR(&FEHLER) TYPE(*CHAR) LEN(1) VALUE('0') DCL &DIRECTION *CHAR 1 DCL &ZIPPATH *CHAR 64 DCL &FILES *CHAR 64 DCL &CMD *CHAR 256 CRTPF FILE(QTEMP/ERROR) RCDLEN(132) MONMSG MSGID(CPF0000) EXEC(CLRPFM FILE(QTEMP/ERROR)) OVRDBF FILE(STDERR) TOFILE(QTEMP/ERROR) OVRDBF FILE(STDOUT) TOFILE(QTEMP/ERROR) IF (&DIRECTION = 'Z') + CHGVAR &CMD ('jar -cf ' + !! &ZIPPATH + !! &FILES + ) ELSE + CHGVAR &CMD ('jar -xf ' + !! &ZIPPATH + !! &FILES + ) QSH CMD(&CMD) WIEDER: RCVF MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE)) CHGVAR VAR(&FEHLER) VALUE('1') SNDPGMMSG MSG(&ERROR) MSGTYPE(*DIAG) GOTO CMDLBL(WIEDER) ENDE: IF COND(&FEHLER *EQ '1') THEN(DO) SNDPGMMSG MSGID(CPF18A3) MSGF(QCPFMSG) MSGTYPE(*ESCAPE) ENDDO ENDPGM