Use this system macro to get the writable static data length from a load
module's IDSLST.
Required Authorizations
|
Key0
| Restricted
| System
| Common Storage
|
| X
|
|
|
Format
- REG=Rx
- A register other than R0 in which the length of the writable static data
is returned. This is a required input parameter.
- IFANY=anylabel
- The symbolic name of a label to which control is transfered if writable
static data is present.
- IFNONE=nonelabel
- The symbolic name of a label to which control is transfered if writable
static data is not present.
Entry Requirements
- A base register must address the IDSLST of the load module for which the
writable static data length is required.
Return Conditions
- If the load module contains writable static data:
- If IFANY=anylabel is specified, control branches to
anylabel.
- If IFANY=anylabel is not specified, control is returned to the
next sequential instruction (NSI).
- If the load module does not contain writable static data:
- If IFNONE=nonelabel is specified, control branches to
nonelabel.
- If IFNONE=nonelabel is not specified, control is
returned to the next sequential instruction (NSI).
- Register Rx contains the writable static data length. If
there is no writable static data, Rx contains zero.
- The contents of all other registers are preserved across the macro
call.
- The condition code (CC) is not preserved across the macro call.
Programming Considerations
- This macro can be run from any I-stream.
- This macro can be run by both ECB-controlled programs and control program
(CP) programs.
Examples
The following example shows how to get a load module's writable static
data length.
***********************************************************************
* Register R4 points to the beginning of the load module. *
***********************************************************************
IDSLST REG=R4
WRSTC REG=R15,IFNONE=NOSTATIC
***********************************************************************
* If control falls through to here, R15 contains the writable static *
* data length. *
***********************************************************************
NOSTATIC DS 0H
***********************************************************************
* If control branches to here, there is no writable static data. R15 *
* contains zero. *
***********************************************************************