Re: call rpgle stored procedure from PHP (php server in windows)

["bryan dietz" <bdietz400@xxxxxxxxx>]

There are good resources at the Zend i5/OS forums.

www.zend.com/forums

This is an example from Jon Paris from a while ago.

<?
// $conn = i5_connect("localhost", "MYUSERID", "MYPASSWORD");
// if (!$conn) {
//    throw_error("i5_connect");
//    exit(); }

$description = array(
    array("Name"=>"PROD_ID", "IO"=>I5_IN,
          "Type"=>I5_TYPE_CHAR, "Length"=>"7" ),
    array("Name"=>"STORE_LOC", "IO"=>I5_IN,
         "Type"=>I5_TYPE_CHAR, "Length"=>"10" ),
    array("Name"=>"PRICE", "IO"=>I5_INOUT,
       "Type"=>I5_TYPE_PACKED, "Length"=>"5.2" ),
    );
$pgm = i5_program_prepare("LIBRARY/PHPTEST", $description);
if (!$pgm) {
   throw_error("i5_program_prepare");
   exit();
}
$parameter = array("PROD_ID"=>"xyz101","STORE_LOC"=>"a1001",
                   "PRICE"=>100.00);
$parmOut = array("PROD_ID"=>"PROD_ID", "STORE_LOC"=>"STORE_LOC",
                 "PRICE"=>"AMOUNT");
$ret = i5_program_call($pgm, $parameter, $parmOut);
if (!$ret) {

   throw_error("i5_program_call");
   exit();
}
echo "Product Id: ".$PROD_ID."<br>";
echo "Store Location: ".$STORE_LOC."<br>";
echo "Price: ".$AMOUNT."<br>";
i5_program_close($pgm);
i5_close($conn);
function throw_error($func) {
echo "Error in function: ".$func." --- ";
echo "Error Number: ".i5_errno()." --- ";
echo "Error Message: ".i5_errormsg()."<br>";
}
?>

====================================
 // Should really use PR/PI but ...
C     *ENTRY        PLIST
C                   PARM                    prod_id           7
C                   PARM                    store_loc        10
C                   PARM                    price             5 2
 /FREE
    price = price + 10.99;
    *INLR = *ON;
 /END-FREe
================================


Bryan Dietz




On Wed, Oct 1, 2008 at 12:36 PM, Gerald <gmagnuson@xxxxxxxxxxxxx> wrote:
> I have created a stored procedure (in RPGLE), that accepts an input parm
> (customer number), and returns back a number (active orders).
> However, I can't explain to our PHP coders how to structure the call?
>
> we connect to the system i with ODBC.
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.