In a message dated 01-12-99, Francois Thunus said to Murray Lesser about
"Pl/I"

Hi Francois,

 ML> *process langlvl(saa2), limits(extname(31)), libs, not('^');
 ML>  toupper: proc(infile) options (main noexecops);
 ML>     dcl infile char(100) var;
 ML>     dcl translate builtin;
 ML>     dcl (From value('abcdefghijklmnopqrstuvwxyz'),
 ML>          To value('ABCDEFGHIJKLMNOPQRSTUVWXYZ')) char(26);
 ML>     display (translate(infile,to,from));
 ML>   end toupper;

 ML>     I leave it as an exercise for the reader to write the equivalent in
 ML> Pascal :-).

FT>Borland Pascal:
FT>upcase();

Not quite correct. The upcase() function only handles one character, just
like the C toupper() function. Murray's program translates the entire string
in a single function call.

You are at least a FOR-loop short of a program there.

FT>:-)

:-(

It gets worse. The only way to get the parameter string without resorting to
raw API calls is Paramstr(i), where each token of the parameter string has
been parsed out. You have to put them back together again and you have lost
the spacing information! Since, under OS/2, filenames can contain spaces and
the spaces are significant (Murray's parameter is named 'infile', so I would
infer it is the filename of an input file) you will not be able to get back
to your original data in Pascal.

Regards

Dave

___
 * MR/2 2.25 #353 * Vegetarian (n): Indian word for "lousy hunter".

--- Maximus/2 3.01