zOs/JCL/CD
//A540769H JOB (OS12,KE50,,SP00000000),MSGCLASS=T,TIME=100
//*MAIN CLASS=PVS
//*
//USEDPROC JCLLIB ORDER=PCL.U0000.P0.RZ1AKT.PERM.@005.JPO
//*
//*******************************************************************
//* FILE-TRANSFER BY CONNECT:DIRECT
//*******************************************************************
//*
//P01 EXEC CD01SKA1
//E01.DDKART1 DD DDNAME=WGRACC
//RZ2 DD *
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=00:01:00 -
&DEST=SKA.RZ2 -
&INDSN=A540769.TEST.OUT -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=A540769.CDRZ1.OUT -
&OUTDISP=(OLD,CATLG,KEEP)
SIGNOFF
//WGRACC DD * WGR ACCEPTANCE
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=00:10:00 -
&DEST=ACC -
&INDSN=PVSP.RZ1.P0.PVSTRACK.U0034.D05346.T150005 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=P1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=MCGDG -
&OPARM2=DATACLAS=DCVFILE -
&OPARM3=LRECL=32756
SIGNOFF
/*
//E01.TEKART1 DD * WGR TEST
SIGNON
SUBMIT PROC=MVS03DSN -
NEWNAME=PVT760MP -
MAXDELAY=UNLIMITED -
&DEST=TEST -
&INDSN=PVSP.RZ1.P0.PVSTRACK.U0034.D05346.T1500052 -
&INDISP=(SHR,KEEP,KEEP) -
&OUTDSN=T1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
&OUTDISP=(NEW,CATLG,DELETE) -
&OPARM1=MGMTCLAS=MCGDG -
&OPARM2=DATACLAS=DCVFILE -
&OPARM3=LRECL=32756
SIGNOFF
/*