Example

To register an instance of a given location:

        IWMSRSRS SYSINFO_BLOCK=DATA,
                 EXTENDED_DATA=YES,
                 ANSLEN=SIZE,
                 ENTRY_COUNT=E,
                 QUERYLEN=Q,
                 LOCATION=LOC,
                 FUNCTION=QUERY,RETCODE=RC,RSNCODE=RSN
*
* Storage areas
*
DATA     DS    CL200           Area to receive output
SIZEEQU  EQU   *-DATA          Equate for size of Data
E        DS    F               Field to receive entry count
Q        DS    F               Field to receive query length
LOC      DS    CL18            Contains the Location
*                              associated with the server
*                              instance
RC       DS    F               Return code
RSN      DS    F               Reason code
SIZE     DC    A(SIZEEQU)      Field to hold size