Programmable Interfaces › Issuing TSS Commands Under CICS › Sample Program Calling TSSCICS via COMMAREA

Sample Program Calling TSSCICS via COMMAREA

This sample program calls TSSCICS via COMMAREA:

TITLE 	'ISSUE TSS COMMAND VIA COMMAREA'
COMMAND		CSECT
		EXEC CICS LINK PROGRAM('TSSCICS') COMMAREA(COMM) LENGTH(256)
		EXEC CICS RETURN
*
* DATA FOLLOWS
*
COMM		DC	CL256'TSS LIST(userid) DATA(ALL)'
		END