Exemple #1
0
$start = microtime(true);
// about to connect. Can use i5_connect or i5_pconnect.
$conn = $connFunction('', '', '', $options);
$end = microtime(true);
$elapsed = $end - $start;
echo "Ran {$connFunction} function, with options, in {$elapsed} seconds.<BR>";
// if unable to connect, find out why.
if (!$conn) {
    die('<BR>Could not connect. Reason: ' . printArray(i5_error()));
}
echo "Connection object output: '{$conn}'<BR><BR>";
if ($private) {
    // if a private connection, show what number was used or generated.
    $privateConnNum = i5_get_property(I5_PRIVATE_CONNECTION, $conn);
    echo "Private conn number from i5_get_property(I5_PRIVATE_CONNECTION, \$conn): {$privateConnNum}<BR><BR>";
    $isNew = i5_get_property(I5_NEW_CONNECTION, $conn);
    echo "Is new connection?: {$isNew}<BR><BR>";
}
// CONNECTED.
// check that demo library exists
echo "About to verify that the demo library, '{$demoLib}', exists.<BR>";
$list = i5_objects_list('QSYS', $demoLib, '*LIB', $conn);
if (!$list) {
    echo 'Error getting object list: ' . printArray(i5_error()) . '<BR><BR>';
} else {
    if ($listItem = i5_objects_list_read($list)) {
        echo "Demo library '{$demoLib}' exists.<BR><BR>";
    } else {
        die("<BR>Demo library '{$demoLib}' NOT found. Ending.");
    }
}
function runCwTest()
{
    // @todo need to somehow get ToolkitService so we can use getConfigValue()
    // some items to turn on and off in the test
    $doPcml = true;
    $doUserSpace = true;
    $doDataQueue = true;
    $doPgmCallComplex = true;
    $doPgmCallSimple = true;
    $doObjectList = true;
    $doJobLists = true;
    $doJobLogs = true;
    $doSpooledFiles = true;
    $doAdoptAuthority = true;
    ini_set('display_errors', 1);
    set_time_limit(480);
    // Include CW constants
    $cw_const_path = __DIR__ . '/vendor/zendtech/ibmitoolkit/ToolkitApi/CW/cwconstants.php';
    if (!file_exists($cw_const_path)) {
        throw new Exception("File " . $cw_const_path . " doesn't exist");
    }
    require_once $cw_const_path;
    $cw_path = __DIR__ . '/vendor/zendtech/ibmitoolkit/ToolkitApi/CW/cw.php';
    if (!file_exists($cw_path)) {
        throw new Exception("File " . $cw_path . " doesn't exist");
    }
    require_once $cw_path;
    //    require_once('CW/cw.php'); // don't need if added auto_append in PHP.INI
    // Use configurable demo lib/name from toolkit ini
    $demoLib = trim(getConfigValue('demo', 'demo_library'));
    if (!$demoLib) {
        die('Demo library not set in toolkit.ini.');
    }
    // Use configurable encoding from toolkit ini
    // We use encoding in meta tag so characters appear correctly in browser
    $encoding = trim(getConfigValue('system', 'encoding'));
    if (!$encoding) {
        die('Encoding not set in toolkit.ini. Example: ISO-8859-1');
    }
    // optional demo values
    $setLibList = trim(getConfigValue('demo', 'initlibl', ''));
    $setCcsid = trim(getConfigValue('demo', 'ccsid', ''));
    $setJobName = trim(getConfigValue('demo', 'jobname', ''));
    $setIdleTimeout = trim(getConfigValue('demo', 'idle_timeout', ''));
    $transportType = trim(getConfigValue('demo', 'transport_type', ''));
    // optional demo connection values
    $private = false;
    // default
    $privateNum = false;
    // default
    $persistent = trim(getConfigValue('demo', 'persistent', false));
    if ($persistent) {
        // private can only happen with persistence
        $private = trim(getConfigValue('demo', 'private', false));
        $privateNum = trim(getConfigValue('demo', 'private_num', '0'));
    }
    //(persistent)
    $scriptTitle = 'Test script for IBM i Compatibility Wrapper (CW)';
    // TODO get test user from toolkit.ini
    // this user, TKITU1, should exist on the system
    $user = '******';
    $testPw = 'WEBTEST';
    ?>

    <html>
    <head>

        <meta http-equiv="Content-Type" content="text/html; charset=<?php 
    echo $encoding;
    ?>
">

        <style type="text/css">
            body {
                font: 15px;
            }

            h1 {
                font: 28px arial,sans-serif;
                font-weight: bold;
                border-style: solid;
                color: #2278A5;
                border: 1px 1px 1px 1px;
                padding: 2px 2px 2px 2px;
                margin-bottom: 30px;
            }

            h2 {
                font: 20px arial,sans-serif;
                font-weight: bold;
                background-color: lightblue;
            }

        </style>

        <title><?php 
    echo $scriptTitle;
    ?>
</title>
    </head>
    <?php 
    echo h1($scriptTitle);
    echo h2('Version check');
    // display CW version or warning message.
    $downloadSite = 'http://www.youngiprofessionals.com/wiki/XMLSERVICE';
    $downloadLink = '<a href="' . $downloadSite . '" target="_blank">' . $downloadSite . '</a>';
    if (function_exists('i5_version')) {
        echo "You are running CW version <b>" . i5_version() . "</b>.<BR> Any updates will be found at {$downloadLink}.<BR>";
    } else {
        echo "This version of CW is out of date.<BR>Please download the latest CW from {$downloadLink}.<BR><BR>";
    }
    echo h2('Connection');
    // choose connection function based on persistence choice
    $connFunction = $persistent ? 'i5_pconnect' : 'i5_connect';
    echo "About to connect with {$connFunction}('', '', '') (feel free to specify a real user here)<BR>";
    // options (liblist, ccsid, jobname) can be changed by the user in toolkit.ini.
    $options = array();
    if ($setLibList) {
        $options[I5_OPTIONS_INITLIBL] = $setLibList;
        echo "I5_OPTIONS_INITLIBL = '{$setLibList}'<BR>";
    }
    if ($setCcsid) {
        $options[I5_OPTIONS_RMTCCSID] = $setCcsid;
        echo "I5_OPTIONS_RMTCCSID = '{$setCcsid}'<BR>";
    }
    if ($setJobName) {
        $options[I5_OPTIONS_JOBNAME] = $setJobName;
        echo "I5_OPTIONS_JOBNAME = '{$setJobName}'<BR>";
    }
    if ($setIdleTimeout) {
        $options[I5_OPTIONS_IDLE_TIMEOUT] = $setIdleTimeout;
        echo "I5_OPTIONS_IDLE_TIMEOUT = '{$setIdleTimeout}'<BR>";
    }
    if ($transportType) {
        $options[CW_TRANSPORT_TYPE] = $transportType;
        echo "CW_TRANSPORT_TYPE = '{$transportType}'<BR>";
    }
    if ($persistent && $private) {
        $options[I5_OPTIONS_PRIVATE_CONNECTION] = $privateNum;
        echo "I5_OPTIONS_PRIVATE_CONNECTION = '{$privateNum}'<BR>";
    }
    // (private and privateNum)
    echo '<BR>';
    /*
     * // Optionally re-use an existing database connection for your transport
     * // If you specify a naming mode (i5/sql) in your connection, make sure they match.
     * $namingMode = DB2_I5_NAMING_ON;
     * $existingDb = db2_pconnect('', '','', array('i5_naming' => $namingMode));
     * // Add to existing connection options
     * $options[CW_EXISTING_TRANSPORT_CONN] = $existingDb;
     * $options[CW_EXISTING_TRANSPORT_I5_NAMING] = $namingMode;
     */
    $start = microtime(true);
    // about to connect. Can use i5_connect or i5_pconnect.
    $conn = $connFunction('localhost', '', '', $options);
    $end = microtime(true);
    $elapsed = $end - $start;
    echo "Ran {$connFunction} function, with options, in {$elapsed} seconds.<BR>";
    // if unable to connect, find out why.
    if (!$conn) {
        die('<BR>Could not connect. Reason: ' . printArray(i5_error()));
    }
    echo "Connection object output: '{$conn}'<BR><BR>";
    if ($private) {
        // if a private connection, show what number was used or generated.
        $privateConnNum = i5_get_property(I5_PRIVATE_CONNECTION, $conn);
        echo "Private conn number from i5_get_property(I5_PRIVATE_CONNECTION, \$conn): {$privateConnNum}<BR><BR>";
        $isNew = i5_get_property(I5_NEW_CONNECTION, $conn);
        echo "Is new connection?: {$isNew}<BR><BR>";
    }
    // CONNECTED.
    // check that demo library exists
    echo "About to verify that the demo library, '{$demoLib}', exists.<BR>";
    $list = i5_objects_list('QSYS', $demoLib, '*LIB', $conn);
    if (!$list) {
        echo 'Error getting object list: ' . printArray(i5_error()) . '<BR><BR>';
    } else {
        if ($listItem = i5_objects_list_read($list)) {
            echo "Demo library '{$demoLib}' exists.<BR><BR>";
        } else {
            die("<BR>Demo library '{$demoLib}' NOT found. Ending.");
        }
    }
    i5_objects_list_close($list);
    // ON TO ACTUAL FUNCTIONALITY
    if ($doPcml) {
        echo h2('PCML program calls');
        $pcml = '<pcml version="4.0">
       <program name="YYPLUS" entrypoint="YYPLUS"  path="/QSYS.LIB/' . $demoLib . '.LIB/YYSRVNORES.SRVPGM" >
          <data name="START" type="int" length="4" precision="31" usage="inputoutput" />
          <data name="RESULT" type="int" length="4" precision="31" usage="inputoutput" />
       </program>
        </pcml>';
        echo 'About to do simple PCML program prepare.<BR>';
        $pgmHandle = i5_program_prepare_PCML($pcml);
        if (!$pgmHandle) {
            echo 'Error preparing simple PCML program: ' . printArray(i5_error()) . '<BR><BR>';
        } else {
            $input = array('START' => '25', 'RESULT' => '0');
            $output = array('START' => 'START', 'RESULT' => 'RESULT');
            echo 'About to do simple PCML program call.<BR>';
            $success = i5_program_call($pgmHandle, $input, $output);
            $result = $output['RESULT'];
            if ($success) {
                echo "Success. Output variables: START: {$start}. RESULT: {$result}.";
            } else {
                echo "Problem calling PCML-described program. Error: " . print_r(i5_error(), true);
            }
        }
        echo '<BR><BR>';
        $pcml = "<pcml version=\"4.0\">\n           <struct name=\"S2\">\n              <data name=\"ZOND2\" type=\"zoned\" length=\"10\" precision=\"5\" usage=\"inherit\" />\n              <data name=\"PACK2\" type=\"packed\" length=\"19\" precision=\"5\" usage=\"inherit\" />\n              <data name=\"PACK3\" type=\"packed\" length=\"19\" precision=\"5\" usage=\"inherit\" />\n              <data name=\"ALPH2\" type=\"char\" length=\"20\" usage=\"inherit\" />\n           </struct>\n           <struct name=\"S1\">\n              <data name=\"ZOND\" type=\"zoned\" length=\"10\" precision=\"5\" usage=\"inherit\" />\n              <data name=\"PACK1\" type=\"packed\" length=\"19\" precision=\"5\" usage=\"inherit\" />\n              <data name=\"ALPH1\" type=\"char\" length=\"10\" usage=\"inherit\" />\n           </struct>\n           <program name=\"TESTSTRUC\" path=\"/QSYS.LIB/{$demoLib}.LIB/TESTSTRUC.PGM\">\n              <data name=\"CODE\" type=\"char\" length=\"10\" usage=\"output\" />\n              <data name=\"S1\" type=\"struct\" struct=\"S1\" usage=\"inputoutput\" />\n              <data name=\"S2\" type=\"struct\" struct=\"S2\" usage=\"inputoutput\" />\n              <data name=\"PACK\" type=\"packed\" length=\"1\" precision=\"1\" usage=\"output\" />\n              <data name=\"CH10\" type=\"char\" length=\"19\" usage=\"output\" />\n              <data name=\"CH11\" type=\"char\" length=\"20\" usage=\"output\" />\n              <data name=\"CH12\" type=\"char\" length=\"29\" usage=\"output\" />\n              <data name=\"CH13\" type=\"char\" length=\"33\" usage=\"output\" />\n           </program>\n        </pcml>";
        echo 'About to do a complex PCML program prepare.<BR>';
        $pgmHandle = i5_program_prepare_PCML($pcml);
        if ($pgmHandle) {
            echo "Successfully prepared complex PCML program description.<BR>";
        } else {
            echo "Problem while preparing complex PCML program description.<BR>";
        }
        // define some input values
        $pack3value = 7789777.44;
        $alph2value = 4;
        $paramIn = array("S1" => array("ZOND" => 54.77, "PACK1" => 16.2, "ALPH1" => "MyValue"), "S2" => array("ZOND2" => 44.66, "PACK2" => 24444.99945, "PACK3" => $pack3value, "ALPH2" => $alph2value));
        // now we need to define where to place output values; it will create new local variables
        $paramOut = array("S1" => "S1_Value", "S2" => "S2_Value", "CH10" => "CH10_Value", "CH11" => "CH11_Value", "CH12" => "CH12_Value", "CH13" => "CH13_Value", "CODE" => "Code_Value", "PACK" => "Pack");
        echo 'About to do complex PCML program call.';
        $success = i5_program_call($pgmHandle, $paramIn, $paramOut);
        if (function_exists('i5_output')) {
            extract(i5_output());
        }
        // i5_output() required if called in a function
        if ($success) {
            echo "Success.";
            echo "<BR>S1: " . var_export($S1_Value, true);
            echo "<BR>S2: " . var_export($S2_Value, true);
            echo "<BR>CH10: " . var_export($CH10_Value, true);
            echo "<BR>CH11: " . var_export($CH11_Value, true);
            echo "<BR>CH12: " . var_export($CH12_Value, true);
            echo "<BR>CH13: " . var_export($CH13_Value, true);
            echo "<BR>Code: " . var_export($Code_Value, true);
            echo "<BR>Pack: " . var_export($Pack, true);
        } else {
            echo "Problem calling PCML-described program. Error: " . printArray(i5_error());
        }
    }
    $bigDesc = array(array("DSName" => "BIGDS", "DSParm" => array(array("Name" => "P1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10, "Count" => 5), array("Name" => "P2C", "IO" => I5_INOUT, "Type" => I5_TYPE_LONG, "Length" => 4), array("Name" => "P2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 1, "CountRef" => "P2C"), array("DSName" => "PS", "Count" => 2, "DSParm" => array(array("Name" => "PS1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS3", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10))))));
    $bigInputValues = array("BIGDS" => array("P1" => array("t1", "t2", "t3", "t4", "t5"), "P2C" => 2, "P2" => array("a", "b"), "PS" => array(array("PS1" => "test1", "PS2" => "test2", "PS3" => "test3"), array("PS1" => "test3", "PS2" => "test4", "PS3" => "test5"))));
    if ($doUserSpace) {
        echo h2('User spaces');
        $userSpaceName = 'DEMOSPACE';
        $userSpaceLib = $demoLib;
        $usObj = new UserSpace($conn);
        $usObj->setUSName($userSpaceName, $userSpaceLib);
        // toolkit does not have an i5_userspace_delete so delete with a command.
        $ret = i5_command("DLTUSRSPC USRSPC({$userSpaceLib}/{$userSpaceName})", $conn);
        if (function_exists('i5_output')) {
            extract(i5_output());
        }
        // i5_output() required if called in a function
        $status = $ret ? 'successfully' : 'badly';
        echo "deleted user space: {$status}<BR>";
        //$us = $usObj->CreateUserSpace('ALANUS', 'ALAN', $InitSize =1024, $Authority = '*ALL', $InitChar=' ');
        $usProperties = array(I5_NAME => $userSpaceName, I5_LIBNAME => $userSpaceLib, I5_INIT_VALUE => 'Y');
        echo "About to create user space.<BR>";
        $us = i5_userspace_create($usProperties, $conn);
        if (!$us) {
            echo "Error returned: " . printArray(i5_error()) . "<BR><BR>";
        } else {
            echo "Success!<BR><BR>";
        }
        // prepare userspace for a put
        $us = i5_userspace_prepare("{$userSpaceLib}/{$userSpaceName}", $bigDesc, $conn);
        if (!$us) {
            echo "Error returned from user space prepare: " . printArray(i5_error()) . "<BR><BR>";
        } else {
            echo "Success preparing user space.<BR><BR>";
        }
        // do the userspace put
        $success = i5_userspace_put($us, $bigInputValues);
        if (!$success) {
            echo "Error returned from user space put: " . printArray(i5_error()) . "<BR><BR>";
        } else {
            echo "Success putting data into user space.<BR><BR>";
        }
        // do the userspace get
        // removed counfref because doesn't work when getting.
        $bigDesc = array(array("DSName" => "BIGDS", "DSParm" => array(array("Name" => "P1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10, "Count" => 5), array("Name" => "P2C", "IO" => I5_INOUT, "Type" => I5_TYPE_LONG, "Length" => 4), array("Name" => "P2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 1, "Count" => 2), array("DSName" => "PS", "Count" => 2, "DSParm" => array(array("Name" => "PS1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS3", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10))))));
        // prepare userspace for a get
        $us = i5_userspace_prepare("{$userSpaceLib}/{$userSpaceName}", $bigDesc, $conn);
        if (!$us) {
            echo "Error returned from user space prepare: " . printArray(i5_error()) . "<BR><BR>";
        } else {
            echo "Success preparing user space.<BR><BR>";
        }
        $success = i5_userspace_get($us, array("BIGDS" => "BIGDS"));
        if (function_exists('i5_output')) {
            extract(i5_output());
        }
        // i5_output() required if called in a function
        if (!$success) {
            echo "Error returned from user space get: " . i5_error() . "<BR><BR>";
        } else {
            echo "Success getting data from user space. BIGDS=" . printArray($BIGDS) . "<BR><BR>";
        }
    }
    // data queue
    if ($doDataQueue) {
        echo h2('Data queues');
        $queueName = 'KEYEDQ';
        $keyLen = 10;
        $qObj = new DataQueue($conn);
        echo "<BR>About to delete data queue {$queueName}. (Will fail if doesn't exist yet)<BR>";
        try {
            $qObj->DeleteDQ($queueName, $demoLib);
            echo "Success deleting data queue {$queueName}.";
        } catch (Exception $e) {
            echo "Error deleting data queue: " . $e . "<BR><BR>";
        }
        echo "<BR>About to create data queue {$queueName}.<BR>";
        try {
            $qObj->CreateDataQ($queueName, $demoLib, 128, '*KEYED', $keyLen);
            // length 10 key
            echo "Success creating data queue {$queueName}.";
        } catch (Exception $e) {
            echo "Error creating data queue: " . $e . "<BR><BR>";
        }
        // test case adapted from p398 of Zend Server 5.1 manual
        $simpleStructure = array('DSName' => 'PS', 'DSParm' => array(array('type' => 0, 'name' => 'PS1', 'length' => '10'), array('type' => 6, 'name' => 'PS2', 'length' => '10.4'), array('type' => 0, 'name' => 'PS3', 'length' => '10')));
        // prepare
        $queue = i5_dtaq_prepare("{$demoLib}/{$queueName}", $simpleStructure, $keyLen);
        if (!$queue) {
            echo "Error preparing data queue.<BR><BR>";
        }
        // send
        $key = 'abc';
        $data = array('PS1' => 'test1', 'PS2' => 13.1415, 'PS3' => 'test2');
        echo "<BR>About to send simple structure to keyed data queue {$queueName} with key {$key}.<BR>";
        $success = i5_dtaq_send($queue, $key, $data);
        if (!$success) {
            echo "Error returned from data queue send: " . printArray(i5_error()) . "<BR><BR>";
        } else {
            echo "Success sending data to data queue.<BR><BR>";
        }
        echo "<BR>About to receive simple structure from keyed data queue {$queueName} with key {$key}.<BR>";
        $data = i5_dtaq_receive($queue, 'EQ', $key);
        // receive
        if (!$data) {
            echo "Error returned from simple data queue receive: " . printArray(i5_error());
        } else {
            echo "Success getting simple data structure from data queue: " . printArray($data);
        }
        echo '<BR>';
        // unkeyed queue with complex structure
        $queueName = 'NEWQ';
        $qObj = new DataQueue($conn);
        echo "<BR>About to delete data queue {$queueName}. (Will fail if doesn't exist yet)<BR>";
        try {
            $qObj->DeleteDQ($queueName, $demoLib);
            echo "Success deleting data queue {$queueName}.";
        } catch (Exception $e) {
            echo "Error deleting data queue: " . $e . "<BR><BR>";
        }
        echo "<BR>About to create data queue {$queueName}.<BR>";
        try {
            $qObj->CreateDataQ($queueName, $demoLib);
            echo "Success creating data queue {$queueName}.";
        } catch (Exception $e) {
            echo "Error creating data queue: " . $e . "<BR><BR>";
        }
        $bigDesc = array(array("DSName" => "BIGDS", "DSParm" => array(array("Name" => "P1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10, "Count" => 5), array("Name" => "P2C", "IO" => I5_INOUT, "Type" => I5_TYPE_LONG, "Length" => 4), array("Name" => "P2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 1, "Count" => 2), array("DSName" => "PS", "Count" => 2, "DSParm" => array(array("Name" => "PS1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS3", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10))))));
        // prepare
        $queue = i5_dtaq_prepare("{$demoLib}/{$queueName}", $bigDesc);
        if (!$queue) {
            echo "Error preparing data queue.<BR><BR>";
        }
        // send
        echo "<BR>About to send big data structure to data queue {$queueName}.<BR>";
        $success = i5_dtaq_send($queue, '', $bigInputValues);
        //
        if (!$success) {
            echo "Error returned from data queue send: " . i5_error() . "<BR><BR>";
        } else {
            echo "Success sending data to data queue.<BR><BR>";
        }
        echo "<BR>About to receive big data structure from data queue {$queueName}.<BR>";
        $data = i5_dtaq_receive($queue);
        //, $operator = null, $key = '', $timeout = 0)
        // receive
        if (!$data) {
            echo "Error returned from data queue receive: " . printArray(i5_error());
        } else {
            echo "Success getting data from data queue: " . printArray($data);
        }
        echo '<BR>';
        // Now a short-form DQ test
        // short-form description
        $littleDesc = array("Name" => "sometext", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 20);
        $littleInput = "Small text input";
        echo "<BR>About to send small short-form data structure to data queue {$queueName}.<BR>";
        // prepare
        $queue = i5_dtaq_prepare("{$demoLib}/{$queueName}", $littleDesc);
        if (!$queue) {
            echo "Error preparing data queue.<BR><BR>";
        }
        // send
        $success = i5_dtaq_send($queue, '', $littleInput);
        //
        if (!$success) {
            echo "Error returned from data queue send of small input: " . i5_error() . "<BR><BR>";
        } else {
            echo "Success sending the string '{$littleInput}' to data queue.<BR><BR>";
        }
        echo "<BR>About to receive small data structure from data queue {$queueName}.<BR>";
        $data = i5_dtaq_receive($queue);
        //, $operator = null, $key = '', $timeout = 0)
        // receive
        if (!$data) {
            echo "Error returned from data queue receive of small data: " . i5_error() . "<BR><BR>";
        } else {
            echo "Success getting small data from data queue: '{$data}'<BR><BR>";
        }
        echo '<BR><BR>';
    }
    if ($doObjectList) {
        echo h2('Object lists');
        echo "About to do object list with '{$demoLib}', '*ALL','*PGM'<BR>";
        // object list
        $list = i5_objects_list($demoLib, '*ALL', '*PGM', $conn);
        if (!$list) {
            echo 'Error getting object list: ' . printArray(i5_error()) . '<BR><BR>';
        } else {
            while ($listItem = i5_objects_list_read($list)) {
                echo printArray($listItem);
            }
            echo 'End of list. Error information: ' . printArray(i5_error()) . '<BR><BR>';
        }
        i5_objects_list_close($list);
    }
    if ($doPgmCallSimple) {
        echo h2('Program calls');
        echo 'Program call with simple parameters<BR>';
        $progname = "{$demoLib}/TESTSTP2";
        $desc = array(array("Name" => "code", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => "10"), array("Name" => "name", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => "10"));
        $desc = array(0 => array('type' => 0, 'name' => 'code', 'length' => 10, 'io' => 3), 1 => array('type' => 0, 'name' => 'name', 'length' => 10, 'io' => 3));
        echo "<b>About to call {$progname} with two char parameters.</b><BR>";
        $prog = i5_program_prepare($progname, $desc);
        if ($prog === FALSE) {
            $errorTab = i5_error();
            echo "Program prepare failed <br>\n";
            var_dump($errorTab);
            die;
        }
        /* Execute Program */
        $params = array("code" => "123", "name" => "ABC");
        $retvals = array("code" => "code", "name" => "name");
        $ret = i5_program_call($prog, $params, $retvals);
        if (function_exists('i5_output')) {
            extract(i5_output());
        }
        // i5_output() required if called in a function
        if ($ret === FALSE) {
            $errorTab = i5_error();
            echo "FAIL : i5_program_call failure message: " . $conn->getLastError() . " with code <br>";
            var_dump($errorTab);
        } else {
            // success
            echo "Success! The return values are: <br>", "Name: ", $name, "<br> Code: ", $code, "<br><BR>";
        }
        $close_val = i5_program_close($prog);
        if ($close_val === false) {
            print "FAIL : i5_program_close returned fales, closing an open prog.<br>\n";
            $errorTab = i5_error();
            var_dump($errorTab);
        }
    }
    // (simple call)
    // *** data structure call! ***
    if ($doPgmCallComplex) {
        echo '<BR>Program call with complex parameters<BR>';
        $progname = "{$demoLib}/RPCTEST";
        echo "<b>About to call {$progname} with data structure parameters.</b>";
        /*Call a program with parameters that include a DS */
        $desc = array(array("Name" => "P1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10, "Count" => 5), array("Name" => "P2C", "IO" => I5_INOUT, "Type" => I5_TYPE_LONG, "Length" => 4), array("Name" => "P2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 1, "CountRef" => "P2C"), array("DSName" => "PS", "Count" => 2, "DSParm" => array(array("Name" => "PS1", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS2", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10), array("Name" => "PS3", "IO" => I5_INOUT, "Type" => I5_TYPE_CHAR, "Length" => 10))));
        $prog = i5_program_prepare($progname, $desc);
        if ($prog === FALSE) {
            $errorTab = i5_error();
            echo "Program prepare failed <br>\n";
            var_dump($errorTab);
            die;
        }
        /* Execute Program */
        // The nameless elements in array.
        $params1 = array(array("PS1" => "test1", "PS2" => "test2", "PS3" => "test3"), array("PS1" => "test3", "PS2" => "test4", "PS3" => "test5"));
        $params2 = array("P1" => array("t1", "t2", "t3", "t4", "t5"), "P2C" => 2, "P2" => array("a", "b"), "PS" => $params1);
        $retvals = array("P1" => "P1", "PS" => "PS", "P2" => "P2", "P2C" => "P2C");
        $ret = i5_program_call($prog, $params2, $retvals);
        if (function_exists('i5_output')) {
            extract(i5_output());
        }
        // i5_output() required if called in a function
        if ($ret === FALSE) {
            $errorTab = i5_error();
            echo "FAIL : i5_program_call failure message: " . $conn->getLastError() . " with code <br>";
            var_dump($errorTab);
        } else {
            // success
            echo "<BR><BR>Success! The return values are: <br>";
            echo "P1 : " . printArray($P1) . "<BR>";
            echo "P2C : " . $P2C . "<BR>";
            echo "P2 : " . printArray($P2) . "<BR>";
            echo "PS: " . printArray($PS) . "<BR>";
        }
        $close_val = i5_program_close($prog);
        if ($close_val === false) {
            print "FAIL : i5_program_close returned fales, closing an open prog.<br>\n";
            $errorTab = i5_error();
            var_dump($errorTab);
        }
    }
    //(pgmcall complex)
    echo h2('Commands');
    $msg = 'HELLO';
    $cmdString = "SNDMSG MSG({$msg}) TOUSR({$user})";
    $start = microtime(true);
    $commandSuccessful = i5_command($cmdString, array(), array(), $conn);
    $end = microtime(true);
    $elapsed = $end - $start;
    echo "Ran command {$cmdString} using a single string in {$elapsed} seconds. Return: " . OkBad($commandSuccessful) . "<BR><BR>";
    $badUser = '******';
    $msg = 'HELLO';
    $cmdString = "SNDMSG MSG({$msg}) TOUSR({$badUser})";
    $start = microtime(true);
    $commandSuccessful = i5_command($cmdString, array(), array(), $conn);
    $end = microtime(true);
    $elapsed = $end - $start;
    echo "Ran command {$cmdString} using a single string to BAD user in {$elapsed} seconds.. Return: " . OkBad($commandSuccessful) . "<BR>";
    if (!$commandSuccessful) {
        echo "Error returned: " . printArray(i5_error()) . "<BR><BR>";
    }
    $cmdString = 'RTVJOBA';
    $input = array();
    // we want variable name ccsid to be created
    $output = array('ccsid' => array('ccsid', 'dec(5 0)'), 'dftccsid' => array('defaultCcsid', 'dec(5 0)'), 'curuser' => 'currentUser', 'nbr' => 'jobNumber', 'job' => 'jobName', 'user' => 'jobUser', 'usrlibl' => 'userLibl');
    $start = microtime(true);
    $commandSuccessful = i5_command($cmdString, $input, $output, $conn);
    if (function_exists('i5_output')) {
        extract(i5_output());
    }
    // i5_output() required if called in a function
    $end = microtime(true);
    $elapsed = $end - $start;
    echo "Ran command {$cmdString} with an output array in {$elapsed} seconds. Return: " . OkBad($commandSuccessful) . " with CCSID '{$ccsid}', default CCSID '{$defaultCcsid}', current user '{$currentUser}', job name '{$jobName}', job number '{$jobNumber}', job user '{$jobUser}', with user liblist '{$userLibl}'.<BR><BR>";
    // Note: old toolkit cannot get interactive output of this sort (DSPJOBLOG). This is additional functionality of the new toolkit.
    $cmdString = "DSPJOBLOG JOB({$jobNumber}/{$jobUser}/{$jobName})";
    echo "About to run " . $cmdString . ".<BR>";
    $conn->setToolkitServiceParams(array('plugSize' => '5M'));
    // bigger to handle large joblog
    $interactiveOutput = $conn->CLInteractiveCommand($cmdString);
    $conn->setToolkitServiceParams(array('plugSize' => '512K'));
    // put back to default
    echo printArray($interactiveOutput) . "<BR><BR>";
    $msg = 'HELLO_WITH_INPUTS_ARRAY';
    $cmdString = "SNDMSG";
    $inputs = array('MSG' => $msg, 'TOUSR' => $user);
    $commandSuccessful = i5_command($cmdString, $inputs);
    echo "Ran command {$cmdString} with an input array: " . printArray($inputs) . "Return:  " . OkBad($commandSuccessful) . ".<BR><BR>";
    $msg = "MixedCaseNoSpaces";
    $cmdString = "SNDMSG";
    $inputs = array('MSG' => $msg, 'TOUSR' => $user);
    $commandSuccessful = i5_command($cmdString, $inputs);
    echo "Ran command {$cmdString} with an input array: " . printArray($inputs) . "Return:  " . OkBad($commandSuccessful) . ".<BR><BR>";
    $msg = "Davey Jones embedded spaces without quotes--caused error in old toolkit";
    $cmdString = "SNDMSG";
    $inputs = array('MSG' => $msg, 'TOUSR' => $user);
    $commandSuccessful = i5_command($cmdString, $inputs);
    echo "Ran command {$cmdString} with an input array: " . printArray($inputs) . "Return:  " . OkBad($commandSuccessful) . ".<BR><BR>";
    $msg = "O'flanagan single quote--caused error in old toolkit";
    $cmdString = "SNDMSG";
    $inputs = array('MSG' => $msg, 'TOUSR' => $user);
    $commandSuccessful = i5_command($cmdString, $inputs);
    echo "Ran command {$cmdString} with an input array: " . printArray($inputs) . "Return: " . OkBad($commandSuccessful) . ".<BR><BR>";
    echo h2('Error functions');
    echo "Let's test i5_errormsg() and i5_errno()<BR>Get last error message: " . i5_errormsg();
    echo "<BR>Get last error number: " . i5_errno() . "<BR><BR>";
    echo h2('Get system value');
    $start = microtime(true);
    $date = i5_get_system_value('QDATE');
    $end = microtime(true);
    $elapsed = $end - $start;
    echo "QDATE system value: '{$date}', obtained in {$elapsed} seconds.<BR>";
    echo h2('Data areas');
    $dtaara = "{$demoLib}/ALLEYOOP";
    $ret = i5_data_area_create($dtaara, 72);
    if ($ret) {
        echo "Created data area {$dtaara} successfully.<BR>";
    } else {
        echo "Could not create data area {$dtaara}.<BR>";
    }
    $ret = i5_data_area_delete($dtaara);
    if ($ret) {
        echo "Deleted data area {$dtaara} successfully.<BR>";
    } else {
        echo "Could not delete data area {$dtaara}.<BR>";
    }
    $dtaara = 'BETTYBOOP';
    $ret = i5_data_area_create($dtaara, 100);
    if ($ret) {
        echo "Created data area {$dtaara} successfully.<BR>";
    } else {
        echo "Could not create data area {$dtaara}. Reason: " . i5_errormsg() . " (it may already exist)<BR>";
    }
    $dtaara = 'BETTYBOOP';
    $stringToWrite = 'Very nice';
    $ret = i5_data_area_write($dtaara, $stringToWrite, 5, 20);
    if ($ret) {
        echo "Wrote '{$stringToWrite}' to data area {$dtaara} successfully.<BR>";
        // try to read now.
        $start = microtime(true);
        $readData = i5_data_area_read($dtaara, 3, 40);
        $end = microtime(true);
        $elapsed = $end - $start;
        if ($readData) {
            echo "Read a portion of '{$readData}' from data area {$dtaara} successfully in {$elapsed} seconds.<BR>";
        } else {
            echo "Could not read from data area {$dtaara}. Reason: " . i5_errormsg() . "<BR>";
        }
        // try to read now.
        $start = microtime(true);
        $readData = i5_data_area_read($dtaara);
        // the whole thing
        $end = microtime(true);
        $elapsed = $end - $start;
        if ($readData) {
            echo "Read ALL of '{$readData}' from data area {$dtaara} successfully in {$elapsed} seconds.<BR>";
        } else {
            echo "Could not read from data area {$dtaara}. Reason: " . i5_errormsg() . "<BR>";
        }
    } else {
        echo "Could not write to data area {$dtaara}. Reason: " . i5_errormsg() . "<BR>";
    }
    // job list
    if ($doJobLists) {
        echo h2('Job lists');
        echo "About to get up to 5 jobs with jobname ZENDSVR (can also do I5_JOBUSER, I5_USERNAME, I5_JOBNUMBER, and I5_JOBTYPE).<BR>";
        $list = i5_job_list(array(I5_JOBNAME => 'ZENDSVR'));
        if (!$list) {
            echo 'Error getting job list: ' . printArray(i5_error()) . '<BR>';
        } else {
            $jobCount = 0;
            while (($listItem = i5_job_list_read($list)) && ++$jobCount <= 5) {
                echo printArray($listItem) . '<BR>';
            }
            echo 'End of list.<BR><BR>';
        }
        i5_job_list_close($list);
        // Get info about current job
        echo "Getting information about current job.<BR>";
        $list = i5_job_list();
        //array(I5_USERNAME=>'*ALL'), $conn);
        if (!$list) {
            echo 'Error getting job list: ' . printArray(i5_error()) . '<BR>';
        } else {
            // should be only one for current job.
            $listItem = i5_job_list_read($list);
            echo "<BR>list item for current job: " . printArray($listItem) . "<BR><BR>";
            echo "Job name: {$listItem[I5_JOB_NAME]} user: {$listItem[I5_JOB_USER_NAME]} job number: {$listItem[I5_JOB_NUMBER]}<BR><BR>";
        }
        i5_job_list_close($list);
    }
    if ($doSpooledFiles) {
        echo h2('Spooled Files');
        $splUser = '******';
        echo "Get up to 5 spooled files for user {$splUser}<BR>";
        $list = i5_spool_list(array(I5_USERNAME => $splUser), $conn);
        if (!$list) {
            echo 'Error getting spool list: ' . printArray(i5_error()) . '<BR>';
        } else {
            $spoolCount = 0;
            while (($listItem = i5_spool_list_read($list)) && ++$spoolCount <= 5) {
                echo "<BR>list item: " . printArray($listItem) . "<BR>";
                echo '<BR>Output data for this spool file: <BR>';
                $data = i5_spool_get_data($listItem['SPLFNAME'], $listItem['JOBNAME'], $listItem['USERNAME'], $listItem['JOBNBR'], $listItem['SPLFNBR']);
                if (!$data) {
                    echo '<BR>No spool data. Error info: ' . printArray(i5_error()) . '<BR>';
                } else {
                    echo "<PRE>{$data}</PRE><BR>";
                }
            }
        }
        i5_spool_list_close($list);
        $outq = 'QGPL/QPRINT';
        echo "<BR>Get up to 5 spooled files for outq {$outq} (may get permissions message if user's authority is insufficient)<BR>";
        $list = i5_spool_list(array(I5_OUTQ => $outq), $conn);
        if (!$list) {
            echo 'Error getting spool list: ' . printArray(i5_error()) . '<BR>';
        } else {
            $spoolCount = 0;
            while (($listItem = i5_spool_list_read($list)) && ++$spoolCount <= 5) {
                echo "<BR>list item: " . printArray($listItem) . "<BR>";
                echo '<BR>Output data for this spool file: <BR>';
                $data = i5_spool_get_data($listItem['SPLFNAME'], $listItem['JOBNAME'], $listItem['USERNAME'], $listItem['JOBNBR'], $listItem['SPLFNBR']);
                if (!$data) {
                    echo '<BR>No spool data. Error info: ' . printArray(i5_error()) . '<BR>';
                } else {
                    echo "<PRE>{$data}</PRE><BR>";
                }
            }
        }
        i5_spool_list_close($list);
    }
    // job log.
    if ($doJobLogs) {
        echo h2('Job logs');
        // Try current job. Good, it works, except for not enough data coming back from PHP wrapper.
        echo "About to get joblog (partial data) for current job<BR>";
        $list = i5_jobLog_list();
        if (!$list) {
            echo 'No joblogs found<BR>';
        } else {
            while ($listItem = i5_jobLog_list_read($list)) {
                echo printArray($listItem);
            }
            echo '<BR>End of list.<BR><BR>';
        }
        i5_jobLog_list_close($list);
    }
    if ($doAdoptAuthority) {
        echo h2('Adopt authority');
        // Note: only works if you've defined $user and $testPw, and created the user profile.
        echo "About to adopt authority to user {$user}<BR>";
        $start = microtime(true);
        $success = i5_adopt_authority($user, $testPw);
        $end = microtime(true);
        $elapsed = $end - $start;
        if (!$success) {
            echo "Error adopting authority: " . printArray(i5_error()) . "<BR>";
        } else {
            echo "Success adopting authority in {$elapsed} seconds<BR>";
            echo "About to check current user and other variables after adopting authority.<BR>";
            $cmdString = 'RTVJOBA';
            $input = array();
            $output = array('ccsid' => array('ccsid', 'dec(5 0)'), 'dftccsid' => array('defaultCcsid', 'dec(5 0)'), 'curuser' => 'currentUser', 'nbr' => 'jobNumber', 'job' => 'jobName', 'user' => 'jobUser', 'usrlibl' => 'userLibl');
            $commandSuccessful = i5_command($cmdString, $input, $output, $conn);
            if (function_exists('i5_output')) {
                extract(i5_output());
            }
            // i5_output() required if called in a function
            echo "Ran command {$cmdString}. Return: " . OkBad($commandSuccessful) . " with original job user '{$jobUser}', current user '{$currentUser}', CCSID '{$ccsid}', default CCSID '{$defaultCcsid}', job name '{$jobName}', job number '{$jobNumber}', with user liblist '{$userLibl}'.<BR><BR>";
        }
    }
    $ret = i5_close($conn);
    //$conn optional
    echo h2('Connection close');
    echo "Closed i5 connection. return status: " . OkBad($ret) . ".";
    echo h1('End of script');
    ?>
    </html>
<?php 
}