Re: Old code in JES Exit 6

2016-02-13 Thread Skip Robinson 
Just an observation that historically JES2 (and maybe JES3) have meticulously 
accompanied control block changes with macro label changes. For example, if a 
field changes from halfword to fullword, then the name is changed as well. The 
resulting user mod/exit assembly error is a huge red flag that customer code 
has to change. Somehow. Nothing is/would be worse than trying to debug errors 
resulting from unmarked control block changes. 

.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
jo.skip.robin...@att.net


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Ed Jaffe
> Sent: Friday, February 12, 2016 08:20 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [Bulk] Re: Old code in JES Exit 6
> 
> On 2/12/2016 5:55 AM, Staller, Allan wrote:
> > You have some code to write.
> > Look at "z/OS MVS Using the Functional Subsystem Interface"
> > SA38-0678-00 (for z/OS 2.1)
> >
> > More and more of the stuff that used to be in JES CB's is being moved to the
> FSS(SAPI)  and can only be obtained via this method.
> >
> > It is not too difficult to write, but the trick will be integrating it with 
> > your
> existing exit code.
> 
> The SSI cannot be used to access the needed work areas from within exit 6.
> 
> --
> Edward E Jaffe
> Phoenix Software International, Inc
> 831 Parkview Drive North
> El Segundo, CA 90245
> http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Old code in JES Exit 6

2016-02-12 Thread Gibney, David Allen,Jr 

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Geoff Rousell
> Sent: Friday, February 12, 2016 2:12 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Old code in JES Exit 6
> 
> 
> >The following code has been in our JES2 exit 6 since before I started (so 
> >like
> maybe 40 years :) ?). The intent is to cause jobs with special forms to print 
> on
> ordinary paper when their JCL fails.
> >
> >With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK.
> 
> 
> Dave,
> 
> It looks as if many of the fields have been move to two new local work areas,
> CIWORK / CIWORKB.
> 
> There's some comment in:
> 
> https://urldefense.proofpoint.com/v2/url?u=http-
> 3A__publibz.boulder.ibm.com_epubs_pdf_has2r900.pdf&d=CwIFaQ&c=C3ym
> e8gMkxg_ihJNXS06ZyWk4EJm8LdrrvxQb-
> Je7sw&r=u9g8rUevBoyCPAdo5sWE9w&m=s0N5wx2BcHnh0uTa5W9IOvznFNxn
> 0x6KnOdmJfipkSo&s=TxRV0hx29UiLf2pAHV8PE_5BRiJUaffUm-VykpAJZZc&e=
> (See Chapter 73)

Thanks Russell, there is a lot of info in that chapter. Now I am disappointed 
that this (Check out your JES Exits) didn't get at least a passing mention in 
the z/OS Migration book. Like in the chapter JES2 actions to preform before the 
first IPL of z/OS V2R1.

Still, I guess I should have known and looked myself. Or insisted on a SHARE 
trip :)

I need to more closely evaluate all our exits. 
(01,02,03,04,05,20,46,47,50,52,53,54,56,57). Fortunately, it can't be as big a 
deal as when I had to add the 5x series, as there was more IBM-MAIN buzz about 
that back then

> 
> And the data areas books shows, for example,
> 
> 
> 372  (174)  ADDRESS  4   CIWIOTAddress of 
> allocation IOT
> 
> Geoff Rousell
> IBM SE (not a JES2 expert, but found some internal comment...)
> 
> --
> 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

Re: Old code in JES Exit 6

2016-02-12 Thread Ed Jaffe 

On 2/12/2016 5:55 AM, Staller, Allan wrote:

You have some code to write.
Look at "z/OS MVS Using the Functional Subsystem Interface" SA38-0678-00 (for 
z/OS 2.1)

More and more of the stuff that used to be in JES CB's is being moved to the 
FSS(SAPI)  and can only be obtained via this method.

It is not too difficult to write, but the trick will be integrating it with 
your existing exit code.


The SSI cannot be used to access the needed work areas from within exit 6.

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Old code in JES Exit 6

2016-02-12 Thread Staller, Allan 
You have some code to write. 
Look at "z/OS MVS Using the Functional Subsystem Interface" SA38-0678-00 (for 
z/OS 2.1)

More and more of the stuff that used to be in JES CB's is being moved to the 
FSS(SAPI)  and can only be obtained via this method.

It is not too difficult to write, but the trick will be integrating it with 
your existing exit code.

