44 lines
1.3 KiB
Plaintext
44 lines
1.3 KiB
Plaintext
//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
|
|
// USER=#DOADTS,
|
|
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
|
|
//*
|
|
//***************************************************
|
|
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
|
|
//***************************************************
|
|
//*
|
|
// SET LVLNODE='CONV'
|
|
// SET MSTNODE='PROD'
|
|
// SET PRGNODE='PROD'
|
|
// SET LVDHOLD='YES'
|
|
// SET LDEST='LOCAL'
|
|
// SET LHOLD='YES'
|
|
//*
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
|
|
//*
|
|
//******************************************************************
|
|
//STEP0100 EXEC PGM=DTSBX403,
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//SYSUDUMP DD SYSOUT=*
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//*
|
|
//DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAILY.RPT(0),
|
|
// DISP=SHR
|
|
//*
|
|
//DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
// DISP=SHR
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(10,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
|
|
//*
|
|
//DTSLN405 DD DUMMY
|
|
//*
|
|
//*********************************************************************
|