Hmmm ok. my production jes has this: DESTID(VPRT1) DEST=U1 DESTID(INB) DEST=N67 DESTID(PEIA400) DEST=N68 DESTID(VPRT2) DEST=U2 DESTID(VPRT3) DEST=U3 DESTID(VPRT4) DEST=U4 DESTID(VPRT5) DEST=U5 DESTID(VPRT6) DEST=U6 DESTID(VPRT7) DEST=U7 DESTID(VPRT8) DEST=U8 DESTID(VPRT9) DEST=U9 .....
But onepac only has the first line : DESTID(VPRT1) DEST=U1 So maybe that field is seen as Uxxxx instead of VPRTxxxx on my prod lpar?? And in the assembly, I have vol=ser on all relevant packs and put the correct respack when assembling... I verify that module goes to correct LINKLIB, etc. Anne D. Crabtree System Programmer WV Office of Technology Data Center 1900 Kanawha Blvd East Bldg 6, Room B-110 Charleston, WV 25305 (304)558-5914 ext 58292 (304)558-1441 fax -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Mark Zelden Sent: Monday, February 25, 2013 10:20 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES exit 6 On Mon, 25 Feb 2013 10:03:03 -0500, Crabtree, Anne D <anne.d.crabt...@wv.gov> wrote: >I am trying to modify JES exit 6 so that jobs, starting with a particular >string and destination is to a particular partial string, get assigned a class >of F (jobname beginning with WE# and destination beginning with VPRTxxxx). I >also want to prohibit non SY users from using class Z. > >I modified our existing exit 6 and tested on our onepac system. It worked >great. However, when I tried to use the same module in our production lpar, >the class Z logic is working, but the class F will not work! I've tried for >the last two Sundays for hours! > >Yesterday, changed the module name and entry name so I could make sure it was >using the new module. $d exit(6) shows the new entry. I've compared JES2 >initialization members and cannot figure out why the same code works on one >but not the other. Does anyone have a suggestion on what else I can look at? > >I have a small window of opportunity each week to try and get this to work. >Thought about using the trace option but don't know enough about how to do it >so would have to read up on that. Would that be of any help? > >Here's the part of code that I changed: (I'm not the greatest assembler >programmer so be kind :)) > <snip> I didn't look at the code closely, but since it works in your onepack, could there be something different about that VPRTxxxx dest in the production JES2 that is keeping that compare from working. I'm also not a very good assembler programmer, but what I would do for something like this is blow up the exit at that point or set a slip and get a dump and see what's actually there. Is JCTPRRID really the correct field to look at for print dest? SYS1.SHASMAC($JCT) JCTPROUT DS 0F JOB PRINT ROUTE CODE JCTPRNOD DS H NODE NUMBER JCTPRRMT DS H REMOTE NUMBER SPACE 1 JCTPRRID DS CL8 PRINTER EBCDIC RMT/USERID SPACE 1 Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://expertanswercenter.techtarget.com/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