HTH and Good luck!




The following code has been in our JES2 exit 6 since before I started (so like 
maybe 40 years :) ?). The intent is to cause jobs with special forms to print 
on ordinary paper when their JCL fails.
With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK.
SIS and Google for JPCEIOT is not helpful. It's probably no longer an issue due 
to less forms, less actual printing and less failures. Still, I'd like to fix 
it instead of just whacking the code.
Any JES knowledge out there to help me :)

...remainder snipped

This email – including attachments – may contain confidential information. If 
you are not the intended recipient, do not copy, distribute or act on it. 
Instead, notify the sender immediately and delete the message.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Old code in JES Exit 6

2016-02-12 Thread Geoff Rousell 

>The following code has been in our JES2 exit 6 since before I started (so like 
>maybe 40 years :) ?). The intent is to cause jobs with special forms to print 
>on ordinary paper when their JCL fails.
>
>With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK.


Dave, 

It looks as if many of the fields have been move to two new local work areas, 
CIWORK / CIWORKB.

There's some comment in:

http://publibz.boulder.ibm.com/epubs/pdf/has2r900.pdf
(See Chapter 73)

And the data areas books shows, for example, 


372  (174)  ADDRESS  4   CIWIOTAddress of 
allocation IOT

Geoff Rousell
IBM SE (not a JES2 expert, but found some internal comment...)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Old code in JES Exit 6

2016-02-11 Thread Elardus Engelbrecht 
Ed Jaffe wrote:

> Gibney, David Allen,Jr wrote: 
> > With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK. 
  
> Ugh! There is no record whatsoever in the macro prolog of this field being 
> removed. There are, however, two change IDs of folks that might have been 
> responsible for doing so: 

> $Z21LCLS=CLASS8   HJE7790 27 SJS:  8 character jobclass 
> $Z21LCNV=JES2CI   HJE7790 121115 TJW:  Back to back C/I 

I have seen that. Is this because JPCECLAS and JPCEPRIO and 'reserved for 
future use' fields increased in size? Perhaps something else also changed too?

I have also looked around and checked if JPCEIOT has been moved/renamed to 
somewhere else, but found nothing...

Migration to z/OS v2.1 books does not give me hints. Yes, I have reviewed the 
very latest migration guide.

Searches on IBM.com gave me nothing. Perhaps I used wrong search arguments?

Perhaps it is time to submit a formal note to IBM to resolve that exit code 
problem?

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Old code in JES Exit 6

2016-02-11 Thread Gibney, David Allen,Jr 
Thanks Ed. I cross-posted, but did not say so to JES2-L I remember Tom from the 
last time I made it to SHARE.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Ed Jaffe
> Sent: Thursday, February 11, 2016 4:41 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Old code in JES Exit 6
> 
> On 2/11/2016 2:42 PM, Gibney, David Allen,Jr wrote:
> > With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK.
> 
> Ugh! There is no record whatsoever in the macro prolog of this field being
> removed. There are, however, two change IDs of folks that might have been
> responsible for doing so:
> 
> $Z21LCLS=CLASS8   HJE7790 27 SJS:  8 character jobclass
> $Z21LCNV=JES2CI   HJE7790 121115 TJW:  Back to back C/I
> 
> The last one I recognize as Tom Wasik -- frequent SHARE presenter and
> sometime contributor to this list. He is more likely to be found on JES2-L
> though, so you might want to redirect your query there. Or you could email
> him directly at wa...@us.ibm.com.
> 
> HTH
> 
> --
> Edward E Jaffe
> Phoenix Software International, Inc
> 831 Parkview Drive North
> El Segundo, CA 90245
> https://urldefense.proofpoint.com/v2/url?u=http-
> 3A__www.phoenixsoftware.com_&d=CwICaQ&c=C3yme8gMkxg_ihJNXS06Zy
> Wk4EJm8LdrrvxQb-
> Je7sw&r=u9g8rUevBoyCPAdo5sWE9w&m=cqlGWuRT7eb6ZnFKh-
> MYeMh5pvBZAfOdyHi4tu6-
> jKI&s=2H3C48zFxp8RDKg9AfqAq2cgcKSZA37rwf5TbQ44cC8&e=
> 
> --
> 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

Re: Old code in JES Exit 6

2016-02-11 Thread Ed Jaffe 

On 2/11/2016 2:42 PM, Gibney, David Allen,Jr wrote:

With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK.


