/* REXX
    Edit macro to change a label (and all of its referents) to one
    specified by the caller.
*/
address ISREDIT
'macro (newlbl case trash)'
 
address ISPEXEC "VGET ($$TCASE)"
$$TCASE = Word(case $$TCASE 'CAPS',1)  /* Case specification is (in
                                          order of preference:)
                                           1. specified at invocation
                                           2. used for last run
                                           3. CAPS                   */
address ISPEXEC "VPUT ($$TCASE)"       /* store it away              */
 
parse upper var newlbl newlbl          /* shift to uppercase         */
"(data) = LINE .zcsr"
parse var data word1 ":" .
word1 = Strip(word1)
tgt = newlbl
($$TCASE)
"C ALL NX " word1 tgt
"ASIS"
exit