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