The INQUIRE_TASK_STORAGE call

INQUIRE_TASK_STORAGE enables you to request details of all elements of task-lifetime storage belonging to a task. You can specify the transaction number of the task explicitly on the call, or let it default to the current task.

INQUIRE_TASK_STORAGE

DFHSMMCX  [CALL,]
       [CLEAR,]
       [IN,
       FUNCTION (INQUIRE_TASK_STORAGE),
       [TRANSACTION_NUMBER(name4 | (Rn) | *),]
       ELEMENT_BUFFER(buffer-descriptor),
       LENGTH_BUFFER(buffer-descriptor),]
       [OUT,
       NUMBER_OF_ELEMENTS(name4 | (Rn) | *),
       RESPONSE (name1 | *),
       REASON (name1 | *)]

This command is threadsafe.

ELEMENT_BUFFER(buffer-descriptor): defines the address and length of a buffer into which CICS® returns a list of start addresses of all the elements of task-lifetime storage belonging to either the specified task or, by default, the current task.
The start addresses returned do not include the leading check zone. For a description of a buffer descriptor, see XPI syntax.
LENGTH_BUFFER(buffer-descriptor): defines the address and length of a buffer into which CICS returns a list of the lengths of the elements of task-lifetime storage belonging to either the specified task or, by default, the current task. The lengths returned do not include the leading or trailing check zones.
For a description of a buffer descriptor, see XPI syntax.
NUMBER_OF_ELEMENTS(name4 | (Rn) | *): returns the number of entries in each of the two buffers, ELEMENT_BUFFER and LENGTH_BUFFER, as a full-word binary value.
TRANSACTION_NUMBER(name4 | (Rn) | *): specifies, as a 4 byte packed decimal value, the transaction number of the task to whom the storage belongs.
If you omit the transaction (task) number, CICS assumes the current task.

RESPONSE and REASON values for INQUIRE_TASK_STORAGE

RESPONSE	REASON
OK	None
EXCEPTION	INSUFFICIENT_STORAGE
	NO_TRANSACTION_ENVIRONMENT
DISASTER	None
INVALID	None
KERNERROR	None
PURGED	None