From: Steve Lionel [Steve.Lionel@intel.com]
Sent: Monday, January 28, 2002 2:17 PM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: STR$lowercase ?

On Mon, 28 Jan 2002 17:32:49 GMT, Rick Dyson <Rick-Dyson@UIowa.EDU>
wrote:

>There is a STR$UPCASE system service in the STR$ system, but I have a user that
>would like to force lowercase in his Fortran program and I can't quickly find 
>an answer to his question.  Is there such a pre-existing VMS service or function
>that can be easily called from a Fortran program?

One can call LIB$MOVTC with LIB$AB_LOWERCASE as the translation table.
The catch is that you have to hand-craft a descriptor for this, but
it's easy to do.  Here's an example:

	character* 10 old,new
	external lib$ab_lowercase
	integer*4 tabledesc(2)
	old = 'ABCDEFGHIJ'
	tabledesc(1) = 256
	tabledesc(2) = loc(lib$ab_lowercase)
	istat = LIB$MOVTC (old,' ',tabledesc,new)
	write (*,*) new
	end



Steve Lionel
Compaq Fortran Engineering
Intel Corporation
Nashua, NH

Compaq Fortran - http://www.compaq.com/fortran
Intel Fortran - http://developer.intel.com/software/products/compilers/f50/