Re: Error on QSH call that I can't figure out

[Scott <scottgcampbell@xxxxxxxxx>]

You could test by:

1 - redirect the catsplf and stderr to files on the ifs to see if that 
is working or not (not tested from PHP).
> catsplf -j 761118/SCOTT/WOR040 wor040 1 > /tmp/cat.txt 2> /tmp/err.txt
$
> cat /tmp/err.txt
  catsplf: 001-2372 Spool file wor040, number 1 for job 
761118/SCOTT/WOR040 was
   not found.
if it works /tmp/cat.txt will contain the spoolfile.

2 - If it does create the file on the IFS then you can get the spoolfile 
in 2 steps by putting it to a file on the ifs and then read (readfile) 
the file from PHP (possible work around until you can discover/fix the 
issue).

Scott


On 6/4/2013 1:54 PM, Jim Oberholtzer wrote:
> Folks:  In the following code (PHP), we are attempting to pull in a
> spool file into the variable $result so we can format it and put it up
> on a web page.  If we run the command via the PHP code we get a null in
> $result.  If we run the command ( signed on as the same user ) from the
> command line it works.
>
> QSH CMD('catsplf -j 026555/KATTANASIO/H512D QPJOBLOG 2')
>
> I checked to see if the user profile had *SPLCTL and it does.
>
> Any Idea what might be going on?
>
>
> function i5_spool_get_data($spoolName, $jobName, $userName, $jobNumber,
> $spoolNumber, $fileName = '', $connection = null)
> {
>       if (!$connection = verifyConnection($connection)) {
>           return false;
>       }
>
>       if (!is_numeric($spoolNumber)) {
>           // could be *NEXT or other misguided parameter. Use a '1' for
> compatibility.
>           $connection->logThis("Spool file number value '$spoolNumber' is
> unsupported. Please supply a number. The value '1' will be used.");
>           $spoolNumber = 1;
>       }
>
>      $cmdString = "catsplf -j {$jobNumber}/{$userName}/{$jobName}
> {$spoolName} {$spoolNumber}";
> **********************
> call making the trouble below!
> ************************
>       //full command will look like "QSH CMD('catsplf -j
> {$jobNumber}/{$userName}/{$jobName} {$spoolName} {$spoolNumber}')";
>       $result = $connection->qshellCommand($cmdString);
>
>       // if no error, we expect an array.
>       if (is_array($result)) {
>           // consolidate into a string with 0D0A separators
>           $resultString = trim(implode("\r\n", $result));
>
>           // if fileName provided, try to write data to the IFS file
> (return true if successful or false).
>           // otherwise simply return the string.
>           if ($fileName) {
>
>               $bytesWritten = file_put_contents($fileName, $resultString);
>               if ($bytesWritten) {
>                   // good! Wrote OK
>                   return true;
>               } else {
>                   // bad! Could not write file. Old toolkit used CPF9898
> so let's also use it.
>                   i5CpfError('CPF9898', "Could not write to file
> '$fileName'.");
>                   return false;
>               } //(if bytesWritten)
>
>
>           } else {
>               // no IFS filename provided. Return string to caller.
>               return $resultString;
>           } //(if $fileName)
>
>       } else {
>           // not an array. Probably a "false."
>           // Report the error.
>           $errMsg = $connection->getErrorMsg();
>           if (empty($errMsg)) {
>               $errMsg = 'Could not read spooled file. Check user
> permissions or see error code for details.';
>           }
>           i5CpfError($connection->getErrorCode(), $errMsg);
>           return false;
>       } //(if is_array)
>
>
> } //(i5_spool_get_data)