/* REXX
    Edit macro to change a label prefix (and all of its referents) to
    one specified by the caller.
    Usage:  @NEWPREF DC  {{put cursor on label-line to be chgd to DC}}
*/
address ISREDIT
"MACRO (NEWPREF CASE)"

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              */
if $$TCASE = "ASIS" then ##TCASE = "CAPS OFF"
                    else ##TCASE = $$TCASE

parse upper var newpref newpref        /* shift to uppercase         */
"(data) = LINE .zcsr"
parse var data word1 ":" .
word1 = Strip(word1)
parse var word1 oldpref "_" oldlbl
tgt = newpref"_"oldlbl
(##TCASE)
"C ALL NX " word1 tgt
"CAPS OFF"
exit                                   /*@ NEWPREF                   */