illustrates an example
of the coding necessary to create a CICS® TST.
Figure 1. Temporary storage table—example DFHTST TYPE=INITIAL, LIST OF GENERIC NAMES OF QUEUES *
SUFFIX=01 THAT ARE RECOVERABLE, REMOTE,
* SHARED, LOCAL, OR REQUIRE
* SECURITY CHECKING.
*
* The following macro specifies that all LOCAL queues with
* names beginning with the letter 'R' are RECOVERABLE:
*
DFHTST TYPE=RECOVERY, *
DATAID=R
*
* The following macro specifies that queues with names
* beginning with C,D,E, and X are local queues:
*
DFHTST TYPE=LOCAL, *
DATAID=(C,D,E,X)
*
* The following macro specifies that queues with names
* beginning with AB,L,M,N are remote queues on system RSYS:
*
DFHTST TYPE=REMOTE, *
DATAID=(AB,L,M,N), *
SYSIDNT=RSYS, Queue names on remote system *
RMTNAME=LC begin with letters LC
*
* The next macro specifies that all queues not local as defined
* above, or remote in system RSYS as defined above, are remote
* queues that reside in a shared TS pool TYPE=SHARE macro.
*
DFHTST TYPE=REMOTE, *
DATAID=(), *
SYSIDNT=SHR1
*
* The next macro specifies that remote queues with SYSIDNT=SHR1
* are mapped to shared TS pool named TSQSHR1.
*
DFHTST TYPE=SHARED, *
SYSIDNT=SHR1, *
POOL=TSQSHR1
*
* The following macro specifies that queues with names
* beginning with SAQ require security checking.
* Note that the full TS queue name is passed to the ESM.
*
DFHTST TYPE=SECURITY, *
DATAID=SAQ
*
DFHTST TYPE=FINAL
END