92 lines
5.1 KiB
Plaintext
92 lines
5.1 KiB
Plaintext
//DTSGSID1 JOB (UI,4300,3400,T),JHP.CHGDLY,CLASS=A,MSGCLASS=X, 00000160
|
|
//*** TYPRUN=SCAN, 00000225
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,REGION=0M 00000564
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**** 00000637
|
|
// SET PRGNODE='PROD' /* DAILY CHARGING UPDATE FROM 00000760
|
|
// SET LVLNODE='PROD' /* UI BENEFITS TO UI TAX 00000860
|
|
// SET MSTNODE='PROD' 00000960
|
|
// SET CHGNODE='PROD' 00001060
|
|
// SET CHGMNBR='CHGM002' 00001149
|
|
// SET CHGMSSN='CHGM030' 00001249
|
|
// SET BKPGEN='(+1)' /* 200 BACKUP GENERATIONS 00001349
|
|
// SET LDEST=U@PRT65 00001449
|
|
// SET LHOLD='YES' 00001549
|
|
// SET BD200='Y' /* TOLERATE DUPS OR NOT 00001662
|
|
//**** 00001749
|
|
//* DAILY BENEFIT CHARGE PROCESS 00002003
|
|
//**** 00002425
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00003026
|
|
//*OADLIBS INCLUDE MEMBER=DTSIJLIB 00003227
|
|
//LOADLIBS INCLUDE MEMBER=DTSIKLIB 00003227
|
|
//**** 00003325
|
|
//STEP0100 EXEC DTSUXGSI /*EXTRACT AND UPDATE CHARGE FILE 00003963
|
|
//**** 00005461
|
|
//*STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
|
|
//* LDEST=U@PRT65, 00005660
|
|
//* LHOLD='YES' 00005760
|
|
//** 00005860
|
|
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
|
|
//*STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
|
|
//*DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
|
|
//* 00001749
|
|
//* DAILY BENEFIT CHARGE BACKUP 00002003
|
|
//*********************************************************************
|
|
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
|
|
//********************************************************************
|
|
//*
|
|
//*STEP0100 EXEC DTSUTCHG,
|
|
//* BKUPGEN='(+1)',freq='DAILY'
|
|
//*
|
|
// IF (STEP0100.STEP0100.RC NE 0) THEN
|
|
//EMAIL001 EXEC PGM=IEBGENER,
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
// 'SUBJECT: !!!!! NO DAILY CHARGES-FROM GSI )',
|
|
// 'FILEDESC: GSI DAILY CHARGES ',
|
|
// 'FILENAME:GSICHARGES.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.GSI.CHARGES.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
// ELSE
|
|
//EMAIL002 EXEC PGM=IEBGENER,
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
// 'SUBJECT: DAILY CHARGES-FROM GSI UPLOADED )',
|
|
// 'FILEDESC: GSI DAILY CHARGES ',
|
|
// 'FILENAME:GSICHARGES.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.GSI.CHARGES.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
// ENDIF
|
|
//*
|
|
//*********************************************************************
|
|
//* // 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.PROD.FTP.CHARGE' +
|
|
ECNTSUP.DOESTAX.PROD.FTP.CHARGE
|
|
QUIT
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTOUT DD SYSOUT=*
|
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//SYSGET DD *,DCB=BLKSIZE=80
|
|
// |