/**
*
* @todo currentJobLog. retrieve log for it in either direction.
*
* @param $JobName
* @param $JobUser
* @param $JobNumber
* @return array|bool
*/
public function GetJobInfo($JobName, $JobUser, $JobNumber)
{
/**
* used format:JOBI0200
*/
if ($JobName == '' || $JobUser == '' || $JobNumber == '') {
return false;
//nothing to show
}
$reciever = " ";
$jobName26 = sprintf("%-10s%-10s%-6s", $JobName, $JobUser, $JobNumber);
// changed
$receiverSize = 1000;
// 200
$params[] = Toolkit::AddParameterChar('input', 26, "QualifiedJobName", 'JobName', trim($jobName26));
$params[] = Toolkit::AddParameterChar('both', $receiverSize, "reciever", 'reciever', $reciever);
$ret = $this->ToolkitSrvObj->PgmCall(ZSTOOLKITPGM, $this->ToolkitSrvObj->getOption('HelperLib'), $params, NULL, array('func' => 'GETJOBINFO'));
if ($ret && trim($ret['io_param']['reciever']) != '') {
return $this->parseJobInfString($ret['io_param']['reciever']);
}
return false;
}
/**
* if receiveDescription given, readlen = 0
*
* @param int $frompos
* @param int $readlen
* @param null $receiveStructure
* @return bool
* @throws \Exception
*/
public function ReadUserSpace($frompos = 1, $readlen = 0, $receiveStructure = null)
{
//how to see via green screen DSPF STMF('/QSYS.lib/qgpl.lib/ZS14371311.usrspc')
$dataRead = ' ';
$params[] = Toolkit::AddParameterChar('in', 20, "User space name and library", 'userspacename', $this->getUSFullName());
$params[] = Toolkit::AddParameterInt32('in', "From position", 'position_from', $frompos);
$receiverVarName = 'receiverdata';
if ($receiveStructure) {
// must be a ProgramParameter
if (!is_object($receiveStructure)) {
throw new \Exception('Parameter 3 passed to ReadUserSpace must be a ProgramParameter object.');
}
$labelForSizeOfInputData = 'dssize';
//
$params[] = Toolkit::AddParameterSize("Length of data", 'dataLen', $labelForSizeOfInputData);
// wrap simple ds around receive structure so we can assign a varname to retrieve later.
$receiveDs[] = $receiveStructure;
$params[] = Toolkit::AddDataStruct($receiveDs, $receiverVarName, 0, '', false, $labelForSizeOfInputData);
} else {
// regular readlen, no special structure or size labels.
$params[] = Toolkit::AddParameterInt32('in', "Size of data", 'datasize', $readlen);
$params[] = Toolkit::AddParameterChar('out', $readlen, $receiverVarName, $receiverVarName, $receiveStructure);
}
$params[] = Toolkit::AddErrorDataStruct();
$retPgmArr = $this->ToolkitSrvObj->PgmCall('QUSRTVUS', 'QSYS', $params);
if ($this->ToolkitSrvObj->verify_CPFError($retPgmArr, "Read user space failed. Error:")) {
return false;
}
$retArr = $retPgmArr['io_param'];
// return our receiverstructure.
return $retArr[$receiverVarName];
}
