zOs/JCL/PVSRTEDA

//A540769E  JOB (CP00,KE50),'PVS-TEST',MSGCLASS=T                       00010001
//*MAIN CLASS=CMNA
//*
//*    erzezuge PVS MaschinenTestdaten durch Rexx pvsrTeDa
//*    Parameter:
//*        LIM mach: Grenzen Testen
//*        RAN mach s1 s2: maximal s1 Zufallsdokumente für C4
//*                      1 mit maximal s2 Seiten
//*        mach: EIN = Einzelblatt, 1UP = 1 Up
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//           PARM='%PVSRTEDA RAN ein'
//SYSTSIN    DD DUMMY
//DOCIN       DD DISP=SHR,DSN=POSY.RZ1.T0.AKT.TESTFALL.DATA(VERAAA)
//PVSOUT      DD DSN=PVT.AT.POS.WALTER0,
//             DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=VBA,LRECL=32756),
//             SPACE=(9076,(205,895),RLSE),
//             UNIT=DISK,VOL=SER=PVPXXX
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX
//*SYSPROC  DD DISP=SHR,DSN=ORG.RZ1.B0106.KRDO4.EXEC