PURPOSE

TPGPRIO - get service request priority

SYNOPSIS

01 TPPRIDEF-REC.
   COPY TPPRIDEF.
01 TPSTATUS-REC.
   COPY TPSTATUS.
CALL "TPGPRIO" USING TPPRIDEF-REC TPSTATUS-REC.

DESCRIPTION

TPGPRIO returns the priority for the last request sent or received. Priorities can range from 1 to 100, inclusive, with 100 being the highest priority. TPGPRIO may be called after TPCALL(3cbl) or TPACALL(3cbl), (also TPENQUEUE(3cbl) or TPDEQUEUE(3cbl), assuming the queued management facility is installed), and the priority returned is for the request sent. Also, TPGPRIO may be called within a service routine to find out at what priority the invoked service was sent. TPGPRIO may be called any number of times and will return the same value until the next request is sent.

Since the conversation primitives are not associated with priorities, issuing TPSEND(3cbl) or TPRECV(3cbl) has no effect on the priority returned by TPGPRIO. Also, there is no priority associated with a conversational service routine unless a TPCALL(3cbl) or TPACALL(3cbl) is done within that service.

RETURN VALUES

Upon successful completion, TPGPRIO sets TP-STATUS to [TPOK] and returns a request's priority in PRIORITY in TPPRIDEF-REC.

ERRORS

Under the following conditions, TPGPRIO fails and sets TP-STATUS to:

[TPENOENT]

TPGPRIO was called and no requests (via TPCALL(3cbl) or TPACALL(3cbl)) have been sent, or it is called within a conversational service for which no requests have been sent.

[TPEPROTO]

TPGPRIO was called in an improper context.

[TPESYSTEM]

A System/T error has occurred. The exact nature of the error is written to a log file.

[TPEOS]

An operating system error has occurred.

SEE ALSO

TPACALL(3cbl),
TPCALL(3cbl),
TPDEQUEUE(3cbl),
TPENQUEUE(3cbl),
TPSPRIO(3cbl),