Ugh! There is no record whatsoever in the macro prolog of this field 
being removed. There are, however, two change IDs of folks that might 
have been responsible for doing so:


$Z21LCLS=CLASS8   HJE7790 27 SJS:  8 character jobclass
$Z21LCNV=JES2CI   HJE7790 121115 TJW:  Back to back C/I

The last one I recognize as Tom Wasik -- frequent SHARE presenter and 
sometime contributor to this list. He is more likely to be found on 
JES2-L though, so you might want to redirect your query there. Or you 
could email him directly at wa...@us.ibm.com.


HTH

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Old code in JES Exit 6

2016-02-11 Thread Gibney, David Allen,Jr 
The following code has been in our JES2 exit 6 since before I started (so like 
maybe 40 years :) ?). The intent is to cause jobs with special forms to print 
on ordinary paper when their JCL fails.

With z/OS 2.1, the field JPCEIOT is no longer in $CNVWORK.

SIS and Google for JPCEIOT is not helpful. It's probably no longer an issue due 
to less forms, less actual printing and less failures. Still, I'd like to fix 
it instead of just whacking the code.

Any JES knowledge out there to help me :)

ENDJCL   DS0H
 L R2,X6CTRC   Address of Convertor's RC
 L R2,0(R2)Convertor's RC
 C R2,=A(JCTCOK)   Check Convertor's RC
 JECONVOK  Ok now make our checks
 BRASL R3,SETSTD   Failed so force to STD forms
 J RETURN  And get out
..
*
*   FORCE OUTPUT TO STANDARD
*
SETSTD   DS0H
 L R1,X6DTEADR ADDRESS OF DTE
 USING DTE,R1
 L R1,DTEPCE   ADDRESS OF PCE
 USING PCE,R1
 LTR   R1,R1   IS THE PCE THERE ?
 BZR   R3skip
 L R2,JPCEIOT  GET ADDRESS OF 1ST IOT
 DROP  R1
 ALR2,$IOTPDDB OF 1ST PDDB
 MVC   PDBFORMS,$STDFORMLOG
 AHR2,PDBSIZE   ADVANCE TO SECOND PDDB
 MVC   PDBFORMS,$STDFORMIMAGES
 AHR2,PDBSIZE   ADVANCE TO THIRD PDDB
  MVC   PDBFORMS,$STDFORMMESSAGES
  DROP  R2
  BRR3
 *
  DROP  R9,R10,R12

Dave Gibney
Information Technology Services
Washington State University


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

JES EXIT 6 and 8 bytes job class

2014-01-31 Thread Manfred Lotz 
Hi there,
I have a JES2 exit 6 which till today used JCTJCLAS. Now in z/OS 2.1 with up to 
 8 bytes job class groups/names there is JCXJCLA8 in $JCTX. 

Question: Do I now simply ignore JCTJCLAS and use JCXJCLA8 instead or is it 
more complicated like using JCTJCLAS if it is a 1-byte job class, and JCXJCLA8 
otherwise?

-- 
Manfred

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-28 Thread Shmuel Metz (Seymour J.) 
In
<897c82fc69765d45a301af8f5d1210cb0df5939...@otb6mail01.executive.stateofwv.gov>,
on 02/27/2013
   at 11:20 AM, "Crabtree, Anne D"  said:

>CLC=CL4'VPRT',0(R6)

>Gets a S0C4.

With what interrupt code? What's in R6? Is R12 correct? What are the
PSW and storage keys? Addressing mode?

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 Atid/2
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-28 Thread Crabtree, Anne D 
Yes, seems the $DEST kind of destroyed my registers and it was actually the 
RETURN failing..  Old code did not do a SAVE at beginning..  Once I added that, 
it started working thank goodness!  I think we have probably been lucky that it 
hasn't had a problem before I touched it.

Thanks you for all the patience and kindness! 

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 Gerhard Postpischil
Sent: Wednesday, February 27, 2013 1:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

On 2/27/2013 12:58 PM, Crabtree, Anne D wrote:
> Here's what I get:
>
> FC 5110 B69800698 20546 $DEST   
> DEST=$WORK16,LEN=L'$WORK16,CONV=SBINARY
> 000136 4160 B69800698 20599  LA R6,$WORK16
> 00013A D503 C210 6000 00260 0 20600  CLC=CL4'VPRT',0(R6)
>
> Dump shows:
> Registers 0-7
> GR:  04D2 9855D2D2 185A8810   105A81FC 7698 
> 0001
> AR:         
>  Registers 8-15
> GR: 000B42B0 185A8869 1807B000 7000  185F4D88 7F50F6A4 185F4E64 
> 
> AR:         
> 

