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

if ((argc-1) != iParms) {
record("wsgexit: Invalid number of parameters!\n");
/******************************************************************/
/* TCP7117 - Program &1 in library &2 received an invalid number */
/* parameters. */
/******************************************************************/
sprintf(acMsg, "WSGEXIT *LIBL ");
iMin = strlen(acMsg);
memcpy(&acMsg[iMin], &iParms, sizeof(int));
iMin += sizeof(int);
QMHSNDPM("TCP7117", QTCPMSGF, acMsg, iMin, MSG_INFO,
MSQ_Q_CUR_PROG, 0, acMsgKey, &esErrCode);
record("wsgexit: <<<<< exit\n\n");
exit(0);
} /* endif */
record("wsgexit: OperSpecInfo = >%s<\n", argv[1]);
record("wsgexit: Lgth_OperSpecInfo = %d\n", *((int *)(argv[2])));
record("wsgexit: ClientIPaddr = >%s<\n", argv[3]);
Figure 302. Sample WSG Server Logon Exit Program (Part 21 of 50)
record("wsgexit: CCSID = %d\n", *((int *)(argv[4])));
record("wsgexit: AllowOper = '%c'\n", *argv[5]);
record("wsgexit: UserProfile = >%.10s<\n", argv[6]);
record("wsgexit: Password = >%.10s<\n", argv[7]);
record("wsgexit: ProgramLib = >%.10s<\n", argv[8]);
record("wsgexit: ProgramName = >%.10s<\n", argv[9]);
record("wsgexit: InitialMenu = >%.10s<\n", argv[10]);
record("wsgexit: URL = >%.300s<\n", argv[11]);
OperSpecInfo_p = argv[1];
Lgth_OperSpecInfo = *((int *)(argv[2]));
ClientIPaddr = argv[3];
CCSID = *((int *)(argv[4]));
AllowOper = argv[5];
UserProfile = argv[6];
Password = argv[7];
ProgramLib = argv[8];
ProgramName = argv[9];
InitialMenu = argv[10];
URL = argv[11];
Figure 302. Sample WSG Server Logon Exit Program (Part 22 of 50)
AppendixE. TCP/IP Application Exit Points and Programs 581