39 lines
2.0 KiB
Plaintext
39 lines
2.0 KiB
Plaintext
//DTSRQ328 JOB (UI,4300,3400,T),DTSRQ328,CLASS=A,MSGCLASS=X, 00000010
|
|
//** TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1
|
|
//* 00001700
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET LHOLD='YES' 00001700
|
|
// SET PRTHOLD='YES' 00001700
|
|
// SET LVDHOLD='YES' 00001700
|
|
// SET LDEST='LOCAL' 00001700
|
|
// SET S0910='+0' 00001700
|
|
//* SET LDEST='U@PRT65' 00001700
|
|
//* 00001700
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//* 00001700
|
|
//* 00001700
|
|
//STEP0100 EXEC DTSUX328
|
|
//
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..BE327.RPT(+0),DISP=SHR 325 RPTS
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTOUT DD DSN=&&SRTRPT,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR
|
|
//********************************************************************
|
|
//STEP0200 EXEC DTSD0A
|
|
//STEP0990.DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//*******************************************************************
|