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
