http://www.ousob.com --- Legacy Redefined #include <string.h> #include <nit.h> #include <niterror.h> #include <extend50.h> CLIPPER b_ingroup() { unsigned short logical_station; int retVal = 0; int flag = 0; int retcode; char objectName[48]; WORD objectType; long objectID; BYTE loginTime[7]; int gotAproblem = 0; char *p_string = strupr( _parc(1) ); if ( !PCOUNT || !ISCHAR(1) ) { gotAproblem = 1; } logical_station = GetConnectionNumber(); if( logical_station > 0 ) { retcode = GetConnectionInformation( logical_station, objectName, &objectType, &objectID, loginTime); retcode = IsBinderyObjectInSet( p_string, OT_USER_GROUP, "GROUP_MEMBERS", objectName, objectType ); if( retcode == 0 ) { retVal = 1; } else { retVal = 0; } } _retl(retVal); }