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

Sample Program Calling TSSCICS via TEMPORARY STORAGE and TASK NUMBER

When executing a TSS command as part of a TSSCICS transaction (without a 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 the following command behaviors:

• When you execute TSSCICS without a terminal, the temporary storage queue should be the concatenation of “TSSA” with the four‑character task number. In the sample program below, the task number is obtained using the CICS EIB field EIBTASKN.
• 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 TASK NUMBER

This example program calls TSSCICS via TEMPORARY STORAGE and TASK NUMBER. This program is designed for command outputs which span, at most, a single 3270‑2 screen (1920 bytes). We recommend that you use Task Number for transactions that operate from PLTI or from EXEC START commands, and that are not associated with a terminal:

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

MAINLINE    DS    OH
            MVC   WQUEUEID,=CL4'TSSA'
            MVC   WQUEUEID+4(4), EIBTASKN
            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 LIST(userid) DATA(ALL)'
RESP        DS    F
TSSLNGTH    DC    H'+1920'
WQUEUEID    DS    CL8
DFHEISTG    DSECT
            END