Note that the assembled CLC uses register 12, which has an instruction in it. 
About half the registers look questionable. Some macros have special 
restrictions, and may require registers to be saved; I don't know whether the 
$DEST is responsible, or something earlier.

Gerhard Postpischil
Bradford, Vermont

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

Re: JES exit 6

2013-02-27 Thread Doug Henry 
On 2/27/2013 12:58 PM, Crabtree, Anne D wrote:
> Here's what I get:
>
> FC 5110 B69800698 20546 $DEST   
> DEST=$WORK16,LEN=L'$WORK16,CONV=SBINARY
> 000136 4160 B69800698 20599  LA R6,$WORK16
> 00013A D503 C210 6000 00260 0 20600  CLC=CL4'VPRT',0(R6)
>
> Dump shows:
> Registers 0-7
> GR:  04D2 9855D2D2 185A8810   105A81FC 7698 0001
> AR:         
> Registers 8-15
> GR: 000B42B0 185A8869 1807B000 7000  185F4D88 7F50F6A4 185F4E64 
> AR:         

Hi Anne,
Could you also provide the psw. 

Thanks,
Doug

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-27 Thread Gerhard Postpischil 

On 2/27/2013 12:58 PM, Crabtree, Anne D wrote:

Here's what I get:

FC 5110 B69800698 20546 $DEST   
DEST=$WORK16,LEN=L'$WORK16,CONV=SBINARY
000136 4160 B69800698 20599  LA R6,$WORK16
00013A D503 C210 6000 00260 0 20600  CLC=CL4'VPRT',0(R6)

Dump shows:
Registers 0-7
GR:  04D2 9855D2D2 185A8810   105A81FC 7698 0001
AR:         
Registers 8-15
GR: 000B42B0 185A8869 1807B000 7000  185F4D88 7F50F6A4 185F4E64 
AR:         


Note that the assembled CLC uses register 12, which has an instruction 
in it. About half the registers look questionable. Some macros have 
special restrictions, and may require registers to be saved; I don't 
know whether the $DEST is responsible, or something earlier.


Gerhard Postpischil
Bradford, Vermont

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-27 Thread Crabtree, Anne D 
The move before $DEST

MVC$WORK16(L'JCTPROUT),JCTPROUT   

So maybe length is only 8?

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 Doug Henry
Sent: Wednesday, February 27, 2013 12:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

On Wed, 27 Feb 2013 11:20:22 -0500, Crabtree, Anne D  
wrote:

>CLC=CL4'VPRT',0(R6) 
 
>Gets a S0C4.  I see the string 'VPRT' at the address in R6 but evidently I 
>can't compare them this way. 

Hi Anne,
There is nothing wrong with the compare being coded this way. I suspect that 
you haven't correctly specified the $DEST macro. Depending on options the dest= 
field must be 16 or 17 characters long. I suggest that you post the code so 
that we can help you more.

Thanks,

Doug Henry
USBank

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

Re: JES exit 6

2013-02-27 Thread Crabtree, Anne D 
Here's what I get:

FC 5110 B69800698 20546 $DEST   
DEST=$WORK16,LEN=L'$WORK16,CONV=SBINARY 
000136 4160 B69800698 20599  LA R6,$WORK16  
00013A D503 C210 6000 00260 0 20600  CLC=CL4'VPRT',0(R6)

Dump shows:
Registers 0-7   
GR:  04D2 9855D2D2 185A8810   105A81FC 7698 0001
AR:         
Registers 8-15  
GR: 000B42B0 185A8869 1807B000 7000  185F4D88 7F50F6A4 185F4E64 
AR:         

And at 0007698:

7690   8000707B      E5D7D9E3   F1F2F3F4   | ...#VPRT1234 |   
76A0   40404040   40404040   2040B010   001C   | . .. |   
76B0   00CAFC8B   652CB2E0   3200   01010001   | ...\ |   
76C0         8000      |  |   


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 Skip Robinson
Sent: Wednesday, February 27, 2013 12:03 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

I wondered briefly along the same lines, so I got off my duff and assembled the 
instruction myself:

06 D503 C018 6000 00018 0 9  CLC   =CL4'VPRT',0(R6)
...
18 E5D7D9E3  35=CL4'VPRT'

'03' indicates the correct length on the CLC. 'C018' indicates correct base 
register/offset. I see no reason for S0C4. Please compare this snippet with the 
original assembly. 

.
.
JO.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   "Sambataro, Anthony (NIH/NBS) [E]" 
To: IBM-MAIN@LISTSERV.UA.EDU, 
Date:   02/27/2013 08:41 AM
Subject:Re: JES exit 6
Sent by:IBM Mainframe Discussion List 



Have you tried: 

CLC0(4,R6), =C'VPRT'

-Original Message-
From: Crabtree, Anne D [mailto:anne.d.crabt...@wv.gov] 
Sent: Wednesday, February 27, 2013 11:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

Thanks!  I've gotten to the point I know what is going on (thanks to a lot 
of help from people!)

