I was able to get the documented method to work on a less complex program. PDS86 has 4 assemblies, each of which defines a WORKAREA DSECT. Thus, there are 4 sets of SYM records for WORKAREA. Apparently, TEST can not handle this situation. My work around was to generate separate EQUATE's for each DSECT symbol.
EQUATE WORKAREA 7R% EQUATE MAINSAVE WORKAREA+0 EQUATE VALSAVE WORKAREA+48 EQUATE ESDIDRSV WORKAREA+48 EQUATE R14SAVE WORKAREA+90 EQUATE R6SAVE WORKAREA+94 ... Thanks for your help. Regards, John K On Mon, Mar 11, 2019 at 11:55 AM Janko Kalinic <[email protected]> wrote: > ? > IKJ57280I R6SAVE NOT IN INTERNAL SYMBOL TABLE FOR PDS86 . PDSMAIN > > On Mon, Mar 11, 2019 at 11:32 AM Tony Harminc <[email protected]> wrote: > >> On Mon, 11 Mar 2019 at 11:49, Janko Kalinic <[email protected]> >> wrote: >> >> > test 'ad.cmdlib(pds86)' cp >> > IKJ57090A ENTER COMMAND FOR CP >> > xispmode >> > TEST >> > at pds86.pdsinit.initaddr >> > TEST >> > equate workarea 7r% >> >> Where is R7 pointing at this point? You haven't executed any of your >> code yet, it appears. EQUATE doesn't save symbolic names and resolve >> them later; it will use the value of R7 at the time you issue the >> EQUATE subcommand. >> >> > TEST >> > go >> > IKJ57024I AT PDS86.PDSINIT.INITADDR >> > TEST >> > l workarea >> > WORKAREA 00A7F400 >> > TEST >> > l r6save >> > IKJ57280I ADDRESS R6SAVE NOT FOUND+ >> > IKJ56703A REENTER THIS OPERAND - >> >> You didn't enter a ? to get the second level message. It could be >> something like "address is in protected storage". >> >> Tony H. >> >
