Re: z/OS 1.7 Upgrade of JES2 Exit 52

2006-10-24 Thread John C. Wolf
I think that you should try a slip trap for 0C4 on the load module.
That way the slip does the dump before the estay gets control.
I have shoot many JES2 exit bugs this way. 
Works very well.

John wolf sysprog University of cincinnati voice 513-556-0009

--
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


z/OS 1.7 Upgrade of JES2 Exit 52

2006-10-12 Thread Kopischke, David G.
Greetings,
   I am trying to convert a JES2 EXIT2 to EXIT52. When I enable the
exit,
it gives me:

*** INCORRECT JCL/JECL RETURNED BY EXIT 2/52
**
$HASP106 JOB DELETED BY JES2 OR CANCELLED BY OPERATOR BEFORE EXECUTION

   This exit is supposed to scan JOB cards searching for a USER=
parameter. If
it doesn't find one, it puts a comma at the end of the last JOB card and
inserts a line with the USER= parameter on it. The USERID is formatted
based
on the first 5 characters of the JOB name.

   I get the comma on the last JOB card, but there's something about the
inserted
card that JES2 doesn't like.

 MVC X052JXWR,USRCARD
USE5JOB  MVC X052JXWR+8(5),JRWSJNAM

...

USRCARD  DCCL8'// USER='

   The original exit used JCTJNAME for the JOB name. I don't see that in
the new
macros, so I found JRWSJNAM that looks to hold the same information. I'm
thinking
this field is the problem, but I'm not certain and time is my enemy.

Any thoughts are appreciated.

Thanks !


--
This e-mail transmission may contain information that is proprietary, 
privileged and/or confidential and is intended exclusively for the person(s) to 
whom it is addressed. Any use, copying, retention or disclosure by any person 
other than the intended recipient or the intended recipient's designees is 
strictly prohibited. If you are not the intended recipient or their designee, 
please notify the sender immediately by return e-mail and delete all copies. 
OppenheimerFunds may, at its sole discretion, monitor, review, retain and/or 
disclose the content of all email communications.
==

--
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


Re: z/OS 1.7 Upgrade of JES2 Exit 52

2006-10-12 Thread Dave Kopischke
On Thu, 12 Oct 2006 13:50:11 -0500, Peter DeFabritus 
[EMAIL PROTECTED] wrote:

David, field X052JXWR is a pointer to the card you want to add.  So you
need to do something like:

 L R2,X052JXWR
 MVC   0(80,R2),USRCARD

USRCARD  DC   CL80'//   USER='

As you see, I would also move a full 80 bytes.

Peter,
   Thanks for your help.

   I made the change and it still gives me the same error. I'm thinking I 
need to refresh this exit, but I'm not finding anything in the manuals 
that explain how to do that. I disabled the exit and refreshed LINKLIST 
and LLA, but I don't think JES is getting the updated exit. Do I have to 
stop and restart JES to get the new exit ??? Or is there some way to 
dynamically refresh the exit ???

Thanks again,
Dave K.

--
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


Re: z/OS 1.7 Upgrade of JES2 Exit 52

2006-10-12 Thread Gibney, Dave
   I just finished upgrading our exits. I stuck with IPL's for the first
day or two. Then I got fed up and installed the $REPEXIT/$ADDEXIT jes2
exit 5 from the CBT tape. 
   Much easier, I should have installed this exit 5 years ago.


Dave Gibney  [EMAIL PROTECTED]
System Programmer(509) 335-7359
Information Technology
Washington State University
Pullman, WA 99164-1222


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
 Behalf Of Peter DeFabritus
 Sent: Thursday, October 12, 2006 12:59 PM
 To: IBM-MAIN@BAMA.UA.EDU
 Subject: Re: z/OS 1.7 Upgrade of JES2 Exit 52
 
 Exit 52 is in the user environment, in common storage.  It requires an
IPL
 to implement any changes.  I checked this out with IBM for exit 54.
 
 On Thu, 12 Oct 2006 14:56:20 -0500, Dave Kopischke
 [EMAIL PROTECTED] wrote:
 
 On Thu, 12 Oct 2006 13:50:11 -0500, Peter DeFabritus
 [EMAIL PROTECTED] wrote:
 
 David, field X052JXWR is a pointer to the card you want to add.  So
you
 need to do something like:
 
  L R2,X052JXWR
  MVC   0(80,R2),USRCARD
 
 USRCARD  DC   CL80'//   USER='
 
 As you see, I would also move a full 80 bytes.
 
 Peter,
Thanks for your help.
 
I made the change and it still gives me the same error. I'm
thinking I
 need to refresh this exit, but I'm not finding anything in the
manuals
 that explain how to do that. I disabled the exit and refreshed
LINKLIST
 and LLA, but I don't think JES is getting the updated exit. Do I have
to
 stop and restart JES to get the new exit ??? Or is there some way to
 dynamically refresh the exit ???
 
 Thanks again,
 Dave K.
 

--
 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

--
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


Re: z/OS 1.7 Upgrade of JES2 Exit 52

2006-10-12 Thread Dave Kopischke
On Thu, 12 Oct 2006 13:13:07 -0700, Gibney, Dave [EMAIL PROTECTED] wrote:

   I just finished upgrading our exits. I stuck with IPL's for the first
day or two.

The good news is I made the changes and it's no longer giving me those 
error messages.

The bad news is, now I'm getting S0C4's. I don't know where it's wandering 
off, but the challenge continues.

--
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


Re: z/OS 1.7 Upgrade of JES2 Exit 52

2006-10-12 Thread Dave Kopischke
On Thu, 12 Oct 2006 14:30:05 -0700, Gibney, Dave [EMAIL PROTECTED] wrote:

$TRACE can be very helpful :) Just remember that it uses R0,R1,R14,R15
:))


I tried that too, but I couldn't get it to work. The manuals say to turn 
trace ID 13 on for EXIT52, so I did. I set TRACE=YES on EXIT52 and got 
nothing. I was able to trace the old EXIT2, but not EXIT52 for some reason.

--
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