//DTSTPPRT JOB (UI,4300,3400,T),PROD.PRINT.TAPE,
//            MSGCLASS=X,CLASS=P,
//****        NOTIFY=ECNTJP2,
//            NOTIFY=ECNTSUP,
//****        TYPRUN=SCAN,
//****        USER=#DOADTS,
//            REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB    BY Z/OS
//****
//*  PRINT A (GIVEN NUMBER OF RECORDS) FROM A DATA SET {FROM CART}
//****
//  SET    LHOLD='YES'
//  SET   LINDSN='DOESTAX.PROD.DTSFACER'
//  SET  LVOLSER='104803'
//****
//*    PRT 1ST XXX (200) TAPE RECORDS
//****
//STEP0300 EXEC PGM=IDCAMS,
//          COND=(0,LT)
//SYSPRINT DD SYSOUT=Z,DEST=U@PRT65,COPIES=2,
//          HOLD=&LHOLD.
//FILEIN   DD DSN=&LINDSN.,
//****            UNIT=SYSDA,
//            UNIT=CART,
//            VOL=SER=&LVOLSER.,
//            DISP=(OLD,KEEP)
//****            SPACE=(CYL,(1,1),RLSE),
//****            DCB=(RECFM=FB,LRECL=326,BLKSIZE=1630)
//SYSIN    DD  *
 PRINT -
   INFILE (FILEIN) -
   COUNT (200)
/*
//****