/* REXX
       Edit macro to tag a 'return' line with the name of its
         entry-point.  The return line must have a pro-forma comment
         beginning 'slash-start-yat'.
*/
address ISREDIT
"macro (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)"
if $$TCASE = "ASIS" then ##TCASE = "CAPS OFF"
                    else ##TCASE = $$TCASE

"(data) = LINE .zcsr"                  /* get text for this line     */
parse var data word1 ":" .             /* parse first word           */
tgt = "'@ "word1"'"                    /* for 'return' line          */
"F 'return' 1 20"
(##TCASE)
"C '@'  " tgt                          /* load the 'return' line     */
if $$TCASE ^= "CAPS" then exit
"F ALL" word1
"C ALL *" word1                        /* shifts to CAPS, maybe      */
"CAPS OFF"
exit