In our JES2 parmlib on production, I have statements like this: 
DESTID(VPRT1234) DEST=U1234

Therefore, the JCTPRRID contains x'40's for this particular destination. 
However, the JCTPROUT has the hex representation and I'm trying to use 
$DEST to convert it back to a symbolic.  So, far that works but now I'm 
stuck on how to compare that symbolic to the character string 'VPRT'. This 
command:

CLC=CL4'VPRT',0(R6)

Gets a S0C4.  I see the string 'VPRT' at the address in R6 but evidently I 
can't compare them this way.

Anyway, that's where I am so far on this problem.

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 Greg Dorner
Sent: Wednesday, February 27, 2013 10:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

I turn on the trace like this:

$S TRACE(13) 
$T EXIT(6),TRACE=YES 
$T TRACEDEF,ACTIVE=YES,LOG=(CLASS=L,START=YES) ** (class L where 
you want the trace output **


Then turn it off:

$T TRACEDEF,SPIN 
$T TRACEDEF,ACTIVE=NO,LOG=(START=NO) 
$T EXIT(6),TRACE=NO 
$P TRACE(13) 

The trace can reveal a lot about the CI text. 

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

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-27 Thread Doug Henry 
On Wed, 27 Feb 2013 11:20:22 -0500, Crabtree, Anne D  
wrote:

>CLC=CL4'VPRT',0(R6) 
 
>Gets a S0C4.  I see the string 'VPRT' at the address in R6 but evidently I 
>can't compare them this way. 

Hi Anne,
There is nothing wrong with the compare being coded this way. I suspect that 
you haven't correctly specified the $DEST macro. Depending on options the dest= 
field must be 16 or 17 characters long. I suggest that you post the code so 
that we can help you more.

Thanks,

Doug Henry
USBank

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-27 Thread Skip Robinson 
I wondered briefly along the same lines, so I got off my duff and 
assembled the instruction myself:

06 D503 C018 6000 00018 0 9  CLC   =CL4'VPRT',0(R6)
...
18 E5D7D9E3  35=CL4'VPRT'

'03' indicates the correct length on the CLC. 'C018' indicates correct 
base register/offset. I see no reason for S0C4. Please compare this 
snippet with the original assembly. 

.
.
JO.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com



From:   "Sambataro, Anthony (NIH/NBS) [E]" 
To: IBM-MAIN@LISTSERV.UA.EDU, 
Date:   02/27/2013 08:41 AM
Subject:Re: JES exit 6
Sent by:IBM Mainframe Discussion List 



Have you tried: 

CLC0(4,R6), =C'VPRT'

-Original Message-
From: Crabtree, Anne D [mailto:anne.d.crabt...@wv.gov] 
Sent: Wednesday, February 27, 2013 11:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

Thanks!  I've gotten to the point I know what is going on (thanks to a lot 
of help from people!)

In our JES2 parmlib on production, I have statements like this: 
DESTID(VPRT1234) DEST=U1234

Therefore, the JCTPRRID contains x'40's for this particular destination. 
However, the JCTPROUT has the hex representation and I'm trying to use 
$DEST to convert it back to a symbolic.  So, far that works but now I'm 
stuck on how to compare that symbolic to the character string 'VPRT'. This 
command:

CLC=CL4'VPRT',0(R6)

Gets a S0C4.  I see the string 'VPRT' at the address in R6 but evidently I 
can't compare them this way.

Anyway, that's where I am so far on this problem.

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 Greg Dorner
Sent: Wednesday, February 27, 2013 10:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

I turn on the trace like this:

