/*static char *SCCSID = "@(#)cmupper.c	6.1 90/11/16";*/
/* static char *SCCSID = "@(#)cmupper.c	6.3 90/01/24"; */

/*********************************************************************/
/*	 IBM/Microsoft Confidential				     */
/*								     */
/*	 Copyright (c) IBM Corporation 1987, 1989		     */
/*	 Copyright (c) Microsoft Corporation 1987, 1989		     */
/*								     */
/*	 All Rights Reserved					     */
/*********************************************************************/

/********* START OF SPECIFICATION ******* IBM CONFIDENTIAL ***********/
/*								     */
/* SUBROUTINE NAME:  COM_TOUPPER				     */
/*								     */
/* DESCRIPTIVE NAME:  CONVERTS A CHARACTER TO UPPERCASE		     */
/*								     */
/* FUNCTION:							     */
/*								     */
/*								     */
/* NOTES:							     */
/*								     */
/*								     */
/* ENTRY POINT:	 com_toupper					     */
/*   LINKAGE  :							     */
/*								     */
/* INPUT: unsigned  char --  char to be converted to uppercase	     */
/*								     */
/* EXIT:							     */
/*								     */
/*								     */
/* EXIT-NORMAL: Converted character				     */
/*								     */
/* EXIT-ERROR:	none						     */
/*								     */
/*								     */
/* EFFECTS:							     */
/*								     */
/* INTERNAL REFERENCES: none					     */
/*   ROUTINES:							     */
/*								     */
/* EXTERNAL REFERENCES:						     */
/*   ROUTINES:							     */
/*								     */
/* RELEASE:							     */
/*								     */
/*   VERSION	  DATE		 REASON				     */
/*								     */
/*     1.00	6/16/1986      initial version			     */
/*								     */
/******************* END OF SPECIFICATIONS ***************************/
  #include "cmdbcs.h"				 /* dbcs externs		  */
						 /*				  */
  unsigned char com_toupper(ch)			 /*				  */
    unsigned char ch;				 /* char to be cnv to uppercase	  */
						 /*				  */
  {						 /*				  */
   com_settbl();				 /* initialize DBCS table	  */
						 /*				  */
   return(casemap_up[ch]);			 /* convert to uppercase	  */
  }						 /*				  */
