/*---------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.                |
|                  Unpublished - All Rights Reserved                   |
|                      S A S / C   S A M P L E                         |
|                                                                      |
|         NAME: CICTSERV                                               |
|     LANGUAGE: C                                                      |
|      PURPOSE: Demonstrate a CICS TCP/IP server, that is started by   |
|               CICLISTN. Refer to the SAS/C Library Reference Vol 2,  |
|               Third Edition, Release 6.00 for additional details on  |
|               socket API function calls.                             |
|   MVS -                                                              |
|      COMPILE, LINK: SUBMIT prefix.SAMPLE.AUX(CICTSERV)               |
|               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.                             |
|        NOTES: CICTSERV assumes a working TCP/IP environment on both  |
|               the local and remote hosts.                            |
|   TSO -                                                              |
|      COMPILE: LCCCP/LC370 CLISTs                                     |
|        NOTES: RENT is a required LC370 "option"                      |
|         LINK: CLK370 CLIST                                           |
|      EXECUTE: N/A                                                    |
|        NOTES: CICTSERV assumes a working TCP/IP environment on both  |
|               the local and remote hosts.                            |
|   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.    |
+---------------------------------------------------------------------*/
/* #define __IBM_TCPIP 1 is only required for releases prior to 6.00  */
#define __IBM_TCPIP 1

#include <cics.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <fcntl.h>

main()
{
   int cs; /* cs is the client socket returned by takesocket          */
   int s;  /* s is the socket passed by the listener                  */

   /* Return struct for clientid information                          */

   struct clientid clientid;

   /* Variables used to obtain the time.                  */
   char *p;
   int len;
   time_t t;

   /* Loop count */
   int n_times;


   /* Buffer for outgoing time string.                    */
   char outbuf[128];

   /*
    * Map of Parms passed to program by CICS listener via
    * "EXEC CICS START" and picked up by "EXEC CICS RETRIEVE"
    */

   struct TCPSOCKET_PARM
     { /* Map PARMS passed to program by CICS Listener  */
      int give_take_socket;
      char lstn_name[8];
      char lstn_subname[8];
      char client_in_data[36];
      struct sockaddr_in sockaddr_in_parm;
     } csp; /*  cics_socket_parm */

   short csp_len = (short) sizeof(csp);

   EXEC CICS RETRIEVE INTO(&csp) LENGTH(csp_len);  /* Get parms */

   /*
    * Build required CICS format clientid for takesocket
    */

   memset(&clientid, 0, sizeof(clientid)); /* zero out client id */
   clientid.domain = AF_INET;
   memcpy(clientid.name, csp.lstn_name, 8);
   memcpy(clientid.subtaskname, csp.lstn_subname, 8);
   printf("Passed clientid info:  "
          "Domain = %d, Name = <%.8s>, Task = <%.8s>\n",
          clientid.domain, clientid.name, clientid.subtaskname);

   /* Convert IBM socket number to SAS/C socket number base           */
   /* FD_TO_IBM_TCPIP is only required for releases prior to 6.00   */
   s  = FD_FROM_IBM_TCPIP(csp.give_take_socket);

   /* Take the passed client socket; takesocket will return a local   */
   /*  socket number enabling us to write to the client               */

   cs = takesocket(&clientid, s);

   /* Check takesocket rc */
   if (cs == -1)
   {
      perror("takesock() call failed");
      exit(EXIT_FAILURE);
   }

   n_times = 2;
   while (n_times--)
   {
      /* Send the time to the client. clients           */
      /*  expect the string to be in ASCII.             */
      time(&t);               /* Machine readable time. */
      p = ctime(&t);          /* Human readable time.   */
      /* Convert to ASCII if necessary. */
      for (len=0; p[len] && len<sizeof(outbuf); len++)
         outbuf[len] = htoncs(p[len]);
      outbuf[len+1] = htoncs('\n');   /* send a new line*/

      if (write(cs, outbuf, len)==-1)
      {
         perror("write() failed");
         printf("Client IP address: %s\n",
              inet_ntoa(csp.sockaddr_in_parm.sin_addr));
         return EXIT_FAILURE;
      }
   }
   close(cs);
   return EXIT_SUCCESS;  /* Avoid compilation warnings. */
}