<![CDATA[
#include <stdio.h>
#include <string.h>
#include <nwbindry.h>
#include <nwlocal.h>
#include <memory.h>
#include <extend50.h>
CLIPPER b_fullname()
{
WORD objType;
int ccode;
char objName[48];
long objID;
BYTE loginTime[7];
char day[10], time[9], ttime[3], AmPm[3];
WORD year;
int PM;
char month[9];
char nameBuffr[49];
WORD ConnectionNumber;
int rcode;
register int i;
int segmentNumber = 1;
BYTE moreSegments;
BYTE propertyFlags;
BYTE propertyValue[128];
long *setValue = (long *)propertyValue;
int flag = 0;
int gotAproblem = 0;
char *user = strupr( _parc(1) );
if( PCOUNT && ISCHAR(1) )
{
flag = 1;
}
ConnectionNumber = GetConnectionNumber();
if( ConnectionNumber == 0 )
{
nameBuffr[0] = NULL;
gotAproblem++;
}
if( !gotAproblem )
{
memset(nameBuffr,NULL,49);
memset(propertyValue,NULL,48);
ccode = GetConnectionInformation( ConnectionNumber, objName, &objType,
&objID, loginTime );
if ( ccode != 0 )
{
gotAproblem++;
}
if( !gotAproblem )
{
if( flag )
{
ReadPropertyValue( user, OT_USER,"IDENTIFICATION",
segmentNumber, propertyValue, &moreSegments,
&propertyFlags);
}
else
{
ReadPropertyValue(objName, OT_USER, "IDENTIFICATION",
segmentNumber, propertyValue, &moreSegments,
&propertyFlags);
}
++segmentNumber;
sprintf(nameBuffr,"%s%c",propertyValue,NULL);
}
}
_retc(nameBuffr);
}
]]>