7-Zip for PASE
Posted: Tue Mar 11, 2025 8:31 pm
We have been using this utility for a while now with no issues. However, it recently stopped working, and we can't figure out why. We've found a workaround but I was hoping someone could shed some light on what happened. Here's a breakdown of the process that's using it.
i. GET method to a web API that returns a .gz file. We store it to an IFS directory.
ii. Here's the code running the QSHELL commands.
iii. This is the error when I run the command interactively. Shows the same error in the batch job log.
I found an IBM page that explains that the subsytem/jobq might need to be increased or set to *NOMAX on the number of active jobs. Tried that on several jobq's but never got a resolution. Can anyone take a stab at explaining why this started happening out of the blue?
i. GET method to a web API that returns a .gz file. We store it to an IFS directory.
ii. Here's the code running the QSHELL commands.
Code: Select all
dcl-PI *N;
path varchar(1000) const;
file varchar(1000) const;
response char(16000000);
End-Pi;
dcl-c q const('''');
dcl-s ifsDir int(10) Inz(*Zeros);
*=========================================================================
CallP(E) ExecuteCommand('RMVENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT)');
CallP(E) ExecuteCommand('ADDENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT) '
+ 'VALUE(NONE)');
CallP(E) ExecuteCommand('STRQSH CMD(' + q + 'cd ' + %Trim(path)
+ '; 7z e ' + %Trim(file) + '.gz' + q + ')');
Code: Select all
QSH Command Entry
$
> cd /home/as5289/zipper
$
> ls
600.gz
$
> 7z e 600.gz
/QOpenSys/usr/bin/7z: 001-0012 Error found starting child process.