PHP / HowTo: Your system status (RZ20)

[craigcmehil]

Coming into the whole SAP thing as a system admin and working with all the basic stuff I've kind of developed a liking to programming for that as well. I tend to stay away from module stuff, once and awhile I venture over to SSM stuff but basically only because it gives me all my system performance and statistics. So today I'm going to take you through the steps of something very basic and something I fought hard to figure out how to do with BSP.
When I first started with programming for our Basic department we found the perfect way to collect data and read it, however with over 100+ systems the trees in RZ20 were just not very nice to work with. So my goal was to grab the data from RZ20 and display it in a nicer format. Without much success I posted a thread here on SDN about the topic hoping for a response, Reading MTE Classes from RZ20/RZ21  \ , unfortunetly at the time SDN was still rather young and no response came and then it was lost over the ages, ok I mean that more posts came and it was just pushed back and back. After awhile I managed to find a solution to the problem and I posted it here on SDN for others to see in the form of a weblog, BSP/ABAP HowTo: Read MTE Class values. Now with the new PHP forum I thought I would take the opportunity to share how to use PHP to read the data.
Now in an effort to save just giving you the content of the same weblog over again, I ask that everyone read BSP/ABAP HowTo: Read MTE Class values and then we can pick up from where that weblog begins to create the BSP page.
For the creation of our PHP page we are going to need the .php files located under saprfc/sapclasses that comes with SAPRFC and then for simplicity a single PHP page we'll call sap_cpu.php.
Now provided you have done all the work described in BSP/ABAP HowTo: Read MTE Class values in your WAS system then the rest of this will be quite easy.
Oh and speaking of work you'll need to make a copy of our FM of choice as SAP did not ship this one "remote enabled", and since PHP is making a "remote" call we kind of need that. Therefore just make a copy of that function module to your customer namespace then comment out a bit and make sure to mark it "remote enabled" under the properties tab then activate it. Again anytime you do this remember it's for testing purposes as SAP may change the functionality on you.
The standard function from SAP that you need to copy is SALR_MTE_PERF_READ_CUR_VAL. This FM requires one IMPORT parameter (our TID) and returns the "CURRENT_VALUE", so you now have the current value of your MTE class for this system. The "CURRENT_VALUE" is a table that is returned and for our purposes we just want to read one of the fields.

• LASTPERVAL - Actual Last

Oh and I called my copied function Z_MTE_READ_CUR_VAL

\ FUNCTION Z_MTE_READ_CUR_VAL. \ *"---------------------------------------------------------------------- \ *"*"Local interface: \ *"  IMPORTING \ *"     VALUE(TID) LIKE  ALGLOBTID STRUCTURE  ALGLOBTID \ *"  EXPORTING \ *"     VALUE(CURRENT_VALUE) LIKE  ALPERFVAL STRUCTURE  ALPERFVAL \ *"  EXCEPTIONS \ *"      TID_INVALID \ *"      C_CALL_FAILED \ *"      COMMUNICATION_ERROR \ *"      INTERNAL_ERROR \ *"      UNKNOWN_ERROR \ *"      DB_ERROR \ *"---------------------------------------------------------------------- \  \ * data declarations \   DATA: \         TIDTABLE LIKE ALGLOBTID OCCURS 0 WITH HEADER LINE, \         PERFTYPERCTABLE LIKE ALPERFTYPE OCCURS 0 WITH HEADER LINE. \  \ * append given tid to the TID table \   APPEND TID TO TIDTABLE. \  \   CALL FUNCTION 'SALC_PERF_READ' \ *    EXPORTING \ *         ONLY_LOCAL    = ' ' \        TABLES \             TID           = TIDTABLE \             PERFTYPERC    = PERFTYPERCTABLE \        EXCEPTIONS \             C_CALL_FAILED = 1 \             OTHERS        = 99 \             . \  \ * Raise exception if there was a error in the SALC function \   IF SY-SUBRC <> 0. \  \     IF SY-SUBRC = 1. \       RAISE C_CALL_FAILED. \     ENDIF. \  \     IF SY-SUBRC = 99. \       RAISE INTERNAL_ERROR. \     ENDIF. \  \   ENDIF. \  \ * Get the first column of the return table \   READ TABLE PERFTYPERCTABLE INDEX 1. \  \ * Check return code and raise exception if there is an error \ * Otherwise get the current value of the perf. attribut \ *  IF PERFTYPERCTABLE-RC < AL_RC_FIRST_ERROR. \  \     MOVE-CORRESPONDING PERFTYPERCTABLE TO CURRENT_VALUE. \  \ *   Convert data/time date to the specified export time zone \ *    perform convert_time_stamp \ *      using \ *        PERFTYPERCTABLE-ALRELVALDT \ *        PERFTYPERCTABLE-ALRELVALTI \ *        'UTC   ' \ *        export_time_zone \ *      changing \ *        CURRENT_VALUE-ALRELVALDT \ *        CURRENT_VALUE-ALRELVALTI. \ * \ *    perform convert_time_stamp \ *      using \ *        PERFTYPERCTABLE-MAXPFDATE \ *        PERFTYPERCTABLE-MAXPFTIME \ *        'UTC   ' \ *        export_time_zone \ *      changing \ *        CURRENT_VALUE-MAXPFDATE \ *        CURRENT_VALUE-MAXPFTIME. \ * \ *    perform convert_time_stamp \ *      using \ *        PERFTYPERCTABLE-MINPFDATE \ *        PERFTYPERCTABLE-MINPFTIME \ *        'UTC   ' \ *        export_time_zone \ *      changing \ *        CURRENT_VALUE-MINPFDATE \ *        CURRENT_VALUE-MINPFTIME. \ * \ *  ELSE. \ * \ *    CASE PERFTYPERCTABLE-RC. \ * \ *      WHEN AL_RC_TID_INVALID. \ *        RAISE TID_INVALID. \ * \ *      WHEN AL_RC_COMMUNICATION_FAILURE. \ *        RAISE COMMUNICATION_ERROR. \ * \ *      WHEN AL_RC_INTERNAL_ERROR. \ *        RAISE INTERNAL_ERROR. \ * \ *      WHEN OTHERS. \ *        RAISE UNKNOWN_ERROR. \ * \ *    ENDCASE. \ * \ *  ENDIF. \  \ ENDFUNCTION. \

