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

/**************************************************************/
/* No more data - just fill positions with blanks */
/**************************************************************/
*pBuff='';pBuff++;
} else {
/**************************************************************/
/* Print actual data */
/**************************************************************/
iLast++; /* Actual data */
c = Buffer[iCol + (iRow * 16)];
if (isprint(c)) {
*pBuff = c; pBuff++; /* Actual char */
} else if (c == 0x40) {
*pBuff='';pBuff++; /* Blank char */
} else {
*pBuff = '.'; pBuff++; /* Unprintable */
} /* endelse */
} /* endelse */
} /* endfor */
*pBuff = '|'; pBuff++; /* Right text bar */
Figure 302. Sample WSG Server Logon Exit Program (Part 34 of 50)
/******************************************************************/
/* Build the finished output */
/******************************************************************/
memset(acLine, 0x00, sizeof(acLine));
iBytes = (iRow * 16) + iLast;
sprintf(acLine," Byte %d\n", iBytes); /* Byte count */
strcpy(pBuff, acLine);
pBuff = &Buff[0]; /* Reset pointer */
printf("%s", Buff);
} /* endfor */
return;
}
/**********************************************************************/
/*@function record() */
/* */
/* Parameters: */
/* */
/* variable arguments */
/* */
/* Log test result entry to standard out (normally console). This */
/* occurs only if DEBUG is active. If this occurs in a batch */
/* job, a spooled file is usually created that holds output. */
/**********************************************************************/
Figure 302. Sample WSG Server Logon Exit Program (Part 35 of 50)
AppendixE. TCP/IP Application Exit Points and Programs 587