298 lines
24 KiB
Plaintext
298 lines
24 KiB
Plaintext
//***** 00010000
|
|
//* 00020000
|
|
//* UI TAX EXTERNAL FILES RESTORE 00030001
|
|
//* 00040000
|
|
//* 05/15/2009 CREATE RESTOREPROC ZL1 00043201
|
|
//* 00044000
|
|
//***** 00050000
|
|
//DTSRSEXT PROC BKUPGEN='(+0)', 00060001
|
|
// BCKNODE='BACKUP', 00060101
|
|
// FTPNODE='PROD' 00060201
|
|
//* 00061000
|
|
//********************************************************************* 00100000
|
|
//STEP0110 EXEC PGM=SORT, CONV.BTC BACKUP 00240100
|
|
// COND=(0,LT) 00240200
|
|
//SYSOUT DD SYSOUT=* 00240300
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..&BCKNODE..BTC&BKUPGEN..DISP=SHR 00240601
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..BTC, 00240701
|
|
// DISP=(,CATLG,DELETE), 00240800
|
|
// UNIT=CART, 00240900
|
|
// VOLUME=(,RETAIN), 00241000
|
|
// LABEL=(1,SL,,,EXPDT=99000), 00241100
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8182) 00241200
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00241300
|
|
//********************************************************************* 00241400
|
|
//STEP0120 EXEC PGM=SORT, WAGE.BTC BACKUP 00241500
|
|
// COND=(0,LT) 00242000
|
|
//SYSOUT DD SYSOUT=* 00243000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..&BCKNODE..WAGE.BTC&BKUPGEN., 00246001
|
|
// DISP=SHR 00246101
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..WAGE.BTC, 00246201
|
|
// DISP=(,CATLG,DELETE), 00247000
|
|
// UNIT=CART, 00248000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0110.SORTOUT), 00248100
|
|
// LABEL=(2,SL,,,EXPDT=99000), 00248300
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600) 00249000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00249100
|
|
//********************************************************************* 00249200
|
|
//STEP0130 EXEC PGM=SORT, BACKUP SUBMITTER FILE 00249300
|
|
// COND=(0,LT) 00249400
|
|
//SYSOUT DD SYSOUT=* 00249500
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX210&BKUPGEN., 00249801
|
|
// DISP=SHR 00249901
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FTP.BX210, 00250001
|
|
// DISP=(,CATLG,DELETE), 00250100
|
|
// UNIT=CART, 00251000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0120.SORTOUT), 00260000
|
|
// LABEL=(3,SL,,,EXPDT=99000), 00271000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=231,BLKSIZE=2310) 00280000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00290000
|
|
//********************************************************************* 00300000
|
|
//STEP0140 EXEC PGM=SORT, BACKUP EMPLOYER FILE 00310000
|
|
// COND=(0,LT) 00320000
|
|
//SYSOUT DD SYSOUT=* 00330000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX212&BKUPGEN., 00360001
|
|
// DISP=SHR 00360101
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FTP.BX212, 00361001
|
|
// DISP=(,CATLG,DELETE), 00370000
|
|
// UNIT=CART, 00380000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0130.SORTOUT), 00390000
|
|
// LABEL=(4,SL,,,EXPDT=99000), 00401000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=106,BLKSIZE=31800) 00410000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00420000
|
|
//********************************************************************* 00430000
|
|
//STEP0150 EXEC PGM=SORT, BACKUP MESSAGES FILE 00431000
|
|
// COND=(0,LT) 00432000
|
|
//SYSOUT DD SYSOUT=* 00433000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..&BCKNODE..FTP.BX216&BKUPGEN., 00436001
|
|
// DISP=SHR 00436101
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..FTP.BX216, 00436201
|
|
// DISP=(,CATLG,DELETE), 00437000
|
|
// UNIT=CART, 00438000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0140.SORTOUT), 00439000
|
|
// LABEL=(5,SL,,,EXPDT=99000), 00439200
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=318,BLKSIZE=31800) 00439300
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00439400
|
|
//********************************************************************* 00439500
|
|
//STEP0160 EXEC PGM=SORT, BACKUP R202 RECS 01430000
|
|
// COND=(0,LT) 01440000
|
|
//SYSOUT DD SYSOUT=* 01450000
|
|
//SORTIN DD DSN=DOESTAX.&EXTNODE..&BCKNODE..RPT.R202&BKUPGEN., 01470001
|
|
// DISP=SHR 01470101
|
|
//SORTOUT DD DSN=DOESTAX.&EXTNODE..RPT.R202, 01471001
|
|
// DISP=(,CATLG,DELETE), 01480000
|
|
// UNIT=CART, 01490000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0150.SORTOUT), 01500000
|
|
// LABEL=(6,SL,,,EXPDT=99000), 01510000
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 01520000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01530000
|
|
//********************************************************************* 01531000
|
|
//STEP0170 EXEC PGM=SORT, EMPLOYER ON WEB DB 01540000
|
|
// COND=(0,LT) 01550000
|
|
//SYSOUT DD SYSOUT=* 01560000
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X101&BKUPGEN., 01580002
|
|
// DISP=SHR 01580101
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101, 01581001
|
|
// DISP=(,CATLG,DELETE), 01590000
|
|
// UNIT=CART, 01600000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0160.SORTOUT), 01610000
|
|
// LABEL=(7,SL,,,EXPDT=99000), 01620000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=6,BLKSIZE=6000) 01630000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01640000
|
|
//****************************************************************** 01650000
|
|
//STEP0180 EXEC PGM=SORT, REGISTRATION PROFILE 01660000
|
|
// COND=(0,LT) 01670000
|
|
//SYSOUT DD SYSOUT=* 01680000
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X102&BKUPGEN., 01700002
|
|
// DISP=SHR 01700101
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102, 01701001
|
|
// DISP=(,CATLG,DELETE), 01710000
|
|
// UNIT=CART, 01720000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0170.SORTOUT), 01730000
|
|
// LABEL=(8,SL,,,EXPDT=99000), 01740000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01750000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01760000
|
|
//****************************************************************** 01770000
|
|
//STEP0190 EXEC PGM=SORT, REGISTRATION DETERMINATIONS 01780000
|
|
// COND=(0,LT) 01790000
|
|
//SYSOUT DD SYSOUT=* 01800000
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X104&BKUPGEN., 01820002
|
|
// DISP=SHR 01820101
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104, 01821001
|
|
// DISP=(,CATLG,DELETE), 01830000
|
|
// UNIT=CART, 01840000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0180.SORTOUT), 01850000
|
|
// LABEL=(9,SL,,,EXPDT=99000), 01860000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01870002
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01880000
|
|
//****************************************************************** 01881000
|
|
//STEP0200 EXEC PGM=SORT, REGISTRATION EMP NAME 01882000
|
|
// COND=(0,LT) 01883000
|
|
//SYSOUT DD SYSOUT=* 01884000
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..X106&BKUPGEN., 01886001
|
|
// DISP=SHR 01886101
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106, 01886201
|
|
// DISP=(,CATLG,DELETE), 01887000
|
|
// UNIT=CART, 01888000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0190.SORTOUT), 01889000
|
|
// LABEL=(10,SL,,,EXPDT=99000), 01889100
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01889200
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01889300
|
|
//****************************************************************** 01889400
|
|
//STEP0210 EXEC PGM=SORT, REGISTRATION RATES 01889500
|
|
// COND=(0,LT) 01889600
|
|
//SYSOUT DD SYSOUT=* 01889700
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X108&BKUPGEN., 01889902
|
|
// DISP=SHR 01890001
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108, 01890101
|
|
// DISP=(,CATLG,DELETE), 01890200
|
|
// UNIT=CART, 01891000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0200.SORTOUT), 01892000
|
|
// LABEL=(11,SL,,,EXPDT=99000), 01893000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01894000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01895000
|
|
//****************************************************************** 01896000
|
|
//STEP0220 EXEC PGM=SORT, REGISTRATION EMP ADDRESS 01897000
|
|
// COND=(0,LT) 01898000
|
|
//SYSOUT DD SYSOUT=* 01899000
|
|
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X110&BKUPGEN., 01899202
|
|
// DISP=SHR 01899301
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110, 01899401
|
|
// DISP=(,CATLG,DELETE), 01899500
|
|
// UNIT=CART, 01899600
|
|
// VOLUME=(,RETAIN,REF=*.STEP0210.SORTOUT), 01899700
|
|
// LABEL=(12,SL,,,EXPDT=99000), 01899800
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01899900
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01900000
|
|
//****************************************************************** 01900100
|
|
//STEP0230 EXEC PGM=SORT, REGISTRATION OPO 01900200
|
|
// COND=(0,LT) 01901000
|
|
//SYSOUT DD SYSOUT=* 01902000
|
|
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X120&BKUPGEN., 01904002
|
|
// DISP=SHR 01904101
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120, 01904201
|
|
// DISP=(,CATLG,DELETE), 01905000
|
|
// UNIT=CART, 01906000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0220.SORTOUT), 01907000
|
|
// LABEL=(13,SL,,,EXPDT=99000), 01908000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01909000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01909100
|
|
//****************************************************************** 01909200
|
|
//STEP0240 EXEC PGM=SORT, REPORTS 01909300
|
|
// COND=(0,LT) 01909400
|
|
//SYSOUT DD SYSOUT=* 01909500
|
|
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X140&BKUPGEN., 01909702
|
|
// DISP=SHR 01909801
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140, 01909901
|
|
// DISP=(,CATLG,DELETE), 01910000
|
|
// UNIT=CART, 01910100
|
|
// VOLUME=(,RETAIN,REF=*.STEP0230.SORTOUT), 01910200
|
|
// LABEL=(14,SL,,,EXPDT=99000), 01911000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01912000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01913000
|
|
//****************************************************************** 01914000
|
|
//STEP0250 EXEC PGM=SORT, WAGES 01915000
|
|
// COND=(0,LT) 01916000
|
|
//SYSOUT DD SYSOUT=* 01917000
|
|
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X144&BKUPGEN., 01919002
|
|
// DISP=SHR 01919101
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144, 01919201
|
|
// DISP=(,CATLG,DELETE), 01919300
|
|
// UNIT=CART, 01919400
|
|
// VOLUME=(,RETAIN,REF=*.STEP0240.SORTOUT), 01919500
|
|
// LABEL=(15,SL,,,EXPDT=99000), 01919600
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01919700
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01919800
|
|
//****************************************************************** 01919900
|
|
//STEP0260 EXEC PGM=SORT, PAYMENTS 01920000
|
|
// COND=(0,LT) 01920100
|
|
//SYSOUT DD SYSOUT=* 01920200
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X145&BKUPGEN., 01922002
|
|
// DISP=SHR 01922101
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145, 01922201
|
|
// DISP=(,CATLG,DELETE), 01923000
|
|
// UNIT=CART, 01924000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0250.SORTOUT), 01925000
|
|
// LABEL=(16,SL,,,EXPDT=99000), 01926000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01927000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01928000
|
|
//****************************************************************** 01929000
|
|
//STEP0270 EXEC PGM=SORT, BATCH HEADERS 01929100
|
|
// COND=(0,LT) 01929200
|
|
//SYSOUT DD SYSOUT=* 01929300
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FROMWEB.X149&BKUPGEN., 01929502
|
|
// DISP=SHR 01929601
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149, 01929701
|
|
// DISP=(,CATLG,DELETE), 01929800
|
|
// UNIT=CART, 01929900
|
|
// VOLUME=(,RETAIN,REF=*.STEP0260.SORTOUT), 01930000
|
|
// LABEL=(17,SL,,,EXPDT=99000), 01930100
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=30720) 01930200
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01931000
|
|
//****************************************************************** 01932000
|
|
//STEP0280 EXEC PGM=SORT, BATCH HEADERS 01933000
|
|
// COND=(0,LT) 01934000
|
|
//SYSOUT DD SYSOUT=* 01935000
|
|
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X144&BKUPGEN., 01937002
|
|
// DISP=SHR 01937101
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144, 01937201
|
|
// DISP=(,CATLG,DELETE), 01938000
|
|
// UNIT=CART, 01939000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0270.SORTOUT), 01939100
|
|
// LABEL=(18,SL,,,EXPDT=99000), 01939200
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01939300
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01939400
|
|
//****************************************************************** 01939500
|
|
//STEP0290 EXEC PGM=SORT, BATCH HEADERS 01939600
|
|
// COND=(0,LT) 01939700
|
|
//SYSOUT DD SYSOUT=* 01939800
|
|
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X150&BKUPGEN., 01940002
|
|
// DISP=SHR 01940101
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150, 01940201
|
|
// DISP=(,CATLG,DELETE), 01941000
|
|
// UNIT=CART, 01942000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0280.SORTOUT), 01943000
|
|
// LABEL=(19,SL,,,EXPDT=99000), 01944000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01945000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01946000
|
|
//****************************************************************** 01947000
|
|
//STEP0300 EXEC PGM=SORT, BATCH HEADERS 01948000
|
|
// COND=(0,LT) 01949000
|
|
//SYSOUT DD SYSOUT=* 01949100
|
|
//SORTOUT DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X151&BKUPGEN., 01949302
|
|
// DISP=SHR 01949401
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151, 01949501
|
|
// DISP=(,CATLG,DELETE), 01949600
|
|
// UNIT=CART, 01949700
|
|
// VOLUME=(,RETAIN,REF=*.STEP0290.SORTOUT), 01949800
|
|
// LABEL=(20,SL,,,EXPDT=99000), 01949900
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01950000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01950100
|
|
//****************************************************************** 01950200
|
|
//STEP0310 EXEC PGM=SORT, BATCH HEADERS 01951000
|
|
// COND=(0,LT) 01952000
|
|
//SYSOUT DD SYSOUT=* 01953000
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X152&BKUPGEN., 01955002
|
|
// DISP=SHR 01955101
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152, 01955201
|
|
// DISP=(,CATLG,DELETE), 01956000
|
|
// UNIT=CART, 01957000
|
|
// VOLUME=(,RETAIN,REF=*.STEP0300.SORTOUT), 01958000
|
|
// LABEL=(21,SL,,,EXPDT=99000), 01959000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01959100
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01959200
|
|
//****************************************************************** 01959300
|
|
//STEP0320 EXEC PGM=SORT, BATCH HEADERS 01959400
|
|
// COND=(0,LT) 01959500
|
|
//SYSOUT DD SYSOUT=* 01959600
|
|
//SORTIN DD DSN=DOESTAX.&FTPNODE..&BCKNODE..FTP.X155&BKUPGEN., 01959802
|
|
// DISP=SHR 01959901
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155, 01960001
|
|
// DISP=(,CATLG,DELETE), 01960100
|
|
// UNIT=CART, 01960200
|
|
// VOLUME=(,RETAIN,REF=*.STEP0310.SORTOUT), 01961000
|
|
// LABEL=(22,SL,,,EXPDT=99000), 01962000
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=25600) 01963000
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 01964000
|
|
//****************************************************************** 01970000
|