IBM AS/400E Figure 302. Sample WSG Server Logon Exit Program (Part 3 of 50), Figure 302. Sample WSG Server Logon Exit Program (Part 4 of 50)

#pragma comment (copyright, \
"5763-TC1,5716-TC1,5769-TC1 \
(C) Copyright IBM Corp. 1996, 1998. \
All rights reserved. \
US Government Users Restricted Rights - \
Use, duplication or disclosure restricted \
by GSA ADP Schedule Contract with IBM Corp. \
Licensed Material-Property of IBM")
#define _WSGEXIT_C
/**********************************************************************/
/* All file scoped includes go here */
/**********************************************************************/
#include <ctype.h> /* isspace, toupper */
#include <except.h> /* _CNL_Hndlr_Parms_T structure */
#include <recio.h> /* _Ropen, _Rwrite, _Rreadf */
#include <signal.h> /* _GetExcData(), signal() */
#include <stdarg.h> /* va_start(), va_arg(), va_end() */
#include <stdio.h> /* sprintf, printf, fopen, fread, */
#include <stdlib.h> /* system, atoi, free, malloc, exit, */
Figure 302. Sample WSG Server Logon Exit Program (Part 3 of 50)
#include <string.h> /* strxxx, memxxx */
#include <time.h> /* time(), ctime() */
#include <xxfdbk.h> /* _Ropnfbk */
#ifdef __ILEC400__
#include <qusec.h> /* Include for API error code struct */
#include <qcapcmd.h> /* QCAPCMD - Process CL commands */
#include <qmhrtvm.h> /* QMHRTVM - retrieve program message*/
#include <qmhsndm.h> /* QMHSNDM - send non-program msg */
#include <qmhchgem.h> /* QMHCHGEM - change exception msg */
#include <qwcrdtaa.h> /* QWCRDTAA() - retrieve data area */
#include <qmhsndpm.h> /* QMHSNDPM - send program message */
Figure 302. Sample WSG Server Logon Exit Program (Part 4 of 50)
AppendixE. TCP/IP Application Exit Points and Programs 573