JES2 z/OS 1.7 New Exit Question: NJE or Internal Reader

2006-05-30 Thread Smith, Sean M 
I am in the process of creating the new JES exits for exit 50, 54, 56 
57.  

 

First question: The problem I am running into is that in the original
exits, there was code to look at the PCE to determine if this was an NJE
or internal reader.  Since the PCE is not available to the USER I am
trying to figure out how to tell if the process is NJE or Internal
Reader.  Here is the original code:

 

 CLI   PCEID+0,PCENJEID   ARE WE NJE PROCESSOR ?  

 BNE   N_9000 N: GET OUT  

 CLI   PCEID+1,PCENSTID   NJE SYSOUT TRANSMITTER ?

 BNE   N_9000 N: GET OUT  

 

Here is what I have come up for the new exit:

 

 L R9,CCTINTRER9: IRE address   

 LTR   R9,R9  Are we a reader?  

 BNZ   J_0110 Y: Continue   

 

This code tests to see if there is a valid address for the $IRE control
block.  Does this make sense?  Is there a better way?  I am just
dreaming that there should be something in the $XPL that identifies the
process type?

 

Second question:  In the original code, the Name/Token service was used
to store the address of a GETMAINED area.  The original code (in exit 4)
used PCEUSER1 for the Name in the token requests.  Again I am faced with
having to use something else since the PCE is not available.  I was
thinking of just using the something static like the exit name if a 16
byte field.  This one seems pretty obvious but thought I would mention
it here for some feedback.

 

Sean Smith

Bank of America


--
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: JES2 z/OS 1.7 New Exit Question: NJE or Internal Reader

2006-05-30 Thread Smith, Sean M 
I am starting to figure this out a bit now.  I realized that the
$NJEWORK is included at the top of the $JRW, $JTW, $SRW and $STW.  So I
can use the P.DEVID to determine if this is an internal reader.
Curious though that the equates that are found in the $DCT after the
DCTDEVID are not present in the $NJEWORK.  Should I just use the equates
as defined in the $DCT in tests against the P.DEVID like as follows?
 CLI   JRWDEVID,DCTINRID   INTERNAL READER?
 BNE   J_9000  N: Exit

Sean Smith
Bank of America

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