/** * * @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]; }