Cliff The original MODADDR keyword pointed to the load point of the module and not the required address of the load point (ie one level of dereferencing out).
As the first four bytes of the module were probably some sort of branch around the eye catch instruction and was not greater than x'7Fxxxxxx' - for example x'47F0xxxx', CSVDYNEX thought that the caller had passed a 24bit address instead of the required 31bit. > On 8 Jan 2014, at 18:38, "Clifford McNeill" <[email protected]> wrote: > > I'd be interested if this fixes the problem. I looked up the CSVDYNEX RC 8 > and RSN 827 and it says a AMODE=31 exit routine is being added to an exit > that requires its routines to be AMODE=24. > > Cliff McNeill > > > >> Date: Wed, 8 Jan 2014 17:08:08 +0000 >> From: [email protected] >> Subject: Re: Error Adding CSVLLIX1 using CSVDYNEX with modaddr paramter >> To: [email protected] >> >> From the CSVDYNEX doc : >> >> "MODADDR specifies a fullword (or a register containing the address of a >> fullword) that contains the address of the exit routine to be added." >> >> I suggest you code "MODADDR=LLA_EXIT" in your CSVDYNEX macro specification. >> >> Rob Scott >> Lead Developer >> Rocket Software >> 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA >> Tel: +1.781.684.2305 >> Email: [email protected] >> Web: www.rocketsoftware.com >> >> >> -----Original Message----- >> From: IBM Mainframe Discussion List [mailto:[email protected]] On >> Behalf Of MichealButz >> Sent: 08 January 2014 16:46 >> To: [email protected] >> Subject: Error Adding CSVLLIX1 using CSVDYNEX with modaddr paramter >> >> Hi, >> >> >> >> I am getting the following return code when try to add CSVLLIX1 with the >> moaddr parameter of CSVDYNEX >> >> The AMODE of the program is correct = 31 As The high order bit of the >> address is one >> >> With the dsname parameter I get a RC of 0 R15 = 8 , R0 >> = 827 >> >> Below is my code >> >> >> >> * Add LLA exit CSVLLIX1 in case module is LLA MA >> >> * >> >> LOAD EP=CSVLLIX1 >> >> ST R0,LLA_EXIT >> >> L R9,PSAAOLD-PSA(,R0) >> >> ZZ USING ASCB,R9 >> >> ICM R8,B'1111',ZZ.ASCBJBNI >> >> BZ STARTTSK >> >> MVC JOB_NAME,0(R8) >> >> B PRIME_JOB >> >> STARTTSK DS 0H >> >> ICM R8,B'1111',ZZ.ASCBJBNS >> >> MVC JOB_NAME,0(R8) >> >> PRIME_JOB DS 0H >> >> LA R8,JOB_NAME >> >> * >> >> L R10,LLA_EXIT >> >> CSVDYNEX REQUEST=ADD, >> >> EXITNAME=CSVLLIX1, >> >> STATE=ACTIVE, >> >> MODNAME=CSVLLIX1, >> >> MODADDR=(R10), >> >> JOBNAME=(R8), >> >> POS=FIRST, >> >> RETCODE=RETCODE, >> >> RSNCODE=RSNCODE,MF=(E,DYN_PARM) >> >> >> >> Program defination >> >> >> >> Name Prompt Alias-of Size TTR AC AM >> RM >> >> . CSVLLIX1 00000060 00480B 01 31 >> ANY >> >> >> >> >> >> >> >> R15 = 08 >> >> >> >> R0 = xxxx0827 >> >> >> >> >> >> >> >> CSVDYNEXRSNBADAMODE >> >> >> >> Meaning: Program error. For an ADD, >> >> MODIFY, or REPLACE request: one of the >> >> following occurred: >> >> >> >> ° An exit routine with AMODE=31 is >> >> being added to an exit that requires >> >> that its exit routines have AMODE=24. >> >> >> >> ° An exit routine with AMODE=24 is >> >> being added to an exit that requires >> >> that its exit routines have AMODE=31. >> >> >> >> Action: Make sure the AMODE attributes of >> >> the exit routine to be added conform to >> >> the exit definition. >> >> >> >> >> >> 2.5.3 Exit Routine Environment >> >> >> >> >> >> CSVLLIX1 receives control in the following environment: >> >> >> >> >> >> . Enabled for interrupts. >> >> >> >> >> >> . In supervisor state and in primary ASC mode with the primary ASID equal to >> the home ASID. >> >> >> >> >> >> . In AMODE 31 and RMODE ANY. >> >> >> >> >> >> . Under a content supervisor's SVRB within the user's address space. >> >> >> >> >> >> . With no locks or ENQs held. >> >> >> >> >> >> . Under any task that might issue a LINK, LOAD, XCTL, or ATTACH macro. >> >> >> >> >> >> >> >> Subtopics: >> >> >> >> >> >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, send email >> to [email protected] with the message: INFO IBM-MAIN >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
