zOs/JCL/CDTSO

//A540769F JOB  (OS12,KE50,,SP00000000),MSGCLASS=T,TIME=100
//*MAIN CLASS=PVS
//*
//*******************************************************************
//* FILE-TRANSFER BY CONNECT:DIRECT
//*******************************************************************
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//*            PARM='%CD'
//*YSIN    DD DUMMY
//*SYSTSIN  DD DUMMY
//SYSTSIN  DD *
  CALL *(DMBATCH) 'YYSLYNN'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX
//*                    dd's für cd, entsprechend proc CD01SKA1
//DMPUBLIB DD  DSN=JOBP.FT1A.PRCS,DISP=SHR
//         DD  DSN=SFT.DIV.X0.CD.PRCS,DISP=SHR
//DMNETMAP DD  DSN=SFT.SKA.P0.CD.NETMAP,DISP=SHR
//DMMSGFIL DD  DSN=SFT.DIV.X0.CD.MSG,DISP=SHR
//DMPRINT  DD  SYSOUT=*
//SYSIN    DD  *
  SIGNON
  SUBMIT PROC=MVS03DSN                           -
         NEWNAME=PVT7600P                        -
         MAXDELAY=UNLIMITED                      -
         &DEST=ACC                               -
         &INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
         &INDISP=(SHR,KEEP,KEEP)                 -
         &OUTDSN=P1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
         &OUTDISP=(NEW,CATLG,DELETE)             -
         &OPARM1=MGMTCLAS=MCGDG                  -
         &OPARM2=DATACLAS=DCVFILE                -
         &OPARM3=LRECL=32756
  SIGNOFF
//SYSINP   DD  *
  SIGNON
  SUBMIT PROC=MVS03DSN                           -
         NEWNAME=PVT7600P                        -
         MAXDELAY=UNLIMITED                      -
         &DEST=PROD                              -
         &INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
         &INDISP=(SHR,KEEP,KEEP)                 -
         &OUTDSN=P1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
         &OUTDISP=(NEW,CATLG,DELETE)             -
         &OPARM1=MGMTCLAS=MCGDG                  -
         &OPARM2=DATACLAS=DCVFILE                -
         &OPARM3=LRECL=32756
//SYSINT   DD  *
  SIGNOFF
  SIGNON
  SUBMIT PROC=MVS03DSN                           -
         NEWNAME=PVT760MP                        -
         MAXDELAY=UNLIMITED                      -
         &DEST=TEST                              -
         &INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
         &INDISP=(SHR,KEEP,KEEP)                 -
         &OUTDSN=T1DAT.DOCSYS.FTSCS.PVSTRACK(+1) -
         &OUTDISP=(NEW,CATLG,DELETE)             -
         &OPARM1=MGMTCLAS=MCGDG                  -
         &OPARM2=DATACLAS=DCVFILE                -
         &OPARM3=LRECL=32756
  SIGNOFF
//SYSIN2   DD  *
  SIGNON
  SUBMIT PROC=MVS03DSN                           -
         NEWNAME=PVT760MP                        -
         MAXDELAY=UNLIMITED                      -
         &DEST=SKA.RZ2                               -
         &INDSN=PVSO.RZ1.P0.TS4SXXXX.D05300.TXXXXXX.TRACK2 -
         &INDISP=(SHR,KEEP,KEEP)                 -
         &OUTDSN=A540769.TEST.PVSTRACD.U0034(+1) -
         &OUTDISP=(NEW,CATLG,DELETE)             -
         &OPARM1=MGMTCLAS=COM#A092               -
         &OPARM2=LRECL=32756
  SIGNOFF