$S TRACE(13) 
$T EXIT(6),TRACE=YES 
$T TRACEDEF,ACTIVE=YES,LOG=(CLASS=L,START=YES) ** (class L where 
you want the trace output **


Then turn it off:

$T TRACEDEF,SPIN 
$T TRACEDEF,ACTIVE=NO,LOG=(START=NO) 
$T EXIT(6),TRACE=NO 
$P TRACE(13) 

The trace can reveal a lot about the CI text. 

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

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

Re: JES exit 6

2013-02-27 Thread Sambataro, Anthony (NIH/NBS) [E] 
Have you tried: 

CLC0(4,R6), =C'VPRT'

-Original Message-
From: Crabtree, Anne D [mailto:anne.d.crabt...@wv.gov] 
Sent: Wednesday, February 27, 2013 11:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

Thanks!  I've gotten to the point I know what is going on (thanks to a lot of 
help from people!)

In our JES2 parmlib on production, I have statements like this:  
DESTID(VPRT1234) DEST=U1234

Therefore, the JCTPRRID contains x'40's for this particular destination.  
However, the JCTPROUT has the hex representation and I'm trying to use $DEST to 
convert it back to a symbolic.  So, far that works but now I'm stuck on how to 
compare that symbolic to the character string 'VPRT'.  This command:

CLC=CL4'VPRT',0(R6)

Gets a S0C4.  I see the string 'VPRT' at the address in R6 but evidently I 
can't compare them this way.

Anyway, that's where I am so far on this problem.

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 Greg Dorner
Sent: Wednesday, February 27, 2013 10:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

I turn on the trace like this:

$S TRACE(13)   
$T EXIT(6),TRACE=YES   
$T TRACEDEF,ACTIVE=YES,LOG=(CLASS=L,START=YES) ** (class L where you 
want the trace output **


Then turn it off:

$T TRACEDEF,SPIN 
$T TRACEDEF,ACTIVE=NO,LOG=(START=NO) 
$T EXIT(6),TRACE=NO  
$P TRACE(13)  

The trace can reveal a lot about the CI text. 

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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-27 Thread Crabtree, Anne D 
Thanks!  I've gotten to the point I know what is going on (thanks to a lot of 
help from people!)

In our JES2 parmlib on production, I have statements like this:  
DESTID(VPRT1234) DEST=U1234

Therefore, the JCTPRRID contains x'40's for this particular destination.  
However, the JCTPROUT has the hex representation and I'm trying to use $DEST to 
convert it back to a symbolic.  So, far that works but now I'm stuck on how to 
compare that symbolic to the character string 'VPRT'.  This command:

CLC=CL4'VPRT',0(R6)

Gets a S0C4.  I see the string 'VPRT' at the address in R6 but evidently I 
can't compare them this way.

Anyway, that's where I am so far on this problem.

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 Greg Dorner
Sent: Wednesday, February 27, 2013 10:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES exit 6

I turn on the trace like this:

$S TRACE(13)   
$T EXIT(6),TRACE=YES   
$T TRACEDEF,ACTIVE=YES,LOG=(CLASS=L,START=YES) ** (class L where you 
want the trace output **


Then turn it off:

$T TRACEDEF,SPIN 
$T TRACEDEF,ACTIVE=NO,LOG=(START=NO) 
$T EXIT(6),TRACE=NO  
$P TRACE(13)  

The trace can reveal a lot about the CI text. 

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

Re: JES exit 6

2013-02-27 Thread Greg Dorner 
I turn on the trace like this:

$S TRACE(13)   
$T EXIT(6),TRACE=YES   
$T TRACEDEF,ACTIVE=YES,LOG=(CLASS=L,START=YES) ** (class L where you 
want the trace output **


Then turn it off:

$T TRACEDEF,SPIN 
$T TRACEDEF,ACTIVE=NO,LOG=(START=NO) 
$T EXIT(6),TRACE=NO  
$P TRACE(13)  

The trace can reveal a lot about the CI text.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-25 Thread Arthur T. 
On 25 Feb 2013 12:14:09 -0800, in bit.listserv.ibm-main 
(Message-ID:<0e6f70937cdd8b4c83a5069c6296b38422b86...@xch-phx-101.sw.nos.boeing.com>) 
barry.schw...@boeing.com (EXT-Schwarz, Barry) wrote:


Regarding your translate tables, rather than manually 
counting the number of x'00' bytes to insert between 
non-zero ones and manually coding the hex values for 
characters, I suggest the following approach:

TRTABLE1 DC256X'00'
ORG   TRTABLE1+C'C'
DCC'C'
ORG   TRTABLE1+C'E'
DCC'EF'
ORG   TRTABLE1+C'I'
DCC'I'
...
ORG   TRTABLE+C'Z'
ORG   C'Z'
ORG


 And, in fact, coding the tables like this should fix 
the problem.  The first table is not 256 bytes long (note 
that the last 2 lines are commented out).  The TRT 
instruction is where the Z of the first table is, so the 
first TRT hits and the code never gets to the test for 
class Z.


 My feeling has always been that the Assembler counts 
better than I do, so I code what I mean and let the 
Assembler do the counting and adding.


In 
Message-ID:<897c82fc69765d45a301af8f5d1210cb0df5481...@otb6mail01.executive.stateofwv.gov>,

anne.d.crabt...@wv.gov (Crabtree, Anne D) wrote:

>Here's the part of code that I changed: (I'm not the 
greatest assembler programmer so be kind :))


 And here's an unsolicited suggestion:  After a TRT, 
