/*****************************************************
      FUNCTION GETUSER

     GETUSER GETS USER NAME FROM COMPUTER

*******************************************************/

getuser_(

 char *WHOami      /* USER NAME */

	 )

{

 FILE *fone;
 char *p = WHOami;

 system("whoami > .OCLdb_getuser");
 fone=fopen(".OCLdb_getuser\0","rb+\0");
 fscanf(fone,"%s",WHOami);
 fclose(fone);

 while ( *p++ != '\0' );
 *p--;
 *p = ' ';

}