/*REXX -- Lower-case fix for lastnames, titles, etc. */ Address "ISREDIT";"MACRO" /* Created by David McRitchie, "The REXX Macros Toolbox", 1988/10/14 */ /* Content of LCFIX is by David McRitchie and subject to change */ /* without notice. LCFIX is an example and the content should be */ /* incorporated as desired within a more comprehensive macro for */ /* specific usage. */ /*********************************************************************/ /* "CONTROL ASIS" */ /*********************************************************************/ "CAPS OFF" /* Prior changes may have been something like this */ /* c all p'@' p'<' -- change all letters to lowercase */ /* c all p'@' prefix p'>' -- change 1st letter to uppercase */ /* see also is03.libr.clist(users1) for specific column changes*/ "C ALL NX 'II' WORD 'II'" "C ALL NX 'III' WORD 'III'" "C ALL NX 'IV' WORD 'IV'" "C ALL NX 'II' WORD 'II'" /* ------------- lastname fixup, activate the following ------*/ /* "C ALL NX prefix p'Mac<<<' p'Mac><<'" */ /* "C ALL NX prefix c'MAC' c'Mac'" */ /* "C ALL NX prefix p'Mc<<<' p'Mc><<'" */ /* "C ALL NX prefix c'Mc' c'Mc'" */ /* ------ fixup for some job titles -----------------*/ "C ALL NX word c'SYSTEMS PROGRAMM' 'SYSTEMS PROGRAMMER'" "C ALL NX word c'Systems Programm' 'Systems Programmer'" "C ALL NX word C'PROGRAMMER/ANALY' 'PROGRAMMER/ANALYST'" "C ALL NX word c'Programmer/analy' 'Programmer/Analyst'" "C ALL NX word c'SYSTEMS PROGR' 'SYSTEMS PROGRAMMER'" "C ALL NX word c'Systems Progr' 'Systems Programmer'" "C ALL NX word c'PROGRAMMER/AN' 'PROGRAMMER/ANALYST'" "C ALL NX word c'Programmer/An' 'Programmer/Analyst'"