59 lines
2.1 KiB
Plaintext
59 lines
2.1 KiB
Plaintext
//DTSGSI98 JOB (UI,4300,03410,P),'SEND-ACH-DEBIT-WF',REGION=4000K,
|
|
//*** USER=#DOADTS,
|
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
|
|
/*ROUTE PRINT U@PRT65
|
|
//*
|
|
// SET LVLNODE='DEVL'
|
|
// SET MSTNODE='PROD'
|
|
// SET IMPNODE='CONV'
|
|
// SET BTCNODE='DEVL'
|
|
// SET PRGNODE='CONV'
|
|
// SET LVDHOLD='YES'
|
|
//*
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIELIB
|
|
//**
|
|
//********************************************************************
|
|
//**** UIBS DAILY CHARGE FILE WILL BE AVAILABLE FOR SFTP @2:00AM
|
|
//**** OIT JOB WILL RUN @6:00AM TO PICK UP JOB FROM GSI SFTP SERVER
|
|
//**** MAINFRAME. THIS JOB WILL RUN DAILY AT 7:00 AM 2/15/24 zl1
|
|
//*******************************************************************
|
|
//* use only when ftp not working. zl1
|
|
//**********************************************************************
|
|
//* COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
|
|
//**********************************************************************
|
|
//*
|
|
//STEP0101 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
|
|
//*
|
|
//OUTDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
|
|
//SYSIN DD *
|
|
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
|
/*
|
|
//
|
|
//*** send email daily charges transmitted to dutas
|
|
//**
|
|
/*
|
|
//X706PASS EXEC PGM=IEBGENER,COND=(0,NE,STEP0100),
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'CC:RAGINI.JUJJAVARAPU@DC.GOV',
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
|
// 'SUBJECT:UIBS DAILY CHARGES---TRANSFERRED--- TO DUTAS',
|
|
// 'FILENAME:UIBC_X480_PASSED.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X480PASS.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
// ENDIF
|
|
//**STOP HER FOR NOW ZL1
|
|
//
|
|
//********************************************************************
|