CICS INQUIRE TSQ

CICS DELETE TSQ CICS TDQ


Advertisements


Retrieves information about Temporary Storage Queue.


Syntax:

EXEC CICS 

     INQUIRE 
        TSQUEUE(queue-name)
        NUMITEMS(data-area)
        FLENGTH(data-area)
        LOCATION(cvda)
        MAXITEMLEN(data-area)
        MINITEMLEN(data-area) 
  
END-EXEC. 

'
QUEUE(queue-name):

Specifies the QNAME that is to be written.

As specified earlier, the QNAME would be up to 16 characters long.

Temporary Storage Queue can be created with dynamic names to avoid duplicate queues creation.

The name of the Temporary Storage Queue can be created by using the symbolic name provided in application program and the second half would be timestamp of the execution time.

Temporary Storage Queue name would be a combination of symbolic name (Program name most of the cases) and the timestamp (current time portion).


Ex: TEMPPROG11060309

If the QNAME defined in Temporary storage tables and the entry is remote, the request will be transferred to remote system.

If no SYSID is present, then based on the TST definition the Queue will be decided whether it is a local or remote.

If SYSID presents, then system won’t check for TST entries and directly assumes it as a Remote one.


NUMITEMS(data-value):

Specifies the two byte binary field to receive the numbers that indicates how many items pending.


FLENGTH(data-area):

FLENGTH is an optional entry in INQUIRE command.

FLENGTH is used to receive the length of data items in the entire TSQ

FLENGTH is a 4 byte field.


LOCATION(cvda):

Returns the CVDA value that indicates the temporary storage queue where it resides.

Location might be MAIN or AUXILIARY.


MAXITEMLEN(data-area):

MAXLENGTH is a optional field in DELETEQ.

MAXLENGTH gives the maximum length of the data item in the TSQ in bytes.

The length of the data item is the length of the longest data item + 24 bytes for header.


MINITEMLEN(data-area):

MINLENGTH is a optional field in DELETEQ.

MINLENGTH gives the minimum length of the data item in the TSQ in bytes.


Error Conditions:


INVREQ:

Inquiring TSQ after it got deleted.


QIDERR:

TSQ can’t be found during the inquiry.


END:

No more resources of this type exists.


CICS DELETE TSQ CICS TDQ

Advertisements