//**** 00000100 //** 00000200 //** DAILY ATC FILE UPDATE EXTRACT. 00000399 //** (*NO* MSTR UPDATE) 00000505 //** 00000605 //DTSBX347 PROC 00000799 //* 00000899 //** DEFNS NEEDED FOR THIS PROC: 00001105 //** LVLNODE = DEVL/TEST/PROD 00001205 //**** 00001408 //STEP0100 EXEC PGM=DTSBX347, PERIODIC EXTRACT 00001599 // COND=(0,LT) 00001699 //* 00001819 //SYSOUT DD SYSOUT=* 00004001 //SYSABOUT DD SYSOUT=* 00005001 //SYSUDUMP DD SYSOUT=* 00006001 //* 00013199 //**** 00082099 //DTSFATHI DD DSN=DOESTAX.&MSTNODE..VSAM.ATH,DISP=SHR, 00083099 // AMP=('BUFNI=5,BUFND=10') 00085099 //* 00085499 //ATHFTRNO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHTRN, 00085599 //* DISP=(NEW,CATLG,CATLG), 00085699 // DISP=(OLD,KEEP,KEEP), 00085799 // UNIT=SYSDA, 00085899 // SPACE=(CYL,(10,5),RLSE), 00085999 // DCB=(RECFM=FB,LRECL=48,BLKSIZE=24000) 00086099 //* 00086199 //ATHFHDRO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHHDR, 00086299 //* DISP=(NEW,CATLG,CATLG), 00086399 // DISP=(OLD,KEEP,KEEP), 00086499 // UNIT=SYSDA, 00086599 // SPACE=(CYL,(10,5),RLSE), 00086699 // DCB=(RECFM=FB,LRECL=134,BLKSIZE=26800) 00086799 //* 00086899 //ATHFRPTO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHRPT, 00086999 //* DISP=(NEW,CATLG,CATLG), 00087099 // DISP=(OLD,KEEP,KEEP), 00087199 // UNIT=SYSDA, 00087299 // SPACE=(CYL,(10,5),RLSE), 00087399 // DCB=(RECFM=FB,LRECL=190,BLKSIZE=28500) 00087499 //* 00087599 //ATHFATXO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHATX, 00087699 //* DISP=(NEW,CATLG,CATLG), 00087799 // DISP=(OLD,KEEP,KEEP), 00087899 // UNIT=SYSDA, 00087999 // SPACE=(CYL,(10,5),RLSE), 00088099 // DCB=(RECFM=FB,LRECL=234,BLKSIZE=28080) 00088199 //* 00088299 //ATHFPAYO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHPAY, 00088399 //* DISP=(NEW,CATLG,CATLG), 00088499 // DISP=(OLD,KEEP,KEEP), 00088599 // UNIT=SYSDA, 00088699 // SPACE=(CYL,(10,5),RLSE), 00088799 // DCB=(RECFM=FB,LRECL=113,BLKSIZE=28250) 00088899 //* 00088999 //ATHFADJO DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.ATHADJ, 00089099 //* DISP=(NEW,CATLG,CATLG), 00090099 // DISP=(OLD,KEEP,KEEP), 00100099 // UNIT=SYSDA, 00110099 // SPACE=(CYL,(10,5),RLSE), 00120099 // DCB=(RECFM=FB,LRECL=138,BLKSIZE=28980) 00130099 //* 00140099