JES2PARM:
LOAD(ACFJ2ITF) STOR=CSA /* ACF2 */
LOAD(ADPEXIT2) STOR=PVT /* LOCAL */
LOAD(ADPEXIT3) /* LOCAL */
LOAD(REPEXIT) /* JES2 $REPEXIT & $ADDEXIT COMMANDS */
LOAD(ADPEXIT6) /* LOCAL */
LOAD(ADPEXI20) STOR=PVT /* LOCAL */
LOAD(ADPEXI50) STOR=CSA /* LOCAL */
LOAD(ADPEXI52) STOR=CSA /* LOCAL */
LOAD(ADPEXI53) STOR=CSA /* LOCAL */
LOAD(ACFJ2USR) STOR=CSA /* ACF2 USER EXIT FOR JOB CARD VALIDATION */
EXIT2 ROUTINE=(ADPEX2),disable
EXIT3 ROUTINE=(ADPEX3),DISABLE
EXIT4 ROUTINE=(ACFEXIT4)
EXIT5 ROUTINE=(EXIT05),TRACE=NO
EXIT6 ROUTINE=(EXIT06),DISABLE
EXIT20 ROUTINE=(ADPEX20),DISABLE
EXIT24 ROUTINE=(ACFEXT24)
EXIT26 ROUTINE=(ACFEXT26)
EXIT26 ROUTINE=(ACFEXT26)
EXIT31 ROUTINE=(ACFEXT31)
EXIT34 ROUTINE=(ACFEXT34)
EXIT46 ROUTINE=(ACFEXT46)
EXIT50 ROUTINE=(ADPEX50),ENABLE
EXIT52 ROUTINE=(ADPEX52),ENABLE
EXIT53 ROUTINE=(ADPEX53),ENABLE
EXIT54 ROUTINE=(ACFEXT54)
EXIT56 ROUTINE=(ACFEXT56)
EXIT223 ROUTINE=(ACFJ2PRE),ENABLE
EXIT224 ROUTINE=(ACFJ2PST),ENABLE
EXIT225 ROUTINE=(ACFEX225)
EXIT227 ROUTINE=(ACFEX227),DISABLE
EXIT228 ROUTINE=(ACFJ2PRE),ENABLE
EXIT229 ROUTINE=(ACFJ2PST),ENABLE
LOADMOD(ACFJ2ITF) ADDRESS=077DC150,LENGTH=007EB0,
ROUTINES=(ACFEXIT2,ACFEXIT4,
$$$X2186,ACFEXT20,$$$X2276,ACFEXT24,
ACFEXT26,ACFEXT31,ACFEXT34,ACFEXT46,
ACFEXT52,ACFEXT54,ACFEXT50,ACFEXT56,
ACFEX225,ACFJ2SUB,$$$X5295,$$$X5336,
$$$X5371,ACFEX227,ACFJ2VLD,ACFJ2VAL,
$$$X6101,$$$X6136,$$$X6165),
RMODE=ANY,SPLEVEL=CHECK,STORAGE=CSA,
TABLES=()
DSF COMMAND EXECUTED '$DLOAD(ACFJ2USR)
M4 $IKJACNU TPWI1IP1
FJ2USR)
LOADMOD(ACFJ2USR) 559
LOADMOD(ACFJ2USR) ADDRESS=07A549D0,LENGTH=000630,
ROUTINES=(ACFJ2PRE,ACFJ2PST,
ACFJ2PRU,ACFJ2PSU),RMODE=ANY,
SPLEVEL=CHECK,STORAGE=CSA,TABLES=()
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Big Iron
Sent: Friday, October 31, 2008 12:33 PM
To: [email protected]
Subject: Re: Need Help ACF2 JES2 exits
Do you have all the other ACF2 JES2 exits configured as documented?
EXIT 228 & 229 aren't standard JES2 exits; they are invoked from other
ACF2 JES2 exits, so if the calling EXITs aren't installed, EXITs 228 &
229
won't be called.
Bill
On Fri, 31 Oct 2008 09:22:52 -0600, William F Besnier <[EMAIL PROTECTED]>
wrote:
>$DLOAD(ACFJ2USR),ROUTINES
>$HASP819 LOADMOD(ACFJ2USR) 615
>$HASP819 LOADMOD(ACFJ2USR) ROUTINES=(ACFJ2PRE=07ADB9E8,
>$HASP819 ACFJ2PST=07ADBA20,ACFJ2PRU=07ADBA60,
>$HASP819 ACFJ2PSU=07ADBAA0)
>$DEXIT(228)
>$HASP823 EXIT(228) 619
>$HASP823 EXIT(228) STATUS=ENABLED,ENVIRON=USER,
>$HASP823 ROUTINES=(ACFJ2PRU),SPLEVEL=CHECK,TRACE=YES,
>$HASP823 USECOUNT=0
>$DEXIT(229)
>$HASP823 EXIT(229) 622
>$HASP823 EXIT(229) STATUS=ENABLED,ENVIRON=USER,
>$HASP823 ROUTINES=(ACFJ2PSU),SPLEVEL=CHECK,TRACE=YES,
>$HASP823 USECOUNT=0
>
>-----Original Message-----
>From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
>Of Jakubek, Jan
>Sent: Friday, October 31, 2008 9:02 AM
>To: [email protected]
>Subject: Re: Need Help ACF2 JES2 exits
>
>Verify with JES2 commands:
>
>$D LOAD(ACFJ2USR),ROUTINES
>$D EXIT(228)
>$D EXIT(229)
>
>-----Original Message-----
>Yes, jesparms is;
>
>LOAD(ACFJ2USR) STOR=CSA /* ACF2 USER EXIT FOR JOB CARD VALIDATION */
>EXIT225 ROUTINE=(ACFEX225)
>EXIT227 ROUTINE=(ACFEX227),DISABLE
>EXIT228 ROUTINE=(ACFJ2PRU),ENABLE
>EXIT229 ROUTINE=(ACFJ2PSU),ENABLE
>
>> I am a contractor working for a state agency in the process of
>upgrading
>to
>> z/OS 1.9 via z/OS 1.7; the problem I am having is with the
>implementation
>of
>> ACF2 JES2 exit ACFJ2RSU/ACFJ2PSU, I have installed as documented, but,
>it
>> appears the validation exits are not being invoked. I am not ACF2
>proficient
>> and the client does not have a CA support subscription.
>
>Do you have it enabled in your JES2 parameters? Check your parmlib
>member.
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
