gtpg2m3pGeneral Macros

RTCUC-Record Type Conversion Utility

This general macro provides a centralized mechanism for interrogating the FACE table. Various functions are provided by the RTCUC macro:

  1. Convert a fixed record type in its character representation of the SYSEQC tag to the corresponding numerical value.
  2. Convert a fixed record type in its numerical form to the corresponding character representation of the SYSEQC tag.
  3. Produce a list of extents for a particular fixed-type record.
  4. Retrieve a fixed record type's characteristics from the FACE table.
  5. Produce a list of segments for a particular pool section.
  6. Produce a list of segments that are deactivated or will be deactivated for a particular pool section.

Format




label
A symbolic name can be assigned to the macro statement.

FUNCTION
The function to be performed from one of the following choices:

CTON
Convert character string to numerical value.

NTOC
Convert numerical value to character string.

EXTENTS
Produce list of extents.

EXTRACT
Retrieve fixed record type characteristics.

POOLSEGMENTS
Returns information about the current pool segment (PSEITK in DSECT IDSPS).

Notes:

  1. To return information about the first pool segment, set PSEITK to zero.

  2. To obtain information about all pool segments for a pool section, write a code loop that gets the next pool segment (PSENTK in DSECT IDSPS), saves it as the current pool segment (PSEITK), and issues RTCUC macro calls until the last pool segment is processed.

DEACTIVATEDSEGMENTS
Starting from the current pool segment (PSEITK in DSECT IDSPS), returns information about the first pool segment that is deactivated or pending deactivation.
Note:
To obtain information about all pool segments that are deactivated or pending deactivation, write a code loop that gets the next pool segment (PSENTK in DSECT IDSPS), saves it as the current pool segment (PSEITK), and issues RTCUC macro calls until the last pool segment is processed.

REG=Rx
Must be specified as "REG=Rx", where Rx is in the range of R0-R7. This parameter is required.

For NTOC, EXTENTS, and EXTRACT the general register Rx must contain the numerical value of the record type.

For CTON, general register Rx must contain the address of an 8-byte left-justified blank padded field containing the character representation of the SYSEQC tag.

For POOLSEGMENTS, general register Rx must point to an area of memory defined by DSECT IDSPS.

For DEACTIVATEDSEGMENTS, general register Rx must point to an area of memory defined by DSECT IDSPS.

LEVEL=Dx
Valid only for the EXTENTS function and must be specified as "LEVEL=Dx." On return, the storage block on ECB data level Dx will contain the number of extents and the extents list. See the DCTRTX DSECT for the format of the output block.

Entry Requirements

Return Conditions

No system errors are issued by the RTCUC macro service routine. Any invalid or illogical input parameters or conditions detected during processing are signaled to the caller by the condition code setting on return.

Programming Considerations

This macro can be run on any I-stream.

Examples