示例#1
0
 /**
  * from 8-character *DTS format to 17-character full date and time
  *
  * @param $dtsDateTime
  * @return bool
  */
 public function dtsToYymmdd($dtsDateTime)
 {
     $inputFormat = "*DTS";
     // special system format, returned by some APIs.
     $outputFormat = "*YYMD";
     // 17 chars long
     $outputVarname = 'datetimeOut';
     $apiPgm = 'QWCCVTDT';
     $apiLib = 'QSYS';
     $paramXml = "<parm io='in' comment='1. Input format'>\n            <data var='formatIn' type='10A' comment='*DTS is system time stamp format'>{$inputFormat}</data>\n            </parm>\n            <parm io='in' comment='2. Input variable'>\n            <data var='datetimeIn' type='8b'  comment='*DTS format is type 8b (binary)'>{$dtsDateTime}</data>\n            </parm>\n            <parm io='in' comment='3. Output format'>\n            <data var='formatOut' type='10A' comment='*YYMD means YYYYMMDDHHMMSSmmm (milliseconds)'>{$outputFormat}</data>\n            </parm>\n            <parm io='out' comment='4. Output variable'>\n            <ds var='{$outputVarname}' comment='Data structure, total of 17 bytes, to split date/time into YYYYMMDD, HHMMSS, and microseconds, as indicated by *YYMD format'>\n            <data var='date' type='8a' comment='YYYYMMDD' />\n            <data var='time' type='6a' comment='HHMMSS' />\n            <data var='microseconds' type='3a' comment='microsecs (3 digits)' />\n            </ds>\n            </parm>\n" . Toolkit::getErrorDataStructXml(5);
     // param number 5
     // pass param xml directly in.
     $retPgmArr = $this->ToolkitSrvObj->PgmCall($apiPgm, $apiLib, $paramXml);
     if ($this->ToolkitSrvObj->getErrorCode()) {
         return false;
     }
     $retArr = $retPgmArr['io_param'][$outputVarname];
     return $retArr;
 }
示例#2
0
 /**
  * close the list
  *
  * @return bool
  */
 public function close()
 {
     // call QGYCLST, the "close list" api.
     $apiPgm = 'QGYCLST';
     $apiLib = 'QSYS';
     $requestHandle = $this->_requestHandle;
     $paramXml = "<parm io='in' comment='1. request handle'>\n                      <data var='requestHandle' comment='Request handle: binary/hex' type='4b'>{$requestHandle}</data>\n                    </parm>\n" . Toolkit::getErrorDataStructXml(2);
     // param number 2
     // pass param xml directly in.
     $this->ToolkitSrvObj->PgmCall($apiPgm, $apiLib, $paramXml);
     // GUI0006 means end of list
     if ($this->ToolkitSrvObj->getErrorCode()) {
         return false;
     } else {
         return true;
     }
 }