/*---------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.                |
|                  Unpublished - All Rights Reserved                   |
|                      S A S / C   S A M P L E                         |
|                                                                      |
|         NAME: CICLQUIT                                               |
|     LANGUAGE: C                                                      |
|      PURPOSE: CICLQUIT is used to terminate CICLISTN, the TCP/IP     |
|               CICS Listener. Define CICLQUIT to CICS and invoke the  |
|               TRANSID to terminate the listener. The TRANSID may be  |
|               initiated from a CICS client or a CICS terminal.       |
|   MVS -                                                              |
|      COMPILE, LINK: prefix.SAMPLE.AUX(CICLQUIT)                      |
|               where "prefix" is the installation defined high-level- |
|               qualifier for the SAS/C product.                       |
|      EXECUTE: Refer to the SAS/C CICS User's Guide, Second Edition,  |
|               Release 6.00 for details on defining and starting a    |
|               SAS/C application in CICS.                             |
|   TSO -                                                              |
|      COMPILE: LCCCP/LC370 CLISTs                                     |
|         LINK: CLK370 CLIST                                           |
|      EXECUTE: N/A                                                    |
|   CMS  - You may Translate, Compile and CLINK SAS/C programs under   |
|          CMS, but the resulting object MUST be link-edited on MVS.   |
|          Refer to the SAS/C Compiler and Library User's Guide,       |
|          Fourth Edition, Release 6.00 for additional information.    |
+---------------------------------------------------------------------*/

void main()
{
   char cicsdummy = 0;

   EXEC CICS WRITEQ TS QUEUE("CICLQUIT") FROM(&cicsdummy) LENGTH(1)
             MAIN;

   EXEC CICS RETURN;
}