All Z' modified PROD server code merge 09/10/2025
This commit is contained in:
@ -28,7 +28,7 @@
|
||||
//* OUTPUT FILE: 00001700
|
||||
//* 00001700
|
||||
//* 00001700
|
||||
//* THIS JOB MAY BE RERUN. 00001700
|
||||
//* THIS JOB MAY BE RERUN. TESTING RC ZL1 09/06/25 00001700
|
||||
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
|
||||
//** 00001700
|
||||
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
@ -108,7 +108,8 @@
|
||||
//*
|
||||
//STEP0400 EXEC DTSBX626
|
||||
//***********************************************************
|
||||
//*
|
||||
//
|
||||
//
|
||||
// IF (STEP0400.STEP0450.RC EQ 0) THEN
|
||||
//STEP0500 EXEC PGM=IEBGENER,REGION=4M,
|
||||
// COND=(0,LT)
|
||||
@ -122,7 +123,7 @@
|
||||
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*
|
||||
// ELSE
|
||||
@ -139,7 +140,7 @@
|
||||
// 'FILENAME:ESSP_DUTAS_ACH_DEPOSIT.TXT'),
|
||||
// MAILFROM=DUTAS@DC.GOV
|
||||
//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.ACH.DEPOSIT,DISP=SHR
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSUT2 DD SCODEPAGE=1252,AUTOENCODE=YES,YSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//*
|
||||
// ENDIF
|
||||
|
||||
Reference in New Issue
Block a user