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
