The load module is in a PDS. test 'ad.cmdlib(pds86)' cp IKJ57090A ENTER COMMAND FOR CP xispmode TEST at pds86.pdsinit.initaddr TEST equate workarea 7r% TEST go IKJ57024I AT PDS86.PDSINIT.INITADDR TEST l workarea WORKAREA 00A7F400 TEST l r6save IKJ57280I ADDRESS R6SAVE NOT FOUND+ IKJ56703A REENTER THIS OPERAND -
On Mon, Mar 11, 2019 at 10:35 AM Seymour J Metz <[email protected]> wrote: > Could you post your session from the TEST command to the failing command? > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > ________________________________________ > From: IBM Mainframe Assembler List <[email protected]> on > behalf of Janko Kalinic <[email protected]> > Sent: Monday, March 11, 2019 11:20:06 AM > To: [email protected] > Subject: Re: TSO TEST EQUATE > > Yes, and when I browse the load module I see the SYM records. > > //ASM EXEC PGM=ASMA90,REGION=32M, > // PARM=(NORLD,RENT,TERM,OBJ,TEST, > // 'XREF(SHORT,UNREFS),SIZE(MAX,ABOVE)', > // 'SYSPARM(CSC-STL),FLAG(PAGE0)') > . . . > //LKED EXEC PGM=IEWL,REGION=32M, > // COND=((0,LT,PDSMAIN.ASM), > // (0,LT,SUBS.ASM), > // (0,LT,PARSE.ASM), > // (0,LT,DIALOG.ASM)), > // PARM='TEST,MAP,RENT,REUS,REFR,NCAL' > > On Mon, Mar 11, 2019 at 10:12 AM Seymour J Metz <[email protected]> wrote: > > > Did you assemble and bind (link) with TEST? > > > > > > -- > > Shmuel (Seymour J.) Metz > > http://mason.gmu.edu/~smetz3 > > > > ________________________________________ > > From: IBM Mainframe Assembler List <[email protected]> on > > behalf of Janko Kalinic <[email protected]> > > Sent: Monday, March 11, 2019 10:47 AM > > To: [email protected] > > Subject: TSO TEST EQUATE > > > > I can not access symbols in a DSECT after I establish addressability to > the > > DSECT as documented below. > > > > Regards, > > John K > > > > <snip from TSO/E Programming Guide> > > > > Symbols within DSECTs are available only if the DSECT name has been > defined > > with the EQUATE subcommand. For example, if NAME is a symbol in a DSECT > > named DATATBL, then to access the data associated with NAME, you would > > first > > have to determine the address to be used as a base address for the DSECT. > > (This is the address in the register on the assembler USING instruction.) > > If the address is in register 7, you can enter: equate datatbl 7r% This > > establishes addressability to the DSECT, allowing the symbol NAME and all > > other symbols in the DSECT to be accessed using the symbol. > > > > </snip> > > >
