Programmable Interfaces › Issuing TSS Commands Under CICS › Sample Program Calling TSSCICS via TEMPORARY STORAGE and TERMID

Sample Program Calling TSSCICS via TEMPORARY STORAGE and TERMID

When executing a TSS command as part of a CICS transaction (executed from a valid terminal), you can pass the command to the program TSSCICS in a temporary storage queue and receive output data back using the same queue.

Consider following considerations command behaviors:

• When you execute TSSCICS from a terminal, the temporary storage queue should be the concatenation of “TSSA” with the 4‑character terminal ID. In the following sample program, the terminal ID is obtained using the CICS EXEC ASSIGN FACILITY() command.
• As a precaution to prevent previously stored commands or output from interfering with your communication with TSSCICS, delete the queue prior to writing.
• Delete the queue after your output has been read.
• The length of the output buffer (in the sample program TSSLNGTH) must be lowered to 80 if the terminal is a sequential terminal.
• When larger buffer sizes are used, it is the user's responsibility to deblock the output from multiple‑line buffers.
• Use of TSSCICS with large volumes of output (for example, LIST commands for large ACIDs) should be avoided. Clients are cautioned to limit commands to those with minimal outputs. For complex inquiries, TSSCAI can be of greater utility than TSSCICS.

Example: calling TSSCICS via TEMPORARY STORAGE and TERMID

This example calls TSSCICS via TEMPORARY STORAGE and TERMID. This program is designed for command outputs which span, at most, a single 3270‑2 screen (1920 bytes). We recommend that you use TERMID as an ID for transactions expected to operate from a terminal:

	   TITLE 'ISSUE TSS COMMAND USING TEMPORARY STORAGE & TERMID'
OUT       EQU  8
PGMCTSS   DFHEIENT CODEREG=(3),DATAREG=(5)

MAINLINE  DS   OH
          EXEC CICS ASSIGN						X
               FACILITY(NET)
          MVC  WQUEUEID,=CL4'TSSA'
          MVC  WQUEUEID+4(4),NET
          EXEC CICS DELETEQ TS QUEUE(WQUEUEID) RESP(RESP)
          EXEC CICS WRITEQ TS					X
               QUEUE(WQUEUEID)					X
               FROM(MSG)						X
               LENGTH(256)						X
               RESP(RESP)
          EXEC CICS LINK PROGRAM('TSSCICS')
          EXEC CICS READQ TS QUEUE(WQUEUEID)			X
               SET(OUT) LENGTH(TSSLNGTH) RESP(RESP)
	   EXIT EXEC CICS DELETEQ TS QUEUE(WQUEUEID) RESP(RESP)
          EXEC CICS RETURN
MSG       DC   CL256'TSS REPL(userid) PASS(pass,30,EXP)
RESP      DS   F
TSSLNGTH  DC   H’+1920’
WQUEUEID  DS   CL8
NET       DS   CL4
          END