Provide address space WLM information

Resolving The Problem

APAR OA33567 (PTF UA55377) provides the ability to extract WLM information for any given job.

A new REXX function is added to extract WLM information for a specified job and return results in local REXX variables.

This function accepts the name of an MVS address space and returns WLM information for that address space.

SYNTAX: RC=WLMQUERY(jobname or jobname.stepname)

Where jobname is the name of the address space
for which WLM information is requested, jobname
can be qualified with stepname.

RETURN CODES:
0 = Success.
4 = Address space not found.
8 = Syntax error.
12 = Not APF authorized, not available in OG*TSO.
other = Internal error.

RESULT VARIABLES: When the return code indicates success, the function returns detailed information in the following REXX compound variables:

WLMQUERY.0 - The number of sets of variables returned.

A set of variables comprises:

WLMQUERY.JOBNAME.1..nn - Jobname.
WLMQUERY.STEPNAME.1..nn - Stepname.
WLMQUERY.ASID.1..nn - Address space id (4 hex characters).
WLMQUERY.PGN.1..nn - Performance group number.
WLMQUERY.DMN.1..nn - Domain number.
WLMQUERY.AFF.1..nn - CPU affinity indicator or NONE.
WLMQUERY.CT.1..nn - CPU time (see below for format).
WLMQUERY.ET.1..nn - Elapsed time (see below for format).
WLMQUERY.WKL.1..nn - Current workload name.
WLMQUERY.SCL.1..nn - Current service class name.
WLMQUERY.PER.1..nn - Current service class period.
WLMQUERY.RGP.1..nn - Current resource group.
WLMQUERY.SRVR.1..nn - YES/NO if server or not.
WLMQUERY.QSC.1..nn - YES/NO if quiesced or not.

The following variables will contain a null value depending on whether the system is in goal or compatibility mode:

GOAL mode: The PGN and DMN variables contain a null value.
COMPATIBILITY mode: The WKL, SCL, PER, RGP, SRVR and QSC variables contain a null value.

The time value returned in the CT and ET variables has one of the following formats (matching that of the IEE115I message produced by the D A,jobname command).

sss.tttS - Used when less than 1,000 seconds.
hh.mm.ss - Used when less that 100 hours.
hhhhh.mm - Used when at least 100 hours.
******** - Used when over 10,000 hours.

Use of the REDIRECT function is acceptable, only the first level of the REXX variable name is affected.