I modified cbt file 192 Member GRECOV
The members have a MODULE Macro it established a base reg and CSECT work area etc The &BASE was not sublist ( for more than one base reg ) I modified that as GRECOV went to two base regs The sublist code was after the module macro had established a CSECT name However since upon entry to the module macro as ( TONY H) pointed out there was no CSECT &SYSECT was null Thanks > On Dec 20, 2023, at 3:28 AM, Binyamin Dissen <bdis...@dissensoftware.com> > wrote: > > You have been given good advice. > > Create a minimal program that shows the problem. Based on the expansion shown, > all you need is register equates and the CSECT statement. > > Source should be: > > COPY macroname - to place it in the listing > WHATEVER CSECT > USING *,R15 > macroname parameters > register equates > END > > On Tue, 19 Dec 2023 21:18:05 -0500 Joseph Reichman <reichman...@gmail.com> > wrote: > > :>I tried it and and &sysect generated a value > :> > :>> On Dec 19, 2023, at 8:17?PM, Tony Thigpen <t...@vse2pdf.com> wrote: > :>> > :>> ?Did you ever establish the CSECT name with a CSECT statement before your > macro? > :>> > :>> Tony Thigpen > :>> > :>> Joe Reichman wrote on 12/19/23 6:33 PM: > :>>> 2420+ PRINT ON > :>>> 000050 B240 00E0 2421+ BAKR 14,0 > :>>> 000054 51CF 0000 00000 2422+ LAE 12,0(15,0) > :>>> 000058 41A0 CFFF 00FFF 2423+ LA 10,4095(,12) > :>>> 00005C 41A0 A001 00001 2424+ LA 10,1(,10) > :>>> 000060 B247 0000 2425+ MSTA 0 > :>>> 2426+ DROP 15 > :>>> 2427+ MHELP 16 > :>>> 2428+ USING ,12,10 > :>>> ** ASMA074E Illegal syntax in expression - ,12 > :>>> Here is the macro code > :>>> DROP 15 DROP ADDRESSING ON ENTRY POINT > :>>> MHELP 16 > :>>> USING &SYSECT,&USING SET ADDRESSING ON BASE REGISTER(SJOER > :>>> Here is the MHELP dump clearly you can see that &SYSECT is GRECOV > :>>> THANKS > :>>> //MHELP ENTRY TO STORAGE MODE > :>>> ////SYSTEM PARAMETERS: > :>>> //SYSVAR NAME LNTH VALUE (5 > :>>> //SYSNDX 004 0005 > :>>> //SYSECT 006 GRECOV > :>>> //SYSLOC 006 GRECOV > :>>> //SYSTIME 005 18.04 > :>>> //SYSDATE 008 12/19/23 > :>>> -----Original Message----- > :>>> From: IBM Mainframe Assembler List <ASSEMBLER-LIST@LISTSERV.UGA.EDU> On > :>>> Behalf Of Binyamin Dissen > :>>> Sent: Tuesday, December 19, 2023 6:27 PM > :>>> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU > :>>> Subject: Re: Setting &sysect as CSECT or on using > :>>> You know what you failed to include in the post. > :>>> 'nuff said. > :>>> On Tue, 19 Dec 2023 18:12:37 -0500 Joseph Reichman > <reichman...@gmail.com> > :>>> wrote: > :>>> :>Hi > :>>> :> > :>>> :>When I use the following > :>>> :> Using &sysect,12,10 > :>>> :> > :>>> :>&sysect comes up blank even though I know it had been set :>Thanks > :>>> -- > :>>> Binyamin Dissen <bdis...@dissensoftware.com> > http://www.dissensoftware.com > :>>> Director, Dissen Software, Bar & Grill - Israel > > -- > Binyamin Dissen <bdis...@dissensoftware.com> > http://www.dissensoftware.com > > Director, Dissen Software, Bar & Grill - Israel
