d 	FUNCTION JJUPP( string )
È c.		Converts the STRING into upper case.
,c.
c.	Replaces 'a' thru 'z' with 'A' thru 'Z' respectively in the
ôc. STRING.
Xc.
¼C======
 	CHARACTER*(*) string
„C.
è	DO 210 II=1,LEN(string)
L	  IF( string(II:II).GE.'a' .AND. string(II:II).LE.'z' ) THEN
°	    string(II:II) = CHAR(ICHAR('A')+ICHAR(string(II:II))-ICHAR('a'))
	  ENDIF
x210	CONTINUE
Ü	RETURN
@		end