System Status with PHP and XMI Part 1

[johna69]

Craig PHP / HowTo: Your system status (RZ20) and covered accessing the system status using BSPs and then reusing the same interface with PHP.

This weblog will demonstrate accessing the CCMS data using the XMI interface with PHP. There is absolutely no reason why a fully featured external monitoring system could not be created in PHP.

The example pulls the data from the monitor template to show the CPU utilizition, 5 minute load and idle time.

Steps There are only 3 essential RFC calls to make in order to retrieve the data.

BAPI_XMI_LOGON
BAPI_SYSTEM_MT_GETPERFDATA
BAPI_XMI_LOGOFF

The data being accessed is from the XAL interface. This and all other BAPIs are covered in this document. To get the exact values I needed and determine the required calls I essentially called every BAPI. This is where saprfc_test.php once again proved its incredible usefulness. I cannot imagine having to code the interface params by hand.

The call to BAPI_SYSTEM_MT_GETPERFDATA requires that you have the monitor template IDs for the data you want to retrieve. In the best Blue Peter fashion (Brits will know what I mean), this is one I prepared earlier to get the MTID numbers. If there is interest I will create a Weblog covering those details.

Source Code
There really is not much to this one at all. Three simple RFC calls and data pulled from the returned arrays.

"$host",   "SYSNR"=>"18",   "CLIENT"=>"220",   "USER"=>"astill",   "PASSWD"=>"password",   "R3NAME"=>"$r3name",   "GROUP"=>"PUBLIC",   "LANG"=>"EN",   "CODEPAGE"=>"1100");$rfc = saprfc_open ($login );if (! $rfc ) { echo "RFC connection failed"; exit; }$fce = saprfc_function_discover($rfc,"BAPI_XMI_LOGON");if (! $fce ) { echo "Discovering interface of function module failed"; exit; }saprfc_import ($fce,"EXTCOMPANY","");saprfc_import ($fce,"EXTPRODUCT","");saprfc_import ($fce,"INTERFACE","XAL");saprfc_import ($fce,"VERSION","1.0");$rfc_rc = saprfc_call_and_receive ($fce);if ($rfc_rc != SAPRFC_OK) { if ($rfc == SAPRFC_EXCEPTION ) echo ("Exception raised: ".saprfc_exception($fce)); else echo (saprfc_error($fce)); exit; }$RETURN = saprfc_export ($fce,"RETURN");$SESSIONID = saprfc_export ($fce,"SESSIONID");saprfc_function_free($fce);$fce = saprfc_function_discover($rfc,"BAPI_SYSTEM_MT_GETPERFDATA");if (! $fce ) { echo "Discovering interface of function module failed"; exit; }saprfc_import ($fce,"EXTERNAL_USER_NAME","astill");saprfc_table_init ($fce,"CURRENT_VALUES");saprfc_table_init ($fce,"PERF_NODES");// Idle timesaprfc_table_append ($fce,"PERF_NODES", array ("MTSYSID"=>"LX2","MTMCNAME"=>"ld0459_LX2_50","MTNUMRANGE"=>"010","MTUID"=>"519","MTCLASS"=>"100","MTINDEX"=>"495","EXTINDEX"=>"271"));// Load averagesaprfc_table_append ($fce,"PERF_NODES", array ("MTSYSID"=>"LX2","MTMCNAME"=>"ld0459_LX2_50","MTNUMRANGE"=>"010","MTUID"=>"513","MTCLASS"=>"100","MTINDEX"=>"494","EXTINDEX"=>"270"));// Utilizationsaprfc_table_append ($fce,"PERF_NODES", array ("MTSYSID"=>"LX2","MTMCNAME"=>"ld0459_LX2_50","MTNUMRANGE"=>"010","MTUID"=>"200100","MTCLASS"=>"100","MTINDEX"=>"493","EXTINDEX"=>"269"));//Do RFC call of function BAPI_SYSTEM_MT_GETPERFDATA, for handling exceptions use saprfc_exception()$rfc_rc = saprfc_call_and_receive ($fce);if ($rfc_rc != SAPRFC_OK) { if ($rfc == SAPRFC_EXCEPTION ) echo ("Exception raised: ".saprfc_exception($fce)); else echo (saprfc_error($fce)); exit; }//Retrieve export parameters$RETURN = saprfc_export ($fce,"RETURN");$rows = saprfc_table_rows ($fce,"CURRENT_VALUES");for ($i=1;$i<=$rows;$i++) $CURRENT_VALUES[] = saprfc_table_read ($fce,"CURRENT_VALUES",$i);$rows = saprfc_table_rows ($fce,"PERF_NODES");for ($i=1;$i<=$rows;$i++) $PERF_NODES[] = saprfc_table_read ($fce,"PERF_NODES",$i);saprfc_function_free($fce);$descr = array( 0=>"Idle",                 1=>"Average",                 2=>"Util" );echo '

'; echo "This is a very basic output to demonstrate the functionality of the interface

"; $count = 0; while (list($k,$v) = each($CURRENT_VALUES)) { echo $descr[$count++].' = '.$v['ALRELEVVAL']."
"; } echo ""; $fce = saprfc_function_discover($rfc,"BAPI_XMI_LOGOFF"); if (! $fce ) { echo "Discovering interface of function module failed"; exit; } saprfc_import ($fce,"INTERFACE","XAL"); $rfc_rc = saprfc_call_and_receive ($fce); if ($rfc_rc != SAPRFC_OK) { if ($rfc == SAPRFC_EXCEPTION ) echo ("Exception raised: ".saprfc_exception($fce)); else echo (saprfc_error($fce)); exit; } $RETURN = saprfc_export ($fce,"RETURN"); saprfc_function_free($fce); saprfc_close($rfc); ?>

Part 2
For part 2 the data will be returned as an XML document. This data will then be used by a widget in OS X Tiger. For those unfamiliar with widgets, they are small applications that provide data to a user. Watching the system status is an ideal application for widgets.