TPGPRIO(3cbl)


	Corporate Info \| News \| Solutions \| Products \| Partners \| Services \| Events \| Download \| How To Buy
	http://www.oracle.com/technology/documentation/index.html \| Site Map \| Search \| PDF Files \| Contact \| Glossary

Tuxedo Doc Home \| Reference \| Topic List \| Previous \| Next \| Contents

BEA Tuxedo COBOL Function Reference

TPGPRIO(3cbl)

Name

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() or TPACALL(), (also TPENQUEUE() or TPDEQUEUE(), 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() or TPRECV() has no effect on the priority returned by TPGPRIO(). Also, there is no priority associated with a conversational service routine unless a TPCALL() or TPACALL() 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() or TPACALL()) have been sent, or it is called within a conversational service for which no requests have been sent.
[TPEPROTO]: TPGPRIO() was called improperly.
[TPESYSTEM]: A BEA Tuxedo system error has occurred. The exact nature of the error is written to a log file.
[TPEOS]: An operating system error has occurred.