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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
