Giovanni Cerquone wrote:
> So, if I understand well, if I take the IBM suppli IEFUJI and add the
> above code, I'll have the userid recorded in all the SMF records generated
> for the life of that Job?. Any IEFUJI with the above code you can share?
My UJI has a lot of unrelated things in it including some local control
blocks.
Here is a version that only sets the JMRUSEID field. I have assembled it to
make sure there are no syntax errors, but I have not actually used it. Note
that
IAZXJSAB sets a return code in R15, but this sample is not checking it.
Some of the needed MACRO's are in SYS1.MODGEN.
Richard
IEFUJI CSECT
IEFUJI AMODE 31
IEFUJI RMODE ANY
YREGS ,
IEFUJI CSECT
SAVE (14,12),,*
LR R11,R1 Copy parm reg
USING PARMAREA,R11 Indicate base for PARMAREA
SPACE 1
L R2,PARMEPRM Common exit parm area
USING JMR,R2
*
* Copy jobs USERID to JMR USERID so it will show up
* in the JOB related SMF records
*
IAZXJSAB READ,USERID=JMRUSEID Copy USERID to JMR
DROP R2
RETURN (14,12),RC=0
EJECT
PARMAREA DSECT Parms passed in reg 1
PARMEPRM DS A Ptr to common exit parameter area
PARMPROG DS A Ptr to programmer name field
PARMJOBC DS A Ptr to job priority
PARMACCT DS A Ptr to job accounting fields
EJECT
IHAPSA ,
IKJTCB ,
IHASTCB ,
IHAASCB ,
IHAASSB ,
IAZJSAB ,
IEFJMR ,
END
----------------------------------------------------------------------
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
