CICS Nov title - CBT Tape

sock = Ø;
WSACleanup ();
GetDateFormat (Ø,Ø,Ø,Ø,szDate,32);
GetTimeFormat (Ø,Ø,Ø,Ø,szTime,32);
for(index = Ø;index < 1Ø;index++)
RecordOut.Date[index] = szDate[index];
for(index = Ø;index < 11;index++)
RecordOut.Time[index] = szTime[index];
if (RecordOut.Time[1Ø] == '\Ø')
RecordOut.Time[1Ø] = ' ';
for(index = Ø;index < 22;index++)
RecordOut.Literal1[index] = szPlaySoundClose[index];
if (fputs(pRecordOut,pPageLog) != Ø)
EditPrintf (hwndEdit, TEXT ("Page Log WRITE failed! \r\n"));
if (fclose (pPageLog) != Ø)
EditPrintf (hwndEdit, TEXT ("Page Log CLOSE failed! \r\n"));
}
DestroyWindow (GetParent (hwnd));
return TRUE;
}
return FALSE;
case WM_SOCKET_NOTIFY:
wEvent = WSAGETSELECTEVENT (lParam); // ie, LOWORD
wError = WSAGETSELECTERROR (lParam); // ie, HIWORD
// Process two events specified in WSAAsyncSelect
switch (wEvent)
{
// This event occurs as a result of the "Listen" call
case FD_ACCEPT:
sockaccepted = accept(sock,Ø,Ø);
if (sockaccepted == INVALID_SOCKET)
{
iError = WSAGetLastError ();
GetDateFormat (Ø,Ø,Ø,Ø,szDate,32);
GetTimeFormat (Ø,Ø,Ø,Ø,szTime,32);
EditPrintf (hwndEdit, TEXT ("Accept error
#%i %hs %hs \r\n"),iError, szDate, szTime);
for(index = Ø;index < 1Ø;index++)
RecordOut.Date[index] = szDate[index];
for(index = Ø;index < 11;index++)
RecordOut.Time[index] = szTime[index];
if (RecordOut.Time[1Ø] == '\Ø')
RecordOut.Time[1Ø] = ' ';
for(index = Ø;index < 22;index++)
RecordOut.Literal1[index] = szPlaySoundError[index];
if (fputs(pRecordOut,pPageLog) != Ø)
EditPrintf (hwndEdit, TEXT ("Page Log WRITE failed! \r\n"));
return TRUE;
}
//GetDateFormat (Ø,Ø,Ø,Ø,szDate,32);
36 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.