MACRO 00001000&NAME RELOC 00002000 ENTRY &NAME 00003000&NAME DS 0H 00004000 USING *,R12 00005000 ENTER 00006000 SL R12,=A(&NAME-&SYSECT) 00007000 USING &SYSECT,R12 00008000 MEND 00009000