PHP : connaître la version de i5 os

Voici une petite fonction qui utilise du pcml

function getversion()

{

try

{

{$des = file_get_contents("../pcml/rtvver.pcml") ;

$pgm = i5_program_prepare_PCML($des) ;

$pgm = i5_program_prepare_PCML($des) ;$Snd = array('VER'=> "send ") ;

 

$Rcv = array('VER'=> "receive") ;i5_program_call($pgm, $Snd, $Rcv) ;return $receive ;

}

catch (PDOException $e)

{

return '000000' ;

}

voici le pcml

<pcml version="4.0">
   <!-- RPG program: RTVVER  -->
   <!-- created: 2010-01-22-14.15.46 -->
   <!-- source: SNDSYS/QCLSRC(RTVVER) -->
   <program name="RTVVER" path="/QSYS.LIB/SNDSYS.LIB/RTVVER.PGM">
      <data name="VER" type="char" length="6" usage="inputoutput" />
   </program>
</pcml>

voici le pgm clp le

pgm parm(&VER)                                                 
dcl &VER *char 6                                               
dcl &VER9 *char 9                                              
             RTVOBJD    OBJ(QSYS) OBJTYPE(*LIB) SYSLVL(&VER9)  
             CHGVAR     VAR(&VER) VALUE(%SST(&VER9 2 2) *tcat +
                          %SST(&VER9 5 2) *tcat %SST(&VER9 8 2))
endpgm                                                         

 
[ Retour ]