36 lines
994 B
Plaintext
36 lines
994 B
Plaintext
//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)
|
|
/*
|
|
//****
|