At 08:24 -0500 on 09/30/2005, Adam Floro wrote about Re: JES2 Exit6 -
Changing Class= Based on PGM=:
MSG901 prints out in my listing ok, so it found the 'PGM=' key (hex 8A) in
the C/I text string.
CLC 3(6,R1),=X'C9C5C6C2D9F1' PROGRAM FOUND?
Here's where the whole thing goes to hell in a handbasket. As a test, I'm
using program IEFBR14 and checking only for 'IEFBR1'. Later I will check
for the real program (OLQ). Anyway, what I get is:
10.48.09 JOB08625 ---- THURSDAY, 29 SEP 2005 ----
10.48.09 JOB08625 $HASP900 FOUND EXEC KEY.
10.48.09 JOB08625 $HASP901 FOUND PGM= KEY.
10.48.11 JOB08625 IEA794I SVC DUMP HAS CAPTURED: 395
395 DUMPID=008 REQUESTED BY JOB (JES2 )
395 DUMP TITLE=CONVERTER
ABENDED,ISSUER=IEFCNREX,ERRCSECT=IEFCNWRT,
10.48.11 JOB08625 IEFC683I CONVERTER TERMINATED DUE TO S0C4 ABEND
REASON=00000010
10.48.11 JOB08625 $HASP904 CONVERSION COMPLETE.
I've tried various versions of the abending CLC command and am
getting nowhere.
It's as if the C/I text is not as expected.
Try putting a LR R10,R1 before the $$WTO and use this R10 in the CLC
- I think the $$WTO is destroying your R1 value so preserve it in R10
(which is safe to use since it will then get used for the JCT
Address).
----------------------------------------------------------------------
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