So you have that now? Great, now did you find your MTE class, the TID you are going to use?

As they say if you answered yes to both of those questions then you can proceed...

Now one of the great things about SAPRFC is the saprfc_test.php program that comes with it.  Once you start that page and login (remember your codepage) then you can type in the function then do a "Generate PHP" and you'll get a file with all you need to execute the function with your initial data in place!

Now we'll clean up the file a little bit and try out our page.

\ <html> \ <body> \ <h1>CPU Utilization</h1> \ <? \ // saprfc-class-library \ require_once("sapclasses/sap.php"); \  \ //Login to SAP R/3 \ $login = array ( \ \     \     \     "ASHOST"=>"saptst", \ \     \     \     "SYSNR"=>"03", \ \     \     \     "CLIENT"=>"001", \ \     \     \     "USER"=>"cmehcr1", \ \     \     \     "PASSWD"=>"xxxxxx", \ \     \     \     ); \ $rfc = saprfc_open ($login ); \  \ if (! $rfc ) { echo "RFC connection failed"; exit; } \  \ //Discover interface for function module Z_MTE_READ_CUR_VAL \ $fce = saprfc_function_discover($rfc,"Z_MTE_READ_CUR_VAL"); \  \ if (! $fce ) { echo "Discovering interface of function module failed"; exit; } \  \ //Set import parameters. You can use function saprfc_optional() to mark parameter as optional. \ saprfc_import ($fce,"TID", array ("MTSYSID"=>"WA2","MTMCNAME"=>"ciwa2_WA2_19","MTNUMRANGE"=>"010","MTUID"=>"0000200100","MTCLASS"=>"100","MTINDEX"=>"0000000344","EXTINDEX"=>"0000000064")); \  \ //Fill internal tables \ //Do RFC call of function Z_MTE_READ_CUR_VAL, 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; \ } else { \ \     //Retrieve export parameters \ \     $CURRENT_VALUE = saprfc_export ($fce,"CURRENT_VALUE"); \  \ \     // Determine the color and then print the value \ \     $myPrecent = $CURRENT_VALUE["LASTPERVAL"]; \ \     if ( $myPrecent > 76 ) { \ \     \     $myColor = "red"; \ \     } else if ( $myPrecent > 51 ) { \ \     \     $myColor = "yellow"; \ \     } else { \ \     \     $myColor = "green"; \ \     } \ \     echo "<img src=\\"images/".$myColor."\\" style=\\"height:10px;width:".$myPrecent."px;\\" border=\\"0\\">"; \ \     echo "  ".$myPrecent."%"; \ } \  \ //Debug info \ //saprfc_function_debug_info($fce); \ saprfc_function_free($fce); \  \ // Logoff/Close saprfc-connection LL/2001-08 \ saprfc_close($rfc); \  \ ?> \ </body> \ </html> \ \

That's it, basically the PHP is only there to display the data just like our BSP page did. Which is basically the point and the power to the whole thing. SAP together with PHP can and is just as powerful as BSP or Java.

Images used:

Updated: Alexander just gave me a link to a SAP document, bummer I didn't have it sooner 🙂

Including External System Management Programs in the CCMS Monitoring Architecture this of course all comes from a thread which can be found here.