//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                                       
//