44 lines
1.3 KiB
Plaintext
44 lines
1.3 KiB
Plaintext
//DTSBX405 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..PROCLIB
|
|
//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.PER.RPT(+0),
|
|
// DISP=SHR
|
|
//*
|
|
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
// DISP=SHR
|
|
//* UNIT=SYSDA,
|
|
//* SPACE=(CYL,(10,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=323,BLKSIZE=0)
|
|
//*
|
|
//DTSLN403 DD DUMMY
|
|
//*
|
|
//*********************************************************************
|