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
