Use the list form of the LOADWAIT macro together with the modify form of the macro for applications that require reentrant code. The list form of the macro defines an area of storage or initializes that storage. The modify form of the macro updates the parameters in the area previously defined by the list form.
The list form of the LOADWAIT macro is written as follows:
Syntax | Description |
---|---|
name | name: Symbol. Begin name in column 1. |
␢ | One or more blanks must precede LOADWAIT. |
LOADWAIT | |
␢ | One or more blanks must follow LOADWAIT. |
Valid parameters (Required parameters are underlined) | |
WAITTYPE=RESTARTABLE | CODE, REASON, PSAPARM, MF |
WAITTYPE=NONREST | CODE, REASON, MF |
,CODE=wait state code | wait state code: Constant |
,REASON=reason code | reason code: Constant |
,REASON=0 | Default: REASON=0 |
,PSAPARM=PSA parm | PSA parm: Constant |
,PSAPARM=0 | Default: PSAPARM=0 |
,MF=(L,list addr,attr) | list addr: RX-type address. |
attr: 1- to 60-character input string. Default: 0F | |
The parameters are explained as follows:
If you do not specify PSAPARM, the system initializes the field to zeroes.
attr is an optional 1- to 60-character string, which can contain any value that is valid on an assembler DS pseudo-op. You can use this parameter to force boundary alignment of the parameter list. If you do not code attr, the system provides a value of 0F, which forces the parameter list to a fullword boundary.
None.
LOADWAIT WAITTYPE=RESTARTABLE,CODE=WAIT062,MF=(L,WAITPRM)
.
.
.
DS 0D
WAIT062 EQU X'62' * WAIT STATE CODE IS KNOWN
.
.
.
LOADWAIT WAITTYPE=RESTARTABLE,CODE=WAIT114,REASON=REASON02,
PSAPARM=OPERINFO,MF=(L,WAITPRM2)
.
.
.
DS 0D
WAIT114 EQU X'114' * WAIT STATE CODE IS KNOWN
REASON02 EQU X'2' * REASON CODE IS KNOWN
OPERINFO EQU X'C5E2C1E3' * PSAPARM = 'ESAT'
.
.
.
LOADWAIT WAITTYPE=NONREST,CODE=WAIT093,MF=(L,WAITPRM3)
.
.
.
DS 0D
WAIT093 EQU X'093' * WAIT STATE CODE
.
.
.