> -----Original Message----- > From: IBM Mainframe Assembler List [mailto:ASSEMBLER- > [email protected]] On Behalf Of Scott Ford > Sent: Thursday, 11 April 2013 10:07 a.m. > To: [email protected] > Subject: Baseless problem > > Guys, > > I am in the process of trying to understand and use baseless Assembler. I > read through Ed's Jumpify Share presentation so i am trying to read and > learn...I am not asking anyone to write my code...just tell me where I am > wrong ..
You have two problems. First, you're not setting register 12 correctly. The AHI should actually be "AHI R12,CONST-SAMPL001". This is because R15 points to the beginning of your CSECT, not to BEGIN, when the program is entered. Alternatively, for clarity (and to save an instruction), you could replace both the LR and AHI with "LARL R12,CONST" Secondly, add a LTORG instruction after the "CONST DC 0D", and add "USING CONST,R12" after the AHI (or LARL). That should clear up the "no active USING". Cheers, Allen > SAMPL001 CSECT > SAMPL001 AMODE 31 > SAMPL001 RMODE ANY > EJECT > YREGS > PRINT OFF > SYSSTATE ARCHLVL=2 > PRINT ON > J BEGIN > DC C'cccccccccccccc' > DC C'cccccccccccccccccccccccccccccccc' > DC C'Copyright (C), ccccccccccccccccc' > DC C'All rights reserved' > BEGIN DS 0H > SAVE (14,12) save regs coming in > LR R12,R15 > AHI R12,CONST-BEGIN > ...... > ...... Failing GETMAIN for no using here ....... > > CONST DC 0D > DYNAMIC DSECT > SAVEAREA DS 18F register save area PARMLIST DS F > ......... > LTORG , > IHAPSA > IHAASCB > IHAASXB > IRREVXP > IEANTASM > IHAACEE > IKJTSB LIST=YES,EXT=YES > END , > > 000138 0A23 201+ SVC 35 > 00013A 1B99 202 SR R9,R9 > 00013C 1B88 203 SR R8,R8 > 00013E 4100 04A4 004A4 204 LA R0,DYNSIZE > 206 GETMAIN RC,LV=(0),SP=229 > 000142 208+ DS 0H > 000142 209+IHB0009C DS 0H > 000142 0000 0000 00000 210+ L > 15,=AL1(B'00000000',(0), > + > ** ASMA307E No active USING for operand > =AL1(B'00000000',(0),(229),B'00000000') > ** ASMA435I Record 2422 in SYS1.MACLIB(GETMAIN) on volume: SDRES1 > > > I know i misunderstood something...any pointers I would be grateful for. > > Regards, > Scott J Ford > Software Engineer > http://www.identityforge.com/
