Sounds to me like it's time to open a problem with IBM.

On 9/16/2025 11:46 AM, Phil Smith III wrote:
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

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

Reply via email to