With all SYSOUT=A: no change.
With all SYSOUT=H, the COMPILE/LKED file goes to H instead of O but RUN still 
goes to O, even if I uncomment the SYSPRINT DD for the RUN step and make it 
SYSOUT=H.

Yes, MSGCLASS=A
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
Michael Babcock
Sent: Tuesday, September 16, 2025 12:37 PM
To: [email protected]
Subject: Re: [EXT] Re: JES weirdness

And what happens when you specifically code SYSOUT=A on the z/OS 3.1 system 
(assuming MSGCLASS=A)?

On 9/16/2025 11:34 AM, Phil Smith III wrote:
> Same on both:
> RESPONSE=S0W1
>   $HASP842 OUTCLASS(A)
>   $HASP842 OUTCLASS(A)  OUTPUT=PRINT,BLNKTRNC=YES,COMPRESS=NO,
>   $HASP842              OUTDISP=(WRITE,WRITE),TRKCELL=YES
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <[email protected]> On 
> Behalf Of Michael Babcock
> Sent: Tuesday, September 16, 2025 12:29 PM
> To: [email protected]
> Subject: Re: [EXT] Re: JES weirdness
>
> And $D OUTCLASS(A) on both systems shows?
>
> On 9/16/2025 10:27 AM, Phil Smith III wrote:
>> Michael Babcock wrote:
>>> Are there any JES exits in place on either system? Can you show the 
>>> Jobcard and JCL on both systems?
>> Don't think there are any JES exits but don't know how to check!
>>
>> JCL:
>>
>> //VSH1     JOB   MSGLEVEL=(1,1),MSGCLASS=A,NOTIFY=&SYSUID
>> //COMPILE  EXEC  PGM=IGYCRCTL,REGION=0M,
>> //         PARM='LIST,NOSEQ,MDECK'
>> //STEPLIB  DD DISP=SHR,DSN=IGY640.SIGYCOMP //SYSPRINT DD SYSOUT=*
>> //SYSIN    DD DISP=SHR,DSN=PHS.PDS.SOURCE(VSH1)
>> //SYSMDECK DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSLIN   DD DISP=SHR,DSN=PHS.PDS.OBJ(VSH1)
>> //SYSLIB   DD DISP=SHR,DSN=VSH.BASE840.SAMPLIB
>> //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT8   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT9   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT10  DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT11  DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT12  DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //SYSUT13  DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //*YSUT14  DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //*YSUT15  DD UNIT=SYSDA,SPACE=(CYL,(1,1))
>> //*
>> //LKED     EXEC PGM=IEWBLINK,COND=(4,LT),
>> //   PARM='LIST,AMODE=31,MAP,LET,RENT'
>> //SYSPRINT DD SYSOUT=*
>> //SYSLIB   DD DISP=SHR,DSN=CEE.SCEELKED
>> //         DD DISP=SHR,DSN=CSF.SCSFMOD0
>> //SIDEFILE DD DISP=SHR,DSN=SYS1.SIEASID //SYSLMOD  DD 
>> DISP=SHR,DSN=PHS.PDS.LOAD
>> //OBJ      DD DISP=SHR,DSN=PHS.PDS.OBJ OBJECT
>> //VSH      DD DISP=SHR,DSN=VSH.BASE8401.VSHLOAD
>> //         DD DISP=SHR,DSN=VSH.BASE840.VSHLOAD
>> //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(3,1))
>> //SYSLIN   DD DDNAME=SYSIN
>> //SYSIN    DD *
>>     INCLUDE OBJ(VSH1)
>>     INCLUDE VSH(VSHVOLT)
>>     NAME    VSH1(R)
>> /*
>> //RUN      EXEC PGM=VSH1,REGION=0K,COND=(5,LT)
>> //STEPLIB  DD  DISP=SHR,DSN='PHS.PDS.LOAD'
>>
>> ---------------------------------------------------------------------
>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>> send email to [email protected] with the message: INFO 
>> IBM-MAIN
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
[email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to