/* Change all lowercase to UPPPERCASE (REXX) */ ADDRESS "ISREDIT";"MACRO (ADDPARM)" /* --------CONTROL ASIS ----------*/ /* DESCRIPTION: CHANGE ALL LOWERCASE TO UPPERCASE */ /* PURPOSE: THE ANTITHESIS OF THE EDIT CLIST MACRO @SMALLS */ /* MOST TSO USERS WOULD USE THE PICTURE FORM */ /* OF THE CHANGE COMMAND THEMSELVES */ /* */ /* ALTHOUGH NOT USED/NEEDED IN THIS PROCEDURE, IF exec REQUIRES */ /* CAPITALS FOR A PARAMETER IT CAN OBTAIN THEM THUSLY: */ /* -- PARM1 = TRANSLATE(PARM1) */ /* 1985/09/17 created by David McRitchie, "The REXX Macros Toolbox" */ /* 1994/06/01 converted to REXX and removed AUTOSAVE OFF. */ "(MEMNAME) = MEMBER " "CHANGE ALL" addparm "P'<' P'>'" CC = RC IF cc = 0 then do IF ADDPARM \= "" then do ZEDSMSG = "uppercased" addparm ZEDLMSG = "Have converted range" addparm "from lower", "to UPPER case" Address "ISPEXEC" "SETMSG MSG(ISRZ000)" EXIT 0 END END if CC = 4 then do ZEDSMSG = "NOT LOWERCASE" addparm ZEDLMSG = "no effect caused by -- ", "CHANGE ALL" addparm "P'<' P'>'" Address "ISPEXEC" " SETMSG MSG(ISRZ000)" EXIT 0 END /***** YOU MUST SAVE MEMBER AS NAME THAT YOU WANT*****/ ZEDSMSG = "rc="cc" COMPLETED" ZEDLMSG = "member="MEMNAME" changed by CHANGE ALL", ADDPARM "p'<' p'>' " Address "ISPEXEC" " SETMSG MSG(ISRZ000)" /***** YOU MUST SAVE MEMBER AS NAME THAT YOU WANT*****/ ZEDSMSG = "rc="cc" COMPLETED" ZEDLMSG = "member="MEMNAME" changed by CHANGE ALL", ADDPARM "p'<' p'>' " Address "ISPEXEC" " SETMSG MSG(ISRZ000)" "LINE_BEFORE .ZFIRST = NOTELINE "" " , "=================================================================""" "LINE_BEFORE .ZFIRST = NOTELINE "" " , "ALL 'lowercase' have been changed to 'UPPERCASE'""" "LINE_BEFORE .ZFIRST = NOTELINE "" " , "actually invoked CHANGE ALL" addparm "p'<' p'>'""" "LINE_BEFORE .ZFIRST = NOTELINE "" " , ".labels X|NX are also acceptable on the CHANGE command""" "LINE_BEFORE .ZFIRST = NOTELINE "" " , "================================================================""" "LINE_BEFORE .ZFIRST = NOTELINE "" " , "The antithesis of @CAPS is @SMALLS, which does do more for you.""" "LINE_BEFORE .ZFIRST = NOTELINE "" " , "================================================================""" "LINE_BEFORE .ZFIRST = NOTELINE "" " , "You may now wish to invoke 'CAPS ON' """ "LINE_BEFORE .ZFIRST = NOTELINE "" " , "==================================================================""" "LINE_BEFORE .ZFIRST = NOTELINE "" """ "LOC 0 " Address "ISPEXEC" " SETMSG MSG(ISRZ000)"