I've got an application where I want to convert various strings to (in this case) upper case. I'm familiar with the XLATE method, but I thought I'd try to find something more universal (dealing with accented characters, etc.), and I found CvtToUpper and
CvtToLower procedures at
http://www.iprodeveloper.com/article/rpg-programming/apis-by-example-a-better-case-converter-60657 that seemed to be just what I want.
CvtToUpper seems to work great, except for one thing -- if I pass it a blank field, after it's done some of the fields in my program have (apparently randomly) been filled with blanks (I discovered this because if one were numeric I'd get a decimal data
error).
I'm using this prototype for the procedure:
D CvtToUpper Pr 32765 Varying
D 32765 Const Varying
D 272 Options( *NoPass )
D 10I 0 Const Options( *NoPass )
and this definition for the field that I'm passing:
D XXXDTA S 32765 varying
and I'm calling the procedure like this:
C Eval XXXDTA = %Trim(MYFIELD)
C Eval XXXDTA = CvtToUpper(XXXDTA)
I've determined that if I remove "varying" from the definition of XXXDTA, then then everything is fine, but that seems like the wrong way to do it. Can anyone tell me why "varying" causes this problem? Alternatively, is there a better way to do what I'm
trying to do?
Thanks very much,
Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA 01376
413-676-3144
Internal: x 444
mnaughton@xxxxxxxxxxxx
****************************************
NOTICE: This e-mail and any files transmitted with it are confidential and solely for the use of the intended recipient. If you are not the intended recipient or the person responsible for delivering to the intended recipient, be advised that any use is
strictly prohibited. If you have received this e-mail in error, please notify us immediately by replying to it and then delete it from your computer.
midrange.com
