Wir machen es so:

H DFTACTGRP(*NO) ACTGRP(*CALLER) BNDDIR('QC2LE') EXPROPTS(*RESDECPOS)
H DATFMT(*ISO) TIMFMT(*eur) OPTION(*NODEBUGIO)
* ---------------------------------------------------------------*
* unzip
* ---------------------------------------------------------------*
D cmd s 500
D qs s 1a inz('''')

D quellpfad s 64a inz('/edv')
D zielpfad s 64a inz('/home/edv01')
D zipdatei s 10a inz('test.zip')
D rc s 10i 0
//
D system PR 10i 0 extproc('system')
D i_cmd * value options(*string)
C*--------------------------------------------------------------
/free
// Zielverzeichnis einstellen
cmd = 'QSH CMD('+qs+%trimr(zielpfad)+qs+') ';
rc = system(cmd);

cmd = 'QSH CMD('+qs+'jar xf '+
%trimr(quellpfad)+'/'+
%trimr(zipdatei)+qs+') ';
rc = system(cmd);

*inlr = *on;
/end-free