61 lines
2.4 KiB
Plaintext
61 lines
2.4 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..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
|
|
//* RAINCODE TESTED 08/30/25 ZL1
|
|
//******************************************************************
|
|
//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),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=323,BLKSIZE=0)
|
|
//*
|
|
//DTSLN403 DD DUMMY
|
|
//*
|
|
//*********************************************************************
|
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
|
//*
|
|
//**
|
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
|
//INPUT DD *
|
|
10.57.110.147 21
|
|
dutasrc
|
|
Today728rc!
|
|
cd //Dutasrc/intranet/Outbound_intranet
|
|
ascii
|
|
put 'DOESTAX.CONV.LEIN405.RECORD' DOESTAX.CONV.LEIN405.RECORD
|
|
QUIT
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTOUT DD SYSOUT=*
|
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//SYSGET DD *,DCB=BLKSIZE=80
|
|
// |