ATMI COBOL Function Reference
TPSPRIO()
- set service request priority
01
TPPRIDEF-REC
.
COPY TPPRIDEF.
01TPSTATUS-REC
.
COPY TPSTATUS.
CALL "TPSPRIO" USINGTPPRIDEF-REC
TPSTATUS-REC
.
TPSPRIO()
sets the priority for the next request sent or forwarded. The priority set affects only the next request sent. (Priority can also be set for messages enqueued or dequeued by TPENQUEUE()
or TPDEQUEUE()
if the queued management facility is installed.) By default, the setting of PRIORITY
in TPPRIDEF-REC
increments or decrements a service's default priority up to a maximum of 100 or down to a minimum of 1 depending on its sign, where 100 is the highest priority. The default priority for a request is determined by the service to which the request is being sent. This default may be specified administratively (see UBBCONFIG(5)), or accept the system default of 50. TPSPRIO()
has no effect on messages sent via TPCONNECT()
or TPSEND()
.
The following is a list of valid settings in TPPRIDEF-REC
.
The priority of the next request should be sent out at the absolute value of PRIORITY
. The absolute value of PRIORITY
must be within the range 1 and 100, inclusive, with 100 being the highest priority. Any value outside of this range causes a default value to be used.
Upon successful completion, TPSPRIO()
sets TP-STATUS
to [TPOK
].
Under the following conditions, TPSPRIO()
fails and sets TP-STATUS
to:
TPACALL(3cbl)
, TPCALL(3cbl)
, TPDEQUEUE(3cbl)
, TPENQUEUE(3cbl)
, TPGPRIO(3cbl)