don't use
BC 2, use BZ or BNZ.  Few of us remember which bits mean 
what.


--
I cannot receive mail at the address this was sent from.
To reply directly, send to ar23hur "at" pobox "dot" com

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-25 Thread EXT-Schwarz, Barry 
To simplify things I have deleted the lines which contain only the tail end of 
comments.  I have also inserted some line numbers to correspond to my comments.

Line 1 tells us that JCTJCLAS contains the address of the class.  You use that 
address correctly in the target of the EX instruction in line 2.  But you don't 
use that address when changing the class in line 3.  There, you move the new 
class directly into JCTJCLAS, thereby destroying the address.

Regarding line 2, wouldn't a CLI instruction be easier than using EX to perform 
a TRT?  Of course the following BC would change also.

Your two EX instructions OR the contents of R4 before performing the target TRT 
instructions.  Since R4 is always 0, the TRT instructions are unchanged.  
Wouldn't it be easier to place the TRT instructions inline replacing the EX 
ones.

Regarding your translate tables, rather than manually counting the number of 
x'00' bytes to insert between non-zero ones and manually coding the hex values 
for characters, I suggest the following approach:
TRTABLE1 DC256X'00'
 ORG   TRTABLE1+C'C'
 DCC'C'
 ORG   TRTABLE1+C'E'
 DCC'EF'
 ORG   TRTABLE1+C'I'
 DCC'I'
 ...
 ORG   TRTABLE+C'Z'
 ORG   C'Z'
 ORG

When using a literal reference, as in line 4, I suggest omitting the the length 
field.  The assembler will compute it properly and it is one less thing to 
change if you need to replace the value of the literal.


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Crabtree, Anne D
> Sent: Monday, February 25, 2013 7:03 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: JES exit 6
>
> 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 VPRT).  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 :))
>
1.> SCAN LA R3,JCTJCLAS LOAD ADDRESS OF
> LR4,=F'0'
> EX R4,SCANCLS1   SCAN FOR
> BC 2,CHKJNAME   CLASS IS
2.> EX R4,SCANCLS2   CLASS Z?
>  BC2,CLASSZ   IF
3.> MVI  JCTJCLAS,C'C'  NOT SY, SET
> BRETURN
> CLASSZ LA  R5,JCTNOUSR  SUBMITTING USERID
4.> CLC=CL2'SY',0(R5) IS THIS
> BE ALLGOOD CLASS Z
> MVI  JCTJCLAS,C'C'  CLASS Z
> BRETURN
> CHKJNAME LA  R6,JCTJNAME  JOBNAME
> CLC=CL3'WE#',0(R6)DOES JOBNAME
> BE  CHKDEST   YES,
> B RETURN
> CHKDEST  LA   R7,JCTPRRIDJOB PRINT
> CLC=CL4'VPRT',0(R7)   DOES PRINT
> BE CHGCLASYES,
> ALLGOODB  RETURNNO, RETURN TO
> CHGCLAS MVIJCTJCLAS,C'F'  MOVE F TO CLASS
> B  RETURN
> RETURN   RETURN (14,12),RC=0
> SCANCLS1   TRT   0(0,R3),TRTABLE1  LOOKIN FOR A VALID CLASS
&g

Re: JES exit 6

2013-02-25 Thread Crabtree, Anne D 
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 U instead of VPRT 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  
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 VPRT).  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 :))
>


