🚀 go-pugleaf

I may have missed something, so I don't understand where filenames and
filetypes enter into Laszlo's question.  If it is simply names that he
is referring to, I could offer the heart of an exec that we use to fix
the random way our help-desk consultants log our customer's names.  I
have no pretensions to great REXX programming, by the way :-)

PARTICULARS SPECIFIC TO US:
In this, filei and fileo are the input and output files, the line
being parsed has last name in 25-44 and first name in 45-59.  After
casing, these are padded and reassembled into the line.

THE SPECIFIC FUNCTION OF THIS CODE:
This capitalizes the first letter and leaves all others lower case --
e.g., "MACDONALD" comes out "Macdonald", "LeClerc" is "Leclerc", etc.

-----------------------------------------------------------------
lo = 'abcdefghijklmnopqrstuvwxyz'
up = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
eof    = 'F'
do while eof = 'F'
  'execio 1 diskr ' filei
  if rc ^= 0 then eof = 'T'
  else do
    parse pull part1 25 namel 45 namef 60 rest
    namel = strip(namel)
    namef = strip(namef)
    if length(namel) > 0 then do
      nl = translate(substr(namel,1,1))
      amel = translate(substr(namel,2),lo,up)
      namel = nl||amel
    end /* recasing last name */
    if length(namef) > 0 then do
      nf = translate(substr(namef,1,1))
      amef = translate(substr(namef,2),lo,up)
      namef = nf||amef
    end /* recasing first name */
    namel = left(namel,20,' ')
    namef = left(namef,15,' ')
    line = part1 || namel || namef || rest
    push line
    'execio 1 diskw ' fileo
  end /* non-eof processing */
end /* whole file processing */
'execio 0 diskw' fileo '(FINIS'
---------------------------------------------------------------------

This may have some fatal flaws if generalized, but it has worked well for
us for several years....  Hope it's of some use.

                                            Dick Atlee
                                            Consulting Staff
                                            University of Maryland