Re: PHP Syntax Question

[Jon Paris <Jon.Paris@xxxxxxxxxxxxxx>]

On 27-Feb-09, at 1:00 PM, web400-request@xxxxxxxxxxxx wrote:

> I am having trouble understanding why I cannot print the contents of a
> returned PHP array from an I5_Program_Call.

Shannon,

The example below works - it is not as complex a situation as yours (I  
always work from simple - it suits my brain!) but you should be able  
to adapt.  I'm also going to copy my Zend contacts on this because  
there are no examples of using an array that I can find and there are  
things like countref that are available in the interface that I can  
find nothing about at all.

Anyway - here's the PHP:

<?php
include("conn.php");
/* connection step  */
$Hdlcon = i5_connect($connect,$user, $pass,  
array(I5_OPTIONS_JOBNAME=>"I5JOB"));

$description = file_get_contents("/www/zendcore/htdocs/ARRAY.pcml")
    or trigger_error("Error while opening PCML file", E_USER_ERROR);

// Prepare the program
($hdlPgm = i5_program_prepare_PCML($description))
    or trigger_error("Error while parsing PCML: " . i5_errormsg(),  
E_USER_ERROR);

// Define input values
$in_parameters = Array("IOARRAY"=>array("One","Two","Three","Four"));

// And output variables
$out_parameters = array("IOARRAY"=>"IOARRAY");

echo "<br>Here's the input parms: ";
var_dump($in_parameters);

// Make the call
i5_program_call($hdlPgm, $in_parameters, $out_parameters)
or trigger_error("Error while executing program: " . i5_errormsg(),  
E_USER_ERROR);

echo "<br><br>And here's the resulting output: ";
var_dump($IOARRAY);

?>

And here's the RPG program.  The Printer part was introduced because I  
couldn't tell where the failures were occurring.

     FQprint    O    F  132        Printer

     D Array           Pr                  ExtPgm('ARRAY/PARTNER400')
     D  IOArray                       5a   Dim(4)

     D Array           PI
     D  IOArray                       5a   Dim(4)

     D x               S              5i 0

      /Free
       except info;
       For x = 1 to %Elem(IOArray);
         IOArray(x) = %Char(x);
       EndFor;
       except info;

       *InLR = *On;
       /End-Free

     OQprint    E            info        2
     O                       IOArray(1)          12
     O                       IOArray(2)          24

Hope this helps.

We could certainly do with a few more examples of this type of program  
call.


Jon Paris

www.Partner400.com
www.SystemiDeveloper.com