I didn't look at the code closely, but since it works in your onepack, could 
there be something different about that VPRT 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 DS0F  JOB PRINT ROUTE CODE
JCTPRNOD DSHNODE NUMBER
JCTPRRMT DSHREMOTE NUMBER  
 SPACE 1   
JCTPRRID DSCL8 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

Re: JES exit 6

2013-02-25 Thread Elardus Engelbrecht 
Mark Zelden wrote:

>I didn't look at the code closely, but since it works in your onepack, could 
>there be something different about that VPRT dest in the production JES2 
>that is keeping that compare from working.  

Perhaps some RACF profile is stopping the OP? Try $T DEBUG,SECURITY=YES to 
eliminate that possibility?

I have also have a quick look at that snippet, but I'm also wondering, after 
reading your comment, if the OP is using the correct JES2 set of macros during 
assembly?

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES exit 6

2013-02-25 Thread Mark Zelden 
On Mon, 25 Feb 2013 10:03:03 -0500, Crabtree, Anne D  
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 VPRT).  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 :))
>


I didn't look at the code closely, but since it works in your onepack, could 
there be something different
about that VPRT 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 DS0F  JOB PRINT ROUTE CODE
JCTPRNOD DSHNODE NUMBER
JCTPRRMT DSHREMOTE NUMBER  
 SPACE 1   
JCTPRRID DSCL8 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

JES exit 6

2013-02-25 Thread Crabtree, Anne D 
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 VPRT).  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 :))

SCAN LA R3,JCTJCLAS LOAD ADDRESS OF CLASS
LR4,=F'0'  COLUMNS 
TO BE SCANNED
EX R4,SCANCLS1   SCAN FOR INVALID 
CLASS
BC 2,CHKJNAME   CLASS IS VALID
EX R4,SCANCLS2   CLASS Z?
 BC2,CLASSZ   IF CLASS Z, 
GO CHECK USERID
MVI  JCTJCLAS,C'C'  NOT SY, SET CLASS 
TO C
BRETURN RETURN TO 
JES
CLASSZ LA  R5,JCTNOUSR  SUBMITTING USERID
CLC=CL2'SY',0(R5) IS THIS AN SY 
USERID?
BE ALLGOOD CLASS Z OK FOR SY
MVI  JCTJCLAS,C'C'  CLASS Z CHANGED TO 
C FOR NON SY
BRETURN RETURN TO 
JES
CHKJNAME LA  R6,JCTJNAME  JOBNAME
CLC=CL3'WE#',0(R6)DOES JOBNAME START 
WITH WE#?
BE  CHKDEST   YES, GO CHECK 
DESTINATION
B RETURN NO, RETURN 
TO JES
CHKDEST  LA   R7,JCTPRRIDJOB PRINT DESTINATION
CLC=CL4'VPRT',0(R7)   DOES PRINT DEST START 
WITH VPRT
BE CHGCLASYES, GO 
CHANGE CLASS TO F
ALLGOODB  RETURNNO, RETURN TO JES
CHGCLAS MVIJCTJCLAS,C'F'  MOVE F TO CLASS
B  RETURN   RETURN TO 
JES
RETURN   RETURN (14,12),RC=0
SCANCLS1   TRT   0(0,R3),TRTABLE1  LOOKIN FOR A VALID CLASS
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*   VALID CLASS TABLE CHECKING FOR CLASS C,E,F,I,K,L,Q,T*
*   CLASS I FOR IPO2*
*   CLASS T FOR TEST*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
TRTABLE1 DC   195X'00'
 DC 1X'C3'   C
 DC 1X'00'
 DC 1X'C5'   E
 DC 1X'C6'   F
 DC 2X'00'
 DC 1X'C9'   I
 DC 8X'00'
 DC 1X'D2'   K
 DC 1X'D3'   L
 DC 1X'D4'   M
 DC 3X'00'
 DC 1X'D8'   Q
 DC10X'00'
 DC 1X'E3'   T
 DC 5X'00'
 DC23X'00'
*DC 1X'E9'   Z
*DC22X'00'
SCANCLS2 TRT   0(0,R3),TRTABLE2 LOOKIN FOR CLASS Z
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*   VALID CLASS TABLE CHECKING FOR CLASS Z  *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
TRTABLE2 DC   233X'00'
 DC 1X'E9'   Z
 DC22X'00'
*


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


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN