49 lines
2.4 KiB
Plaintext
49 lines
2.4 KiB
Plaintext
//DTSDX145 JOB (UI,4300,3400,T),ZZZ,CLASS=A,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,
|
|
// MSGCLASS=X,REGION=4M
|
|
//* 00001700
|
|
//*********************************************************************
|
|
//********************************************************************
|
|
//*** COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING.
|
|
//** 02/09/16 ZL1
|
|
//********************************************************************
|
|
//****************************************************************
|
|
//STEP0010 EXEC PGM=SORT,REGION=1024K
|
|
//SORT.SYSPRINT DD SYSOUT=*
|
|
//SORT.STATOUT DD SYSOUT=*
|
|
//SORT.SYSDBOUT DD SYSOUT=*
|
|
//SORT.SYSUDUMP DD SYSOUT=*
|
|
//SORT.SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR,
|
|
//* DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,11,CH,A)
|
|
END
|
|
//********************************************************************
|
|
//*********************************************************************
|
|
//* // 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 'ECNTSUP.DOESTAX.CONV.ESSPX145' +
|
|
ECNTSUP.DOESTAX.CONV.ESSPX145
|
|
QUIT
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTOUT DD SYSOUT=*
|
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//SYSGET DD *,DCB=BLKSIZE=80
|
|
//* |