That finally worked. I now can move on with my development. Thanks again to everyone who helped.
John -----Original Message----- From: IBM Mainframe Assembler List [mailto:[email protected]] On Behalf Of Jon Perryman Sent: Thursday, February 07, 2013 11:34 PM To: [email protected] Subject: Re: OPSYN self execution The problem is the RELDC OPSYN. You don't have an opcode or an OPSYN for RELDC so why are you undefining an opcode that is not defined? I believe you actually want DC OPSYN REALDC which will revert DC back to the real opcode. I think (not positive) that DC OPSYN will cause unknown opcode for DC. Regards, Jon Perryman. ________________________________ From: Bodoh John Robert [Contractor] <[email protected]> To: [email protected] Sent: Thu, February 7, 2013 2:46:23 PM Subject: Re: OPSYN self execution Sorry it has taken so long to get back to this but I haven't had the time. I still cannot get the code to undefine the DC macro. As you can see, after the RELDEL macro is issued, the DC statement should use the assembler DC instruction but it still invokes the RELDC macro. I don't know what I am doing wrong: Loc Object Code Addr1 Addr2 Stmt Source Statement 1 * Macro to redefine DC. 2 MACRO 3 &LABEL RELSTART , 4 REALDC OPSYN DC 5 DC OPSYN RELDC 6 MEND 7 * Macro that replaces DC 8 MACRO 9 &LABEL RELDC , 10 REALDC &SYSLIST(1) 11 MEND 12 * Macro to restore DC. 13 MACRO , 14 &LABEL RELEND 15 RELDC OPSYN , 16 MEND 18 * Test program for RELDC. 000000 00000 00009 19 TESTREL CSECT 20 RELSTART 21+REALDC OPSYN DC 22+DC OPSYN RELDC 23 REL1 DC C'Here' 000000 C8859985 24+ REALDC C'Here' 25 * Reset RELDC back to DC. 26 RELEND 27+RELDC OPSYN , 28 UNREL1 DC C'There' 000004 E388859985 29+ REALDC C'There' 30 END John
