Okay, I'm done. Beats me. I don't see that behavior on my 3.1 system.
On 9/16/2025 12:55 PM, Phil Smith III wrote:
This job: //ACGSSN1 JOB MSGLEVEL=(1,1),MSGCLASS=A,NOTIFY=&SYSUID //* //ENCRYPT EXEC PGM=ZFPEFILE, // PARM='POSIX(ON)/-CPT REXX -CPN ACGSSN1 -V -D' //STEPLIB DD DISP=SHR,DSN=VSH.BASE8401.VSHLOAD // DD DISP=SHR,DSN=SYS1.SIEALNKE //SYSEXEC DD DISP=SHR,DSN=PHS.PDS.REXX //FPEOPTS DD DISP=SHR,DSN=PHS.ACG.CONFIG //SYSTSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //FPEIN DD DISP=SHR,DSN=PHS.PDS.DATA(SSN) //FPEOUT DD DISP=OLD,DSN=PHS.PDS.DATA(SSNE) //* //DECRYPT EXEC PGM=ZFPEFILE, // PARM='POSIX(ON)/-CPT REXX -CPN ACGSSN1 DECRYPT' //STEPLIB DD DISP=SHR,DSN=VSH.BASE8401.VSHLOAD // DD DISP=SHR,DSN=SYS1.SIEALNKE //SYSEXEC DD DISP=SHR,DSN=PHS.PDS.REXX //FPEOPTS DD DISP=SHR,DSN=PHS.ACG.CONFIG //SYSTSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //FPEIN DD DISP=SHR,DSN=PHS.PDS.DATA(SSNE) //FPEOUT DD DISP=OLD,DSN=PHS.PDS.DATA(SSND) ...creates SYSnnnn ENCRYPT and DECRYPT on the O queue and the usual three JESxxxx on the H queue. Changing all to SYSOUT=O/A/H makes no difference. -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Michael Babcock Sent: Tuesday, September 16, 2025 1:43 PM To: [email protected] Subject: Re: [EXT] Re: JES weirdness Curious now. Do all jobs exhibit this behavior or just the compiler ones? 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
