From 8dc02049720b7701c398a5634a052f24e8091e90 Mon Sep 17 00:00:00 2001 From: Manoj Patel Date: Fri, 19 Sep 2025 12:33:15 -0400 Subject: [PATCH] From UAT Z's file modified --- Batch/DESBD471.cob | 2 +- Batch/DESBD481.cob | 2 +- Batch/DTSBU981.cob | 4 +- Batch/DTSBX426.cob | 3072 +++++++++++++++++++++-------------------- Batch/DTSBX430.cob | 8 +- Batch/DTSBX626.cob | 423 +++--- Batch/DTSZX417.cob | 2146 ++++++++++++++++++++++++++++ Batch/GENT350.cob | 3 +- Copybook/DTSHX145.TXT | 41 + Copybook/DTSIL415.cpy | 6 +- Copybook/DTSIMQTR.cpy | 383 ++--- Copybook/DTSIP007.cpy | 4 +- Copybook/DTSIR316.cpy | 62 +- Copybook/DTSIS82.cpy | 30 +- Copybook/DTSIS89.cpy | 58 +- Copybook/DTSIWWGH.cpy | 2 +- JCL/DTSBX303.jcl | 3 +- JCL/DTSFRAUD.jcl | 41 +- JCL/DTSGCHKS.jcl | 52 +- JCL/DTSGZCHD.jcl | 93 ++ JCL/DTSPDAY1.jcl | 8 +- JCL/DTSPDAY7.jcl | 8 +- JCL/DTSPODC4.jcl | 2 +- JCL/DTSPODC6.jcl | 2 +- JCL/DTSPVIEW.jcl | 2 +- JCL/DTSPX148.jcl | 2 +- JCL/DTSRACHD.jcl | 8 +- JCL/DTSRBTCH.jcl | 4 +- JCL/DTSRDAY1.jcl | 2 +- JCL/DTSRQ320.jcl | 6 +- JCL/DTSRQ513.jcl | 9 +- JCL/DTSZPAYT.jcl | 151 ++ JCL/DTSZWAGE.jcl | 156 +++ JCL/DTZGACHD.jcl | 20 +- Procs/DTSBXPAZ | 159 +++ Procs/DTSBZCHK | 124 ++ Procs/DTSRERPZ | 396 ++++++ Procs/DTSZX425 | 87 ++ Procs/DTSZXPAY | 127 ++ Procs/DTSZZBX425 | 83 ++ 40 files changed, 5728 insertions(+), 2063 deletions(-) create mode 100644 Batch/DTSZX417.cob create mode 100644 Copybook/DTSHX145.TXT create mode 100644 JCL/DTSGZCHD.jcl create mode 100644 JCL/DTSZPAYT.jcl create mode 100644 JCL/DTSZWAGE.jcl create mode 100644 Procs/DTSBXPAZ create mode 100644 Procs/DTSBZCHK create mode 100644 Procs/DTSRERPZ create mode 100644 Procs/DTSZX425 create mode 100644 Procs/DTSZXPAY create mode 100644 Procs/DTSZZBX425 diff --git a/Batch/DESBD471.cob b/Batch/DESBD471.cob index 987c76b..cfce5d0 100644 --- a/Batch/DESBD471.cob +++ b/Batch/DESBD471.cob @@ -212,7 +212,7 @@ 00211 ++INCLUDE DTSIL981 DESBD471 00212 DESBD471 00213 01 WWGH-REC. DESBD471 -00214 ++INCLUDE DTSIWWGZ DESBD471 +00214 ++INCLUDE DTSIWWGH DESBD471 00215 DESBD471 00216 01 L983-LINK-AREA. DESBD471 00217 ++INCLUDE DTSIL983 DESBD471 diff --git a/Batch/DESBD481.cob b/Batch/DESBD481.cob index 63e27ac..0f31ed1 100644 --- a/Batch/DESBD481.cob +++ b/Batch/DESBD481.cob @@ -209,7 +209,7 @@ 00208 ++INCLUDE DTSIL981 CL*69 00209 CL*69 00210 01 WWGH-REC. CL*69 -00211 ++INCLUDE DTSIWWGZ CL*69 +00211 ++INCLUDE DTSIWWGH CL*69 00212 CL*69 00213 01 L983-LINK-AREA. DESBD481 00214 ++INCLUDE DTSIL983 DESBD481 diff --git a/Batch/DTSBU981.cob b/Batch/DTSBU981.cob index db70d7d..9533a09 100644 --- a/Batch/DTSBU981.cob +++ b/Batch/DTSBU981.cob @@ -87,7 +87,7 @@ 00087 FD WGH-FILE. DTSBU981 00088 DTSBU981 00089 01 FILE-REC. DTSBU981 -00090 ++INCLUDE DTSIWWGZ DTSBU981 +00090 ++INCLUDE DTSIWWGH DTSBU981 00091 EJECT DTSBU981 00092 WORKING-STORAGE SECTION. DTSBU981 000925 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU981 @@ -131,7 +131,7 @@ 00130 EJECT DTSBU981 00131 01 LINK-REC. DTSBU981 00132 05 WWGH-REC. DTSBU981 -00133 ++INCLUDE DTSIWWGZ DTSBU981 +00133 ++INCLUDE DTSIWWGH DTSBU981 00134 EJECT DTSBU981 00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981 00136 LINK-REC. DTSBU981 diff --git a/Batch/DTSBX426.cob b/Batch/DTSBX426.cob index fd31552..b2ab938 100644 --- a/Batch/DTSBX426.cob +++ b/Batch/DTSBX426.cob @@ -1,1544 +1,1610 @@ -00001 IDENTIFICATION DIVISION. 09/14/25 +00001 IDENTIFICATION DIVISION. 04/20/20 00002 PROGRAM-ID. DTSBX426. DTSBX426 -00003 AUTHOR. NGC. LV149 +00003 AUTHOR. NGC. LV159 00004 DATE-WRITTEN. SEPT 2013. CL**2 00005 DATE-COMPILED. DTSBX426 00006 SKIP3 DTSBX426 -00007 *****THIS COPY HAS BEEN MOVED TO RAINCODE - 09/14/2025 **** CL149 -00008 ***** DTSBX426 -00009 * FUNCTION: READ A DAILY FILE FROM THE AUTOMATED CLEARING HOUSEDTSBX426 -00010 * THAT CONTAINS RECORDS FOR DISHONORED ELECTRONIC DTSBX426 -00011 * PAYMENTS. IT BUILDS DTSIT025 PAYMENT REVERSAL DTSBX426 -00012 * TRANSACTION RECORDS AND WRITES THESE RECORDS DTSBX426 -00013 * TO THE DAILY BTC FILE WHICH IS INPUT TO THE NIGHTLYDTSBX426 -00014 * ACCOUNTING UPDATE. DTSBX426 -00015 ** DTSBX426 -00016 ** 04/16/2015 PER UI CHIEF DO NOT CHARGE 65.00 RETURN FEE CL*77 -00017 ** FOR ACH RETURNS LESS THAN 15.00 ZL1 CL*77 -00018 ** CL*77 -00019 ** 04/21/2015 ALL ACH RETURN TRANSACTIONS WILL BE AUTO REVERSD CL109 -00020 ** ALL EMPLOYERS WITH SAME TRACE NO WILL BE CHARGED CL109 -00021 ** A 65.00 RETURN FEE. AN EMPLOYER WITH MULTIPLE ACH CL109 -00022 ** TRANSACTIONS WITH SAME TRACE NO WILL HAVE ONLY ONE CL109 -00023 ** 65.00 RETURN CHARGE FEE ZL1 CL109 -00024 SKIP3 DTSBX426 -00025 ** 04/27/2015 ALL ACH RETURN TRANSACTIONS WILL BE AUTO REVERSD CL120 -00026 ** ALL EMPLOYERS WITH SAME TRACE NO WILL BE CHARGED CL120 -00027 ** A 65.00 RETURN FEE. AN EMPLOYER WITH MULTIPLE ACH CL120 -00028 ** TRANSACTIONS WITH SAME TRACE NO WILL HAVE ONLY ONE CL120 -00029 ** 65.00 RETURN CHARGE FEE. ALL TRANSACTIONS WILL HAVE CL120 -00030 ** THE NG TRANSACTION TYPE. ZL1 CL120 -00031 SKIP3 CL120 -00032 ENVIRONMENT DIVISION. DTSBX426 -00033 CONFIGURATION SECTION. CL*12 -00034 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CL*12 -00035 CL*12 -00036 INPUT-OUTPUT SECTION. DTSBX426 -00037 DTSBX426 -00038 FILE-CONTROL. DTSBX426 +00007 ***** DTSBX426 +00008 * FUNCTION: READ A DAILY FILE FROM THE AUTOMATED CLEARING HOUSEDTSBX426 +00009 * THAT CONTAINS RECORDS FOR DISHONORED ELECTRONIC DTSBX426 +00010 * PAYMENTS. IT BUILDS DTSIT025 PAYMENT REVERSAL DTSBX426 +00011 * TRANSACTION RECORDS AND WRITES THESE RECORDS DTSBX426 +00012 * TO THE DAILY BTC FILE WHICH IS INPUT TO THE NIGHTLYDTSBX426 +00013 * ACCOUNTING UPDATE. DTSBX426 +00014 ** DTSBX426 +00015 ** 04/16/2015 PER UI CHIEF DO NOT CHARGE 65.00 RETURN FEE CL*77 +00016 ** FOR ACH RETURNS LESS THAN 15.00 ZL1 CL*77 +00017 ** CL*77 +00018 ** 04/21/2015 ALL ACH RETURN TRANSACTIONS WILL BE AUTO REVERSD CL109 +00019 ** ALL EMPLOYERS WITH SAME TRACE NO WILL BE CHARGED CL109 +00020 ** A 65.00 RETURN FEE. AN EMPLOYER WITH MULTIPLE ACH CL109 +00021 ** TRANSACTIONS WITH SAME TRACE NO WILL HAVE ONLY ONE CL109 +00022 ** 65.00 RETURN CHARGE FEE ZL1 CL109 +00023 SKIP3 DTSBX426 +00024 ** 04/27/2015 ALL ACH RETURN TRANSACTIONS WILL BE AUTO REVERSD CL120 +00025 ** ALL EMPLOYERS WITH SAME TRACE NO WILL BE CHARGED CL120 +00026 ** A 65.00 RETURN FEE. AN EMPLOYER WITH MULTIPLE ACH CL120 +00027 ** TRANSACTIONS WITH SAME TRACE NO WILL HAVE ONLY ONE CL120 +00028 ** 65.00 RETURN CHARGE FEE. ALL TRANSACTIONS WILL HAVE CL120 +00029 ** THE NG TRANSACTION TYPE. ZL1 CL120 +00030 SKIP3 CL120 +00031 ** 02/13/2020 CREATE PRINT RECORDS IR333 TO PRINT ACH RETURNED CL153 +00032 ** NOTICE FOR EMPLOYERS. ZL1 CL153 +00033 SKIP3 CL153 +00034 ENVIRONMENT DIVISION. DTSBX426 +00035 CONFIGURATION SECTION. CL*12 +00036 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CL*12 +00037 CL*12 +00038 INPUT-OUTPUT SECTION. DTSBX426 00039 DTSBX426 -00040 SELECT IN-FACH ASSIGN TO EFTFACH DTSBX426 -00041 FILE STATUS IS FACH-STATUS. DTSBX426 -00042 CL**5 -00043 SELECT ESSP-ACHD-FILE ASSIGN TO X426RPT1 CL*41 -00044 FILE STATUS IS REPT-STATUS. CL**5 -00045 CL*79 -00046 SELECT ESSP-ACHR-FILE ASSIGN TO X426RPT2 CL*83 -00047 FILE STATUS IS REPT-STATUS. CL*83 -00048 CL*83 -00049 SELECT PEND-FACH-FILE ASSIGN TO PENDFACH CL*79 -00050 FILE STATUS IS REPT-STATUS. CL*79 -00051 CL**5 -00052 DTSBX426 -00053 DATA DIVISION. DTSBX426 +00040 FILE-CONTROL. DTSBX426 +00041 DTSBX426 +00042 SELECT IN-FACH ASSIGN TO EFTFACH DTSBX426 +00043 FILE STATUS IS FACH-STATUS. DTSBX426 +00044 CL**5 +00045 SELECT ESSP-ACHD-FILE ASSIGN TO X426RPT1 CL*41 +00046 FILE STATUS IS REPT-STATUS. CL**5 +00047 CL*79 +00048 SELECT ESSP-ACHR-FILE ASSIGN TO X426RPT2 CL*83 +00049 FILE STATUS IS REPT-STATUS. CL*83 +00050 CL*83 +00051 SELECT PEND-FACH-FILE ASSIGN TO PENDFACH CL*79 +00052 FILE STATUS IS REPT-STATUS. CL*79 +00053 CL**5 00054 DTSBX426 -00055 FILE SECTION. DTSBX426 +00055 DATA DIVISION. DTSBX426 00056 DTSBX426 -00057 FD IN-FACH DTSBX426 -00058 LABEL RECORDS ARE STANDARD DTSBX426 -00059 RECORDING MODE IS F DTSBX426 -00060 BLOCK CONTAINS 0 RECORDS. DTSBX426 -00061 DTSBX426 -00062 01 IN-FACH-REC. CL*50 -00063 05 FACH-REC-94 PIC X(94). CL*50 -00064 05 FILLER PIC X(418). CL*50 -00065 DTSBX426 -00066 FD PEND-FACH-FILE CL*79 -00067 LABEL RECORDS ARE STANDARD CL*79 -00068 RECORDING MODE IS F CL*79 -00069 BLOCK CONTAINS 0 RECORDS. CL*79 -00070 CL*79 -00071 01 PEND-FACH-REC PIC X(512). CL*79 +00057 FILE SECTION. DTSBX426 +00058 DTSBX426 +00059 FD IN-FACH DTSBX426 +00060 LABEL RECORDS ARE STANDARD DTSBX426 +00061 RECORDING MODE IS F DTSBX426 +00062 BLOCK CONTAINS 0 RECORDS. DTSBX426 +00063 DTSBX426 +00064 01 IN-FACH-REC. CL*50 +00065 05 FACH-REC-94 PIC X(94). CL*50 +00066 05 FILLER PIC X(418). CL*50 +00067 DTSBX426 +00068 FD PEND-FACH-FILE CL*79 +00069 LABEL RECORDS ARE STANDARD CL*79 +00070 RECORDING MODE IS F CL*79 +00071 BLOCK CONTAINS 0 RECORDS. CL*79 00072 CL*79 -00073 FD ESSP-ACHD-FILE CL**5 -00074 RECORDING MODE IS F CL**5 -00075 BLOCK CONTAINS 0 RECORDS CL**5 -00076 LABEL RECORDS ARE OMITTED. CL**5 -00077 CL**5 -00078 01 ESSP-ACHD-REC PIC X(133). CL**8 +00073 01 PEND-FACH-REC PIC X(512). CL*79 +00074 CL*79 +00075 FD ESSP-ACHD-FILE CL**5 +00076 RECORDING MODE IS F CL**5 +00077 BLOCK CONTAINS 0 RECORDS CL**5 +00078 LABEL RECORDS ARE OMITTED. CL**5 00079 CL**5 -00080 FD ESSP-ACHR-FILE CL*83 -00081 RECORDING MODE IS F CL*83 -00082 BLOCK CONTAINS 0 RECORDS CL*83 -00083 LABEL RECORDS ARE OMITTED. CL*83 -00084 CL*83 -00085 01 ESSP-ACHR-REC PIC X(133). CL*83 +00080 01 ESSP-ACHD-REC PIC X(133). CL**8 +00081 CL**5 +00082 FD ESSP-ACHR-FILE CL*83 +00083 RECORDING MODE IS F CL*83 +00084 BLOCK CONTAINS 0 RECORDS CL*83 +00085 LABEL RECORDS ARE OMITTED. CL*83 00086 CL*83 -00087 DTSBX426 -00088 WORKING-STORAGE SECTION. DTSBX426 -000885 77 PAN-VALET PICTURE X(24) VALUE '149DTSBX426 09/14/25'. DTSBX426 -00089 77 PAN-VALET PICTURE X(24) VALUE '216DTSBX425 01/22/04'. CL**2 -00090 DTSBX426 -00091 01 WRK-AREA. DTSBX426 -00092 DTSBX426 -00093 05 WRK-F907-REC-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX426 -00094 05 WRK-FAC6-EMP-NO PIC 9(06) VALUE 0. CL125 -00095 05 WS-FAC6-DUTAS-EMP-NAME. CL129 -00096 10 WS-FAC6-DUTAS-EMP-NAMEA PIC X(4) VALUE SPACES. CL129 -00097 10 WS-FAC6-DUTAS-EMP-NAMEB PIC X(36) VALUE SPACES. CL129 -00098 DTSBX426 -00099 05 FACH-STATUS PIC X(02). DTSBX426 -00100 88 FACH-STATUS-EOF-88 VALUE '10'. CL**7 -00101 88 FACH-STATUS-OK-88 VALUE '00'. CL**7 -00102 DTSBX426 -00103 05 REPT-STATUS PIC X(02). CL*10 -00104 88 REPT-STATUS-EOF-88 VALUE '10'. CL*10 -00105 88 REPT-STATUS-OK-88 VALUE '00'. CL*12 -00106 CL*10 -00107 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +50. DTSBX426 -00108 DTSBX426 -00109 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX425'. CL**2 -00110 05 WRK-RTN-CD PIC X(05) VALUE SPACES. CL*46 -00111 05 WRK-FAC7-RTN-CD PIC X(05) VALUE SPACES. CL*83 -00112 05 WRK-DTS-RTN-CD PIC X(05) VALUE SPACES. CL*84 -00113 DTSBX426 -00114 05 WRK-MPAY-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSBX426 -00115 05 TOT-MPAY-AMOUNT PIC S9(09)V9(02) COMP-3. CL115 -00116 05 WRK-MPAY-EMP-AMT PIC S9(09)V9(02) COMP-3. CL137 -00117 DTSBX426 -00118 05 WRK-CURR-DATE PIC S9(15) COMP-3. DTSBX426 -00119 05 WRK-CURR-TIME PIC S9(09) COMP-3. DTSBX426 +00087 01 ESSP-ACHR-REC PIC X(133). CL*83 +00088 CL*83 +00089 DTSBX426 +00090 CL158 +00091 WORKING-STORAGE SECTION. DTSBX426 +000915 77 PAN-VALET PICTURE X(24) VALUE '159DTSBX426 04/20/20'. DTSBX426 +00092 77 PAN-VALET PICTURE X(24) VALUE '216DTSBX425 01/22/04'. CL**2 +00093 DTSBX426 +00094 01 WRK-AREA. DTSBX426 +00095 DTSBX426 +00096 05 WRK-F907-REC-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX426 +00097 05 WRK-FAC6-EMP-NO PIC 9(06) VALUE 0. CL125 +00098 05 WS-FAC6-DUTAS-EMP-NAME. CL129 +00099 10 WS-FAC6-DUTAS-EMP-NAMEA PIC X(4) VALUE SPACES. CL129 +00100 10 WS-FAC6-DUTAS-EMP-NAMEB PIC X(36) VALUE SPACES. CL129 +00101 DTSBX426 +00102 05 FACH-STATUS PIC X(02). DTSBX426 +00103 88 FACH-STATUS-EOF-88 VALUE '10'. CL**7 +00104 88 FACH-STATUS-OK-88 VALUE '00'. CL**7 +00105 DTSBX426 +00106 05 REPT-STATUS PIC X(02). CL*10 +00107 88 REPT-STATUS-EOF-88 VALUE '10'. CL*10 +00108 88 REPT-STATUS-OK-88 VALUE '00'. CL*12 +00109 CL*10 +00110 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +50. DTSBX426 +00111 DTSBX426 +00112 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBX425'. CL**2 +00113 05 WRK-RTN-CD PIC X(05) VALUE SPACES. CL*46 +00114 05 WRK-FAC7-RTN-CD PIC X(05) VALUE SPACES. CL*83 +00115 05 WRK-DTS-RTN-CD PIC X(05) VALUE SPACES. CL*84 +00116 DTSBX426 +00117 05 WRK-MPAY-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSBX426 +00118 05 TOT-MPAY-AMOUNT PIC S9(09)V9(02) COMP-3. CL115 +00119 05 WRK-MPAY-EMP-AMT PIC S9(09)V9(02) COMP-3. CL137 00120 DTSBX426 -00121 05 WRK-MPAY-EMP-CNT PIC S9(07) COMP-3. CL137 -00122 05 WRK-MPRF-READ-CNT PIC S9(07) COMP-3. CL137 -00123 05 WRK-MPAY-HOLD-EMP-NO PIC S9(07) COMP-3. CL106 -00124 05 WRK-FAC6-RECORDS PIC S9(07) COMP-3. DTSBX426 -00125 05 WRK-FAC7-RECORDS PIC S9(07) COMP-3. CL*10 -00126 05 WRK-OTHER-RECORDS PIC S9(07) COMP-3. DTSBX426 -00127 05 WRK-HEADER-RECORDS PIC S9(07) COMP-3. DTSBX426 -00128 05 WRK-TRAILER-RECORDS PIC S9(07) COMP-3. DTSBX426 -00129 05 WRK-T025-WRITE-CNT PIC S9(07) COMP-3. DTSBX426 -00130 05 WRK-T003-WRITE-CNT PIC S9(07) COMP-3. CL*72 -00131 05 WRK-R907-WRITE-CNT PIC S9(07) COMP-3. DTSBX426 -00132 05 WRK-F907-WRITE-CNT PIC S9(07) COMP-3. DTSBX426 -00133 05 WS-FAC7-PEN-CNT PIC S9(07) COMP-3. CL*85 -00134 05 WRK-FACH-READ-CNT PIC S9(07) COMP-3. DTSBX426 -00135 05 WRK-TRAILER-REC-CNT PIC S9(07) COMP-3. DTSBX426 -00136 05 WRK-FACH-SELECTED-CNT PIC S9(07) COMP-3. DTSBX426 -00137 05 WRK-FAC6-AMOUNT PIC S9(08)V99 COMP-3. DTSBX426 -00138 05 WRK-MPAY-AMOUNT PIC S9(08)V99 COMP-3. CL*99 -00139 05 WRK-TOLR-AMOUNT PIC S9(08)V99 COMP-3 CL*98 -00140 VALUE +15.00. CL102 -00141 05 TOT-FAC6-AMOUNT PIC S9(10)V99 COMP-3. DTSBX426 -00142 05 TOT-TRAILER-AMT PIC S9(10)V99 COMP-3. DTSBX426 -00143 05 WS-LINE-CNT PIC 9(05) VALUE 60. CL*10 -00144 05 WS-RETN-CNT PIC 9(05) VALUE 60. CL*88 -00145 05 WS-PAGE-CNT PIC 9(05) VALUE 0. CL*10 -00146 05 WRK-MPAY-CNT PIC 9(05) VALUE 0. CL107 -00147 05 WRK-FAC6-AMT-DISP PIC ---,---,999.99. CL*95 -00148 05 WRK-AMT-DISP1 PIC ---,---,999.99. CL*95 -00149 05 WRK-AMT-DISP2 PIC ---,---,999.99. CL*95 -00150 CL*33 -00151 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3 VALUE 0. CL*33 -00152 05 W-SLASH-DATE PIC X(10). CL*33 -00153 05 FILLER REDEFINES W-SLASH-DATE. CL*33 -00154 10 W-SLASH-DT-MM PIC X(02). CL*33 -00155 10 FILLER PIC X(01). CL*33 -00156 10 W-SLASH-DT-DD PIC X(02). CL*33 -00157 10 FILLER PIC X(01). CL*33 -00158 10 W-SLASH-DT-CCYY PIC X(04). CL*33 -00159 CL*33 -00160 05 WRK-FAC1-DATE. CL*92 -00161 10 WRK-FAC1-DATE-YY PIC X(02). CL*92 -00162 10 WRK-FAC1-DATE-MM PIC X(02). CL*92 -00163 10 WRK-FAC1-DATE-DD PIC X(02). CL*92 -00164 CL*92 -00165 05 WRK-RTN-DATE. CL*92 -00166 10 WRK-RTN-DATE-CC PIC 9(02) VALUE 20. CL*94 -00167 10 WRK-RTN-DATE-YY PIC 9(02). CL*94 -00168 10 WRK-RTN-DATE-MM PIC 9(02). CL*92 -00169 10 WRK-RTN-DATE-DD PIC 9(02). CL*93 -00170 CL*92 -00171 05 WRK-RECV-DATE PIC 9(8) VALUE ZERO. CL*92 -00172 CL*46 -00173 05 WS-HOLD-ITRT-REC PIC X(63). CL*47 -00174 CL*47 -00175 05 WRK-FAC7-RTN-CODE PIC X(01). CL*47 -00176 88 WRK-FAC7-RTN-VALID-88 VALUE 'Y'. CL*46 -00177 88 WRK-FAC7-RTN-INVALID-88 VALUE 'N'. CL*46 -00178 DTSBX426 -00179 05 WRK-TEMP-TRACE-NO. DTSBX426 -00180 10 WRK-TEMP-TRACE-NOA PIC X(06) VALUE ZEROS. CL*21 -00181 10 WRK-TEMP-TRACE-NOB PIC X(09) VALUE ZEROS. CL*21 -00182 DTSBX426 -00183 05 WRK-NUMR-TRACE-NO PIC 9(13) VALUE ZEROS. CL*21 -00184 DTSBX426 -00185 05 WRK-FAC6-DOES-TRACE-NO PIC S9(13) COMP-3. CL**4 -00186 CL106 -00187 05 WRK-TRACE-NO-IND PIC X(01). CL106 -00188 88 TRACE-NO-END-YES-88 VALUE 'Y'. CL107 -00189 88 TRACE-NO-END-NO-88 VALUE 'N'. CL107 -00190 CL106 -00191 DTSBX426 -00192 05 WRK-MPRF-IND PIC X(01). DTSBX426 -00193 88 WRK-MPRF-OK VALUE 'Y'. DTSBX426 -00194 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBX426 -00195 DTSBX426 -00196 05 WRK-MPAY-IND PIC X(01). DTSBX426 -00197 88 MPAY-FOUND-YES-88 VALUE 'Y'. DTSBX426 -00198 88 MPAY-FOUND-NO-88 VALUE 'N'. DTSBX426 -00199 DTSBX426 -00200 05 WRK-TOLR-IND PIC X(01). CL*98 -00201 88 WRK-TOLR-YES-88 VALUE 'Y'. CL*98 -00202 88 WRK-TOLR-NO-88 VALUE 'N'. CL*98 -00203 CL*98 -00204 05 WRK-MPRF-IND PIC X(01). CL*66 -00205 88 MPRF-FOUND-YES-88 VALUE 'Y'. CL*66 -00206 88 MPRF-FOUND-NO-88 VALUE 'N'. CL*66 -00207 CL*66 -00208 05 WRK-ITRT-IND PIC X(01). CL*79 -00209 88 ITRT-FOUND-YES-88 VALUE 'Y'. CL*79 -00210 88 ITRT-FOUND-NO-88 VALUE 'N'. CL*79 -00211 CL*79 -00212 05 WRITE-T025-IND PIC X(01). DTSBX426 -00213 88 WRITE-T025-YES-88 VALUE 'Y'. DTSBX426 -00214 88 WRITE-T025-NO-88 VALUE 'N'. DTSBX426 -00215 DTSBX426 -00216 05 WRK-DTSBU005-IND PIC X(01). DTSBX426 -00217 88 WRK-DTSBU005-YES VALUE 'Y'. DTSBX426 -00218 88 WRK-DTSBU005-NO VALUE 'N'. DTSBX426 -00219 DTSBX426 -00220 05 WRK-FACH-PEND PIC X(01). CL*84 -00221 88 WRK-FACH-PEND-REC-YES-88 VALUE 'Y'. CL*83 -00222 88 WRK-FACH-PEND-REC-NO-88 VALUE 'N'. CL*83 -00223 CL*83 -00224 05 WRK-FAC1-IND PIC X(01). DTSBX426 -00225 88 WRK-FAC1-FIRST-OK VALUE 'Y'. DTSBX426 -00226 88 WRK-FAC1-FIRST-NO VALUE 'N'. DTSBX426 -00227 DTSBX426 -00228 05 WRK-FACH-IND PIC X(01). DTSBX426 -00229 88 WRK-FACH-LAST-REC-88 VALUE 'Y'. DTSBX426 +00121 05 WRK-CURR-DATE PIC S9(15) COMP-3. DTSBX426 +00122 05 WRK-CURR-TIME PIC S9(09) COMP-3. DTSBX426 +00123 DTSBX426 +00124 05 WRK-MPAY-EMP-CNT PIC S9(07) COMP-3. CL137 +00125 05 WRK-MPRF-READ-CNT PIC S9(07) COMP-3. CL137 +00126 05 WRK-MPAY-HOLD-EMP-NO PIC S9(07) COMP-3. CL106 +00127 05 WRK-FAC6-RECORDS PIC S9(07) COMP-3. DTSBX426 +00128 05 WRK-FAC7-RECORDS PIC S9(07) COMP-3. CL*10 +00129 05 WRK-OTHER-RECORDS PIC S9(07) COMP-3. DTSBX426 +00130 05 WRK-HEADER-RECORDS PIC S9(07) COMP-3. DTSBX426 +00131 05 WRK-TRAILER-RECORDS PIC S9(07) COMP-3. DTSBX426 +00132 05 WRK-T025-WRITE-CNT PIC S9(07) COMP-3. DTSBX426 +00133 05 WRK-T003-WRITE-CNT PIC S9(07) COMP-3. CL*72 +00134 05 WRK-R907-WRITE-CNT PIC S9(07) COMP-3. DTSBX426 +00135 05 WRK-F907-WRITE-CNT PIC S9(07) COMP-3. DTSBX426 +00136 05 WS-FAC7-PEN-CNT PIC S9(07) COMP-3. CL*85 +00137 05 WRK-FACH-READ-CNT PIC S9(07) COMP-3. DTSBX426 +00138 05 WRK-TRAILER-REC-CNT PIC S9(07) COMP-3. DTSBX426 +00139 05 WRK-FACH-SELECTED-CNT PIC S9(07) COMP-3. DTSBX426 +00140 05 WRK-FAC6-AMOUNT PIC S9(08)V99 COMP-3. DTSBX426 +00141 05 WRK-MPAY-AMOUNT PIC S9(08)V99 COMP-3. CL*99 +00142 05 WRK-TOLR-AMOUNT PIC S9(08)V99 COMP-3 CL*98 +00143 VALUE +15.00. CL102 +00144 05 TOT-FAC6-AMOUNT PIC S9(10)V99 COMP-3. DTSBX426 +00145 05 TOT-TRAILER-AMT PIC S9(10)V99 COMP-3. DTSBX426 +00146 05 WS-LINE-CNT PIC 9(05) VALUE 60. CL*10 +00147 05 WS-RETN-CNT PIC 9(05) VALUE 60. CL*88 +00148 05 WS-PAGE-CNT PIC 9(05) VALUE 0. CL*10 +00149 05 WRK-MPAY-CNT PIC 9(05) VALUE 0. CL107 +00150 05 WRK-FAC6-AMT-DISP PIC ---,---,999.99. CL*95 +00151 05 WRK-AMT-DISP1 PIC ---,---,999.99. CL*95 +00152 05 WRK-AMT-DISP2 PIC ---,---,999.99. CL*95 +00153 CL*33 +00154 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3 VALUE 0. CL*33 +00155 05 W-SLASH-DATE PIC X(10). CL*33 +00156 05 FILLER REDEFINES W-SLASH-DATE. CL*33 +00157 10 W-SLASH-DT-MM PIC X(02). CL*33 +00158 10 FILLER PIC X(01). CL*33 +00159 10 W-SLASH-DT-DD PIC X(02). CL*33 +00160 10 FILLER PIC X(01). CL*33 +00161 10 W-SLASH-DT-CCYY PIC X(04). CL*33 +00162 CL*33 +00163 05 WRK-FAC1-DATE. CL*92 +00164 10 WRK-FAC1-DATE-YY PIC X(02). CL*92 +00165 10 WRK-FAC1-DATE-MM PIC X(02). CL*92 +00166 10 WRK-FAC1-DATE-DD PIC X(02). CL*92 +00167 CL*92 +00168 05 WRK-RTN-DATE. CL*92 +00169 10 WRK-RTN-DATE-CC PIC 9(02) VALUE 20. CL*94 +00170 10 WRK-RTN-DATE-YY PIC 9(02). CL*94 +00171 10 WRK-RTN-DATE-MM PIC 9(02). CL*92 +00172 10 WRK-RTN-DATE-DD PIC 9(02). CL*93 +00173 CL*92 +00174 05 WRK-RECV-DATE PIC 9(8) VALUE ZERO. CL*92 +00175 CL*46 +00176 05 WS-HOLD-ITRT-REC PIC X(63). CL*47 +00177 CL*47 +00178 05 WRK-FAC7-RTN-CODE PIC X(01). CL*47 +00179 88 WRK-FAC7-RTN-VALID-88 VALUE 'Y'. CL*46 +00180 88 WRK-FAC7-RTN-INVALID-88 VALUE 'N'. CL*46 +00181 DTSBX426 +00182 05 WRK-TEMP-TRACE-NO. DTSBX426 +00183 10 WRK-TEMP-TRACE-NOA PIC X(06) VALUE ZEROS. CL*21 +00184 10 WRK-TEMP-TRACE-NOB PIC X(09) VALUE ZEROS. CL*21 +00185 DTSBX426 +00186 05 WRK-NUMR-TRACE-NO PIC 9(13) VALUE ZEROS. CL*21 +00187 DTSBX426 +00188 05 WRK-FAC6-DOES-TRACE-NO PIC S9(13) COMP-3. CL**4 +00189 CL106 +00190 05 WRK-TRACE-NO-IND PIC X(01). CL106 +00191 88 TRACE-NO-END-YES-88 VALUE 'Y'. CL107 +00192 88 TRACE-NO-END-NO-88 VALUE 'N'. CL107 +00193 CL106 +00194 DTSBX426 +00195 05 WRK-MPRF-IND PIC X(01). DTSBX426 +00196 88 WRK-MPRF-OK VALUE 'Y'. DTSBX426 +00197 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBX426 +00198 DTSBX426 +00199 05 WRK-MPAY-IND PIC X(01). DTSBX426 +00200 88 MPAY-FOUND-YES-88 VALUE 'Y'. DTSBX426 +00201 88 MPAY-FOUND-NO-88 VALUE 'N'. DTSBX426 +00202 DTSBX426 +00203 05 WRK-TOLR-IND PIC X(01). CL*98 +00204 88 WRK-TOLR-YES-88 VALUE 'Y'. CL*98 +00205 88 WRK-TOLR-NO-88 VALUE 'N'. CL*98 +00206 CL*98 +00207 05 WRK-MPRF-IND PIC X(01). CL*66 +00208 88 MPRF-FOUND-YES-88 VALUE 'Y'. CL*66 +00209 88 MPRF-FOUND-NO-88 VALUE 'N'. CL*66 +00210 CL*66 +00211 05 WRK-ITRT-IND PIC X(01). CL*79 +00212 88 ITRT-FOUND-YES-88 VALUE 'Y'. CL*79 +00213 88 ITRT-FOUND-NO-88 VALUE 'N'. CL*79 +00214 CL*79 +00215 05 WRITE-T025-IND PIC X(01). DTSBX426 +00216 88 WRITE-T025-YES-88 VALUE 'Y'. DTSBX426 +00217 88 WRITE-T025-NO-88 VALUE 'N'. DTSBX426 +00218 DTSBX426 +00219 05 WRK-DTSBU005-IND PIC X(01). DTSBX426 +00220 88 WRK-DTSBU005-YES VALUE 'Y'. DTSBX426 +00221 88 WRK-DTSBU005-NO VALUE 'N'. DTSBX426 +00222 DTSBX426 +00223 05 WRK-FACH-PEND PIC X(01). CL*84 +00224 88 WRK-FACH-PEND-REC-YES-88 VALUE 'Y'. CL*83 +00225 88 WRK-FACH-PEND-REC-NO-88 VALUE 'N'. CL*83 +00226 CL*83 +00227 05 WRK-FAC1-IND PIC X(01). DTSBX426 +00228 88 WRK-FAC1-FIRST-OK VALUE 'Y'. DTSBX426 +00229 88 WRK-FAC1-FIRST-NO VALUE 'N'. DTSBX426 00230 DTSBX426 -00231 05 WRK-TRACE-IND PIC X(01). DTSBX426 -00232 DTSBX426 -00233 01 WRK-MNTE-SUBJECT. CL*74 -00234 10 NTE-SUBJ PIC X(19) CL*70 -00235 VALUE 'ACH PAYMENT RETURN '. CL*70 -00236 01 WRK-MNTE-REASON. CL*70 -00237 10 FILLER PIC X(13) CL*70 -00238 VALUE 'CODE/REASON: '. CL*70 -00239 10 NTE-REASON PIC X(54). CL*70 -00240 01 WRK-MNTE-TRACE-NO. CL*70 -00241 10 FILLER PIC X(13) CL*70 -00242 VALUE ' TRACE NO: '. CL*70 -00243 10 NTE-TRACE-NO PIC X(13). CL*70 -00244 01 WRK-MNTE-DEP-DATE. CL*70 -00245 10 FILLER PIC X(13) CL*70 -00246 VALUE 'RECEIVD DTE: '. CL121 -00247 10 NTE-DEPOSIT-DATE PIC X(13). CL*70 -00248 01 WRK-MNTE-BATCH-ITEM. CL*70 -00249 10 FILLER PIC X(13) CL*70 -00250 VALUE ' BATCH/ITEM: '. CL*70 -00251 10 NTE-BATCH-NO PIC X(5). CL*70 -00252 10 FILLER PIC X(1) VALUE '/'. CL*70 -00253 10 NTE-ITEM-NO PIC XXX. CL*70 -00254 01 WRK-MNTE-ACCT-NO. CL*72 -00255 10 FILLER PIC X(13) CL*71 -00256 VALUE ' ACCOUNT NO: '. CL*71 -00257 10 NTE-ACCT-NO PIC X(20). CL*71 -00258 01 WRK-MNTE-AMOUNT. CL*72 -00259 10 FILLER PIC X(13) CL*71 -00260 VALUE ' DEP AMOUNT: '. CL*71 -00261 10 NTE-AMOUNT PIC ---,---,999.99. CL*96 -00262 01 WRK-MNTE-NO-FEE. CL*77 -00263 10 FILLER PIC X(39) CL*77 -00264 VALUE ' RETURN FEE: NO RETURN FEE WAS CHARGED '. CL*77 -00265 10 FILLER PIC X(29) CL*77 -00266 VALUE 'RETURN AMOUNT LESS THAN 15.00'. CL*77 -00267 01 MSG-TABLE. CL*70 -00268 05 MSG1-NO-MPAY. DTSBX426 -00269 10 MSG1-ID. DTSBX426 -00270 15 MSG1-ID-A PIC X(08) VALUE 'DTSBX425'. CL**2 -00271 15 MSG1-ID-B PIC X(03) VALUE '907'. DTSBX426 -00272 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'FAC6 WITH NO MPRF'.DTSBX426 -00273 10 MSG1-LONG-TEXT. DTSBX426 -00274 15 FILLER PIC X(30) DTSBX426 -00275 VALUE 'FAC6 RECORD ENCOUNTERED WITH N'. DTSBX426 -00276 15 FILLER PIC X(30) DTSBX426 -00277 VALUE 'O CORRESPONDING MPAY RECORD '. DTSBX426 -00278 01 HEADER-1. CL**5 -00279 05 FILLER PIC X(01) VALUE SPACES. CL**5 -00280 05 FILLER PIC X(49) VALUE '140R1'. CL**5 -00281 05 FILLER PIC X(54) VALUE CL*28 -00282 'DISTRICT OF COLUMBIA'. CL**5 -00283 05 FILLER PIC X(06) VALUE 'DATE:'. CL**5 -00284 05 HDR1-LRCM-SYS-DATE PIC X(10). CL**5 -00285 01 HEADER-2. CL**5 -00286 05 FILLER PIC X(54) VALUE SPACES. CL**5 -00287 05 FILLER PIC X(49) VALUE CL*28 -00288 'TAX DIVISION'. CL**5 -00289 05 FILLER PIC X(06) VALUE 'TIME:'. CL**5 -00290 05 HDR2-LRCM-SYS-TIME PIC X(08). CL**5 -00291 01 HEADER-3. CL**5 -00292 05 FILLER PIC X(01) VALUE SPACES. CL**5 -00293 05 FILLER PIC X(40) VALUE CL119 -00294 'ROUTE TO: TAX ACCOUNTING '. CL**6 -00295 05 HDR3-LITERAL PIC X(57) VALUE SPACES. CL117 -00296 05 FILLER PIC X(20) VALUE SPACES. CL*27 -00297 05 FILLER PIC X(06) VALUE 'PAGE:'. CL**5 -00298 05 HEADER-3-PAGE PIC ZZ,ZZ9. CL*12 -00299 CL**5 -00300 01 HEADER-3A. CL**6 -00301 05 FILLER PIC X(01) VALUE SPACES. CL**6 -00302 05 FILLER PIC X(23) VALUE CL*30 -00303 'ACH RETURNS DATE/TIME: '. CL*41 -00304 05 FILLER PIC X(01) VALUE SPACES. CL*26 -00305 05 HEADER-3A-DATE PIC X(06) VALUE SPACES. CL*22 -00306 05 FILLER PIC X(01) VALUE '/'. CL*22 -00307 05 HEADER-3A-TIME PIC X(06) VALUE SPACES. CL*22 -00308 CL*22 -00309 01 HEADER-4. CL**5 -00310 05 FILLER PIC X(01) VALUE SPACES. CL**5 -00311 05 FILLER PIC X(132) VALUE SPACES. CL**5 -00312 01 HEADER-5. CL**5 -00313 05 FILLER PIC X(02) VALUE SPACES. CL**5 -00314 05 FILLER PIC X(28) VALUE CL*55 -00315 'EMP NO NAME REV BTCH/ITM '. CL*55 -00316 05 FILLER PIC X(01) VALUE SPACES. CL*55 -00317 05 FILLER PIC X(44) VALUE CL*69 -00318 'BANK ID ACCT NO ACH AMOUNT '. CL*69 -00319 * 05 FILLER PIC X(04) VALUE SPACES. CL*63 -00320 05 FILLER PIC X(09) VALUE CL**5 -00321 'TRACE NO '. CL**5 -00322 * 05 FILLER PIC X(02) VALUE SPACES. CL*63 -00323 05 HDR5-NAME PIC X(50) VALUE CL119 -00324 ' CODE REASON BANK RETURNED ACH DEBIT PAYMENT'. CL119 -00325 01 HEADER-6. CL**5 -00326 05 FILLER PIC X(01) VALUE SPACES. CL**5 -00327 05 FILLER PIC X(132) VALUE SPACES. CL**5 -00328 CL*56 -00329 01 ZNOTE1. CL*56 -00330 05 FILLER PIC X(02) VALUE SPACES. CL*56 -00331 05 FILLER PIC X(53) VALUE CL*56 -00332 '** NOTE 1. CODE BEGINNING WITH 98 INDICATES A NOC '. CL*69 -00333 CL*56 -00334 01 CNOTE1. CL*56 -00335 05 FILLER PIC X(02) VALUE SPACES. CL*56 -00336 05 FILLER PIC X(53) VALUE CL*56 -00337 'THE ACH NETWORK PROVIDED NOTIFICATION THAT SOMETHING '. CL*56 -00338 05 FILLER PIC X(53) VALUE CL*56 -00339 'ABOUT THE BANK ACCOUNT HAS CHANGED. WELLS FARGO HAS '. CL*56 -00340 CL*56 -00341 01 CNOTE2. CL*56 -00342 05 FILLER PIC X(02) VALUE SPACES. CL*56 -00343 05 FILLER PIC X(53) VALUE CL*56 -00344 'CORRECTED SUBSEQUENT PAYMENTS FOR THE AFFTECTED BANK '. CL*56 -00345 05 FILLER PIC X(53) VALUE CL*56 -00346 'ACCOUNT USING THE UPDATED INFORMATION. '. CL*56 -00347 CL*56 -00348 01 CNOTE3. CL*56 -00349 05 FILLER PIC X(02) VALUE SPACES. CL*56 -00350 05 FILLER PIC X(53) VALUE CL*56 -00351 '>>>>>>>> USE THE NOTIFICATION OF CHANGE REPORT FROM '. CL*56 -00352 05 FILLER PIC X(53) VALUE CL*56 -00353 'WELLS FARGO TO UPDATE YOUR SYSTEM INFORMATION. <<<<< '. CL*56 -00354 CL*56 -00355 01 DETAIL-LINE-1. CL**5 -00356 15 FILLER PIC X(02) VALUE SPACES. CL**5 -00357 15 X425-EMP-NO PIC 999B999 BLANK WHEN ZERO. CL**6 -00358 15 FILLER PIC X(02) VALUE SPACES. CL**5 -00359 15 X425-NAME-CHECK PIC X(04) VALUE SPACES. CL*53 -00360 15 FILLER PIC X(02) VALUE SPACES. CL*53 -00361 15 X425-AUTO-REV PIC X(02) VALUE SPACES. CL*53 -00362 15 FILLER PIC X(01) VALUE SPACES. CL*53 -00363 15 X425-AUTO-BATCH PIC X(05) VALUE SPACES. CL*53 -00364 15 X425-AUTO-FILL PIC X(01) VALUE '/'. CL*53 -00365 15 X425-AUTO-ITEM PIC X(03) VALUE SPACES. CL*53 -00366 15 FILLER PIC X(02) VALUE SPACES. CL**5 -00367 15 X425-BANK-ID PIC X(10) VALUE SPACES. CL*38 -00368 15 FILLER PIC X(02) VALUE SPACES. CL*38 -00369 15 X425-ACCT-NUMBER PIC X(17) VALUE SPACES. CL*58 -00370 15 FILLER PIC X(02) VALUE SPACES. CL*22 -00371 15 X425-X145-REMIT PIC -------9.99. CL**7 -00372 15 FILLER PIC X(02) VALUE SPACES. CL*58 -00373 15 X425-X145-TRACE-NOB PIC X(08) VALUE SPACES. CL*10 -00374 15 FILLER PIC X(02) VALUE SPACES. CL*58 -00375 15 X425-MESSAGE PIC X(54). CL*58 -00376 CL**5 -00377 CL*83 -00378 01 DETAIL-LINE-2. CL*30 -00379 15 FILLER PIC X(15) VALUE SPACES. CL*30 -00380 05 FILLER PIC X(56) VALUE CL*30 -00381 ' ********* NO ACH DEBIT RETURNS **********'. CL*41 -00382 CL*30 -00383 01 FOOTING-LINE-1 PIC X(133) VALUE SPACES. CL**5 -00384 01 FOOTING-LINE-2 PIC X(133) VALUE CL117 -00385 ' *** WELLS FARGO TRANSACTIONS **'. CL117 -00386 CL**5 -00387 01 FOOTDTS-LINE-2 PIC X(133) VALUE CL117 -00388 ' *** DOES DUTAS TRANSACTIONS **'. CL117 -00389 01 FOOTING-LINE-3. CL**5 -00390 05 FILLER PIC X(25) VALUE SPACES. CL**5 -00391 05 WS-FOOTING-CNT PIC ZZ,ZZ9. CL**5 -00392 05 FILLER PIC X(02) VALUE SPACES. CL**5 -00393 05 FILLER PIC X(45) VALUE CL**5 -00394 ' TOTAL ACH DEBIT DEPOSITS RETURNED '. CL*41 -00395 05 FILLER PIC X(32) VALUE SPACES. CL**5 -00396 CL**5 -00397 01 FOOTING-LINE-4. CL**5 -00398 05 FILLER PIC X(25) VALUE SPACES. CL**5 -00399 05 WS-X145-ERR-CNT PIC ZZ,ZZ9. CL**5 -00400 05 FILLER PIC X(02) VALUE SPACES. CL**5 -00401 05 FILLER PIC X(40) VALUE CL118 -00402 ' # OF ACH DEBITS RETURNED HAD ERRORS'. CL117 -00403 05 FILLER PIC X(32) VALUE SPACES. CL**5 -00404 01 FOOTING-LINE-5. CL**5 -00405 05 FILLER PIC X(25) VALUE SPACES. CL**5 -00406 05 WS-X145-PEN-CNT PIC ZZ,ZZ9. CL**5 -00407 05 FILLER PIC X(02) VALUE SPACES. CL**5 -00408 05 FILLER PIC X(40) VALUE CL**5 -00409 ' # OF ACH RETURNS WENT TO PENDING FILE '. CL*83 -00410 05 FILLER PIC X(32) VALUE SPACES. CL**5 -00411 01 FOOTING-LINE-6. CL**5 -00412 05 FILLER PIC X(25) VALUE SPACES. CL**5 -00413 05 WS-T025-WRITE-CNT PIC ZZ,ZZ9. CL**5 -00414 05 FILLER PIC X(02) VALUE SPACES. CL**5 -00415 05 FILLER PIC X(45) VALUE CL**5 -00416 ' # OF ACH REVERSAL TRANS SENT TO DUTAS '. CL117 -00417 05 FILLER PIC X(32) VALUE SPACES. CL**5 -00418 01 FOOTING-LINE-7. CL**5 -00419 05 FILLER PIC X(19) VALUE SPACES. CL**5 -00420 05 WS-TOT-REMIT PIC $$$$$$$$9.99. CL**5 -00421 05 FILLER PIC X(02) VALUE SPACES. CL**5 -00422 05 FILLER PIC X(50) VALUE CL114 -00423 ' TOTAL AMOUNT OF ACH PAYMENTS REVERSED'. CL114 -00424 05 FILLER PIC X(32) VALUE SPACES. CL**5 -00425 CL**5 -00426 01 FOOTING-LINE-8. CL**5 -00427 05 FILLER PIC X(19) VALUE SPACES. CL**5 -00428 05 WS-TOTAL-REMIT PIC $$$$$$$$9.99. CL**5 -00429 05 FILLER PIC X(02) VALUE SPACES. CL**5 -00430 05 FILLER PIC X(45) VALUE CL**5 -00431 'TOTAL AMOUNT - ACH DEBITS RETURNED '. CL*41 -00432 05 FILLER PIC X(32) VALUE SPACES. CL**5 -00433 01 FOOTING-LINE-13. CL**5 -00434 05 FILLER PIC X(25) VALUE SPACES. CL**5 -00435 05 FILLER PIC X(67) VALUE CL**5 -00436 '*** END DOES/WELLS FARGO DAILY ACH TRANSMISSION ***'. CL*40 -00437 01 FOOTING-LINE-14 PIC X(133) VALUE SPACES. CL**5 -00438 CL**5 -00439 DTSBX426 -00440 01 FACH-LINK-REC. DTSBX426 -00441 ++INCLUDE DTSIXACH CL**2 -00442 EJECT DTSBX426 -00443 01 FAC0-LINK-REC. CL*45 -00444 ++INCLUDE DTSIXAC0 CL*45 +00231 05 WRK-FACH-IND PIC X(01). DTSBX426 +00232 88 WRK-FACH-LAST-REC-88 VALUE 'Y'. DTSBX426 +00233 DTSBX426 +00234 05 WRK-TRACE-IND PIC X(01). DTSBX426 +00235 DTSBX426 +00236 01 WRK-MNTE-SUBJECT. CL*74 +00237 10 NTE-SUBJ PIC X(19) CL*70 +00238 VALUE 'ACH PAYMENT RETURN '. CL*70 +00239 01 WRK-MNTE-REASON. CL*70 +00240 10 FILLER PIC X(13) CL*70 +00241 VALUE 'CODE/REASON: '. CL*70 +00242 10 NTE-REASON PIC X(54). CL*70 +00243 01 WRK-MNTE-TRACE-NO. CL*70 +00244 10 FILLER PIC X(13) CL*70 +00245 VALUE ' TRACE NO: '. CL*70 +00246 10 NTE-TRACE-NO PIC X(13). CL*70 +00247 01 WRK-MNTE-DEP-DATE. CL*70 +00248 10 FILLER PIC X(13) CL*70 +00249 VALUE 'RECEIVD DTE: '. CL121 +00250 10 NTE-DEPOSIT-DATE PIC X(13). CL*70 +00251 01 WRK-MNTE-BATCH-ITEM. CL*70 +00252 10 FILLER PIC X(13) CL*70 +00253 VALUE ' BATCH/ITEM: '. CL*70 +00254 10 NTE-BATCH-NO PIC X(5). CL*70 +00255 10 FILLER PIC X(1) VALUE '/'. CL*70 +00256 10 NTE-ITEM-NO PIC XXX. CL*70 +00257 01 WRK-MNTE-ACCT-NO. CL*72 +00258 10 FILLER PIC X(13) CL*71 +00259 VALUE ' ACCOUNT NO: '. CL*71 +00260 10 NTE-ACCT-NO PIC X(20). CL*71 +00261 01 WRK-MNTE-AMOUNT. CL*72 +00262 10 FILLER PIC X(13) CL*71 +00263 VALUE ' DEP AMOUNT: '. CL*71 +00264 10 NTE-AMOUNT PIC ---,---,999.99. CL*96 +00265 01 WRK-MNTE-NO-FEE. CL*77 +00266 10 FILLER PIC X(39) CL*77 +00267 VALUE ' RETURN FEE: NO RETURN FEE WAS CHARGED '. CL*77 +00268 10 FILLER PIC X(29) CL*77 +00269 VALUE 'RETURN AMOUNT LESS THAN 15.00'. CL*77 +00270 01 MSG-TABLE. CL*70 +00271 05 MSG1-NO-MPAY. DTSBX426 +00272 10 MSG1-ID. DTSBX426 +00273 15 MSG1-ID-A PIC X(08) VALUE 'DTSBX425'. CL**2 +00274 15 MSG1-ID-B PIC X(03) VALUE '907'. DTSBX426 +00275 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'FAC6 WITH NO MPRF'.DTSBX426 +00276 10 MSG1-LONG-TEXT. DTSBX426 +00277 15 FILLER PIC X(30) DTSBX426 +00278 VALUE 'FAC6 RECORD ENCOUNTERED WITH N'. DTSBX426 +00279 15 FILLER PIC X(30) DTSBX426 +00280 VALUE 'O CORRESPONDING MPAY RECORD '. DTSBX426 +00281 01 HEADER-1. CL**5 +00282 05 FILLER PIC X(01) VALUE SPACES. CL**5 +00283 05 FILLER PIC X(49) VALUE '140R1'. CL**5 +00284 05 FILLER PIC X(54) VALUE CL*28 +00285 'DISTRICT OF COLUMBIA'. CL**5 +00286 05 FILLER PIC X(06) VALUE 'DATE:'. CL**5 +00287 05 HDR1-LRCM-SYS-DATE PIC X(10). CL**5 +00288 01 HEADER-2. CL**5 +00289 05 FILLER PIC X(54) VALUE SPACES. CL**5 +00290 05 FILLER PIC X(49) VALUE CL*28 +00291 'TAX DIVISION'. CL**5 +00292 05 FILLER PIC X(06) VALUE 'TIME:'. CL**5 +00293 05 HDR2-LRCM-SYS-TIME PIC X(08). CL**5 +00294 01 HEADER-3. CL**5 +00295 05 FILLER PIC X(01) VALUE SPACES. CL**5 +00296 05 FILLER PIC X(40) VALUE CL119 +00297 'ROUTE TO: TAX ACCOUNTING '. CL**6 +00298 05 HDR3-LITERAL PIC X(57) VALUE SPACES. CL117 +00299 05 FILLER PIC X(20) VALUE SPACES. CL*27 +00300 05 FILLER PIC X(06) VALUE 'PAGE:'. CL**5 +00301 05 HEADER-3-PAGE PIC ZZ,ZZ9. CL*12 +00302 CL**5 +00303 01 HEADER-3A. CL**6 +00304 05 FILLER PIC X(01) VALUE SPACES. CL**6 +00305 05 FILLER PIC X(23) VALUE CL*30 +00306 'ACH RETURNS DATE/TIME: '. CL*41 +00307 05 FILLER PIC X(01) VALUE SPACES. CL*26 +00308 05 HEADER-3A-DATE PIC X(06) VALUE SPACES. CL*22 +00309 05 FILLER PIC X(01) VALUE '/'. CL*22 +00310 05 HEADER-3A-TIME PIC X(06) VALUE SPACES. CL*22 +00311 CL*22 +00312 01 HEADER-4. CL**5 +00313 05 FILLER PIC X(01) VALUE SPACES. CL**5 +00314 05 FILLER PIC X(132) VALUE SPACES. CL**5 +00315 01 HEADER-5. CL**5 +00316 05 FILLER PIC X(02) VALUE SPACES. CL**5 +00317 05 FILLER PIC X(28) VALUE CL*55 +00318 'EMP NO NAME REV BTCH/ITM '. CL*55 +00319 05 FILLER PIC X(01) VALUE SPACES. CL*55 +00320 05 FILLER PIC X(44) VALUE CL*69 +00321 'BANK ID ACCT NO ACH AMOUNT '. CL*69 +00322 * 05 FILLER PIC X(04) VALUE SPACES. CL*63 +00323 05 FILLER PIC X(09) VALUE CL**5 +00324 'TRACE NO '. CL**5 +00325 * 05 FILLER PIC X(02) VALUE SPACES. CL*63 +00326 05 HDR5-NAME PIC X(50) VALUE CL119 +00327 ' CODE REASON BANK RETURNED ACH DEBIT PAYMENT'. CL119 +00328 01 HEADER-6. CL**5 +00329 05 FILLER PIC X(01) VALUE SPACES. CL**5 +00330 05 FILLER PIC X(132) VALUE SPACES. CL**5 +00331 CL*56 +00332 01 ZNOTE1. CL*56 +00333 05 FILLER PIC X(02) VALUE SPACES. CL*56 +00334 05 FILLER PIC X(53) VALUE CL*56 +00335 '** NOTE 1. CODE BEGINNING WITH 98 INDICATES A NOC '. CL*69 +00336 CL*56 +00337 01 CNOTE1. CL*56 +00338 05 FILLER PIC X(02) VALUE SPACES. CL*56 +00339 05 FILLER PIC X(53) VALUE CL*56 +00340 'THE ACH NETWORK PROVIDED NOTIFICATION THAT SOMETHING '. CL*56 +00341 05 FILLER PIC X(53) VALUE CL*56 +00342 'ABOUT THE BANK ACCOUNT HAS CHANGED. WELLS FARGO HAS '. CL*56 +00343 CL*56 +00344 01 CNOTE2. CL*56 +00345 05 FILLER PIC X(02) VALUE SPACES. CL*56 +00346 05 FILLER PIC X(53) VALUE CL*56 +00347 'CORRECTED SUBSEQUENT PAYMENTS FOR THE AFFTECTED BANK '. CL*56 +00348 05 FILLER PIC X(53) VALUE CL*56 +00349 'ACCOUNT USING THE UPDATED INFORMATION. '. CL*56 +00350 CL*56 +00351 01 CNOTE3. CL*56 +00352 05 FILLER PIC X(02) VALUE SPACES. CL*56 +00353 05 FILLER PIC X(53) VALUE CL*56 +00354 '>>>>>>>> USE THE NOTIFICATION OF CHANGE REPORT FROM '. CL*56 +00355 05 FILLER PIC X(53) VALUE CL*56 +00356 'WELLS FARGO TO UPDATE YOUR SYSTEM INFORMATION. <<<<< '. CL*56 +00357 CL*56 +00358 01 DETAIL-LINE-1. CL**5 +00359 15 FILLER PIC X(02) VALUE SPACES. CL**5 +00360 15 X425-EMP-NO PIC 999B999 BLANK WHEN ZERO. CL**6 +00361 15 FILLER PIC X(02) VALUE SPACES. CL**5 +00362 15 X425-NAME-CHECK PIC X(04) VALUE SPACES. CL*53 +00363 15 FILLER PIC X(02) VALUE SPACES. CL*53 +00364 15 X425-AUTO-REV PIC X(02) VALUE SPACES. CL*53 +00365 15 FILLER PIC X(01) VALUE SPACES. CL*53 +00366 15 X425-AUTO-BATCH PIC X(05) VALUE SPACES. CL*53 +00367 15 X425-AUTO-FILL PIC X(01) VALUE '/'. CL*53 +00368 15 X425-AUTO-ITEM PIC X(03) VALUE SPACES. CL*53 +00369 15 FILLER PIC X(02) VALUE SPACES. CL**5 +00370 15 X425-BANK-ID PIC X(10) VALUE SPACES. CL*38 +00371 15 FILLER PIC X(02) VALUE SPACES. CL*38 +00372 15 X425-ACCT-NUMBER PIC X(17) VALUE SPACES. CL*58 +00373 15 FILLER PIC X(02) VALUE SPACES. CL*22 +00374 15 X425-X145-REMIT PIC -------9.99. CL**7 +00375 15 FILLER PIC X(02) VALUE SPACES. CL*58 +00376 15 X425-X145-TRACE-NOB PIC X(08) VALUE SPACES. CL*10 +00377 15 FILLER PIC X(02) VALUE SPACES. CL*58 +00378 15 X425-MESSAGE PIC X(54). CL*58 +00379 CL**5 +00380 CL*83 +00381 01 DETAIL-LINE-2. CL*30 +00382 15 FILLER PIC X(15) VALUE SPACES. CL*30 +00383 05 FILLER PIC X(56) VALUE CL*30 +00384 ' ********* NO ACH DEBIT RETURNS **********'. CL*41 +00385 CL*30 +00386 01 FOOTING-LINE-1 PIC X(133) VALUE SPACES. CL**5 +00387 01 FOOTING-LINE-2 PIC X(133) VALUE CL117 +00388 ' *** WELLS FARGO TRANSACTIONS **'. CL117 +00389 CL**5 +00390 01 FOOTDTS-LINE-2 PIC X(133) VALUE CL117 +00391 ' *** DOES DUTAS TRANSACTIONS **'. CL117 +00392 01 FOOTING-LINE-3. CL**5 +00393 05 FILLER PIC X(25) VALUE SPACES. CL**5 +00394 05 WS-FOOTING-CNT PIC ZZ,ZZ9. CL**5 +00395 05 FILLER PIC X(02) VALUE SPACES. CL**5 +00396 05 FILLER PIC X(45) VALUE CL**5 +00397 ' TOTAL ACH DEBIT DEPOSITS RETURNED '. CL*41 +00398 05 FILLER PIC X(32) VALUE SPACES. CL**5 +00399 CL**5 +00400 01 FOOTING-LINE-4. CL**5 +00401 05 FILLER PIC X(25) VALUE SPACES. CL**5 +00402 05 WS-X145-ERR-CNT PIC ZZ,ZZ9. CL**5 +00403 05 FILLER PIC X(02) VALUE SPACES. CL**5 +00404 05 FILLER PIC X(40) VALUE CL118 +00405 ' # OF ACH DEBITS RETURNED HAD ERRORS'. CL117 +00406 05 FILLER PIC X(32) VALUE SPACES. CL**5 +00407 01 FOOTING-LINE-5. CL**5 +00408 05 FILLER PIC X(25) VALUE SPACES. CL**5 +00409 05 WS-X145-PEN-CNT PIC ZZ,ZZ9. CL**5 +00410 05 FILLER PIC X(02) VALUE SPACES. CL**5 +00411 05 FILLER PIC X(40) VALUE CL**5 +00412 ' # OF ACH RETURNS WENT TO PENDING FILE '. CL*83 +00413 05 FILLER PIC X(32) VALUE SPACES. CL**5 +00414 01 FOOTING-LINE-6. CL**5 +00415 05 FILLER PIC X(25) VALUE SPACES. CL**5 +00416 05 WS-T025-WRITE-CNT PIC ZZ,ZZ9. CL**5 +00417 05 FILLER PIC X(02) VALUE SPACES. CL**5 +00418 05 FILLER PIC X(45) VALUE CL**5 +00419 ' # OF ACH REVERSAL TRANS SENT TO DUTAS '. CL117 +00420 05 FILLER PIC X(32) VALUE SPACES. CL**5 +00421 01 FOOTING-LINE-7. CL**5 +00422 05 FILLER PIC X(19) VALUE SPACES. CL**5 +00423 05 WS-TOT-REMIT PIC $$$$$$$$9.99. CL**5 +00424 05 FILLER PIC X(02) VALUE SPACES. CL**5 +00425 05 FILLER PIC X(50) VALUE CL114 +00426 ' TOTAL AMOUNT OF ACH PAYMENTS REVERSED'. CL114 +00427 05 FILLER PIC X(32) VALUE SPACES. CL**5 +00428 CL**5 +00429 01 FOOTING-LINE-8. CL**5 +00430 05 FILLER PIC X(19) VALUE SPACES. CL**5 +00431 05 WS-TOTAL-REMIT PIC $$$$$$$$9.99. CL**5 +00432 05 FILLER PIC X(02) VALUE SPACES. CL**5 +00433 05 FILLER PIC X(45) VALUE CL**5 +00434 'TOTAL AMOUNT - ACH DEBITS RETURNED '. CL*41 +00435 05 FILLER PIC X(32) VALUE SPACES. CL**5 +00436 01 FOOTING-LINE-13. CL**5 +00437 05 FILLER PIC X(25) VALUE SPACES. CL**5 +00438 05 FILLER PIC X(67) VALUE CL**5 +00439 '*** END DOES/WELLS FARGO DAILY ACH TRANSMISSION ***'. CL*40 +00440 01 FOOTING-LINE-14 PIC X(133) VALUE SPACES. CL**5 +00441 CL**5 +00442 DTSBX426 +00443 01 FACH-LINK-REC. DTSBX426 +00444 ++INCLUDE DTSIXACH CL**2 00445 EJECT DTSBX426 -00446 EJECT CL*45 -00447 01 FAC1-LINK-REC. CL*45 -00448 ++INCLUDE DTSIXAC1 CL*45 +00446 01 FAC0-LINK-REC. CL*45 +00447 ++INCLUDE DTSIXAC0 CL*45 +00448 EJECT DTSBX426 00449 EJECT CL*45 -00450 01 FAC5-LINK-REC. CL**2 -00451 ++INCLUDE DTSIXAC5 CL**2 -00452 EJECT CL**2 -00453 01 FAC6-LINK-REC. DTSBX426 -00454 ++INCLUDE DTSIXAC6 CL**2 -00455 EJECT DTSBX426 -00456 01 FAC7-LINK-REC. CL**3 -00457 ++INCLUDE DTSIXAC7 CL**3 -00458 EJECT CL**3 -00459 01 FAC9-LINK-REC. DTSBX426 -00460 ++INCLUDE DTSIXAC9 CL**2 -00461 EJECT DTSBX426 -00462 01 MNTE-REC. CL*70 -00463 ++INCLUDE DTSIMNTE CL*70 +00450 01 FAC1-LINK-REC. CL*45 +00451 ++INCLUDE DTSIXAC1 CL*45 +00452 EJECT CL*45 +00453 01 FAC5-LINK-REC. CL**2 +00454 ++INCLUDE DTSIXAC5 CL**2 +00455 EJECT CL**2 +00456 01 FAC6-LINK-REC. DTSBX426 +00457 ++INCLUDE DTSIXAC6 CL**2 +00458 EJECT DTSBX426 +00459 01 FAC7-LINK-REC. CL**3 +00460 ++INCLUDE DTSIXAC7 CL**3 +00461 EJECT CL**3 +00462 01 FAC9-LINK-REC. DTSBX426 +00463 ++INCLUDE DTSIXAC9 CL**2 00464 EJECT DTSBX426 -00465 01 MPAY-REC. CL*70 -00466 ++INCLUDE DTSIMPAY CL*70 -00467 EJECT CL*70 -00468 01 L005-LINK-AREA. DTSBX426 -00469 ++INCLUDE DTSIL005 DTSBX426 -00470 EJECT DTSBX426 -00471 01 L001-LINK-AREA. CL*71 -00472 ++INCLUDE DTSIL001 CL*71 -00473 EJECT CL*71 -00474 01 RSK1-REC. DTSBX426 -00475 ++INCLUDE DTSIRSK1 DTSBX426 -00476 EJECT DTSBX426 -00477 01 ITRT-REC. DTSBX426 -00478 ++INCLUDE DTSIITRT DTSBX426 +00465 01 MNTE-REC. CL*70 +00466 ++INCLUDE DTSIMNTE CL*70 +00467 EJECT DTSBX426 +00468 01 MPAY-REC. CL*70 +00469 ++INCLUDE DTSIMPAY CL*70 +00470 EJECT CL*70 +00471 01 L005-LINK-AREA. DTSBX426 +00472 ++INCLUDE DTSIL005 DTSBX426 +00473 EJECT DTSBX426 +00474 01 L001-LINK-AREA. CL*71 +00475 ++INCLUDE DTSIL001 CL*71 +00476 EJECT CL*71 +00477 01 RSK1-REC. DTSBX426 +00478 ++INCLUDE DTSIRSK1 DTSBX426 00479 EJECT DTSBX426 -00480 01 ISKL-REC. DTSBX426 -00481 ++INCLUDE DTSIISKL DTSBX426 +00480 01 ITRT-REC. DTSBX426 +00481 ++INCLUDE DTSIITRT DTSBX426 00482 EJECT DTSBX426 -00483 01 R907-REC. DTSBX426 -00484 ++INCLUDE DTSIR907 DTSBX426 +00483 01 ISKL-REC. DTSBX426 +00484 ++INCLUDE DTSIISKL DTSBX426 00485 EJECT DTSBX426 -00486 01 EFT-BATCH-ERRORS-MESS. DTSBX426 -00487 ++INCLUDE EFTERMSG DTSBX426 +00486 01 R907-REC. DTSBX426 +00487 ++INCLUDE DTSIR907 DTSBX426 00488 EJECT DTSBX426 -00489 01 F907-REC. DTSBX426 -00490 ++INCLUDE EFTIF907 DTSBX426 -00491 EJECT DTSBX426 -00492 01 T025-REC. DTSBX426 -00493 ++INCLUDE DTSIT025 DTSBX426 -00494 EJECT DTSBX426 -00495 01 T003-REC. CL*71 -00496 ++INCLUDE DTSIT003 CL*71 -00497 EJECT CL*71 -00498 01 L910-LINK-AREA. DTSBX426 -00499 ++INCLUDE DTSIL910 DTSBX426 -00500 EJECT DTSBX426 -00501 01 L921-LINK-AREA. DTSBX426 -00502 ++INCLUDE DTSIL921 DTSBX426 -00503 EJECT DTSBX426 -00504 01 L927-LINK-AREA. DTSBX426 -00505 ++INCLUDE DTSIL927 DTSBX426 -00506 EJECT DTSBX426 -00507 01 MSKL-REC. DTSBX426 -00508 ++INCLUDE DTSIMSKL DTSBX426 -00509 EJECT DTSBX426 -00510 01 TSKL-REC. DTSBX426 -00511 ++INCLUDE DTSITSKL DTSBX426 -00512 EJECT DTSBX426 -00513 01 MPRF-REC. DTSBX426 -00514 ++INCLUDE DTSIMPRF DTSBX426 -00515 EJECT DTSBX426 -00516 01 MTAD-REC. DTSBX426 -00517 ++INCLUDE DTSIMTAD DTSBX426 -00518 DTSBX426 -00519 PROCEDURE DIVISION. DTSBX426 -00520 DTSBX426 -00521 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX426 -00522 CL*16 -00523 IF RETURN-CODE = +3 CL*32 -00524 PERFORM T0000-TERMINATE THRU T0000-EXIT CL*32 -00525 PERFORM S999-ABEND THRU S999-EXIT CL146 -00526 GOBACK. CL146 -00527 DTSBX426 -00528 PERFORM P0000-PROCESS THRU P0000-EXIT UNTIL DTSBX426 -00529 WRK-FACH-IND = 'Y'. DTSBX426 -00530 DTSBX426 -00531 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX426 -00532 DTSBX426 -00533 GOBACK. DTSBX426 -00534 DTSBX426 -00535 I0000-INITIATE. DTSBX426 -00536 DTSBX426 -00537 MOVE +0 TO WRK-FACH-READ-CNT DTSBX426 -00538 WRK-MPAY-REMIT-AMT DTSBX426 -00539 WRK-FACH-SELECTED-CNT DTSBX426 -00540 WRK-R907-WRITE-CNT DTSBX426 -00541 WRK-OTHER-RECORDS DTSBX426 -00542 WS-FAC7-PEN-CNT CL*86 -00543 WRK-FAC6-RECORDS DTSBX426 -00544 WRK-FAC7-RECORDS CL*43 -00545 WRK-HEADER-RECORDS DTSBX426 -00546 WRK-TRAILER-RECORDS DTSBX426 -00547 WRK-F907-WRITE-CNT DTSBX426 -00548 WRK-T025-WRITE-CNT DTSBX426 -00549 WRK-T003-WRITE-CNT CL*76 -00550 WRK-TRAILER-REC-CNT DTSBX426 -00551 WRK-FAC6-AMOUNT DTSBX426 -00552 WRK-MPAY-AMOUNT CL*99 -00553 TOT-FAC6-AMOUNT DTSBX426 -00554 TOT-MPAY-AMOUNT CL115 -00555 WRK-MPAY-HOLD-EMP-NO CL106 -00556 WRK-MPAY-CNT CL106 -00557 TOT-TRAILER-AMT CL106 -00558 WRK-FAC6-DOES-TRACE-NO. CL**4 -00559 DTSBX426 -00560 MOVE ZEROS TO FAC1-LINK-REC DTSBX426 -00561 FAC6-LINK-REC DTSBX426 -00562 FAC7-LINK-REC CL*48 -00563 FAC9-LINK-REC. DTSBX426 -00564 DTSBX426 -00565 MOVE 'N' TO WRK-TRACE-IND, WRK-FACH-IND. DTSBX426 -00566 DTSBX426 -00567 MOVE 'Y' TO WRK-FAC1-IND, WRK-DTSBU005-IND. DTSBX426 -00568 DTSBX426 -00569 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX426 -00570 DTSBX426 -00571 I0000-EXIT. DTSBX426 -00572 EXIT. DTSBX426 -00573 I2000-OPEN-FILES. DTSBX426 -00574 DTSBX426 -00575 MOVE LENGTH OF T025-REC TO T025-LENGTH. DTSBX426 -00576 MOVE LENGTH OF F907-REC TO F907-LENGTH. DTSBX426 +00489 SKIP3 CL149 +00490 01 R333-REC. CL149 +00491 ++INCLUDE DTSIR333 CL149 +00492 SKIP3 CL149 +00493 01 L111-LINK-AREA. CL149 +00494 ++INCLUDE DTSIL111 CL149 +00495 SKIP3 CL149 +00496 01 L112-LINK-AREA. CL149 +00497 ++INCLUDE DTSIL112 CL149 +00498 SKIP3 CL149 +00499 01 EFT-BATCH-ERRORS-MESS. DTSBX426 +00500 ++INCLUDE EFTERMSG DTSBX426 +00501 EJECT DTSBX426 +00502 01 F907-REC. DTSBX426 +00503 ++INCLUDE EFTIF907 DTSBX426 +00504 EJECT DTSBX426 +00505 01 T025-REC. DTSBX426 +00506 ++INCLUDE DTSIT025 DTSBX426 +00507 EJECT DTSBX426 +00508 01 T003-REC. CL*71 +00509 ++INCLUDE DTSIT003 CL*71 +00510 EJECT CL*71 +00511 01 L910-LINK-AREA. DTSBX426 +00512 ++INCLUDE DTSIL910 DTSBX426 +00513 EJECT DTSBX426 +00514 01 L921-LINK-AREA. DTSBX426 +00515 ++INCLUDE DTSIL921 DTSBX426 +00516 EJECT DTSBX426 +00517 01 L927-LINK-AREA. DTSBX426 +00518 ++INCLUDE DTSIL927 DTSBX426 +00519 EJECT DTSBX426 +00520 01 MSKL-REC. DTSBX426 +00521 ++INCLUDE DTSIMSKL DTSBX426 +00522 EJECT DTSBX426 +00523 01 TSKL-REC. DTSBX426 +00524 ++INCLUDE DTSITSKL DTSBX426 +00525 EJECT DTSBX426 +00526 01 MPRF-REC. DTSBX426 +00527 ++INCLUDE DTSIMPRF DTSBX426 +00528 EJECT DTSBX426 +00529 01 MTAD-REC. DTSBX426 +00530 ++INCLUDE DTSIMTAD DTSBX426 +00531 DTSBX426 +00532 PROCEDURE DIVISION. DTSBX426 +00533 DTSBX426 +00534 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX426 +00535 CL*16 +00536 IF RETURN-CODE = +3 CL*32 +00537 PERFORM T0000-TERMINATE THRU T0000-EXIT CL*32 +00538 PERFORM S999-ABEND THRU S999-EXIT CL146 +00539 GOBACK. CL146 +00540 DTSBX426 +00541 PERFORM P0000-PROCESS THRU P0000-EXIT UNTIL DTSBX426 +00542 WRK-FACH-IND = 'Y'. DTSBX426 +00543 DTSBX426 +00544 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX426 +00545 DTSBX426 +00546 GOBACK. DTSBX426 +00547 DTSBX426 +00548 I0000-INITIATE. DTSBX426 +00549 DTSBX426 +00550 MOVE +0 TO WRK-FACH-READ-CNT DTSBX426 +00551 WRK-MPAY-REMIT-AMT DTSBX426 +00552 WRK-FACH-SELECTED-CNT DTSBX426 +00553 WRK-R907-WRITE-CNT DTSBX426 +00554 WRK-OTHER-RECORDS DTSBX426 +00555 WS-FAC7-PEN-CNT CL*86 +00556 WRK-FAC6-RECORDS DTSBX426 +00557 WRK-FAC7-RECORDS CL*43 +00558 WRK-HEADER-RECORDS DTSBX426 +00559 WRK-TRAILER-RECORDS DTSBX426 +00560 WRK-F907-WRITE-CNT DTSBX426 +00561 WRK-T025-WRITE-CNT DTSBX426 +00562 WRK-T003-WRITE-CNT CL*76 +00563 WRK-TRAILER-REC-CNT DTSBX426 +00564 WRK-FAC6-AMOUNT DTSBX426 +00565 WRK-MPAY-AMOUNT CL*99 +00566 TOT-FAC6-AMOUNT DTSBX426 +00567 TOT-MPAY-AMOUNT CL115 +00568 WRK-MPAY-HOLD-EMP-NO CL106 +00569 WRK-MPAY-CNT CL106 +00570 TOT-TRAILER-AMT CL106 +00571 WRK-FAC6-DOES-TRACE-NO. CL**4 +00572 DTSBX426 +00573 MOVE ZEROS TO FAC1-LINK-REC DTSBX426 +00574 FAC6-LINK-REC DTSBX426 +00575 FAC7-LINK-REC CL*48 +00576 FAC9-LINK-REC. DTSBX426 00577 DTSBX426 -00578 MOVE WRK-TRACE-IND TO L910-TRACE-IND, L921-TRACE-IND. DTSBX426 +00578 MOVE 'N' TO WRK-TRACE-IND, WRK-FACH-IND. DTSBX426 00579 DTSBX426 -00580 MOVE WRK-MOD-NAME TO L910-MOD-NAME, L921-MOD-NAME DTSBX426 +00580 MOVE 'Y' TO WRK-FAC1-IND, WRK-DTSBU005-IND. DTSBX426 00581 DTSBX426 -00582 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX426 +00582 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX426 00583 DTSBX426 -00584 PERFORM S921-OPEN-READ THRU S921-EXIT. DTSBX426 -00585 DTSBX426 -00586 MOVE 'N' TO L927-TRACE-IND. DTSBX426 -00587 MOVE WRK-MOD-NAME TO L927-MOD-NAME. DTSBX426 -00588 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. DTSBX426 -00589 CL*32 -00590 PERFORM S005-FROM-SYS THRU S005-EXIT. CL*32 -00591 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. CL*32 -00592 MOVE L005-SLASH-DATE TO W-SLASH-DATE. CL*32 -00593 DISPLAY 'SYS DATE ' W-SLASH-DATE. CL*32 -00594 MOVE W-SLASH-DATE TO HDR1-LRCM-SYS-DATE. CL*32 -00595 DTSBX426 -00596 OPEN INPUT IN-FACH. DTSBX426 -00597 DTSBX426 -00598 IF NOT FACH-STATUS-OK-88 CL*17 -00599 DISPLAY 'OPEN ERROR ON FACH INPUT FILE ** ' FACH-STATUS CL*32 -00600 MOVE +3 TO RETURN-CODE CL*13 -00601 ELSE CL**6 -00602 IF FACH-STATUS-OK-88 DTSBX426 -00603 NEXT SENTENCE DTSBX426 -00604 ELSE DTSBX426 -00605 DISPLAY 'OPEN ERROR ON FACH INPUT FILE ** ' FACH-STATUS DTSBX426 -00606 PERFORM S999-ABEND THRU S999-EXIT CL*12 -00607 END-IF CL**6 -00608 END-IF. CL**6 -00609 CL**6 -00610 OPEN OUTPUT ESSP-ACHD-FILE. CL*35 -00611 IF REPT-STATUS-OK-88 CL*35 -00612 NEXT SENTENCE CL*35 -00613 ELSE CL*35 -00614 DISPLAY 'CANNOT OPEN REPORT ACHD FILE ' CL*35 -00615 REPT-STATUS CL*35 -00616 PERFORM S999-ABEND THRU S999-EXIT CL*35 -00617 END-IF. CL*35 -00618 CL*35 -00619 OPEN OUTPUT ESSP-ACHR-FILE. CL*83 -00620 IF REPT-STATUS-OK-88 CL*83 -00621 NEXT SENTENCE CL*83 -00622 ELSE CL*83 -00623 DISPLAY 'CANNOT OPEN REPORT ACHR FILE ' CL*83 -00624 REPT-STATUS CL*83 -00625 PERFORM S999-ABEND THRU S999-EXIT CL*83 -00626 END-IF. CL*83 -00627 CL*83 -00628 OPEN OUTPUT PEND-FACH-FILE. CL*79 -00629 IF REPT-STATUS-OK-88 CL*79 -00630 NEXT SENTENCE CL*79 -00631 ELSE CL*79 -00632 DISPLAY 'CANNOT OPEN OUTPUT ACH PENDING FILE ' CL*79 -00633 REPT-STATUS CL*79 -00634 PERFORM S999-ABEND THRU S999-EXIT CL*79 -00635 END-IF. CL*79 -00636 CL*79 -00637 READ IN-FACH CL*50 -00638 AT END CL*18 -00639 MOVE +3 TO RETURN-CODE CL*18 -00640 DISPLAY 'NO ACH DEPOSITS RETURNED ' CL*41 -00641 MOVE 'Y' TO WRK-FACH-IND CL*18 -00642 GO TO I2000-EXIT. CL*18 -00643 CL*18 -00644 DTSBX426 -00645 I2000-EXIT. DTSBX426 -00646 EXIT. DTSBX426 -00647 DTSBX426 -00648 P0000-PROCESS. DTSBX426 -00649 DISPLAY ' 1000 - PROCESS'. DTSBX426 -00650 DTSBX426 -00651 MOVE FACH-REC-94 TO FACH-LINK-REC. CL*50 -00652 DTSBX426 -00653 ADD +1 TO WRK-FACH-READ-CNT. DTSBX426 -00654 * MOVE ZEROS TO FAC6-HEADER-REC. CL*81 -00655 DTSBX426 -00656 IF FACH-TYPE-HEADER-88 DTSBX426 -00657 MOVE FACH-LINK-REC TO FAC1-LINK-REC DTSBX426 -00658 ADD 1 TO WRK-HEADER-RECORDS DTSBX426 -00659 PERFORM P1005-HEADER-EDIT THRU P1005-EXIT DTSBX426 -00660 ELSE DTSBX426 -00661 IF FACH-TYPE-ENTRY-DETAIL-88 DTSBX426 -00662 SET WRK-FACH-PEND-REC-NO-88 TO TRUE CL*83 -00663 MOVE FACH-LINK-REC TO FAC6-LINK-REC DTSBX426 -00664 ADD 1 TO WRK-FAC6-RECORDS DTSBX426 -00665 PERFORM P1010-FAC6-EDIT THRU P1010-EXIT DTSBX426 -00666 ELSE CL**5 -00667 IF FACH-TYPE-ADDENDA-88 CL*14 -00668 MOVE FACH-LINK-REC TO FAC7-LINK-REC CL**5 -00669 ADD 1 TO WRK-FAC7-RECORDS CL**5 -00670 PERFORM P1011-FAC7-EDIT THRU P1011-EXIT CL**5 -00671 ELSE CL**3 -00672 IF FACH-TYPE-TRAILER-88 DTSBX426 -00673 MOVE FACH-LINK-REC TO FAC9-LINK-REC DTSBX426 -00674 ADD 1 TO WRK-TRAILER-RECORDS DTSBX426 -00675 ADD 1 TO WRK-TRAILER-REC-CNT DTSBX426 -00676 PERFORM P1015-TRAILER-EDIT THRU P1015-EXIT DTSBX426 -00677 ELSE DTSBX426 -00678 ADD 1 TO WRK-OTHER-RECORDS. CL*18 -00679 CL*18 -00680 READ IN-FACH CL*50 -00681 AT END CL*18 -00682 MOVE 'Y' TO WRK-FACH-IND CL*18 -00683 GO TO P0000-EXIT. CL*18 -00684 DTSBX426 -00685 P0000-EXIT. DTSBX426 -00686 EXIT. DTSBX426 -00687 DTSBX426 -00688 DTSBX426 -00689 P1005-HEADER-EDIT. DTSBX426 -00690 DTSBX426 -00691 DISPLAY ' 1005 - HEADER PROCESS'. CL*49 -00692 IF WRK-FACH-READ-CNT NOT = 1 DTSBX426 -00693 MOVE 'Y' TO WRK-FACH-IND DTSBX426 -00694 DISPLAY ' FIRST RECORD OF FILE IS NOT A HEADER RECORD' DTSBX426 -00695 PERFORM S999-ABEND THRU S999-EXIT. DTSBX426 -00696 MOVE FAC1-FILE-CREATE-DATE TO WRK-FAC1-DATE. CL*92 -00697 MOVE WRK-FAC1-DATE-YY TO WRK-RTN-DATE-YY. CL*92 -00698 MOVE WRK-FAC1-DATE-MM TO WRK-RTN-DATE-MM. CL*92 -00699 MOVE WRK-FAC1-DATE-DD TO WRK-RTN-DATE-DD. CL*92 -00700 MOVE WRK-RTN-DATE TO WRK-RECV-DATE. CL*92 -00701 P1005-EXIT. DTSBX426 -00702 EXIT. DTSBX426 +00584 I0000-EXIT. DTSBX426 +00585 EXIT. DTSBX426 +00586 I2000-OPEN-FILES. DTSBX426 +00587 DTSBX426 +00588 MOVE LENGTH OF T025-REC TO T025-LENGTH. DTSBX426 +00589 MOVE LENGTH OF F907-REC TO F907-LENGTH. DTSBX426 +00590 DTSBX426 +00591 MOVE WRK-TRACE-IND TO L910-TRACE-IND, L921-TRACE-IND. DTSBX426 +00592 DTSBX426 +00593 MOVE WRK-MOD-NAME TO L910-MOD-NAME, L921-MOD-NAME DTSBX426 +00594 DTSBX426 +00595 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX426 +00596 DTSBX426 +00597 PERFORM S921-OPEN-READ THRU S921-EXIT. DTSBX426 +00598 DTSBX426 +00599 MOVE 'N' TO L927-TRACE-IND. DTSBX426 +00600 MOVE WRK-MOD-NAME TO L927-MOD-NAME. DTSBX426 +00601 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. DTSBX426 +00602 CL*32 +00603 PERFORM S005-FROM-SYS THRU S005-EXIT. CL*32 +00604 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. CL*32 +00605 MOVE L005-SLASH-DATE TO W-SLASH-DATE. CL*32 +00606 DISPLAY 'SYS DATE ' W-SLASH-DATE. CL*32 +00607 MOVE W-SLASH-DATE TO HDR1-LRCM-SYS-DATE. CL*32 +00608 DTSBX426 +00609 OPEN INPUT IN-FACH. DTSBX426 +00610 DTSBX426 +00611 IF NOT FACH-STATUS-OK-88 CL*17 +00612 DISPLAY 'OPEN ERROR ON FACH INPUT FILE ** ' FACH-STATUS CL*32 +00613 MOVE +3 TO RETURN-CODE CL*13 +00614 ELSE CL**6 +00615 IF FACH-STATUS-OK-88 DTSBX426 +00616 NEXT SENTENCE DTSBX426 +00617 ELSE DTSBX426 +00618 DISPLAY 'OPEN ERROR ON FACH INPUT FILE ** ' FACH-STATUS DTSBX426 +00619 PERFORM S999-ABEND THRU S999-EXIT CL*12 +00620 END-IF CL**6 +00621 END-IF. CL**6 +00622 CL**6 +00623 OPEN OUTPUT ESSP-ACHD-FILE. CL*35 +00624 IF REPT-STATUS-OK-88 CL*35 +00625 NEXT SENTENCE CL*35 +00626 ELSE CL*35 +00627 DISPLAY 'CANNOT OPEN REPORT ACHD FILE ' CL*35 +00628 REPT-STATUS CL*35 +00629 PERFORM S999-ABEND THRU S999-EXIT CL*35 +00630 END-IF. CL*35 +00631 CL*35 +00632 OPEN OUTPUT ESSP-ACHR-FILE. CL*83 +00633 IF REPT-STATUS-OK-88 CL*83 +00634 NEXT SENTENCE CL*83 +00635 ELSE CL*83 +00636 DISPLAY 'CANNOT OPEN REPORT ACHR FILE ' CL*83 +00637 REPT-STATUS CL*83 +00638 PERFORM S999-ABEND THRU S999-EXIT CL*83 +00639 END-IF. CL*83 +00640 CL*83 +00641 OPEN OUTPUT PEND-FACH-FILE. CL*79 +00642 IF REPT-STATUS-OK-88 CL*79 +00643 NEXT SENTENCE CL*79 +00644 ELSE CL*79 +00645 DISPLAY 'CANNOT OPEN OUTPUT ACH PENDING FILE ' CL*79 +00646 REPT-STATUS CL*79 +00647 PERFORM S999-ABEND THRU S999-EXIT CL*79 +00648 END-IF. CL*79 +00649 CL*79 +00650 READ IN-FACH CL*50 +00651 AT END CL*18 +00652 MOVE +3 TO RETURN-CODE CL*18 +00653 DISPLAY 'NO ACH DEPOSITS RETURNED ' CL*41 +00654 MOVE 'Y' TO WRK-FACH-IND CL*18 +00655 GO TO I2000-EXIT. CL*18 +00656 CL*18 +00657 DTSBX426 +00658 I2000-EXIT. DTSBX426 +00659 EXIT. DTSBX426 +00660 DTSBX426 +00661 P0000-PROCESS. DTSBX426 +00662 DISPLAY ' 1000 - PROCESS'. DTSBX426 +00663 DTSBX426 +00664 MOVE FACH-REC-94 TO FACH-LINK-REC. CL*50 +00665 DTSBX426 +00666 ADD +1 TO WRK-FACH-READ-CNT. DTSBX426 +00667 * MOVE ZEROS TO FAC6-HEADER-REC. CL*81 +00668 DTSBX426 +00669 IF FACH-TYPE-HEADER-88 DTSBX426 +00670 MOVE FACH-LINK-REC TO FAC1-LINK-REC DTSBX426 +00671 ADD 1 TO WRK-HEADER-RECORDS DTSBX426 +00672 PERFORM P1005-HEADER-EDIT THRU P1005-EXIT DTSBX426 +00673 ELSE DTSBX426 +00674 IF FACH-TYPE-ENTRY-DETAIL-88 DTSBX426 +00675 SET WRK-FACH-PEND-REC-NO-88 TO TRUE CL*83 +00676 MOVE FACH-LINK-REC TO FAC6-LINK-REC DTSBX426 +00677 ADD 1 TO WRK-FAC6-RECORDS DTSBX426 +00678 PERFORM P1010-FAC6-EDIT THRU P1010-EXIT DTSBX426 +00679 ELSE CL**5 +00680 IF FACH-TYPE-ADDENDA-88 CL*14 +00681 MOVE FACH-LINK-REC TO FAC7-LINK-REC CL**5 +00682 ADD 1 TO WRK-FAC7-RECORDS CL**5 +00683 PERFORM P1011-FAC7-EDIT THRU P1011-EXIT CL**5 +00684 ELSE CL**3 +00685 IF FACH-TYPE-TRAILER-88 DTSBX426 +00686 MOVE FACH-LINK-REC TO FAC9-LINK-REC DTSBX426 +00687 ADD 1 TO WRK-TRAILER-RECORDS DTSBX426 +00688 ADD 1 TO WRK-TRAILER-REC-CNT DTSBX426 +00689 PERFORM P1015-TRAILER-EDIT THRU P1015-EXIT DTSBX426 +00690 ELSE DTSBX426 +00691 ADD 1 TO WRK-OTHER-RECORDS. CL*18 +00692 CL*18 +00693 READ IN-FACH CL*50 +00694 AT END CL*18 +00695 MOVE 'Y' TO WRK-FACH-IND CL*18 +00696 GO TO P0000-EXIT. CL*18 +00697 DTSBX426 +00698 P0000-EXIT. DTSBX426 +00699 EXIT. DTSBX426 +00700 DTSBX426 +00701 DTSBX426 +00702 P1005-HEADER-EDIT. DTSBX426 00703 DTSBX426 -00704 P1010-FAC6-EDIT. DTSBX426 -00705 DISPLAY '1010 - TYPE6 PROCESS EMP NO: ' FAC6-DUTAS-EMP-NO. CL*91 -00706 DTSBX426 -00707 SET WRITE-T025-NO-88 TO TRUE. DTSBX426 -00708 SET MPAY-FOUND-YES-88 TO TRUE. CL105 -00709 DISPLAY ' 1010 - AMOUNT ' FAC6-AMOUNT DTSBX426 -00710 DISPLAY ' 1010 - TRACEIN ' FAC6-DOES-TRACE-NO CL**4 -00711 MOVE ZEROS TO WRK-TEMP-TRACE-NO DTSBX426 -00712 WRK-FAC6-DOES-TRACE-NO. CL*12 -00713 * WRK-DOES-TRACE-NO. CL*12 -00714 MOVE FAC6-AMOUNT TO WRK-FAC6-AMOUNT. CL*74 -00715 MOVE FAC6-DOES-TRACE-NO TO WRK-TEMP-TRACE-NO. CL*10 +00704 DISPLAY ' 1005 - HEADER PROCESS'. CL*49 +00705 IF WRK-FACH-READ-CNT NOT = 1 DTSBX426 +00706 MOVE 'Y' TO WRK-FACH-IND DTSBX426 +00707 DISPLAY ' FIRST RECORD OF FILE IS NOT A HEADER RECORD' DTSBX426 +00708 PERFORM S999-ABEND THRU S999-EXIT. DTSBX426 +00709 MOVE FAC1-FILE-CREATE-DATE TO WRK-FAC1-DATE. CL*92 +00710 MOVE WRK-FAC1-DATE-YY TO WRK-RTN-DATE-YY. CL*92 +00711 MOVE WRK-FAC1-DATE-MM TO WRK-RTN-DATE-MM. CL*92 +00712 MOVE WRK-FAC1-DATE-DD TO WRK-RTN-DATE-DD. CL*92 +00713 MOVE WRK-RTN-DATE TO WRK-RECV-DATE. CL*92 +00714 P1005-EXIT. DTSBX426 +00715 EXIT. DTSBX426 00716 DTSBX426 -00717 MOVE FAC6-AMOUNT TO WRK-FAC6-AMT-DISP. CL*73 -00718 MOVE WRK-FAC6-AMT-DISP TO NTE-AMOUNT. CL*73 -00719 * MOVE ZEROS TO WRK-TEMP-TRACE-NOA. CL*21 -00720 * MOVE WRK-DOES-TRACE-NOB TO WRK-TEMP-TRACE-NOB. CL*12 -00721 MOVE WRK-TEMP-TRACE-NOA TO WRK-FAC6-DOES-TRACE-NO. CL*21 -00722 DTSBX426 -00723 DISPLAY 'TRACE-NO -TEMP ' WRK-TEMP-TRACE-NO DTSBX426 -00724 DISPLAY 'TRACE-WRK-FAC6 ' WRK-FAC6-DOES-TRACE-NO CL**4 -00725 DTSBX426 -00726 IF FAC6-AMOUNT = ZEROS DTSBX426 -00727 ADD 1 TO WRK-F907-WRITE-CNT CL**8 -00728 DISPLAY ' ACH PAYMENT = ZEROS ' FAC6-AMOUNT CL**8 -00729 MOVE +2 TO RETURN-CODE. CL*37 -00730 * MOVE EFT027 TO F907-MSG-TEXT CL**8 -00731 * MOVE '027' TO F907-MSG-ID CL**8 -00732 * MOVE ZEROS TO F907-EMP-NO CL**8 -00733 * MOVE FAC6-AMOUNT TO F907-GOV1-REC CL**8 -00734 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT CL**8 -00735 * GO TO P1010-EXIT. CL**8 -00736 DTSBX426 -00737 IF FAC6-AMOUNT NOT NUMERIC DTSBX426 -00738 ADD 1 TO WRK-F907-WRITE-CNT CL**8 -00739 DISPLAY ' ACH PAYMENT NOT NUMERIC ' FAC6-AMOUNT CL**8 -00740 MOVE +2 TO RETURN-CODE. CL*37 -00741 * MOVE EFT028 TO F907-MSG-TEXT CL**8 -00742 * MOVE '028' TO F907-MSG-ID CL**8 -00743 * MOVE ZEROS TO F907-EMP-NO CL**8 -00744 * MOVE WRK-FAC6-AMOUNT TO F907-GOV1-REC CL**8 -00745 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT CL**8 -00746 * GO TO P1010-EXIT. CL**8 -00747 DTSBX426 -00748 ADD WRK-FAC6-AMOUNT TO TOT-FAC6-AMOUNT. DTSBX426 +00717 P1010-FAC6-EDIT. DTSBX426 +00718 DISPLAY '1010 - TYPE6 PROCESS EMP NO: ' FAC6-DUTAS-EMP-NO. CL*91 +00719 DTSBX426 +00720 SET WRITE-T025-NO-88 TO TRUE. DTSBX426 +00721 SET MPAY-FOUND-YES-88 TO TRUE. CL105 +00722 DISPLAY ' 1010 - AMOUNT ' FAC6-AMOUNT DTSBX426 +00723 DISPLAY ' 1010 - TRACEIN ' FAC6-DOES-TRACE-NO CL**4 +00724 MOVE ZEROS TO WRK-TEMP-TRACE-NO DTSBX426 +00725 WRK-FAC6-DOES-TRACE-NO. CL*12 +00726 * WRK-DOES-TRACE-NO. CL*12 +00727 MOVE FAC6-AMOUNT TO WRK-FAC6-AMOUNT. CL*74 +00728 MOVE FAC6-DOES-TRACE-NO TO WRK-TEMP-TRACE-NO. CL*10 +00729 DTSBX426 +00730 MOVE FAC6-AMOUNT TO WRK-FAC6-AMT-DISP. CL*73 +00731 MOVE WRK-FAC6-AMT-DISP TO NTE-AMOUNT. CL*73 +00732 * MOVE ZEROS TO WRK-TEMP-TRACE-NOA. CL*21 +00733 * MOVE WRK-DOES-TRACE-NOB TO WRK-TEMP-TRACE-NOB. CL*12 +00734 MOVE WRK-TEMP-TRACE-NOA TO WRK-FAC6-DOES-TRACE-NO. CL*21 +00735 DTSBX426 +00736 DISPLAY 'TRACE-NO -TEMP ' WRK-TEMP-TRACE-NO DTSBX426 +00737 DISPLAY 'TRACE-WRK-FAC6 ' WRK-FAC6-DOES-TRACE-NO CL**4 +00738 DTSBX426 +00739 IF FAC6-AMOUNT = ZEROS DTSBX426 +00740 ADD 1 TO WRK-F907-WRITE-CNT CL**8 +00741 DISPLAY ' ACH PAYMENT = ZEROS ' FAC6-AMOUNT CL**8 +00742 MOVE +2 TO RETURN-CODE. CL*37 +00743 * MOVE EFT027 TO F907-MSG-TEXT CL**8 +00744 * MOVE '027' TO F907-MSG-ID CL**8 +00745 * MOVE ZEROS TO F907-EMP-NO CL**8 +00746 * MOVE FAC6-AMOUNT TO F907-GOV1-REC CL**8 +00747 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT CL**8 +00748 * GO TO P1010-EXIT. CL**8 00749 DTSBX426 -00750 IF WRK-TEMP-TRACE-NO NOT NUMERIC DTSBX426 +00750 IF FAC6-AMOUNT NOT NUMERIC DTSBX426 00751 ADD 1 TO WRK-F907-WRITE-CNT CL**8 -00752 DISPLAY 'TRACE-NO NOT NUMERIC ' WRK-TEMP-TRACE-NO CL**8 +00752 DISPLAY ' ACH PAYMENT NOT NUMERIC ' FAC6-AMOUNT CL**8 00753 MOVE +2 TO RETURN-CODE. CL*37 -00754 * MOVE EFT013 TO F907-MSG-TEXT CL**8 -00755 * MOVE '013' TO F907-MSG-ID CL**8 +00754 * MOVE EFT028 TO F907-MSG-TEXT CL**8 +00755 * MOVE '028' TO F907-MSG-ID CL**8 00756 * MOVE ZEROS TO F907-EMP-NO CL**8 -00757 * MOVE WRK-TEMP-TRACE-NO TO F907-GOV1-TRACE CL**8 +00757 * MOVE WRK-FAC6-AMOUNT TO F907-GOV1-REC CL**8 00758 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT CL**8 00759 * GO TO P1010-EXIT. CL**8 00760 DTSBX426 -00761 IF WRK-TEMP-TRACE-NO = ZEROS DTSBX426 -00762 DISPLAY 'TRACE-NO = ZEROS ' WRK-TEMP-TRACE-NO CL**8 -00763 MOVE +2 TO RETURN-CODE. CL*37 -00764 * MOVE EFT014 TO F907-MSG-TEXT CL**8 -00765 * MOVE '014' TO F907-MSG-ID CL**8 -00766 * MOVE ZEROS TO F907-EMP-NO CL**8 -00767 * MOVE WRK-TEMP-TRACE-NO TO F907-GOV1-TRACE CL**8 -00768 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT CL**8 -00769 * GO TO P1010-EXIT. CL**8 -00770 DTSBX426 -00771 SET MPRF-FOUND-YES-88 TO TRUE. CL135 -00772 CL123 -00773 * IF FAC6-DUTAS-EMP-NOA = 'DC' CL135 -00774 * GO TO P1010-EXIT. CL135 -00775 CL133 -00776 CL133 -00777 * DISPLAY 'ZEMP-NO: ' FAC6-DUTAS-EMP-NO CL135 -00778 CL132 -00779 * PERFORM P1070-READ-MPRF THRU P1070-EXIT. CL135 -00780 CL*65 -00781 * IF L910-NO-REC-88 CL135 -00782 * SET MPRF-FOUND-NO-88 TO TRUE CL135 -00783 * SET WRITE-T025-NO-88 TO TRUE CL135 -00784 * SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL135 -00785 * MOVE 'DTS01' TO WRK-DTS-RTN-CD CL135 -00786 * DISPLAY '***NO MPRF FOUND ON DUTAS -ERROR ' MPRF-EMP-NO. CL135 -00787 CL*65 -00788 * IF FAC6-AMOUNT = ZEROS OR MPRF-FOUND-NO-88 CL135 -00789 * SET MPAY-FOUND-NO-88 TO TRUE. CL135 -00790 P1010-EXIT. DTSBX426 -00791 EXIT. DTSBX426 -00792 DTSBX426 -00793 P1011-FAC7-EDIT. CL*10 -00794 DISPLAY ' 1011 - TYPE7 PROCESS'. CL*56 -00795 DISPLAY ' FAC7 RETURN CODE ' FAC7-RTN-CD. CL*60 -00796 CL*61 -00797 CL*56 -00798 * IF FAC7-RTN-CD = '98' CL*65 -00799 * DISPLAY ' ***** CODE 98 NO T025 WRITTEN ' MPAY-EMP-NO CL*65 -00800 * MOVE 'N' TO X425-AUTO-REV CL*65 -00801 * MOVE '*****' TO X425-AUTO-BATCH CL*65 -00802 * MOVE 'NOC' TO X425-AUTO-ITEM. CL*65 -00803 CL*87 -00804 MOVE ' DOES-ESSP ACH DEBIT RETURNS/REVERSALS ' CL113 -00805 TO HDR3-LITERAL. CL110 -00806 CL110 -00807 PERFORM P4100-PRINT-HEADER THRU P4100-EXIT. CL110 -00808 PERFORM P4000-PRNT-ACHD THRU P4000-EXIT. CL110 -00809 MOVE FAC7-RTN-CD TO WRK-FAC7-RTN-CD CL110 -00810 PERFORM P5000-ACH-RETURN-CODE THRU P5000-EXIT. CL110 -00811 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-1 AFTER 1. CL110 -00812 ADD 1 TO WS-LINE-CNT. CL110 -00813 CL147 -00814 IF FAC7-TRANS-CD = '98' CL148 -00815 DISPLAY ' ***** CODE 98 NO T025 WRITTEN ' MPAY-EMP-NO CL147 -00816 GO TO P1011-EXIT. CL147 -00817 CL109 -00818 IF MPAY-FOUND-YES-88 CL109 -00819 DISPLAY ' MPAY SET TO TRUE ' CL111 -00820 PERFORM P1020-FIND-MPAY-INDEX THRU P1020-EXIT. CL109 -00821 CL109 -00822 CL105 -00823 IF WRK-FACH-PEND-REC-YES-88 CL*83 -00824 MOVE ' DOES-ESSP ACH DEBIT RETURNS NOT FOUND ON DUTAS' CL*87 -00825 TO HDR3-LITERAL CL*87 -00826 PERFORM P4200-PRINT-HEADER THRU P4200-EXIT CL*90 -00827 PERFORM P4000-PRNT-ACHD THRU P4000-EXIT CL*87 -00828 MOVE WRK-DTS-RTN-CD TO WRK-FAC7-RTN-CD CL*83 -00829 PERFORM P5000-ACH-RETURN-CODE THRU P5000-EXIT CL*83 -00830 WRITE ESSP-ACHR-REC FROM DETAIL-LINE-1 AFTER 1 CL*83 -00831 WRITE PEND-FACH-REC FROM FAC1-LINK-REC CL*84 -00832 WRITE PEND-FACH-REC FROM FAC6-LINK-REC CL*84 -00833 WRITE PEND-FACH-REC FROM FAC7-LINK-REC CL*84 -00834 ADD 1 TO WS-FAC7-PEN-CNT CL114 -00835 ADD 1 TO WS-LINE-CNT. CL*83 -00836 CL*83 -00837 P1011-EXIT. CL*10 -00838 EXIT. CL*10 -00839 CL*10 -00840 P1015-TRAILER-EDIT. DTSBX426 -00841 DTSBX426 -00842 DISPLAY ' 1015 - TRAILER PROCESS'. CL*49 -00843 IF WRK-TRAILER-REC-CNT > 1 DTSBX426 -00844 GO TO P1015-EXIT. DTSBX426 -00845 GO TO P1015-EXIT. CL*19 -00846 DTSBX426 -00847 * IF FAC9-BATCH-CNT = ZEROS DTSBX426 -00848 * MOVE EFT066 TO F907-MSG-TEXT DTSBX426 -00849 * MOVE '066' TO F907-MSG-ID DTSBX426 -00850 * MOVE ZEROS TO F907-EMP-NO DTSBX426 -00851 * MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 -00852 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. DTSBX426 -00853 DTSBX426 -00854 DTSBX426 -00855 * IF FAC9-BATCH-CNT NOT NUMERIC DTSBX426 -00856 * MOVE EFT064 TO F907-MSG-TEXT DTSBX426 -00857 * MOVE '064' TO F907-MSG-ID DTSBX426 -00858 * MOVE ZEROS TO F907-EMP-NO DTSBX426 -00859 * MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 -00860 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. DTSBX426 -00861 DTSBX426 -00862 * IF WRK-FACH-READ-CNT NOT = FAC9-BATCH-CNT DTSBX426 -00863 * MOVE EFT065 TO F907-MSG-TEXT, R907-MSG-TEXT DTSBX426 -00864 * MOVE '065' TO F907-MSG-ID, R907-MSG-ID DTSBX426 -00865 * MOVE ZEROS TO F907-EMP-NO DTSBX426 -00866 * MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 -00867 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. DTSBX426 +00761 ADD WRK-FAC6-AMOUNT TO TOT-FAC6-AMOUNT. DTSBX426 +00762 DTSBX426 +00763 IF WRK-TEMP-TRACE-NO NOT NUMERIC DTSBX426 +00764 ADD 1 TO WRK-F907-WRITE-CNT CL**8 +00765 DISPLAY 'TRACE-NO NOT NUMERIC ' WRK-TEMP-TRACE-NO CL**8 +00766 MOVE +2 TO RETURN-CODE. CL*37 +00767 * MOVE EFT013 TO F907-MSG-TEXT CL**8 +00768 * MOVE '013' TO F907-MSG-ID CL**8 +00769 * MOVE ZEROS TO F907-EMP-NO CL**8 +00770 * MOVE WRK-TEMP-TRACE-NO TO F907-GOV1-TRACE CL**8 +00771 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT CL**8 +00772 * GO TO P1010-EXIT. CL**8 +00773 DTSBX426 +00774 IF WRK-TEMP-TRACE-NO = ZEROS DTSBX426 +00775 DISPLAY 'TRACE-NO = ZEROS ' WRK-TEMP-TRACE-NO CL**8 +00776 MOVE +2 TO RETURN-CODE. CL*37 +00777 * MOVE EFT014 TO F907-MSG-TEXT CL**8 +00778 * MOVE '014' TO F907-MSG-ID CL**8 +00779 * MOVE ZEROS TO F907-EMP-NO CL**8 +00780 * MOVE WRK-TEMP-TRACE-NO TO F907-GOV1-TRACE CL**8 +00781 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT CL**8 +00782 * GO TO P1010-EXIT. CL**8 +00783 DTSBX426 +00784 SET MPRF-FOUND-YES-88 TO TRUE. CL135 +00785 CL123 +00786 * IF FAC6-DUTAS-EMP-NOA = 'DC' CL135 +00787 * GO TO P1010-EXIT. CL135 +00788 CL133 +00789 CL133 +00790 * DISPLAY 'ZEMP-NO: ' FAC6-DUTAS-EMP-NO CL135 +00791 CL132 +00792 * PERFORM P1070-READ-MPRF THRU P1070-EXIT. CL135 +00793 CL*65 +00794 * IF L910-NO-REC-88 CL135 +00795 * SET MPRF-FOUND-NO-88 TO TRUE CL135 +00796 * SET WRITE-T025-NO-88 TO TRUE CL135 +00797 * SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL135 +00798 * MOVE 'DTS01' TO WRK-DTS-RTN-CD CL135 +00799 * DISPLAY '***NO MPRF FOUND ON DUTAS -ERROR ' MPRF-EMP-NO. CL135 +00800 CL*65 +00801 * IF FAC6-AMOUNT = ZEROS OR MPRF-FOUND-NO-88 CL135 +00802 * SET MPAY-FOUND-NO-88 TO TRUE. CL135 +00803 P1010-EXIT. DTSBX426 +00804 EXIT. DTSBX426 +00805 DTSBX426 +00806 P1011-FAC7-EDIT. CL*10 +00807 DISPLAY ' 1011 - TYPE7 PROCESS'. CL*56 +00808 DISPLAY ' FAC7 RETURN CODE ' FAC7-RTN-CD. CL*60 +00809 CL*61 +00810 CL*56 +00811 * IF FAC7-RTN-CD = '98' CL*65 +00812 * DISPLAY ' ***** CODE 98 NO T025 WRITTEN ' MPAY-EMP-NO CL*65 +00813 * MOVE 'N' TO X425-AUTO-REV CL*65 +00814 * MOVE '*****' TO X425-AUTO-BATCH CL*65 +00815 * MOVE 'NOC' TO X425-AUTO-ITEM. CL*65 +00816 CL*87 +00817 MOVE ' DOES-ESSP ACH DEBIT RETURNS/REVERSALS ' CL113 +00818 TO HDR3-LITERAL. CL110 +00819 CL110 +00820 PERFORM P4100-PRINT-HEADER THRU P4100-EXIT. CL110 +00821 PERFORM P4000-PRNT-ACHD THRU P4000-EXIT. CL110 +00822 MOVE FAC7-RTN-CD TO WRK-FAC7-RTN-CD CL110 +00823 PERFORM P5000-ACH-RETURN-CODE THRU P5000-EXIT. CL110 +00824 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-1 AFTER 1. CL110 +00825 ADD 1 TO WS-LINE-CNT. CL110 +00826 CL147 +00827 IF FAC7-TRANS-CD = '98' CL148 +00828 DISPLAY ' ***** CODE 98 NO T025 WRITTEN ' MPAY-EMP-NO CL147 +00829 GO TO P1011-EXIT. CL147 +00830 CL109 +00831 IF MPAY-FOUND-YES-88 CL109 +00832 DISPLAY ' MPAY SET TO TRUE ' CL111 +00833 PERFORM P1020-FIND-MPAY-INDEX THRU P1020-EXIT. CL109 +00834 CL109 +00835 CL105 +00836 IF WRK-FACH-PEND-REC-YES-88 CL*83 +00837 MOVE ' DOES-ESSP ACH DEBIT RETURNS NOT FOUND ON DUTAS' CL*87 +00838 TO HDR3-LITERAL CL*87 +00839 PERFORM P4200-PRINT-HEADER THRU P4200-EXIT CL*90 +00840 PERFORM P4000-PRNT-ACHD THRU P4000-EXIT CL*87 +00841 MOVE WRK-DTS-RTN-CD TO WRK-FAC7-RTN-CD CL*83 +00842 PERFORM P5000-ACH-RETURN-CODE THRU P5000-EXIT CL*83 +00843 WRITE ESSP-ACHR-REC FROM DETAIL-LINE-1 AFTER 1 CL*83 +00844 WRITE PEND-FACH-REC FROM FAC1-LINK-REC CL*84 +00845 WRITE PEND-FACH-REC FROM FAC6-LINK-REC CL*84 +00846 WRITE PEND-FACH-REC FROM FAC7-LINK-REC CL*84 +00847 ADD 1 TO WS-FAC7-PEN-CNT CL114 +00848 ADD 1 TO WS-LINE-CNT. CL*83 +00849 CL*83 +00850 P1011-EXIT. CL*10 +00851 EXIT. CL*10 +00852 CL*10 +00853 CL149 +00854 P1015-TRAILER-EDIT. DTSBX426 +00855 DTSBX426 +00856 DISPLAY ' 1015 - TRAILER PROCESS'. CL*49 +00857 IF WRK-TRAILER-REC-CNT > 1 DTSBX426 +00858 GO TO P1015-EXIT. DTSBX426 +00859 GO TO P1015-EXIT. CL*19 +00860 DTSBX426 +00861 * IF FAC9-BATCH-CNT = ZEROS DTSBX426 +00862 * MOVE EFT066 TO F907-MSG-TEXT DTSBX426 +00863 * MOVE '066' TO F907-MSG-ID DTSBX426 +00864 * MOVE ZEROS TO F907-EMP-NO DTSBX426 +00865 * MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 +00866 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. DTSBX426 +00867 DTSBX426 00868 DTSBX426 -00869 MOVE FAC9-TOT-CREDIT-AMT TO TOT-TRAILER-AMT. DTSBX426 -00870 DTSBX426 -00871 IF TOT-FAC6-AMOUNT NOT = TOT-TRAILER-AMT DTSBX426 -00872 MOVE EFT067 TO F907-MSG-TEXT, R907-MSG-TEXT DTSBX426 -00873 MOVE '067' TO F907-MSG-ID, R907-MSG-ID DTSBX426 -00874 MOVE ZEROS TO F907-EMP-NO DTSBX426 -00875 MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 -00876 DISPLAY '****ERROR TYPE6 AMT NOT = TRAILER AMT ' CL122 -00877 FAC9-TRAILER-REC. CL122 -00878 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. CL122 -00879 DTSBX426 -00880 P1015-EXIT. DTSBX426 -00881 EXIT. DTSBX426 -00882 P1020-FIND-MPAY-INDEX. CL105 -00883 DTSBX426 -00884 DISPLAY ' 1020 - PROCESS'. DTSBX426 -00885 SET MPAY-FOUND-NO-88 TO TRUE CL111 -00886 SET TRACE-NO-END-NO-88 TO TRUE. CL111 -00887 MOVE LOW-VALUES TO ITRT-KEY-AREA. DTSBX426 -00888 SET ITRT-TRT-88 TO TRUE. DTSBX426 -00889 DTSBX426 -00890 DISPLAY 'TRACE-WRK-FAC6 ' WRK-FAC6-DOES-TRACE-NO CL*46 -00891 * MOVE WRK-NUMR-TRACE-NO TO ITRT-TRACE-NO. CL*46 -00892 MOVE WRK-FAC6-DOES-TRACE-NO TO ITRT-TRACE-NO. CL*46 +00869 * IF FAC9-BATCH-CNT NOT NUMERIC DTSBX426 +00870 * MOVE EFT064 TO F907-MSG-TEXT DTSBX426 +00871 * MOVE '064' TO F907-MSG-ID DTSBX426 +00872 * MOVE ZEROS TO F907-EMP-NO DTSBX426 +00873 * MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 +00874 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. DTSBX426 +00875 DTSBX426 +00876 * IF WRK-FACH-READ-CNT NOT = FAC9-BATCH-CNT DTSBX426 +00877 * MOVE EFT065 TO F907-MSG-TEXT, R907-MSG-TEXT DTSBX426 +00878 * MOVE '065' TO F907-MSG-ID, R907-MSG-ID DTSBX426 +00879 * MOVE ZEROS TO F907-EMP-NO DTSBX426 +00880 * MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 +00881 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. DTSBX426 +00882 DTSBX426 +00883 MOVE FAC9-TOT-CREDIT-AMT TO TOT-TRAILER-AMT. DTSBX426 +00884 DTSBX426 +00885 IF TOT-FAC6-AMOUNT NOT = TOT-TRAILER-AMT DTSBX426 +00886 MOVE EFT067 TO F907-MSG-TEXT, R907-MSG-TEXT DTSBX426 +00887 MOVE '067' TO F907-MSG-ID, R907-MSG-ID DTSBX426 +00888 MOVE ZEROS TO F907-EMP-NO DTSBX426 +00889 MOVE FAC9-TRAILER-REC TO F907-GOV1-REC DTSBX426 +00890 DISPLAY '****ERROR TYPE6 AMT NOT = TRAILER AMT ' CL122 +00891 FAC9-TRAILER-REC. CL122 +00892 * PERFORM P1055-WRITE-F907 THRU P1055-EXIT. CL122 00893 DTSBX426 -00894 * MOVE ZEROS TO ITRT-EMP-NO CL141 -00895 * ITRT-BATCH-NO CL141 -00896 * ITRT-ITEM-NO CL141 -00897 MOVE ZEROS TO WRK-MPAY-EMP-AMT CL141 -00898 WRK-MPAY-EMP-CNT CL136 -00899 WRK-MPAY-CNT. CL136 -00900 DTSBX426 -00901 MOVE ITRT-KEY-AREA TO ISKL-KEY-AREA. DTSBX426 -00902 DTSBX426 -00903 PERFORM S921-START-BROWSE THRU S921-EXIT. DTSBX426 -00904 IF L921-NO-REC-88 DTSBX426 -00905 DISPLAY ' TRACE NO NOT FOUND ' WRK-FAC6-DOES-TRACE-NO CL*46 -00906 SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL*83 -00907 MOVE 'DTS02' TO WRK-DTS-RTN-CD CL*83 -00908 GO TO P1020-EXIT DTSBX426 -00909 ELSE DTSBX426 -00910 PERFORM P1021-FIND-MPAY-RECORD THRU P1021-EXIT UNTIL CL105 -00911 TRACE-NO-END-YES-88. CL105 -00912 P1020-EXIT. CL105 -00913 EXIT. CL105 -00914 CL105 -00915 P1021-FIND-MPAY-RECORD. CL107 -00916 CL105 -00917 DISPLAY ' 1021 - PROCESS'. CL111 -00918 ADD 1 TO WRK-MPAY-CNT. CL105 -00919 MOVE ISKL-REC TO ITRT-REC. CL105 -00920 * DISPLAY ' MMAY CNT ' WRK-MPAY-CNT. CL145 -00921 * DISPLAY ' 1TRT TRACE NO - ' ITRT-TRACE-NO CL145 -00922 * DISPLAY ' 1FAC6 TRACE NO - ' CL145 -00923 * WRK-FAC6-DOES-TRACE-NO. CL145 -00924 * DISPLAY ' TRANSACTION TYPE ' ITRT-TRAN-TYPE CL145 -00925 * DISPLAY 'ITRT EMP ' ITRT-EMP-NO. CL145 -00926 * DISPLAY 'ITRT BATCH ' ITRT-BATCH-NO CL145 -00927 * DISPLAY 'ITRT ITEM ' ITRT-ITEM-NO. CL145 -00928 DTSBX426 -00929 IF ITRT-TRACE-NO NOT = WRK-FAC6-DOES-TRACE-NO CL**4 -00930 SET TRACE-NO-END-YES-88 TO TRUE CL105 -00931 IF WRK-MPAY-CNT = 1 CL105 -00932 DISPLAY ' 1TRT TRACE NO - NOT FOUND - ' ITRT-TRACE-NO CL105 -00933 DISPLAY ' 1FAC6 TRACE NO - NOT FOUND - ' CL105 -00934 WRK-FAC6-DOES-TRACE-NO CL105 -00935 SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL*83 -00936 MOVE 'DTS02' TO WRK-DTS-RTN-CD CL*83 -00937 GO TO P1021-EXIT CL105 -00938 ELSE CL105 -00939 GO TO P1021-EXIT CL105 -00940 END-IF CL105 -00941 END-IF. CL105 -00942 CL105 -00943 MOVE LOW-VALUES TO MPAY-KEY-AREA. DTSBX426 -00944 MOVE ITRT-EMP-NO TO MPAY-EMP-NO. DTSBX426 -00945 MOVE ITRT-BATCH-NO TO MPAY-BATCH-NO. DTSBX426 -00946 MOVE ITRT-ITEM-NO TO MPAY-ITEM-NO. DTSBX426 -00947 SET MPAY-PAY-88 TO TRUE. DTSBX426 -00948 DTSBX426 -00949 MOVE MPAY-KEY-AREA TO MSKL-KEY-AREA. DTSBX426 -00950 DISPLAY ' MPAY EMP-' MPAY-EMP-NO. DTSBX426 -00951 DISPLAY ' MPAY BAT-' MPAY-BATCH-NO. DTSBX426 -00952 DISPLAY ' MPAY ITM-' MPAY-ITEM-NO. DTSBX426 -00953 PERFORM S910-READ THRU S910-EXIT. DTSBX426 -00954 DTSBX426 -00955 IF L910-NO-REC-88 DTSBX426 -00956 DISPLAY ' MPAY - TRACE NO NOT FOUND - ' WRK-NUMR-TRACE-NO CL*78 -00957 DISPLAY ' FAC6 - TRACE NO - ' WRK-FAC6-DOES-TRACE-NO CL*78 -00958 SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL*83 -00959 MOVE 'DTS03' TO WRK-DTS-RTN-CD CL*83 -00960 SET MPAY-FOUND-NO-88 TO TRUE DTSBX426 -00961 SET TRACE-NO-END-YES-88 TO TRUE CL105 -00962 GO TO P1021-EXIT CL105 -00963 ELSE DTSBX426 -00964 MOVE MSKL-REC TO MPAY-REC. CL*82 -00965 SET MPAY-FOUND-YES-88 TO TRUE DTSBX426 -00966 CL*82 -00967 MOVE FAC6-AMOUNT TO WRK-FAC6-AMOUNT CL*98 -00968 MOVE MPAY-REMIT-AMT TO WRK-MPAY-AMOUNT CL*98 -00969 ADD MPAY-REMIT-AMT TO WRK-MPAY-EMP-AMT CL136 -00970 MOVE FAC6-AMOUNT TO WRK-AMT-DISP1 CL*98 -00971 MOVE MPAY-REMIT-AMT TO WRK-AMT-DISP2 CL*92 -00972 MOVE MPAY-REMIT-AMT TO NTE-AMOUNT. CL140 -00973 CL*82 -00974 ADD WRK-MPAY-AMOUNT TO TOT-MPAY-AMOUNT. CL114 -00975 DISPLAY ' WF RETURN AMOUNT ' WRK-AMT-DISP1 CL*82 -00976 DISPLAY 'MPAYRETURN AMOUNT ' WRK-AMT-DISP2 CL*82 -00977 CL*82 -00978 IF MPAY-FOUND-YES-88 CL105 -00979 MOVE MPAY-EMP-NO TO WRK-FAC6-EMP-NO CL124 -00980 MOVE WRK-FAC6-EMP-NO TO FAC6-DUTAS-EMP-NO CL124 -00981 PERFORM P1070-READ-MPRF THRU P1070-EXIT CL123 -00982 PERFORM P1040-BUILD-T025-RECORD THRU P1040-EXIT CL105 -00983 PERFORM P1045-BUILD-T003-RECORD THRU P1045-EXIT CL105 -00984 IF WRITE-T025-YES-88 CL105 -00985 MOVE T025-REC TO TSKL-REC CL105 -00986 PERFORM S927-WRITE THRU S927-EXIT CL105 -00987 MOVE T003-REC TO TSKL-REC CL105 -00988 PERFORM S927-WRITE THRU S927-EXIT CL105 -00989 ADD 1 TO WRK-T025-WRITE-CNT CL105 -00990 ADD 1 TO WRK-T003-WRITE-CNT CL105 -00991 END-IF CL105 -00992 END-IF. CL105 -00993 CL105 -00994 PERFORM S921-READ-NEXT THRU S921-EXIT. CL105 -00995 CL105 -00996 IF L921-NO-REC-88 CL105 -00997 DISPLAY ' TRACE NO NXT NOT FOUND ' WRK-FAC6-DOES-TRACE-NO CL105 -00998 SET TRACE-NO-END-YES-88 TO TRUE. CL105 -00999 CL105 -01000 P1021-EXIT. CL105 -01001 EXIT. CL105 -01002 CL105 -01003 DTSBX426 -01004 P1040-BUILD-T025-RECORD. DTSBX426 -01005 DISPLAY ' 1040 - PROCESS'. DTSBX426 -01006 SET WRITE-T025-YES-88 TO TRUE. DTSBX426 -01007 SET WRK-TOLR-NO-88 TO TRUE CL*98 -01008 MOVE LENGTH OF T025-REC TO T025-LENGTH. CL*71 -01009 DTSBX426 -01010 * IF WRK-DTSBU005-YES CL*46 -01011 PERFORM S005-FROM-SYS THRU S005-EXIT DTSBX426 -01012 MOVE L005-DATE TO WRK-CURR-DATE DTSBX426 -01013 MOVE L005-TIME TO WRK-CURR-TIME DTSBX426 -01014 * MOVE 'N' TO WRK-DTSBU005-IND. CL*46 -01015 DTSBX426 -01016 MOVE MPAY-EMP-NO TO T025-EMP-NO. DTSBX426 -01017 MOVE 'WEB PAY' TO T025-ORIGIN. CL*83 +00894 P1015-EXIT. DTSBX426 +00895 EXIT. DTSBX426 +00896 P1020-FIND-MPAY-INDEX. CL105 +00897 DTSBX426 +00898 DISPLAY ' 1020 - PROCESS'. DTSBX426 +00899 SET MPAY-FOUND-NO-88 TO TRUE CL111 +00900 SET TRACE-NO-END-NO-88 TO TRUE. CL111 +00901 MOVE LOW-VALUES TO ITRT-KEY-AREA. DTSBX426 +00902 SET ITRT-TRT-88 TO TRUE. DTSBX426 +00903 DTSBX426 +00904 DISPLAY 'TRACE-WRK-FAC6 ' WRK-FAC6-DOES-TRACE-NO CL*46 +00905 * MOVE WRK-NUMR-TRACE-NO TO ITRT-TRACE-NO. CL*46 +00906 MOVE WRK-FAC6-DOES-TRACE-NO TO ITRT-TRACE-NO. CL*46 +00907 DTSBX426 +00908 * MOVE ZEROS TO ITRT-EMP-NO CL141 +00909 * ITRT-BATCH-NO CL141 +00910 * ITRT-ITEM-NO CL141 +00911 MOVE ZEROS TO WRK-MPAY-EMP-AMT CL141 +00912 WRK-MPAY-EMP-CNT CL136 +00913 WRK-MPAY-CNT. CL136 +00914 DTSBX426 +00915 MOVE ITRT-KEY-AREA TO ISKL-KEY-AREA. DTSBX426 +00916 DTSBX426 +00917 PERFORM S921-START-BROWSE THRU S921-EXIT. DTSBX426 +00918 IF L921-NO-REC-88 DTSBX426 +00919 DISPLAY ' TRACE NO NOT FOUND ' WRK-FAC6-DOES-TRACE-NO CL*46 +00920 SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL*83 +00921 MOVE 'DTS02' TO WRK-DTS-RTN-CD CL*83 +00922 GO TO P1020-EXIT DTSBX426 +00923 ELSE DTSBX426 +00924 PERFORM P1021-FIND-MPAY-RECORD THRU P1021-EXIT UNTIL CL105 +00925 TRACE-NO-END-YES-88. CL105 +00926 P1020-EXIT. CL105 +00927 EXIT. CL105 +00928 CL105 +00929 P1021-FIND-MPAY-RECORD. CL107 +00930 CL105 +00931 DISPLAY ' 1021 - PROCESS'. CL111 +00932 ADD 1 TO WRK-MPAY-CNT. CL105 +00933 MOVE ISKL-REC TO ITRT-REC. CL105 +00934 * DISPLAY ' MMAY CNT ' WRK-MPAY-CNT. CL145 +00935 * DISPLAY ' 1TRT TRACE NO - ' ITRT-TRACE-NO CL145 +00936 * DISPLAY ' 1FAC6 TRACE NO - ' CL145 +00937 * WRK-FAC6-DOES-TRACE-NO. CL145 +00938 * DISPLAY ' TRANSACTION TYPE ' ITRT-TRAN-TYPE CL145 +00939 * DISPLAY 'ITRT EMP ' ITRT-EMP-NO. CL145 +00940 * DISPLAY 'ITRT BATCH ' ITRT-BATCH-NO CL145 +00941 * DISPLAY 'ITRT ITEM ' ITRT-ITEM-NO. CL145 +00942 DTSBX426 +00943 IF ITRT-TRACE-NO NOT = WRK-FAC6-DOES-TRACE-NO CL**4 +00944 SET TRACE-NO-END-YES-88 TO TRUE CL105 +00945 IF WRK-MPAY-CNT = 1 CL105 +00946 DISPLAY ' 1TRT TRACE NO - NOT FOUND - ' ITRT-TRACE-NO CL105 +00947 DISPLAY ' 1FAC6 TRACE NO - NOT FOUND - ' CL105 +00948 WRK-FAC6-DOES-TRACE-NO CL105 +00949 SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL*83 +00950 MOVE 'DTS02' TO WRK-DTS-RTN-CD CL*83 +00951 GO TO P1021-EXIT CL105 +00952 ELSE CL105 +00953 GO TO P1021-EXIT CL105 +00954 END-IF CL105 +00955 END-IF. CL105 +00956 CL105 +00957 MOVE LOW-VALUES TO MPAY-KEY-AREA. DTSBX426 +00958 MOVE ITRT-EMP-NO TO MPAY-EMP-NO. DTSBX426 +00959 MOVE ITRT-BATCH-NO TO MPAY-BATCH-NO. DTSBX426 +00960 MOVE ITRT-ITEM-NO TO MPAY-ITEM-NO. DTSBX426 +00961 SET MPAY-PAY-88 TO TRUE. DTSBX426 +00962 DTSBX426 +00963 MOVE MPAY-KEY-AREA TO MSKL-KEY-AREA. DTSBX426 +00964 DISPLAY ' MPAY EMP-' MPAY-EMP-NO. DTSBX426 +00965 DISPLAY ' MPAY BAT-' MPAY-BATCH-NO. DTSBX426 +00966 DISPLAY ' MPAY ITM-' MPAY-ITEM-NO. DTSBX426 +00967 PERFORM S910-READ THRU S910-EXIT. DTSBX426 +00968 DTSBX426 +00969 IF L910-NO-REC-88 DTSBX426 +00970 DISPLAY ' MPAY - TRACE NO NOT FOUND - ' WRK-NUMR-TRACE-NO CL*78 +00971 DISPLAY ' FAC6 - TRACE NO - ' WRK-FAC6-DOES-TRACE-NO CL*78 +00972 SET WRK-FACH-PEND-REC-YES-88 TO TRUE CL*83 +00973 MOVE 'DTS03' TO WRK-DTS-RTN-CD CL*83 +00974 SET MPAY-FOUND-NO-88 TO TRUE DTSBX426 +00975 SET TRACE-NO-END-YES-88 TO TRUE CL105 +00976 GO TO P1021-EXIT CL105 +00977 ELSE DTSBX426 +00978 MOVE MSKL-REC TO MPAY-REC. CL*82 +00979 SET MPAY-FOUND-YES-88 TO TRUE DTSBX426 +00980 CL*82 +00981 MOVE FAC6-AMOUNT TO WRK-FAC6-AMOUNT CL*98 +00982 MOVE MPAY-REMIT-AMT TO WRK-MPAY-AMOUNT CL*98 +00983 ADD MPAY-REMIT-AMT TO WRK-MPAY-EMP-AMT CL136 +00984 MOVE FAC6-AMOUNT TO WRK-AMT-DISP1 CL*98 +00985 MOVE MPAY-REMIT-AMT TO WRK-AMT-DISP2 CL*92 +00986 MOVE MPAY-REMIT-AMT TO NTE-AMOUNT. CL140 +00987 CL*82 +00988 ADD WRK-MPAY-AMOUNT TO TOT-MPAY-AMOUNT. CL114 +00989 DISPLAY ' WF RETURN AMOUNT ' WRK-AMT-DISP1 CL*82 +00990 DISPLAY 'MPAYRETURN AMOUNT ' WRK-AMT-DISP2 CL*82 +00991 CL*82 +00992 IF MPAY-FOUND-YES-88 CL105 +00993 MOVE MPAY-EMP-NO TO WRK-FAC6-EMP-NO CL124 +00994 MOVE WRK-FAC6-EMP-NO TO FAC6-DUTAS-EMP-NO CL124 +00995 PERFORM P1070-READ-MPRF THRU P1070-EXIT CL123 +00996 PERFORM P1040-BUILD-T025-RECORD THRU P1040-EXIT CL105 +00997 PERFORM P1045-BUILD-T003-RECORD THRU P1045-EXIT CL105 +00998 IF WRITE-T025-YES-88 CL105 +00999 MOVE T025-REC TO TSKL-REC CL105 +01000 PERFORM S927-WRITE THRU S927-EXIT CL105 +01001 MOVE T003-REC TO TSKL-REC CL105 +01002 PERFORM S927-WRITE THRU S927-EXIT CL105 +01003 PERFORM P1050-WRITE-ACH-RETURN THRU P1050-EXIT CL151 +01004 ADD 1 TO WRK-T025-WRITE-CNT CL105 +01005 ADD 1 TO WRK-T003-WRITE-CNT CL105 +01006 END-IF CL105 +01007 END-IF. CL105 +01008 CL105 +01009 PERFORM S921-READ-NEXT THRU S921-EXIT. CL105 +01010 CL105 +01011 IF L921-NO-REC-88 CL105 +01012 DISPLAY ' TRACE NO NXT NOT FOUND ' WRK-FAC6-DOES-TRACE-NO CL105 +01013 SET TRACE-NO-END-YES-88 TO TRUE. CL105 +01014 CL105 +01015 P1021-EXIT. CL105 +01016 EXIT. CL105 +01017 CL105 01018 DTSBX426 -01019 MOVE WRK-CURR-DATE TO T025-SYS-DATE. DTSBX426 -01020 MOVE WRK-CURR-TIME TO T025-SYS-TIME. DTSBX426 -01021 CL138 -01022 IF MPAY-EMP-NO NOT = WRK-MPAY-HOLD-EMP-NO CL138 -01023 MOVE MPAY-REMIT-AMT TO WRK-MPAY-EMP-AMT CL139 -01024 MOVE ZEROS TO WRK-MPAY-EMP-CNT. CL138 -01025 CL*77 -01026 IF WRK-MPAY-EMP-CNT = 1 CL136 -01027 MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL136 -01028 SET T025-NSF-PEN-CHARGE-NO-88 TO TRUE CL136 -01029 MOVE 'NG' TO T025-PAY-TYPE CL136 -01030 GO TO P1040-BUILD-T025-CONT. CL136 -01031 CL136 -01032 IF WRK-MPAY-EMP-AMT < WRK-TOLR-AMOUNT CL136 -01033 MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL136 -01034 DISPLAY 'FAC6 < 15: ' WRK-MPAY-AMOUNT ' ' WRK-TOLR-AMOUNT CL136 -01035 SET T025-NSF-PEN-CHARGE-NO-88 TO TRUE CL136 -01036 MOVE 'NG' TO T025-PAY-TYPE CL136 -01037 GO TO P1040-BUILD-T025-CONT. CL136 -01038 CL136 -01039 * IF WRK-MPAY-EMP-AMT < WRK-TOLR-AMOUNT OR CL136 -01040 * WRK-MPAY-HOLD-EMP-NO = MPAY-EMP-NO CL136 -01041 * MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL136 -01042 * DISPLAY 'FAC6 < 15: ' WRK-MPAY-AMOUNT ' ' WRK-TOLR-AMOUNT CL136 -01043 * SET T025-NSF-PEN-CHARGE-NO-88 TO TRUE CL136 -01044 * MOVE 'NG' TO T025-PAY-TYPE CL136 -01045 * ELSE CL136 -01046 MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL106 -01047 MOVE 1 TO WRK-MPAY-EMP-CNT CL136 -01048 SET T025-NSF-PEN-CHARGE-YES-88 TO TRUE CL120 -01049 MOVE 'NG' TO T025-PAY-TYPE. CL*77 -01050 DTSBX426 -01051 P1040-BUILD-T025-CONT. CL136 -01052 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK. DTSBX426 -01053 DTSBX426 -01054 COMPUTE WRK-MPAY-REMIT-AMT = MPAY-REMIT-AMT * -1. DTSBX426 -01055 MOVE WRK-MPAY-REMIT-AMT TO T025-REMIT-AMT. DTSBX426 -01056 CL*78 -01057 MOVE MPAY-TRACE-NO TO T025-TRACE-NO. DTSBX426 -01058 MOVE WRK-RECV-DATE TO T025-RECEIVED-DATE CL*92 -01059 T025-DEPOSIT-DATE. DTSBX426 -01060 DTSBX426 -01061 SET T025-WAIVE-INT-NO-88 TO TRUE CL120 -01062 SET T025-WAIVE-LATE-PEN-NO-88 TO TRUE CL120 -01063 MOVE ZERO TO T025-APPLIC-YRQ. DTSBX426 -01064 MOVE SPACES TO T025-APPLIC-IND. DTSBX426 -01065 MOVE MPAY-BATCH-NO TO T025-APPLIC-BATCH-NO. DTSBX426 -01066 MOVE MPAY-ITEM-NO TO T025-APPLIC-ITEM-NO. DTSBX426 -01067 MOVE SPACES TO T025-RESPONSIBLE-ACTIVITY. DTSBX426 -01068 MOVE 'WEBESSP' TO T025-RESPONSIBLE-OP-ID. CL**3 -01069 DTSBX426 -01070 CL107 -01071 DISPLAY ' EMP PAYMENT REVERSED ' MPAY-EMP-NO CL107 -01072 DISPLAY ' WF RETURN AMOUNT ' WRK-AMT-DISP1 CL107 -01073 DISPLAY ' MPAY RETURN AMOUNT ' WRK-AMT-DISP2 CL107 -01074 DISPLAY ' PAY TYPE ' T025-PAY-TYPE. CL107 -01075 CL107 -01076 PERFORM P4300-PRNT-REVR THRU P4300-EXIT. CL110 -01077 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-1 AFTER 1. CL110 -01078 ADD 1 TO WS-LINE-CNT. CL110 -01079 CL110 -01080 DTSBX426 -01081 P1040-EXIT. DTSBX426 -01082 EXIT. DTSBX426 -01083 DTSBX426 -01084 P1045-BUILD-T003-RECORD. CL*71 -01085 CL*70 -01086 PERFORM S3000-INIT-T003 THRU S3000-EXIT. CL*70 -01087 CL*70 -01088 MOVE WRK-MNTE-SUBJECT TO MNTE-SUBJECT CL*70 -01089 CL*70 -01090 MOVE +1 TO MNTE-TEXT-CNT. CL*70 -01091 MOVE WRK-MNTE-REASON TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 -01092 DISPLAY 'MNTE-REASON: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 -01093 CL*70 -01094 ADD +1 TO MNTE-TEXT-CNT. CL*95 -01095 MOVE WRK-MNTE-TRACE-NO TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 -01096 DISPLAY 'MNTE-TRACEN: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 -01097 CL*74 -01098 ADD +1 TO MNTE-TEXT-CNT. CL*95 -01099 MOVE WRK-MNTE-DEP-DATE TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 -01100 DISPLAY 'MNTE-DEPDTE: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 -01101 CL*74 -01102 ADD +1 TO MNTE-TEXT-CNT. CL*95 -01103 MOVE WRK-MNTE-BATCH-ITEM TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 -01104 DISPLAY 'MNTE-BTHITM: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 -01105 CL*74 -01106 ADD +1 TO MNTE-TEXT-CNT. CL*95 -01107 MOVE WRK-MNTE-ACCT-NO TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 -01108 DISPLAY 'MNTE-ACCTNO: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 -01109 CL*74 -01110 ADD +1 TO MNTE-TEXT-CNT. CL*95 -01111 MOVE WRK-MNTE-AMOUNT TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 -01112 DISPLAY 'MNTE-AMOUNT: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 -01113 CL*74 -01114 * ADD +1 TO MNTE-TEXT-CNT. CL*98 -01115 * MOVE WRK-MNTE-AMOUNT TO MNTE-TEXT(MNTE-TEXT-CNT) CL*98 -01116 CL*77 -01117 IF WRK-MPAY-EMP-AMT < WRK-TOLR-AMOUNT CL140 -01118 SET WRK-TOLR-YES-88 TO TRUE. CL106 -01119 CL106 -01120 IF WRK-TOLR-YES-88 CL*98 -01121 DISPLAY 'P1045 - TOLERATED NO FEE: ' WRK-MPAY-AMOUNT CL112 -01122 ADD +1 TO MNTE-TEXT-CNT CL*95 -01123 MOVE WRK-MNTE-NO-FEE TO MNTE-TEXT(MNTE-TEXT-CNT). CL*77 -01124 CL*77 -01125 MOVE MNTE-REC TO T003-MNTE-REC. CL*70 -01126 CL*70 -01127 P1045-EXIT. CL*70 -01128 EXIT. CL*70 -01129 P1055-WRITE-F907. CL*70 -01130 ************************************************************** DTSBX426 -01131 * WRITE FACH ERROR RETURN FILE(F907) * DTSBX426 -01132 ************************************************************** DTSBX426 -01133 DTSBX426 -01134 DISPLAY ' 1055 - PROCESS'. DTSBX426 -01135 ADD +1 TO WRK-F907-WRITE-CNT. DTSBX426 -01136 MOVE WRK-MOD-NAME TO F907-MODULE-NAME. DTSBX426 -01137 MOVE IN-FACH-REC TO F907-GOV1-REC. DTSBX426 -01138 MOVE ZEROS TO F907-EMP-NO. DTSBX426 -01139 DTSBX426 -01140 CALL 'DTSBU946' USING F907-REC. DTSBX426 -01141 DTSBX426 -01142 DTSBX426 -01143 P1055-EXIT. DTSBX426 -01144 EXIT. DTSBX426 -01145 P4000-PRNT-ACHD. CL**7 -01146 MOVE FAC6-DUTAS-EMP-NO TO X425-EMP-NO CL**7 -01147 MOVE FAC6-DUTAS-EMP-NAME TO X425-NAME-CHECK. CL127 -01148 MOVE FAC6-BANK-ACCT-NO TO X425-ACCT-NUMBER NTE-ACCT-NO CL*71 -01149 MOVE FAC6-RECV-BANK-ID TO X425-BANK-ID. CL*38 -01150 MOVE WRK-FAC6-AMOUNT TO X425-X145-REMIT CL*72 -01151 MOVE WRK-TEMP-TRACE-NOA TO X425-X145-TRACE-NOB. CL*21 -01152 MOVE WRK-TEMP-TRACE-NOA TO NTE-TRACE-NO. CL*71 -01153 * MOVE SPACES TO X425-MESSAGE. CL*51 -01154 * IF MPAY-FOUND-YES-88 CL110 -01155 * MOVE MPAY-BATCH-NO TO X425-AUTO-BATCH NTE-BATCH-NO CL110 -01156 * MOVE MPAY-ITEM-NO TO X425-AUTO-ITEM NTE-ITEM-NO CL110 -01157 * MOVE '/' TO X425-AUTO-FILL CL110 -01158 * MOVE 'Y ' TO X425-AUTO-REV CL110 -01159 * MOVE MPAY-DEPOSIT-DATE TO L001-FED-8-DATE-9 CL110 -01160 * SET L001-FROM-FED-8 TO TRUE CL110 -01161 * PERFORM S001-DATE THRU S001-EXIT CL110 -01162 * MOVE L001-SLASH-8-DATE TO NTE-DEPOSIT-DATE CL110 -01163 * ELSE CL110 -01164 MOVE ' ' TO X425-AUTO-FILL CL*53 -01165 MOVE 'FARGO' TO X425-AUTO-BATCH CL110 -01166 MOVE 'RTN' TO X425-AUTO-ITEM CL110 -01167 MOVE '* ' TO X425-AUTO-REV. CL110 -01168 CL*71 -01169 CL*53 -01170 P4000-EXIT. CL**7 -01171 EXIT. CL**7 -01172 P4100-PRINT-HEADER. CL**6 -01173 IF WS-LINE-CNT > 58 CL*90 -01174 ADD +1 TO WS-PAGE-CNT CL**6 -01175 MOVE WS-PAGE-CNT TO HEADER-3-PAGE CL*89 -01176 * MOVE ' -/+ ----- MONTHLY COUNT' TO HEADER-5-NAME CL*10 -01177 MOVE FAC1-FILE-CREATE-DATE TO HEADER-3A-DATE CL*10 -01178 MOVE FAC1-FILE-CREATE-TIME TO HEADER-3A-TIME CL*10 -01179 WRITE ESSP-ACHD-REC FROM HEADER-1 AFTER TOP-OF-PAGE CL*10 -01180 WRITE ESSP-ACHD-REC FROM HEADER-2 AFTER 1 CL*10 -01181 WRITE ESSP-ACHD-REC FROM HEADER-3 AFTER 1 CL*10 -01182 WRITE ESSP-ACHD-REC FROM HEADER-3A AFTER 1 CL*10 -01183 WRITE ESSP-ACHD-REC FROM HEADER-4 AFTER 1 CL*10 -01184 WRITE ESSP-ACHD-REC FROM HEADER-5 AFTER 1 CL*10 -01185 WRITE ESSP-ACHD-REC FROM HEADER-6 AFTER 1 CL*90 -01186 MOVE +6 TO WS-LINE-CNT. CL*90 -01187 P4100-EXIT. CL**6 -01188 EXIT. CL**6 -01189 CL**6 -01190 P4200-PRINT-HEADER. CL*90 -01191 IF WS-RETN-CNT > 58 CL*90 -01192 ADD +1 TO WS-PAGE-CNT CL*90 -01193 MOVE WS-PAGE-CNT TO HEADER-3-PAGE CL*90 -01194 * MOVE ' -/+ ----- MONTHLY COUNT' TO HEADER-5-NAME CL*90 -01195 MOVE FAC1-FILE-CREATE-DATE TO HEADER-3A-DATE CL*90 -01196 MOVE FAC1-FILE-CREATE-TIME TO HEADER-3A-TIME CL*90 -01197 WRITE ESSP-ACHR-REC FROM HEADER-1 AFTER TOP-OF-PAGE CL*90 -01198 WRITE ESSP-ACHR-REC FROM HEADER-2 AFTER 1 CL*90 -01199 WRITE ESSP-ACHR-REC FROM HEADER-3 AFTER 1 CL*90 -01200 WRITE ESSP-ACHR-REC FROM HEADER-3A AFTER 1 CL*90 -01201 WRITE ESSP-ACHR-REC FROM HEADER-4 AFTER 1 CL*90 -01202 WRITE ESSP-ACHR-REC FROM HEADER-5 AFTER 1 CL*90 -01203 WRITE ESSP-ACHR-REC FROM HEADER-6 AFTER 1 CL*90 -01204 MOVE +6 TO WS-RETN-CNT. CL*90 -01205 P4200-EXIT. CL*90 -01206 EXIT. CL*90 -01207 CL*90 -01208 P4300-PRNT-REVR. CL110 -01209 MOVE FAC6-DUTAS-EMP-NO TO X425-EMP-NO CL110 -01210 MOVE FAC6-DUTAS-EMP-NAME TO X425-NAME-CHECK. CL127 -01211 MOVE FAC6-BANK-ACCT-NO TO X425-ACCT-NUMBER NTE-ACCT-NO CL110 -01212 MOVE FAC6-RECV-BANK-ID TO X425-BANK-ID. CL110 -01213 MOVE WRK-MPAY-REMIT-AMT TO X425-X145-REMIT CL110 -01214 MOVE WRK-TEMP-TRACE-NOA TO X425-X145-TRACE-NOB. CL110 -01215 MOVE WRK-TEMP-TRACE-NOA TO NTE-TRACE-NO. CL110 -01216 * MOVE SPACES TO X425-MESSAGE. CL119 -01217 IF MPAY-FOUND-YES-88 CL110 -01218 MOVE MPAY-BATCH-NO TO X425-AUTO-BATCH NTE-BATCH-NO CL110 -01219 MOVE MPAY-ITEM-NO TO X425-AUTO-ITEM NTE-ITEM-NO CL110 -01220 MOVE '/' TO X425-AUTO-FILL CL110 -01221 MOVE 'Y ' TO X425-AUTO-REV CL110 -01222 MOVE MPAY-DEPOSIT-DATE TO L001-FED-8-DATE-9 CL110 -01223 SET L001-FROM-FED-8 TO TRUE CL110 -01224 PERFORM S001-DATE THRU S001-EXIT CL110 -01225 MOVE L001-SLASH-8-DATE TO NTE-DEPOSIT-DATE CL110 -01226 ELSE CL110 -01227 MOVE ' ' TO X425-AUTO-FILL CL110 -01228 MOVE 'STAFF' TO X425-AUTO-BATCH CL110 -01229 MOVE 'REV' TO X425-AUTO-ITEM CL110 -01230 MOVE 'N ' TO X425-AUTO-REV. CL110 -01231 CL110 -01232 CL110 -01233 P4300-EXIT. CL110 -01234 EXIT. CL110 -01235 P5000-ACH-RETURN-CODE. CL*45 -01236 IF WRK-FAC7-RTN-CD = WRK-RTN-CD CL*83 -01237 GO TO P5000-EXIT. CL*45 -01238 CL*45 -01239 SET WRK-FAC7-RTN-INVALID-88 TO TRUE CL*46 -01240 CL*45 -01241 PERFORM VARYING ACH-RTN-IDX FROM 1 BY 1 CL*45 -01242 UNTIL WRK-FAC7-RTN-VALID-88 CL*46 -01243 OR ACH-RTN-IDX > ACH-RTN-CD-CNT CL*45 -01244 OR ACH-RTN-CD(ACH-RTN-IDX) = SPACE CL*45 -01245 IF WRK-FAC7-RTN-CD = CL*83 -01246 ACH-RTN-CD(ACH-RTN-IDX) CL*46 -01247 SET WRK-FAC7-RTN-VALID-88 TO TRUE CL*46 -01248 MOVE ACH-RTN-CD (ACH-RTN-IDX) TO WRK-RTN-CD CL*45 -01249 MOVE ACH-RTN-VALUE(ACH-RTN-IDX) TO X425-MESSAGE CL*57 -01250 MOVE ACH-RTN-VALUE(ACH-RTN-IDX) TO NTE-REASON CL*71 -01251 END-IF CL*45 -01252 END-PERFORM. CL*45 -01253 CL*45 -01254 IF WRK-FAC7-RTN-INVALID-88 CL*46 -01255 MOVE '???????? INVALID RETURN CODE ' TO X425-MESSAGE CL*57 -01256 GO TO P5000-EXIT. CL*45 -01257 P5000-EXIT. CL*45 -01258 EXIT. CL*45 -01259 CL*45 -01260 T0000-TERMINATE. DTSBX426 -01261 DTSBX426 -01262 IF NOT FACH-TYPE-TRAILER-88 DTSBX426 -01263 DISPLAY ' LAST RECORD IS NOT A TRAILER RECORD ' DTSBX426 -01264 DISPLAY ' ' DTSBX426 -01265 DISPLAY ' LAST RECORD ' FACH-SKELETAL-REC DTSBX426 -01266 DISPLAY ' **** ACH FILE EMPTY *****'. CL*34 -01267 DTSBX426 -01268 IF WRK-FACH-READ-CNT = 2 DTSBX426 -01269 MOVE +3 TO RETURN-CODE CL*32 -01270 DISPLAY ' *** WELLS FARGO FILE CONTAINS 2 RECS ' CL**3 -01271 DISPLAY ' *** NO REJECTED PAYMENT RECORDS *'. DTSBX426 -01272 DTSBX426 -01273 DTSBX426 -01274 * MOVE -1 TO F907-LENGTH. CL**8 -01275 * CALL 'DTSBU946' USING F907-REC. CL**8 -01276 DTSBX426 -01277 DTSBX426 -01278 DTSBX426 -01279 DISPLAY ' '. DTSBX426 -01280 DTSBX426 -01281 DISPLAY '*** DTSBX426 TERMINATION STATISTICS ***'. CL*41 -01282 DTSBX426 -01283 DISPLAY ' '. DTSBX426 -01284 DTSBX426 -01285 DISPLAY 'NUMBER OF FACH RECORDS READ : ' DTSBX426 -01286 WRK-FACH-READ-CNT. DTSBX426 -01287 DTSBX426 -01288 DISPLAY 'NUMBER IN TRAILER BATCH COUNT : ' DTSBX426 -01289 FAC9-BATCH-CNT. DTSBX426 -01290 DTSBX426 -01291 DISPLAY 'HEADERS IN FACH FILE : ' DTSBX426 -01292 WRK-HEADER-RECORDS. DTSBX426 -01293 DTSBX426 -01294 DISPLAY 'TRAILERS IN FACH FILE : ' DTSBX426 -01295 WRK-TRAILER-RECORDS. DTSBX426 -01296 DTSBX426 -01297 DISPLAY 'DETAIL RECORDS IN FACH FILE : ' DTSBX426 -01298 WRK-FAC6-RECORDS. DTSBX426 -01299 DTSBX426 -01300 DISPLAY 'NUMBER OF OTHER RECORDS IN FACH FILE: ' DTSBX426 -01301 WRK-OTHER-RECORDS. DTSBX426 -01302 DTSBX426 -01303 DISPLAY 'NUMBER OF T025 RECORDS WRITTEN : ' DTSBX426 -01304 WRK-T025-WRITE-CNT. DTSBX426 -01305 DTSBX426 -01306 DISPLAY 'NUMBER OF F907 RECORDS WRITTEN : ' DTSBX426 -01307 WRK-F907-WRITE-CNT. DTSBX426 -01308 * IF WRK-F907-WRITE-CNT > 0 CL*24 -01309 * MOVE +3 TO RETURN-CODE CL*24 -01310 * DISPLAY ' FACH INPUT FILE CONTAINS ERRORS+++' CL*24 -01311 * DISPLAY ' PROGRAM WILL ABEND ***************'. CL*24 -01312 * PERFORM S999-ABEND THRU S999-EXIT. DTSBX426 -01313 DTSBX426 -01314 IF WS-LINE-CNT > 52 OR RETURN-CODE = +3 CL*32 -01315 PERFORM P4100-PRINT-HEADER THRU P4100-EXIT CL*24 -01316 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-1 AFTER 1 CL*32 -01317 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-2 AFTER 3 CL*36 -01318 END-IF. CL*24 -01319 CL114 -01320 MOVE WRK-FAC6-RECORDS TO WS-FOOTING-CNT. CL*24 -01321 MOVE TOT-FAC6-AMOUNT TO WS-TOTAL-REMIT. CL*24 -01322 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-1 AFTER 1. CL*25 -01323 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-2 AFTER 1. CL*25 -01324 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-3 AFTER 1. CL*25 -01325 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-4 AFTER 1. CL*25 -01326 * WRITE REPT-PAID-REC FROM FOOTING-LINE-5 AFTER 1. CL*25 -01327 * WRITE REPT-PAID-REC FROM FOOTING-LINE-6 AFTER 1. CL*24 -01328 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-7 AFTER 1. CL*25 -01329 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-8 AFTER 1. CL*25 -01330 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-13 AFTER 3. CL117 -01331 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-14 AFTER 1. CL*25 -01332 CL*24 -01333 DISPLAY ' '. CL*24 -01334 DTSBX426 -01335 MOVE WRK-FAC6-RECORDS TO WS-FOOTING-CNT. CL114 -01336 MOVE WS-FAC7-PEN-CNT TO WS-X145-ERR-CNT WS-X145-PEN-CNT CL114 -01337 MOVE TOT-MPAY-AMOUNT TO WS-TOT-REMIT. CL114 -01338 MOVE WRK-T025-WRITE-CNT TO WS-T025-WRITE-CNT. CL115 -01339 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-1 AFTER 1. CL*88 -01340 WRITE ESSP-ACHD-REC FROM FOOTDTS-LINE-2 AFTER 1. CL117 -01341 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-3 AFTER 1. CL114 -01342 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-4 AFTER 1. CL114 -01343 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-5 AFTER 1. CL116 -01344 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-6 AFTER 1. CL116 -01345 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-7 AFTER 1. CL114 -01346 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-8 AFTER 1. CL114 -01347 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-13 AFTER 3. CL*88 -01348 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-14 AFTER 1. CL*88 -01349 CL*88 -01350 IF RETURN-CODE NOT = +3 CL114 -01351 WRITE ESSP-ACHD-REC FROM ZNOTE1 AFTER 2 CL114 -01352 WRITE ESSP-ACHD-REC FROM CNOTE1 AFTER 1 CL114 -01353 WRITE ESSP-ACHD-REC FROM CNOTE2 AFTER 1 CL114 -01354 WRITE ESSP-ACHD-REC FROM CNOTE3 AFTER 1 CL114 -01355 END-IF. CL114 -01356 CL*58 -01357 CL*29 -01358 CLOSE IN-FACH ESSP-ACHD-FILE PEND-FACH-FILE CL*86 -01359 ESSP-ACHR-FILE. CL*86 -01360 PERFORM S910-CLOSE THRU S910-EXIT. CL*29 -01361 PERFORM S927-CLOSE THRU S927-EXIT. CL*29 -01362 CL*29 -01363 CL*29 -01364 DTSBX426 -01365 T0000-EXIT. DTSBX426 -01366 EXIT. DTSBX426 -01367 DTSBX426 -01368 P1070-READ-MPRF. DTSBX426 -01369 DTSBX426 -01370 DTSBX426 -01371 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX426 -01372 SET MPRF-PRF-88 TO TRUE. DTSBX426 -01373 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130 -01374 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131 -01375 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131 -01376 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX426 -01377 DTSBX426 -01378 PERFORM S910-READ THRU S910-EXIT. DTSBX426 -01379 DTSBX426 -01380 IF L910-OK-88 DTSBX426 -01381 SET L910-OK-88 TO TRUE DTSBX426 -01382 MOVE MSKL-REC TO MPRF-REC DTSBX426 -01383 ELSE DTSBX426 -01384 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131 -01385 SET L910-NO-REC-88 TO TRUE DTSBX426 -01386 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX426 -01387 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX426 -01388 GO TO P1070-EXIT. DTSBX426 -01389 DTSBX426 -01390 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127 -01391 WS-FAC6-DUTAS-EMP-NAME. CL129 -01392 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129 -01393 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129 -01394 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129 -01395 P1070-EXIT. DTSBX426 -01396 EXIT. DTSBX426 -01397 DTSBX426 -01398 S3000-INIT-T003. CL*70 -01399 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70 -01400 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70 -01401 SET MNTE-NTE-88 TO TRUE. CL*70 -01402 MOVE +0 TO MNTE-PURGE-DATE. CL*70 -01403 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70 -01404 CL*70 -01405 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72 -01406 MNTE-CHNG-DATE. CL*70 -01407 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70 -01408 MNTE-DATA-ESTB-ABSTIME CL*70 -01409 MNTE-CHNG-ABSTIME. CL*70 -01410 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70 -01411 MNTE-CHNG-OP-ID. CL*70 -01412 MOVE +0 TO MNTE-TEXT-CNT. CL*70 -01413 MOVE SPACES TO MNTE-TEXT-AREA. CL*70 -01414 CL*70 -01415 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 -01416 MOVE '003' TO T003-REC-TYPE. CL*70 -01417 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 -01418 MOVE '003' TO T003-REC-TYPE. CL*70 -01419 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70 -01420 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70 -01421 MOVE L005-DATE TO T003-SYS-DATE. CL*72 -01422 MOVE L005-TIME TO T003-SYS-TIME. CL*72 -01423 SET T003-ADD-MNTE-88 TO TRUE. CL*70 -01424 CL*70 -01425 S3000-EXIT. CL*70 -01426 EXIT. CL*70 -01427 CL*70 -01428 DTSBX426 -01429 S001-FROM-FED-8. CL*71 -01430 SET L001-FROM-FED-8 TO TRUE. CL*71 -01431 GO TO S001-DATE. CL*71 -01432 CL*71 -01433 S001-DATE. CL*71 -01434 SKIP1 CL*71 -01435 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71 -01436 S001-EXIT. CL*71 -01437 EXIT. CL*71 -01438 S005-FROM-SYS. CL*71 -01439 DTSBX426 -01440 SET L005-FROM-SYS TO TRUE. DTSBX426 -01441 GO TO S005-ABSTIME. DTSBX426 -01442 DTSBX426 -01443 S005-ABSTIME. DTSBX426 -01444 DTSBX426 -01445 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX426 -01446 DTSBX426 -01447 S005-EXIT. DTSBX426 -01448 EXIT. DTSBX426 -01449 DTSBX426 -01450 DTSBX426 -01451 S910-OPEN-UPDATE-NO-AIX. DTSBX426 -01452 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX426 -01453 GO TO S910-MSTR-IO. DTSBX426 -01454 DTSBX426 -01455 EJECT DTSBX426 -01456 S910-OPEN-READ. DTSBX426 -01457 SET L910-OPEN-READ-88 TO TRUE. DTSBX426 -01458 GO TO S910-MSTR-IO. DTSBX426 -01459 DTSBX426 -01460 S910-READ. DTSBX426 -01461 SET L910-READ-88 TO TRUE. DTSBX426 -01462 GO TO S910-MSTR-IO. DTSBX426 -01463 DTSBX426 -01464 S910-DELETE. DTSBX426 -01465 SET L910-DELETE-88 TO TRUE. DTSBX426 -01466 GO TO S910-MSTR-IO. DTSBX426 -01467 DTSBX426 -01468 S910-WRITE. DTSBX426 -01469 SET L910-WRITE-88 TO TRUE. DTSBX426 -01470 GO TO S910-MSTR-IO. DTSBX426 -01471 DTSBX426 -01472 S910-START-BROWSE. DTSBX426 -01473 SET L910-START-BROWSE-88 TO TRUE. DTSBX426 -01474 GO TO S910-MSTR-IO. DTSBX426 -01475 DTSBX426 -01476 S910-READ-NEXT. DTSBX426 -01477 SET L910-READ-NEXT-88 TO TRUE. DTSBX426 -01478 GO TO S910-MSTR-IO. DTSBX426 -01479 DTSBX426 -01480 S910-REWRITE. DTSBX426 -01481 SET L910-REWRITE-88 TO TRUE. DTSBX426 -01482 GO TO S910-MSTR-IO. DTSBX426 -01483 DTSBX426 -01484 S910-CLOSE. DTSBX426 -01485 SET L910-CLOSE-88 TO TRUE. DTSBX426 -01486 GO TO S910-MSTR-IO. DTSBX426 +01019 P1040-BUILD-T025-RECORD. DTSBX426 +01020 DISPLAY ' 1040 - PROCESS'. DTSBX426 +01021 SET WRITE-T025-YES-88 TO TRUE. DTSBX426 +01022 SET WRK-TOLR-NO-88 TO TRUE CL*98 +01023 MOVE LENGTH OF T025-REC TO T025-LENGTH. CL*71 +01024 DTSBX426 +01025 * IF WRK-DTSBU005-YES CL*46 +01026 PERFORM S005-FROM-SYS THRU S005-EXIT DTSBX426 +01027 MOVE L005-DATE TO WRK-CURR-DATE DTSBX426 +01028 MOVE L005-TIME TO WRK-CURR-TIME DTSBX426 +01029 * MOVE 'N' TO WRK-DTSBU005-IND. CL*46 +01030 DTSBX426 +01031 MOVE MPAY-EMP-NO TO T025-EMP-NO. DTSBX426 +01032 MOVE 'WEB PAY' TO T025-ORIGIN. CL*83 +01033 DTSBX426 +01034 MOVE WRK-CURR-DATE TO T025-SYS-DATE. DTSBX426 +01035 MOVE WRK-CURR-TIME TO T025-SYS-TIME. DTSBX426 +01036 CL138 +01037 IF MPAY-EMP-NO NOT = WRK-MPAY-HOLD-EMP-NO CL138 +01038 MOVE MPAY-REMIT-AMT TO WRK-MPAY-EMP-AMT CL139 +01039 MOVE ZEROS TO WRK-MPAY-EMP-CNT. CL138 +01040 CL*77 +01041 IF WRK-MPAY-EMP-CNT = 1 CL136 +01042 MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL136 +01043 SET T025-NSF-PEN-CHARGE-NO-88 TO TRUE CL136 +01044 MOVE 'NG' TO T025-PAY-TYPE CL136 +01045 GO TO P1040-BUILD-T025-CONT. CL136 +01046 CL136 +01047 IF WRK-MPAY-EMP-AMT < WRK-TOLR-AMOUNT CL136 +01048 MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL136 +01049 DISPLAY 'FAC6 < 15: ' WRK-MPAY-AMOUNT ' ' WRK-TOLR-AMOUNT CL136 +01050 SET T025-NSF-PEN-CHARGE-NO-88 TO TRUE CL136 +01051 MOVE 'NG' TO T025-PAY-TYPE CL136 +01052 GO TO P1040-BUILD-T025-CONT. CL136 +01053 CL136 +01054 * IF WRK-MPAY-EMP-AMT < WRK-TOLR-AMOUNT OR CL136 +01055 * WRK-MPAY-HOLD-EMP-NO = MPAY-EMP-NO CL136 +01056 * MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL136 +01057 * DISPLAY 'FAC6 < 15: ' WRK-MPAY-AMOUNT ' ' WRK-TOLR-AMOUNT CL136 +01058 * SET T025-NSF-PEN-CHARGE-NO-88 TO TRUE CL136 +01059 * MOVE 'NG' TO T025-PAY-TYPE CL136 +01060 * ELSE CL136 +01061 MOVE MPAY-EMP-NO TO WRK-MPAY-HOLD-EMP-NO CL106 +01062 MOVE 1 TO WRK-MPAY-EMP-CNT CL136 +01063 SET T025-NSF-PEN-CHARGE-YES-88 TO TRUE CL120 +01064 MOVE 'NG' TO T025-PAY-TYPE. CL*77 +01065 DTSBX426 +01066 P1040-BUILD-T025-CONT. CL136 +01067 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK. DTSBX426 +01068 DTSBX426 +01069 COMPUTE WRK-MPAY-REMIT-AMT = MPAY-REMIT-AMT * -1. DTSBX426 +01070 MOVE WRK-MPAY-REMIT-AMT TO T025-REMIT-AMT. DTSBX426 +01071 CL*78 +01072 MOVE MPAY-TRACE-NO TO T025-TRACE-NO. DTSBX426 +01073 MOVE WRK-RECV-DATE TO T025-RECEIVED-DATE CL*92 +01074 T025-DEPOSIT-DATE. DTSBX426 +01075 DTSBX426 +01076 SET T025-WAIVE-INT-NO-88 TO TRUE CL120 +01077 SET T025-WAIVE-LATE-PEN-NO-88 TO TRUE CL120 +01078 MOVE ZERO TO T025-APPLIC-YRQ. DTSBX426 +01079 MOVE SPACES TO T025-APPLIC-IND. DTSBX426 +01080 MOVE MPAY-BATCH-NO TO T025-APPLIC-BATCH-NO. DTSBX426 +01081 MOVE MPAY-ITEM-NO TO T025-APPLIC-ITEM-NO. DTSBX426 +01082 MOVE SPACES TO T025-RESPONSIBLE-ACTIVITY. DTSBX426 +01083 MOVE 'WEBESSP' TO T025-RESPONSIBLE-OP-ID. CL**3 +01084 DTSBX426 +01085 CL107 +01086 DISPLAY ' EMP PAYMENT REVERSED ' MPAY-EMP-NO CL107 +01087 DISPLAY ' WF RETURN AMOUNT ' WRK-AMT-DISP1 CL107 +01088 DISPLAY ' MPAY RETURN AMOUNT ' WRK-AMT-DISP2 CL107 +01089 DISPLAY ' PAY TYPE ' T025-PAY-TYPE. CL107 +01090 CL107 +01091 PERFORM P4300-PRNT-REVR THRU P4300-EXIT. CL110 +01092 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-1 AFTER 1. CL110 +01093 ADD 1 TO WS-LINE-CNT. CL110 +01094 CL110 +01095 DTSBX426 +01096 P1040-EXIT. DTSBX426 +01097 EXIT. DTSBX426 +01098 DTSBX426 +01099 P1045-BUILD-T003-RECORD. CL*71 +01100 CL*70 +01101 PERFORM S3000-INIT-T003 THRU S3000-EXIT. CL*70 +01102 CL*70 +01103 MOVE WRK-MNTE-SUBJECT TO MNTE-SUBJECT CL*70 +01104 CL*70 +01105 MOVE +1 TO MNTE-TEXT-CNT. CL*70 +01106 MOVE WRK-MNTE-REASON TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 +01107 DISPLAY 'MNTE-REASON: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 +01108 CL*70 +01109 ADD +1 TO MNTE-TEXT-CNT. CL*95 +01110 MOVE WRK-MNTE-TRACE-NO TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 +01111 DISPLAY 'MNTE-TRACEN: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 +01112 CL*74 +01113 ADD +1 TO MNTE-TEXT-CNT. CL*95 +01114 MOVE WRK-MNTE-DEP-DATE TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 +01115 DISPLAY 'MNTE-DEPDTE: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 +01116 CL*74 +01117 ADD +1 TO MNTE-TEXT-CNT. CL*95 +01118 MOVE WRK-MNTE-BATCH-ITEM TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 +01119 DISPLAY 'MNTE-BTHITM: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 +01120 CL*74 +01121 ADD +1 TO MNTE-TEXT-CNT. CL*95 +01122 MOVE WRK-MNTE-ACCT-NO TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 +01123 DISPLAY 'MNTE-ACCTNO: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 +01124 CL*74 +01125 ADD +1 TO MNTE-TEXT-CNT. CL*95 +01126 MOVE WRK-MNTE-AMOUNT TO MNTE-TEXT(MNTE-TEXT-CNT) CL*75 +01127 DISPLAY 'MNTE-AMOUNT: ' MNTE-TEXT(MNTE-TEXT-CNT) CL*98 +01128 CL*74 +01129 * ADD +1 TO MNTE-TEXT-CNT. CL*98 +01130 * MOVE WRK-MNTE-AMOUNT TO MNTE-TEXT(MNTE-TEXT-CNT) CL*98 +01131 CL*77 +01132 IF WRK-MPAY-EMP-AMT < WRK-TOLR-AMOUNT CL140 +01133 SET WRK-TOLR-YES-88 TO TRUE. CL106 +01134 CL106 +01135 IF WRK-TOLR-YES-88 CL*98 +01136 DISPLAY 'P1045 - TOLERATED NO FEE: ' WRK-MPAY-AMOUNT CL112 +01137 ADD +1 TO MNTE-TEXT-CNT CL*95 +01138 MOVE WRK-MNTE-NO-FEE TO MNTE-TEXT(MNTE-TEXT-CNT). CL*77 +01139 CL*77 +01140 MOVE MNTE-REC TO T003-MNTE-REC. CL*70 +01141 CL*70 +01142 P1045-EXIT. CL*70 +01143 EXIT. CL*70 +01144 P1050-WRITE-ACH-RETURN. CL151 +01145 MOVE LENGTH OF R333-REC TO R333-LENGTH CL156 +01146 MOVE MPRF-EMP-NO TO R333-EMP-NO. CL151 +01147 MOVE ZEROS TO R333-CURR-MAIL-DATE. CL155 +01148 MOVE MPRF-PRIMARY-NAME TO R333-PRIMARY-NAME CL151 +01149 MOVE NTE-TRACE-NO TO R333-ESSP-PAYMENT-ID CL151 +01150 MOVE FAC6-AMOUNT TO R333-ACH-AMOUNT CL151 +01151 MOVE NTE-ACCT-NO TO R333-ACH-ACCOUNT-NO CL154 +01152 MOVE HEADER-3A-DATE TO R333-ACH-RETURN-DATE CL155 +01153 MOVE NTE-REASON TO R333-REASON-RETURNED. CL151 +01154 CL151 +01155 MOVE ALL '?' TO R333-FMT-ADDR. CL154 +01156 CL151 +01157 SET L111-LOOKUP-TAD-88 TO TRUE. CL151 +01158 SET L111-LOOKUP-TAD-88 TO TRUE. CL151 +01159 CL151 +01160 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. CL151 +01161 CL151 +01162 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. CL151 +01163 CL151 +01164 IF L111-ADDR-FOUND-88 CL151 +01165 MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE CL151 +01166 SET L112-ANCHOR-LAST-88 TO TRUE CL151 +01167 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME CL151 +01168 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA CL151 +01169 PERFORM S112-FORMAT-ADDR THRU S112-EXIT CL151 +01170 MOVE L112-MAILING-ADDRESS TO R333-FMT-ADDR. CL151 +01171 CL151 +01172 PERFORM S946-R333-WRITE THRU S946-EXIT. CL151 +01173 CL151 +01174 CL151 +01175 P1050-EXIT. CL151 +01176 EXIT. CL151 +01177 P1055-WRITE-F907. CL*70 +01178 ************************************************************** DTSBX426 +01179 * WRITE FACH ERROR RETURN FILE(F907) * DTSBX426 +01180 ************************************************************** DTSBX426 +01181 DTSBX426 +01182 DISPLAY ' 1055 - PROCESS'. DTSBX426 +01183 ADD +1 TO WRK-F907-WRITE-CNT. DTSBX426 +01184 MOVE WRK-MOD-NAME TO F907-MODULE-NAME. DTSBX426 +01185 MOVE IN-FACH-REC TO F907-GOV1-REC. DTSBX426 +01186 MOVE ZEROS TO F907-EMP-NO. DTSBX426 +01187 DTSBX426 +01188 CALL 'DTSBU946' USING F907-REC. DTSBX426 +01189 DTSBX426 +01190 DTSBX426 +01191 P1055-EXIT. DTSBX426 +01192 EXIT. DTSBX426 +01193 P4000-PRNT-ACHD. CL**7 +01194 MOVE FAC6-DUTAS-EMP-NO TO X425-EMP-NO CL**7 +01195 MOVE FAC6-DUTAS-EMP-NAME TO X425-NAME-CHECK. CL127 +01196 MOVE FAC6-BANK-ACCT-NO TO X425-ACCT-NUMBER NTE-ACCT-NO CL*71 +01197 MOVE FAC6-RECV-BANK-ID TO X425-BANK-ID. CL*38 +01198 MOVE WRK-FAC6-AMOUNT TO X425-X145-REMIT CL*72 +01199 MOVE WRK-TEMP-TRACE-NOA TO X425-X145-TRACE-NOB. CL*21 +01200 MOVE WRK-TEMP-TRACE-NOA TO NTE-TRACE-NO. CL*71 +01201 * MOVE SPACES TO X425-MESSAGE. CL*51 +01202 * IF MPAY-FOUND-YES-88 CL110 +01203 * MOVE MPAY-BATCH-NO TO X425-AUTO-BATCH NTE-BATCH-NO CL110 +01204 * MOVE MPAY-ITEM-NO TO X425-AUTO-ITEM NTE-ITEM-NO CL110 +01205 * MOVE '/' TO X425-AUTO-FILL CL110 +01206 * MOVE 'Y ' TO X425-AUTO-REV CL110 +01207 * MOVE MPAY-DEPOSIT-DATE TO L001-FED-8-DATE-9 CL110 +01208 * SET L001-FROM-FED-8 TO TRUE CL110 +01209 * PERFORM S001-DATE THRU S001-EXIT CL110 +01210 * MOVE L001-SLASH-8-DATE TO NTE-DEPOSIT-DATE CL110 +01211 * ELSE CL110 +01212 MOVE ' ' TO X425-AUTO-FILL CL*53 +01213 MOVE 'FARGO' TO X425-AUTO-BATCH CL110 +01214 MOVE 'RTN' TO X425-AUTO-ITEM CL110 +01215 MOVE '* ' TO X425-AUTO-REV. CL110 +01216 CL*71 +01217 CL*53 +01218 P4000-EXIT. CL**7 +01219 EXIT. CL**7 +01220 P4100-PRINT-HEADER. CL**6 +01221 IF WS-LINE-CNT > 58 CL*90 +01222 ADD +1 TO WS-PAGE-CNT CL**6 +01223 MOVE WS-PAGE-CNT TO HEADER-3-PAGE CL*89 +01224 * MOVE ' -/+ ----- MONTHLY COUNT' TO HEADER-5-NAME CL*10 +01225 MOVE FAC1-FILE-CREATE-DATE TO HEADER-3A-DATE CL*10 +01226 MOVE FAC1-FILE-CREATE-TIME TO HEADER-3A-TIME CL*10 +01227 WRITE ESSP-ACHD-REC FROM HEADER-1 AFTER TOP-OF-PAGE CL*10 +01228 WRITE ESSP-ACHD-REC FROM HEADER-2 AFTER 1 CL*10 +01229 WRITE ESSP-ACHD-REC FROM HEADER-3 AFTER 1 CL*10 +01230 WRITE ESSP-ACHD-REC FROM HEADER-3A AFTER 1 CL*10 +01231 WRITE ESSP-ACHD-REC FROM HEADER-4 AFTER 1 CL*10 +01232 WRITE ESSP-ACHD-REC FROM HEADER-5 AFTER 1 CL*10 +01233 WRITE ESSP-ACHD-REC FROM HEADER-6 AFTER 1 CL*90 +01234 MOVE +6 TO WS-LINE-CNT. CL*90 +01235 P4100-EXIT. CL**6 +01236 EXIT. CL**6 +01237 CL**6 +01238 P4200-PRINT-HEADER. CL*90 +01239 IF WS-RETN-CNT > 58 CL*90 +01240 ADD +1 TO WS-PAGE-CNT CL*90 +01241 MOVE WS-PAGE-CNT TO HEADER-3-PAGE CL*90 +01242 * MOVE ' -/+ ----- MONTHLY COUNT' TO HEADER-5-NAME CL*90 +01243 MOVE FAC1-FILE-CREATE-DATE TO HEADER-3A-DATE CL*90 +01244 MOVE FAC1-FILE-CREATE-TIME TO HEADER-3A-TIME CL*90 +01245 WRITE ESSP-ACHR-REC FROM HEADER-1 AFTER TOP-OF-PAGE CL*90 +01246 WRITE ESSP-ACHR-REC FROM HEADER-2 AFTER 1 CL*90 +01247 WRITE ESSP-ACHR-REC FROM HEADER-3 AFTER 1 CL*90 +01248 WRITE ESSP-ACHR-REC FROM HEADER-3A AFTER 1 CL*90 +01249 WRITE ESSP-ACHR-REC FROM HEADER-4 AFTER 1 CL*90 +01250 WRITE ESSP-ACHR-REC FROM HEADER-5 AFTER 1 CL*90 +01251 WRITE ESSP-ACHR-REC FROM HEADER-6 AFTER 1 CL*90 +01252 MOVE +6 TO WS-RETN-CNT. CL*90 +01253 P4200-EXIT. CL*90 +01254 EXIT. CL*90 +01255 CL*90 +01256 P4300-PRNT-REVR. CL110 +01257 MOVE FAC6-DUTAS-EMP-NO TO X425-EMP-NO CL110 +01258 MOVE FAC6-DUTAS-EMP-NAME TO X425-NAME-CHECK. CL127 +01259 MOVE FAC6-BANK-ACCT-NO TO X425-ACCT-NUMBER NTE-ACCT-NO CL110 +01260 MOVE FAC6-RECV-BANK-ID TO X425-BANK-ID. CL110 +01261 MOVE WRK-MPAY-REMIT-AMT TO X425-X145-REMIT CL110 +01262 MOVE WRK-TEMP-TRACE-NOA TO X425-X145-TRACE-NOB. CL110 +01263 MOVE WRK-TEMP-TRACE-NOA TO NTE-TRACE-NO. CL110 +01264 * MOVE SPACES TO X425-MESSAGE. CL119 +01265 IF MPAY-FOUND-YES-88 CL110 +01266 MOVE MPAY-BATCH-NO TO X425-AUTO-BATCH NTE-BATCH-NO CL110 +01267 MOVE MPAY-ITEM-NO TO X425-AUTO-ITEM NTE-ITEM-NO CL110 +01268 MOVE '/' TO X425-AUTO-FILL CL110 +01269 MOVE 'Y ' TO X425-AUTO-REV CL110 +01270 MOVE MPAY-DEPOSIT-DATE TO L001-FED-8-DATE-9 CL110 +01271 SET L001-FROM-FED-8 TO TRUE CL110 +01272 PERFORM S001-DATE THRU S001-EXIT CL110 +01273 MOVE L001-SLASH-8-DATE TO NTE-DEPOSIT-DATE CL110 +01274 ELSE CL110 +01275 MOVE ' ' TO X425-AUTO-FILL CL110 +01276 MOVE 'STAFF' TO X425-AUTO-BATCH CL110 +01277 MOVE 'REV' TO X425-AUTO-ITEM CL110 +01278 MOVE 'N ' TO X425-AUTO-REV. CL110 +01279 CL110 +01280 CL110 +01281 P4300-EXIT. CL110 +01282 EXIT. CL110 +01283 P5000-ACH-RETURN-CODE. CL*45 +01284 IF WRK-FAC7-RTN-CD = WRK-RTN-CD CL*83 +01285 GO TO P5000-EXIT. CL*45 +01286 CL*45 +01287 SET WRK-FAC7-RTN-INVALID-88 TO TRUE CL*46 +01288 CL*45 +01289 PERFORM VARYING ACH-RTN-IDX FROM 1 BY 1 CL*45 +01290 UNTIL WRK-FAC7-RTN-VALID-88 CL*46 +01291 OR ACH-RTN-IDX > ACH-RTN-CD-CNT CL*45 +01292 OR ACH-RTN-CD(ACH-RTN-IDX) = SPACE CL*45 +01293 IF WRK-FAC7-RTN-CD = CL*83 +01294 ACH-RTN-CD(ACH-RTN-IDX) CL*46 +01295 SET WRK-FAC7-RTN-VALID-88 TO TRUE CL*46 +01296 MOVE ACH-RTN-CD (ACH-RTN-IDX) TO WRK-RTN-CD CL*45 +01297 MOVE ACH-RTN-VALUE(ACH-RTN-IDX) TO X425-MESSAGE CL*57 +01298 MOVE ACH-RTN-VALUE(ACH-RTN-IDX) TO NTE-REASON CL*71 +01299 END-IF CL*45 +01300 END-PERFORM. CL*45 +01301 CL*45 +01302 IF WRK-FAC7-RTN-INVALID-88 CL*46 +01303 MOVE '???????? INVALID RETURN CODE ' TO X425-MESSAGE CL*57 +01304 GO TO P5000-EXIT. CL*45 +01305 P5000-EXIT. CL*45 +01306 EXIT. CL*45 +01307 CL*45 +01308 T0000-TERMINATE. DTSBX426 +01309 DTSBX426 +01310 IF NOT FACH-TYPE-TRAILER-88 DTSBX426 +01311 DISPLAY ' LAST RECORD IS NOT A TRAILER RECORD ' DTSBX426 +01312 DISPLAY ' ' DTSBX426 +01313 DISPLAY ' LAST RECORD ' FACH-SKELETAL-REC DTSBX426 +01314 DISPLAY ' **** ACH FILE EMPTY *****'. CL*34 +01315 DTSBX426 +01316 IF WRK-FACH-READ-CNT = 2 DTSBX426 +01317 MOVE +3 TO RETURN-CODE CL*32 +01318 DISPLAY ' *** WELLS FARGO FILE CONTAINS 2 RECS ' CL**3 +01319 DISPLAY ' *** NO REJECTED PAYMENT RECORDS *'. DTSBX426 +01320 DTSBX426 +01321 DTSBX426 +01322 * MOVE -1 TO F907-LENGTH. CL**8 +01323 * CALL 'DTSBU946' USING F907-REC. CL**8 +01324 DTSBX426 +01325 DTSBX426 +01326 DTSBX426 +01327 DISPLAY ' '. DTSBX426 +01328 DTSBX426 +01329 DISPLAY '*** DTSBX426 TERMINATION STATISTICS ***'. CL*41 +01330 DTSBX426 +01331 DISPLAY ' '. DTSBX426 +01332 DTSBX426 +01333 DISPLAY 'NUMBER OF FACH RECORDS READ : ' DTSBX426 +01334 WRK-FACH-READ-CNT. DTSBX426 +01335 DTSBX426 +01336 DISPLAY 'NUMBER IN TRAILER BATCH COUNT : ' DTSBX426 +01337 FAC9-BATCH-CNT. DTSBX426 +01338 DTSBX426 +01339 DISPLAY 'HEADERS IN FACH FILE : ' DTSBX426 +01340 WRK-HEADER-RECORDS. DTSBX426 +01341 DTSBX426 +01342 DISPLAY 'TRAILERS IN FACH FILE : ' DTSBX426 +01343 WRK-TRAILER-RECORDS. DTSBX426 +01344 DTSBX426 +01345 DISPLAY 'DETAIL RECORDS IN FACH FILE : ' DTSBX426 +01346 WRK-FAC6-RECORDS. DTSBX426 +01347 DTSBX426 +01348 DISPLAY 'NUMBER OF OTHER RECORDS IN FACH FILE: ' DTSBX426 +01349 WRK-OTHER-RECORDS. DTSBX426 +01350 DTSBX426 +01351 DISPLAY 'NUMBER OF T025 RECORDS WRITTEN : ' DTSBX426 +01352 WRK-T025-WRITE-CNT. DTSBX426 +01353 DTSBX426 +01354 DISPLAY 'NUMBER OF F907 RECORDS WRITTEN : ' DTSBX426 +01355 WRK-F907-WRITE-CNT. DTSBX426 +01356 * IF WRK-F907-WRITE-CNT > 0 CL*24 +01357 * MOVE +3 TO RETURN-CODE CL*24 +01358 * DISPLAY ' FACH INPUT FILE CONTAINS ERRORS+++' CL*24 +01359 * DISPLAY ' PROGRAM WILL ABEND ***************'. CL*24 +01360 * PERFORM S999-ABEND THRU S999-EXIT. DTSBX426 +01361 DTSBX426 +01362 IF WS-LINE-CNT > 52 OR RETURN-CODE = +3 CL*32 +01363 PERFORM P4100-PRINT-HEADER THRU P4100-EXIT CL*24 +01364 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-1 AFTER 1 CL*32 +01365 WRITE ESSP-ACHD-REC FROM DETAIL-LINE-2 AFTER 3 CL*36 +01366 END-IF. CL*24 +01367 CL114 +01368 MOVE WRK-FAC6-RECORDS TO WS-FOOTING-CNT. CL*24 +01369 MOVE TOT-FAC6-AMOUNT TO WS-TOTAL-REMIT. CL*24 +01370 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-1 AFTER 1. CL*25 +01371 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-2 AFTER 1. CL*25 +01372 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-3 AFTER 1. CL*25 +01373 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-4 AFTER 1. CL*25 +01374 * WRITE REPT-PAID-REC FROM FOOTING-LINE-5 AFTER 1. CL*25 +01375 * WRITE REPT-PAID-REC FROM FOOTING-LINE-6 AFTER 1. CL*24 +01376 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-7 AFTER 1. CL*25 +01377 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-8 AFTER 1. CL*25 +01378 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-13 AFTER 3. CL117 +01379 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-14 AFTER 1. CL*25 +01380 CL*24 +01381 DISPLAY ' '. CL*24 +01382 DTSBX426 +01383 MOVE WRK-FAC6-RECORDS TO WS-FOOTING-CNT. CL114 +01384 MOVE WS-FAC7-PEN-CNT TO WS-X145-ERR-CNT WS-X145-PEN-CNT CL114 +01385 MOVE TOT-MPAY-AMOUNT TO WS-TOT-REMIT. CL114 +01386 MOVE WRK-T025-WRITE-CNT TO WS-T025-WRITE-CNT. CL115 +01387 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-1 AFTER 1. CL*88 +01388 WRITE ESSP-ACHD-REC FROM FOOTDTS-LINE-2 AFTER 1. CL117 +01389 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-3 AFTER 1. CL114 +01390 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-4 AFTER 1. CL114 +01391 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-5 AFTER 1. CL116 +01392 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-6 AFTER 1. CL116 +01393 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-7 AFTER 1. CL114 +01394 * WRITE ESSP-ACHD-REC FROM FOOTING-LINE-8 AFTER 1. CL114 +01395 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-13 AFTER 3. CL*88 +01396 WRITE ESSP-ACHD-REC FROM FOOTING-LINE-14 AFTER 1. CL*88 +01397 CL*88 +01398 IF RETURN-CODE NOT = +3 CL114 +01399 WRITE ESSP-ACHD-REC FROM ZNOTE1 AFTER 2 CL114 +01400 WRITE ESSP-ACHD-REC FROM CNOTE1 AFTER 1 CL114 +01401 WRITE ESSP-ACHD-REC FROM CNOTE2 AFTER 1 CL114 +01402 WRITE ESSP-ACHD-REC FROM CNOTE3 AFTER 1 CL114 +01403 END-IF. CL114 +01404 CL*58 +01405 CL*29 +01406 CLOSE IN-FACH ESSP-ACHD-FILE PEND-FACH-FILE CL*86 +01407 ESSP-ACHR-FILE. CL*86 +01408 PERFORM S910-CLOSE THRU S910-EXIT. CL*29 +01409 PERFORM S927-CLOSE THRU S927-EXIT. CL*29 +01410 CL*29 +01411 CL*29 +01412 DTSBX426 +01413 T0000-EXIT. DTSBX426 +01414 EXIT. DTSBX426 +01415 DTSBX426 +01416 P1070-READ-MPRF. DTSBX426 +01417 DTSBX426 +01418 DTSBX426 +01419 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX426 +01420 SET MPRF-PRF-88 TO TRUE. DTSBX426 +01421 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130 +01422 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131 +01423 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131 +01424 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX426 +01425 DTSBX426 +01426 PERFORM S910-READ THRU S910-EXIT. DTSBX426 +01427 DTSBX426 +01428 IF L910-OK-88 DTSBX426 +01429 SET L910-OK-88 TO TRUE DTSBX426 +01430 MOVE MSKL-REC TO MPRF-REC DTSBX426 +01431 ELSE DTSBX426 +01432 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131 +01433 SET L910-NO-REC-88 TO TRUE DTSBX426 +01434 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX426 +01435 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX426 +01436 GO TO P1070-EXIT. DTSBX426 +01437 DTSBX426 +01438 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127 +01439 WS-FAC6-DUTAS-EMP-NAME. CL129 +01440 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129 +01441 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129 +01442 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129 +01443 P1070-EXIT. DTSBX426 +01444 EXIT. DTSBX426 +01445 DTSBX426 +01446 S3000-INIT-T003. CL*70 +01447 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70 +01448 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70 +01449 SET MNTE-NTE-88 TO TRUE. CL*70 +01450 MOVE +0 TO MNTE-PURGE-DATE. CL*70 +01451 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70 +01452 CL*70 +01453 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72 +01454 MNTE-CHNG-DATE. CL*70 +01455 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70 +01456 MNTE-DATA-ESTB-ABSTIME CL*70 +01457 MNTE-CHNG-ABSTIME. CL*70 +01458 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70 +01459 MNTE-CHNG-OP-ID. CL*70 +01460 MOVE +0 TO MNTE-TEXT-CNT. CL*70 +01461 MOVE SPACES TO MNTE-TEXT-AREA. CL*70 +01462 CL*70 +01463 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 +01464 MOVE '003' TO T003-REC-TYPE. CL*70 +01465 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 +01466 MOVE '003' TO T003-REC-TYPE. CL*70 +01467 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70 +01468 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70 +01469 MOVE L005-DATE TO T003-SYS-DATE. CL*72 +01470 MOVE L005-TIME TO T003-SYS-TIME. CL*72 +01471 SET T003-ADD-MNTE-88 TO TRUE. CL*70 +01472 CL*70 +01473 S3000-EXIT. CL*70 +01474 EXIT. CL*70 +01475 CL*70 +01476 DTSBX426 +01477 S001-FROM-FED-8. CL*71 +01478 SET L001-FROM-FED-8 TO TRUE. CL*71 +01479 GO TO S001-DATE. CL*71 +01480 CL*71 +01481 S001-DATE. CL*71 +01482 SKIP1 CL*71 +01483 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71 +01484 S001-EXIT. CL*71 +01485 EXIT. CL*71 +01486 S005-FROM-SYS. CL*71 01487 DTSBX426 -01488 S910-MSTR-IO. DTSBX426 -01489 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX426 -01490 MSKL-REC. DTSBX426 -01491 S910-EXIT. DTSBX426 -01492 EXIT. DTSBX426 -01493 DTSBX426 -01494 SKIP3 DTSBX426 -01495 S921-OPEN-READ. DTSBX426 -01496 SET L921-OPEN-READ-88 TO TRUE. DTSBX426 -01497 GO TO S921-AIX-IO. DTSBX426 +01488 SET L005-FROM-SYS TO TRUE. DTSBX426 +01489 GO TO S005-ABSTIME. DTSBX426 +01490 DTSBX426 +01491 S005-ABSTIME. DTSBX426 +01492 DTSBX426 +01493 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX426 +01494 DTSBX426 +01495 S005-EXIT. DTSBX426 +01496 EXIT. DTSBX426 +01497 DTSBX426 01498 DTSBX426 -01499 S921-READ. DTSBX426 -01500 SET L921-READ-88 TO TRUE. DTSBX426 -01501 GO TO S921-AIX-IO. DTSBX426 -01502 DTSBX426 -01503 S921-START-BROWSE. DTSBX426 -01504 SET L921-START-BROWSE-88 TO TRUE. DTSBX426 -01505 GO TO S921-AIX-IO. DTSBX426 -01506 DTSBX426 -01507 S921-READ-NEXT. DTSBX426 -01508 SET L921-READ-NEXT-88 TO TRUE. DTSBX426 -01509 GO TO S921-AIX-IO. DTSBX426 -01510 DTSBX426 -01511 S921-CLOSE. DTSBX426 -01512 SET L921-CLOSE-88 TO TRUE. DTSBX426 -01513 GO TO S921-AIX-IO. DTSBX426 -01514 DTSBX426 -01515 S921-AIX-IO. DTSBX426 -01516 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX426 -01517 ISKL-REC. DTSBX426 -01518 S921-EXIT. DTSBX426 -01519 EXIT. DTSBX426 +01499 CL149 +01500 S111-LOOKUP-ADDR. CL149 +01501 MOVE MPRF-EMP-NO TO L111-EMP-NO. CL149 +01502 CL149 +01503 CALL 'DTSBU111' USING L111-LINK-AREA. CL149 +01504 S111-EXIT. CL149 +01505 EXIT. CL149 +01506 SKIP3 CL149 +01507 S112-FORMAT-ADDR. CL149 +01508 CALL 'DTSBU112' USING L112-LINK-AREA. CL149 +01509 S112-EXIT. CL149 +01510 EXIT. CL149 +01511 SKIP3 CL149 +01512 S910-OPEN-UPDATE-NO-AIX. CL149 +01513 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX426 +01514 GO TO S910-MSTR-IO. DTSBX426 +01515 DTSBX426 +01516 EJECT DTSBX426 +01517 S910-OPEN-READ. DTSBX426 +01518 SET L910-OPEN-READ-88 TO TRUE. DTSBX426 +01519 GO TO S910-MSTR-IO. DTSBX426 01520 DTSBX426 -01521 S927-OPEN-UPDATE. DTSBX426 -01522 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX426 -01523 GO TO S927-BTC-O. DTSBX426 +01521 S910-READ. DTSBX426 +01522 SET L910-READ-88 TO TRUE. DTSBX426 +01523 GO TO S910-MSTR-IO. DTSBX426 01524 DTSBX426 -01525 S927-WRITE. DTSBX426 -01526 SET L927-WRITE-88 TO TRUE. DTSBX426 -01527 GO TO S927-BTC-O. DTSBX426 +01525 S910-DELETE. DTSBX426 +01526 SET L910-DELETE-88 TO TRUE. DTSBX426 +01527 GO TO S910-MSTR-IO. DTSBX426 01528 DTSBX426 -01529 S927-CLOSE. DTSBX426 -01530 SET L927-CLOSE-88 TO TRUE. DTSBX426 -01531 GO TO S927-BTC-O. DTSBX426 +01529 S910-WRITE. DTSBX426 +01530 SET L910-WRITE-88 TO TRUE. DTSBX426 +01531 GO TO S910-MSTR-IO. DTSBX426 01532 DTSBX426 -01533 S927-BTC-O. DTSBX426 -01534 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX426 -01535 TSKL-REC. DTSBX426 -01536 S927-EXIT. DTSBX426 -01537 EXIT. DTSBX426 -01538 DTSBX426 -01539 EJECT DTSBX426 -01540 S999-ABEND. DTSBX426 -01541 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX426 -01542 S999-EXIT. DTSBX426 -01543 EXIT. DTSBX426 +01533 S910-START-BROWSE. DTSBX426 +01534 SET L910-START-BROWSE-88 TO TRUE. DTSBX426 +01535 GO TO S910-MSTR-IO. DTSBX426 +01536 DTSBX426 +01537 S910-READ-NEXT. DTSBX426 +01538 SET L910-READ-NEXT-88 TO TRUE. DTSBX426 +01539 GO TO S910-MSTR-IO. DTSBX426 +01540 DTSBX426 +01541 S910-REWRITE. DTSBX426 +01542 SET L910-REWRITE-88 TO TRUE. DTSBX426 +01543 GO TO S910-MSTR-IO. DTSBX426 +01544 DTSBX426 +01545 S910-CLOSE. DTSBX426 +01546 SET L910-CLOSE-88 TO TRUE. DTSBX426 +01547 GO TO S910-MSTR-IO. DTSBX426 +01548 DTSBX426 +01549 S910-MSTR-IO. DTSBX426 +01550 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX426 +01551 MSKL-REC. DTSBX426 +01552 S910-EXIT. DTSBX426 +01553 EXIT. DTSBX426 +01554 DTSBX426 +01555 SKIP3 DTSBX426 +01556 S921-OPEN-READ. DTSBX426 +01557 SET L921-OPEN-READ-88 TO TRUE. DTSBX426 +01558 GO TO S921-AIX-IO. DTSBX426 +01559 DTSBX426 +01560 S921-READ. DTSBX426 +01561 SET L921-READ-88 TO TRUE. DTSBX426 +01562 GO TO S921-AIX-IO. DTSBX426 +01563 DTSBX426 +01564 S921-START-BROWSE. DTSBX426 +01565 SET L921-START-BROWSE-88 TO TRUE. DTSBX426 +01566 GO TO S921-AIX-IO. DTSBX426 +01567 DTSBX426 +01568 S921-READ-NEXT. DTSBX426 +01569 SET L921-READ-NEXT-88 TO TRUE. DTSBX426 +01570 GO TO S921-AIX-IO. DTSBX426 +01571 DTSBX426 +01572 S921-CLOSE. DTSBX426 +01573 SET L921-CLOSE-88 TO TRUE. DTSBX426 +01574 GO TO S921-AIX-IO. DTSBX426 +01575 DTSBX426 +01576 S921-AIX-IO. DTSBX426 +01577 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX426 +01578 ISKL-REC. DTSBX426 +01579 S921-EXIT. DTSBX426 +01580 EXIT. DTSBX426 +01581 DTSBX426 +01582 S927-OPEN-UPDATE. DTSBX426 +01583 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX426 +01584 GO TO S927-BTC-O. DTSBX426 +01585 DTSBX426 +01586 S927-WRITE. DTSBX426 +01587 SET L927-WRITE-88 TO TRUE. DTSBX426 +01588 GO TO S927-BTC-O. DTSBX426 +01589 DTSBX426 +01590 S927-CLOSE. DTSBX426 +01591 SET L927-CLOSE-88 TO TRUE. DTSBX426 +01592 GO TO S927-BTC-O. DTSBX426 +01593 DTSBX426 +01594 S927-BTC-O. DTSBX426 +01595 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX426 +01596 TSKL-REC. DTSBX426 +01597 S927-EXIT. DTSBX426 +01598 EXIT. DTSBX426 +01599 CL150 +01600 S946-R333-WRITE. CL150 +01601 CALL 'DTSBU946' USING R333-REC. CL150 +01602 S946-EXIT. CL150 +01603 EXIT. CL150 +01604 DTSBX426 +01605 EJECT DTSBX426 +01606 S999-ABEND. DTSBX426 +01607 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX426 +01608 S999-EXIT. DTSBX426 +01609 EXIT. DTSBX426 diff --git a/Batch/DTSBX430.cob b/Batch/DTSBX430.cob index 35b633b..fed12f1 100644 --- a/Batch/DTSBX430.cob +++ b/Batch/DTSBX430.cob @@ -1,6 +1,6 @@ -00001 IDENTIFICATION DIVISION. 09/06/25 +00001 IDENTIFICATION DIVISION. 03/10/25 00002 PROGRAM-ID. DTSBX430. DTSBX430 -00003 AUTHOR. NGC. LV254 +00003 AUTHOR. NGC. LV253 00004 DATE-WRITTEN. APRIL 2005. DTSBX430 00005 DATE-COMPILED. DTSBX430 00006 SKIP3 DTSBX430 @@ -161,7 +161,7 @@ 00161 CL119 00162 CL*59 00163 WORKING-STORAGE SECTION. DTSBX430 -001635 77 PAN-VALET PICTURE X(24) VALUE '254DTSBX430 09/06/25'. DTSBX430 +001635 77 PAN-VALET PICTURE X(24) VALUE '253DTSBX430 03/10/25'. DTSBX430 00164 77 PAN-VALET PICTURE X(24) VALUE '015DTSBX422 10/07/14'. DTSBX430 00165 77 PAN-VALET PICTURE X(24) VALUE '047DTSBX422 09/27/14'. DTSBX430 00166 SKIP3 DTSBX430 @@ -764,7 +764,7 @@ 00763 01 LX42-LINK-AREA. DTSBX430 00764 ++INCLUDE DTSILX42 CL112 00765 DTSBX430 -00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL254 +00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL253 00767 DTSBX430 00768 DTSBX430-MAIN. CL*47 00769 * DISPLAY 'LX42-LINK-AREA' LX42-LINK-AREA CL*80 diff --git a/Batch/DTSBX626.cob b/Batch/DTSBX626.cob index 24896cd..f709b51 100644 --- a/Batch/DTSBX626.cob +++ b/Batch/DTSBX626.cob @@ -1,13 +1,13 @@ -00001 IDENTIFICATION DIVISION. 09/07/25 +00001 IDENTIFICATION DIVISION. 09/20/22 00002 PROGRAM-ID. DTSBX626. DTSBX626 -00003 AUTHOR. NGC. LV227 +00003 AUTHOR. NGC. LV224 00004 DATE-WRITTEN. SEPT 2013. CL**2 00005 DATE-COMPILED. DTSBX626 00006 SKIP3 DTSBX626 00007 *** CL160 00008 * FUNCTION: READ A DAILY BANK PAYMENT FILE AND THE DUTAS CL205 00009 * PAYMENT FILE RECEIVED FROM ESSP. IF THE TOTAL CL205 -00010 *RCTEST AMOUNTS DONT MATCH ABEND JOB AND DO NOT SEND CL226 +00010 * AMOUNTS DONT MATCH ABEND JOB AND DO NOT SEND CL205 00011 * PAYMENT FILE TO WELLS FARGO. CL205 00012 * 06/01/18 ZL1 CL205 00013 *** CL205 @@ -83,7 +83,7 @@ 00083 01 ESSP-ACH-TOT-REC PIC X(80). CL193 00084 DTSBX626 00085 WORKING-STORAGE SECTION. DTSBX626 -000855 77 PAN-VALET PICTURE X(24) VALUE '227DTSBX626 09/07/25'. DTSBX626 +000855 77 PAN-VALET PICTURE X(24) VALUE '224DTSBX626 09/20/22'. DTSBX626 00086 77 PAN-VALET PICTURE X(24) VALUE '216DTSBX425 01/22/04'. CL**2 00087 DTSBX626 00088 01 WRK-AREA. CL216 @@ -198,9 +198,9 @@ 00197 88 TRACE-NO-END-NO-88 VALUE 'N'. CL107 00198 CL106 00199 DTSBX626 -00200 * 05 WRK-MPRF-IND PIC X(01). CL225 -00201 * 88 WRK-MPRF-OK VALUE 'Y'. CL225 -00202 * 88 WRK-MPRF-NO-REC VALUE 'N'. CL225 +00200 05 WRK-MPRF-IND PIC X(01). DTSBX626 +00201 88 WRK-MPRF-OK VALUE 'Y'. DTSBX626 +00202 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBX626 00203 DTSBX626 00204 05 WRK-MPAY-IND PIC X(01). DTSBX626 00205 88 MPAY-FOUND-YES-88 VALUE 'Y'. DTSBX626 @@ -1524,211 +1524,210 @@ 01523 MOVE ' TOTAL WELLS ACH-TPA CNT: ' TO X626-TXT CL208 01524 MOVE WRK-X145-XYZ-CNT TO X626-CNT CL205 01525 WRITE X626-REC. CL205 -01526 CL227 -01527 DISPLAY ' ' CL199 -01528 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL219 -01529 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL219 -01530 IF WS-TOTAL-X145-AMT NOT = X145-ACH-REC-DEPOSIT CL199 -01531 * X145-ACH-REC-CNT NOT = WRK-X145-X626-CNT CL205 -01532 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218 -01533 DISPLAY '+' CL218 -01534 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL218 -01535 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL218 -01536 DISPLAY '+' CL218 -01537 DISPLAY '!!! ERROR RECEVIED DEPOSITS NOT MATCHING***' CL218 -01538 DISPLAY '+' CL218 -01539 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218 -01540 * PERFORM S999-ABEND THRU S999-EXIT CL214 -01541 MOVE +05 TO RETURN-CODE CL222 -01542 DISPLAY 'RET CODE VALUE ' RETURN-CODE CL223 -01543 END-IF. CL193 -01544 CL193 -01545 DTSBX626 -01546 T0000-CONTINUE. CL209 -01547 CL*29 -01548 CLOSE ESSP-EMAIL-RPT. CL205 -01549 CLOSE ESSP-IN-X145 ESSP-OUT-X145 ESSP-ACH-TOTALS. CL193 -01550 PERFORM S910-CLOSE THRU S910-EXIT. CL*29 -01551 PERFORM S927-CLOSE THRU S927-EXIT. CL*29 +01526 DISPLAY ' ' CL199 +01527 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL219 +01528 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL219 +01529 IF WS-TOTAL-X145-AMT NOT = X145-ACH-REC-DEPOSIT CL199 +01530 * X145-ACH-REC-CNT NOT = WRK-X145-X626-CNT CL205 +01531 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218 +01532 DISPLAY '+' CL218 +01533 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL218 +01534 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL218 +01535 DISPLAY '+' CL218 +01536 DISPLAY '!!! ERROR RECEVIED DEPOSITS NOT MATCHING***' CL218 +01537 DISPLAY '+' CL218 +01538 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218 +01539 * PERFORM S999-ABEND THRU S999-EXIT CL214 +01540 MOVE +05 TO RETURN-CODE CL222 +01541 DISPLAY 'RET CODE VALUE ' RETURN-CODE CL223 +01542 END-IF. CL193 +01543 CL193 +01544 DTSBX626 +01545 T0000-CONTINUE. CL209 +01546 CL*29 +01547 CLOSE ESSP-EMAIL-RPT. CL205 +01548 CLOSE ESSP-IN-X145 ESSP-OUT-X145 ESSP-ACH-TOTALS. CL193 +01549 PERFORM S910-CLOSE THRU S910-EXIT. CL*29 +01550 PERFORM S927-CLOSE THRU S927-EXIT. CL*29 +01551 CL*29 01552 CL*29 -01553 CL*29 -01554 DTSBX626 -01555 T0000-EXIT. DTSBX626 -01556 EXIT. DTSBX626 -01557 DTSBX626 -01558 P1070-READ-MPRF. DTSBX626 +01553 DTSBX626 +01554 T0000-EXIT. DTSBX626 +01555 EXIT. DTSBX626 +01556 DTSBX626 +01557 P1070-READ-MPRF. DTSBX626 +01558 DTSBX626 01559 DTSBX626 -01560 DTSBX626 -01561 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX626 -01562 SET MPRF-PRF-88 TO TRUE. DTSBX626 -01563 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130 -01564 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131 -01565 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131 -01566 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX626 -01567 DTSBX626 -01568 PERFORM S910-READ THRU S910-EXIT. DTSBX626 -01569 DTSBX626 -01570 IF L910-OK-88 DTSBX626 -01571 SET L910-OK-88 TO TRUE DTSBX626 -01572 MOVE MSKL-REC TO MPRF-REC DTSBX626 -01573 ELSE DTSBX626 -01574 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131 -01575 SET L910-NO-REC-88 TO TRUE DTSBX626 -01576 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX626 -01577 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX626 -01578 GO TO P1070-EXIT. DTSBX626 -01579 DTSBX626 -01580 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127 -01581 WS-FAC6-DUTAS-EMP-NAME. CL129 -01582 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129 -01583 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129 -01584 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129 -01585 P1070-EXIT. DTSBX626 -01586 EXIT. DTSBX626 -01587 DTSBX626 -01588 S3000-INIT-T003. CL*70 -01589 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70 -01590 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70 -01591 SET MNTE-NTE-88 TO TRUE. CL*70 -01592 MOVE +0 TO MNTE-PURGE-DATE. CL*70 -01593 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70 -01594 CL*70 -01595 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72 -01596 MNTE-CHNG-DATE. CL*70 -01597 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70 -01598 MNTE-DATA-ESTB-ABSTIME CL*70 -01599 MNTE-CHNG-ABSTIME. CL*70 -01600 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70 -01601 MNTE-CHNG-OP-ID. CL*70 -01602 MOVE +0 TO MNTE-TEXT-CNT. CL*70 -01603 MOVE SPACES TO MNTE-TEXT-AREA. CL*70 -01604 CL*70 -01605 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 -01606 MOVE '003' TO T003-REC-TYPE. CL*70 -01607 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 -01608 MOVE '003' TO T003-REC-TYPE. CL*70 -01609 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70 -01610 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70 -01611 MOVE L005-DATE TO T003-SYS-DATE. CL*72 -01612 MOVE L005-TIME TO T003-SYS-TIME. CL*72 -01613 SET T003-ADD-MNTE-88 TO TRUE. CL*70 -01614 CL*70 -01615 S3000-EXIT. CL*70 -01616 EXIT. CL*70 -01617 CL*70 -01618 DTSBX626 -01619 S001-FROM-FED-8. CL*71 -01620 SET L001-FROM-FED-8 TO TRUE. CL*71 -01621 GO TO S001-DATE. CL*71 -01622 CL*71 -01623 S001-DATE. CL*71 -01624 SKIP1 CL*71 -01625 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71 -01626 S001-EXIT. CL*71 -01627 EXIT. CL*71 -01628 S005-FROM-SYS. CL*71 -01629 DTSBX626 -01630 SET L005-FROM-SYS TO TRUE. DTSBX626 -01631 GO TO S005-ABSTIME. DTSBX626 -01632 DTSBX626 -01633 S005-ABSTIME. DTSBX626 -01634 DTSBX626 -01635 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX626 -01636 DTSBX626 -01637 S005-EXIT. DTSBX626 -01638 EXIT. DTSBX626 +01560 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX626 +01561 SET MPRF-PRF-88 TO TRUE. DTSBX626 +01562 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130 +01563 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131 +01564 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131 +01565 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX626 +01566 DTSBX626 +01567 PERFORM S910-READ THRU S910-EXIT. DTSBX626 +01568 DTSBX626 +01569 IF L910-OK-88 DTSBX626 +01570 SET L910-OK-88 TO TRUE DTSBX626 +01571 MOVE MSKL-REC TO MPRF-REC DTSBX626 +01572 ELSE DTSBX626 +01573 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131 +01574 SET L910-NO-REC-88 TO TRUE DTSBX626 +01575 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX626 +01576 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX626 +01577 GO TO P1070-EXIT. DTSBX626 +01578 DTSBX626 +01579 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127 +01580 WS-FAC6-DUTAS-EMP-NAME. CL129 +01581 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129 +01582 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129 +01583 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129 +01584 P1070-EXIT. DTSBX626 +01585 EXIT. DTSBX626 +01586 DTSBX626 +01587 S3000-INIT-T003. CL*70 +01588 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70 +01589 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70 +01590 SET MNTE-NTE-88 TO TRUE. CL*70 +01591 MOVE +0 TO MNTE-PURGE-DATE. CL*70 +01592 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70 +01593 CL*70 +01594 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72 +01595 MNTE-CHNG-DATE. CL*70 +01596 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70 +01597 MNTE-DATA-ESTB-ABSTIME CL*70 +01598 MNTE-CHNG-ABSTIME. CL*70 +01599 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70 +01600 MNTE-CHNG-OP-ID. CL*70 +01601 MOVE +0 TO MNTE-TEXT-CNT. CL*70 +01602 MOVE SPACES TO MNTE-TEXT-AREA. CL*70 +01603 CL*70 +01604 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 +01605 MOVE '003' TO T003-REC-TYPE. CL*70 +01606 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70 +01607 MOVE '003' TO T003-REC-TYPE. CL*70 +01608 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70 +01609 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70 +01610 MOVE L005-DATE TO T003-SYS-DATE. CL*72 +01611 MOVE L005-TIME TO T003-SYS-TIME. CL*72 +01612 SET T003-ADD-MNTE-88 TO TRUE. CL*70 +01613 CL*70 +01614 S3000-EXIT. CL*70 +01615 EXIT. CL*70 +01616 CL*70 +01617 DTSBX626 +01618 S001-FROM-FED-8. CL*71 +01619 SET L001-FROM-FED-8 TO TRUE. CL*71 +01620 GO TO S001-DATE. CL*71 +01621 CL*71 +01622 S001-DATE. CL*71 +01623 SKIP1 CL*71 +01624 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71 +01625 S001-EXIT. CL*71 +01626 EXIT. CL*71 +01627 S005-FROM-SYS. CL*71 +01628 DTSBX626 +01629 SET L005-FROM-SYS TO TRUE. DTSBX626 +01630 GO TO S005-ABSTIME. DTSBX626 +01631 DTSBX626 +01632 S005-ABSTIME. DTSBX626 +01633 DTSBX626 +01634 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX626 +01635 DTSBX626 +01636 S005-EXIT. DTSBX626 +01637 EXIT. DTSBX626 +01638 DTSBX626 01639 DTSBX626 -01640 DTSBX626 -01641 S910-OPEN-UPDATE-NO-AIX. DTSBX626 -01642 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX626 -01643 GO TO S910-MSTR-IO. DTSBX626 -01644 DTSBX626 -01645 EJECT DTSBX626 -01646 S910-OPEN-READ. DTSBX626 -01647 SET L910-OPEN-READ-88 TO TRUE. DTSBX626 -01648 GO TO S910-MSTR-IO. DTSBX626 -01649 DTSBX626 -01650 S910-READ. DTSBX626 -01651 SET L910-READ-88 TO TRUE. DTSBX626 -01652 GO TO S910-MSTR-IO. DTSBX626 -01653 DTSBX626 -01654 S910-DELETE. DTSBX626 -01655 SET L910-DELETE-88 TO TRUE. DTSBX626 -01656 GO TO S910-MSTR-IO. DTSBX626 -01657 DTSBX626 -01658 S910-WRITE. DTSBX626 -01659 SET L910-WRITE-88 TO TRUE. DTSBX626 -01660 GO TO S910-MSTR-IO. DTSBX626 -01661 DTSBX626 -01662 S910-START-BROWSE. DTSBX626 -01663 SET L910-START-BROWSE-88 TO TRUE. DTSBX626 -01664 GO TO S910-MSTR-IO. DTSBX626 -01665 DTSBX626 -01666 S910-READ-NEXT. DTSBX626 -01667 SET L910-READ-NEXT-88 TO TRUE. DTSBX626 -01668 GO TO S910-MSTR-IO. DTSBX626 -01669 DTSBX626 -01670 S910-REWRITE. DTSBX626 -01671 SET L910-REWRITE-88 TO TRUE. DTSBX626 -01672 GO TO S910-MSTR-IO. DTSBX626 -01673 DTSBX626 -01674 S910-CLOSE. DTSBX626 -01675 SET L910-CLOSE-88 TO TRUE. DTSBX626 -01676 GO TO S910-MSTR-IO. DTSBX626 -01677 DTSBX626 -01678 S910-MSTR-IO. DTSBX626 -01679 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX626 -01680 MSKL-REC. DTSBX626 -01681 S910-EXIT. DTSBX626 -01682 EXIT. DTSBX626 -01683 DTSBX626 -01684 SKIP3 DTSBX626 -01685 S921-OPEN-READ. DTSBX626 -01686 SET L921-OPEN-READ-88 TO TRUE. DTSBX626 -01687 GO TO S921-AIX-IO. DTSBX626 -01688 DTSBX626 -01689 S921-READ. DTSBX626 -01690 SET L921-READ-88 TO TRUE. DTSBX626 -01691 GO TO S921-AIX-IO. DTSBX626 -01692 DTSBX626 -01693 S921-START-BROWSE. DTSBX626 -01694 SET L921-START-BROWSE-88 TO TRUE. DTSBX626 -01695 GO TO S921-AIX-IO. DTSBX626 -01696 DTSBX626 -01697 S921-READ-NEXT. DTSBX626 -01698 SET L921-READ-NEXT-88 TO TRUE. DTSBX626 -01699 GO TO S921-AIX-IO. DTSBX626 -01700 DTSBX626 -01701 S921-CLOSE. DTSBX626 -01702 SET L921-CLOSE-88 TO TRUE. DTSBX626 -01703 GO TO S921-AIX-IO. DTSBX626 -01704 DTSBX626 -01705 S921-AIX-IO. DTSBX626 -01706 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX626 -01707 ISKL-REC. DTSBX626 -01708 S921-EXIT. DTSBX626 -01709 EXIT. DTSBX626 -01710 DTSBX626 -01711 S927-OPEN-UPDATE. DTSBX626 -01712 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX626 -01713 GO TO S927-BTC-O. DTSBX626 -01714 DTSBX626 -01715 S927-WRITE. DTSBX626 -01716 SET L927-WRITE-88 TO TRUE. DTSBX626 -01717 GO TO S927-BTC-O. DTSBX626 -01718 DTSBX626 -01719 S927-CLOSE. DTSBX626 -01720 SET L927-CLOSE-88 TO TRUE. DTSBX626 -01721 GO TO S927-BTC-O. DTSBX626 -01722 DTSBX626 -01723 S927-BTC-O. DTSBX626 -01724 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX626 -01725 TSKL-REC. DTSBX626 -01726 S927-EXIT. DTSBX626 -01727 EXIT. DTSBX626 -01728 DTSBX626 -01729 EJECT DTSBX626 -01730 S999-ABEND. DTSBX626 -01731 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX626 -01732 S999-EXIT. DTSBX626 -01733 EXIT. DTSBX626 +01640 S910-OPEN-UPDATE-NO-AIX. DTSBX626 +01641 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX626 +01642 GO TO S910-MSTR-IO. DTSBX626 +01643 DTSBX626 +01644 EJECT DTSBX626 +01645 S910-OPEN-READ. DTSBX626 +01646 SET L910-OPEN-READ-88 TO TRUE. DTSBX626 +01647 GO TO S910-MSTR-IO. DTSBX626 +01648 DTSBX626 +01649 S910-READ. DTSBX626 +01650 SET L910-READ-88 TO TRUE. DTSBX626 +01651 GO TO S910-MSTR-IO. DTSBX626 +01652 DTSBX626 +01653 S910-DELETE. DTSBX626 +01654 SET L910-DELETE-88 TO TRUE. DTSBX626 +01655 GO TO S910-MSTR-IO. DTSBX626 +01656 DTSBX626 +01657 S910-WRITE. DTSBX626 +01658 SET L910-WRITE-88 TO TRUE. DTSBX626 +01659 GO TO S910-MSTR-IO. DTSBX626 +01660 DTSBX626 +01661 S910-START-BROWSE. DTSBX626 +01662 SET L910-START-BROWSE-88 TO TRUE. DTSBX626 +01663 GO TO S910-MSTR-IO. DTSBX626 +01664 DTSBX626 +01665 S910-READ-NEXT. DTSBX626 +01666 SET L910-READ-NEXT-88 TO TRUE. DTSBX626 +01667 GO TO S910-MSTR-IO. DTSBX626 +01668 DTSBX626 +01669 S910-REWRITE. DTSBX626 +01670 SET L910-REWRITE-88 TO TRUE. DTSBX626 +01671 GO TO S910-MSTR-IO. DTSBX626 +01672 DTSBX626 +01673 S910-CLOSE. DTSBX626 +01674 SET L910-CLOSE-88 TO TRUE. DTSBX626 +01675 GO TO S910-MSTR-IO. DTSBX626 +01676 DTSBX626 +01677 S910-MSTR-IO. DTSBX626 +01678 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX626 +01679 MSKL-REC. DTSBX626 +01680 S910-EXIT. DTSBX626 +01681 EXIT. DTSBX626 +01682 DTSBX626 +01683 SKIP3 DTSBX626 +01684 S921-OPEN-READ. DTSBX626 +01685 SET L921-OPEN-READ-88 TO TRUE. DTSBX626 +01686 GO TO S921-AIX-IO. DTSBX626 +01687 DTSBX626 +01688 S921-READ. DTSBX626 +01689 SET L921-READ-88 TO TRUE. DTSBX626 +01690 GO TO S921-AIX-IO. DTSBX626 +01691 DTSBX626 +01692 S921-START-BROWSE. DTSBX626 +01693 SET L921-START-BROWSE-88 TO TRUE. DTSBX626 +01694 GO TO S921-AIX-IO. DTSBX626 +01695 DTSBX626 +01696 S921-READ-NEXT. DTSBX626 +01697 SET L921-READ-NEXT-88 TO TRUE. DTSBX626 +01698 GO TO S921-AIX-IO. DTSBX626 +01699 DTSBX626 +01700 S921-CLOSE. DTSBX626 +01701 SET L921-CLOSE-88 TO TRUE. DTSBX626 +01702 GO TO S921-AIX-IO. DTSBX626 +01703 DTSBX626 +01704 S921-AIX-IO. DTSBX626 +01705 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX626 +01706 ISKL-REC. DTSBX626 +01707 S921-EXIT. DTSBX626 +01708 EXIT. DTSBX626 +01709 DTSBX626 +01710 S927-OPEN-UPDATE. DTSBX626 +01711 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX626 +01712 GO TO S927-BTC-O. DTSBX626 +01713 DTSBX626 +01714 S927-WRITE. DTSBX626 +01715 SET L927-WRITE-88 TO TRUE. DTSBX626 +01716 GO TO S927-BTC-O. DTSBX626 +01717 DTSBX626 +01718 S927-CLOSE. DTSBX626 +01719 SET L927-CLOSE-88 TO TRUE. DTSBX626 +01720 GO TO S927-BTC-O. DTSBX626 +01721 DTSBX626 +01722 S927-BTC-O. DTSBX626 +01723 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX626 +01724 TSKL-REC. DTSBX626 +01725 S927-EXIT. DTSBX626 +01726 EXIT. DTSBX626 +01727 DTSBX626 +01728 EJECT DTSBX626 +01729 S999-ABEND. DTSBX626 +01730 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX626 +01731 S999-EXIT. DTSBX626 +01732 EXIT. DTSBX626 diff --git a/Batch/DTSZX417.cob b/Batch/DTSZX417.cob new file mode 100644 index 0000000..b4506f3 --- /dev/null +++ b/Batch/DTSZX417.cob @@ -0,0 +1,2146 @@ +00001 IDENTIFICATION DIVISION. 05/23/19 +00002 PROGRAM-ID. DTSBX417. DTSBX417 +00003 AUTHOR. NGC. LV077 +00004 DATE-WRITTEN. APRIL 2005. DTSBX417 +00005 DATE-COMPILED. DTSBX417 +00006 SKIP3 DTSBX417 +00007 ***** DTSBX417 +00008 * DTSBX417 +00009 * FUNCTION: WEB REGISTRATION IMPORT DRIVER DTSBX417 +00010 * READ DATA PASSED FROM WEB APPLICATION SERVER DTSBX417 +00011 * AND CALL THE APPROPRIATE PROCESSING PROGRAM DTSBX417 +00012 * FOR REGISTRATIONS, REPORTS, PAYMENTS OR DTSBX417 +00013 * PROFILE UPDATES. DTSBX417 +00014 * DTSBX417 +00015 * ACCOUNTING BATCH HEADERS, REPORTS AND PAYMENTS DTSBX417 +00016 * COMING FROM THE IN-HOUSE CASHIERING PROCESS ARE DTSBX417 +00017 * PROCESSED LAST. IN THE SORT KEY, THE FIRST DTSBX417 +00018 * ELEMENT (USED FOR THE EMPLOYER NUMBER FOR OTHER DTSBX417 +00019 * PROCESSES) IS SET TO 999999. DTSBX417 +00020 * DTSBX417 +00021 * MODIFICATION HISTORY: DTSBX417 +00022 * DTSBX417 +00023 * 07-23-2007 INITIAL DEVELOPMENT DTSBX417 +00024 * REFERENCE RFP: WEB REPORTING DTSBX417 +00025 * DTSBX417 +00026 * 10-21-2008 MODIFIED FOR NEW VERSION OF DTSIX144. DTSBX417 +00027 * THE NEW RECORD INCLUDES EMPLOYEE NAME. DTSBX417 +00028 * REFERENCE RFP: WEB REPORTING DTSBX417 +00029 * DTSBX417 +00030 * 05-28-2010 MODIFIED FOR IN-HOUSE CHECK-SCANNING AND DTSBX417 +00031 * CASHIERING PROCESS. DTSBX417 +00032 * REFERENCE RFP: GD DTSBX417 +00033 * DTSBX417 +00034 * CL*23 +00035 * 10-22-2014 MODIFIED FOR ESSP INTERFACE CL*23 +00036 * CHANGED SORT SEQUENCE FOR PROCESS X104 RECORDS CL*23 +00037 * BEFORE PROCESSING NAMES X106. CL*23 +00038 * RECORDS 102 AND 106 MUST BE PRESENT TO ADD A CL*23 +00039 * NEW EMPLOYER TO DUTAS. IF X102 AND X104 PASS CL*23 +00040 * ALL EDITS THEN NAME RECORD X106 RATE X108 AND CL*23 +00041 * ADDRESS X110 MUST BE PRESENT FOR EMPLOYER TO ADD CL*23 +00042 * CL*23 +00043 * REFERENCE RFP: ZL1 CL*23 +00044 * CL*23 +00045 * DTSBX417 +00046 * 11-01-2014 MODIFIED FOR ESSP INTERFACE CL*23 +00047 * MODIFIED PROGRAM TO CALL A NEW PROGRAM BX430 TO CL*23 +00048 * PROCESS REPORTS,WAGES AND PAYMENTS. CL*23 +00049 * REPORTS X140 COMING FROM ESSP CANNOT BE PROCESSED CL*23 +00050 * UNTIL A PAYMENT X145 IS PRESENT UNLESS IT IS A CL*23 +00051 * ZERO WAGE REPORT (REMIT AMT = 0). ALSO CHANGED CL*23 +00052 * THE SORT SEQ TO SORT PAYMENT X145 BEFORE X140 CL*23 +00053 * PREVIOUS SORT KEY WAS 30 NOW 19. CL*23 +00054 * REFERENCE RFP: ZL1 CL*23 +00055 * CL*23 +00056 * CL*23 +00057 * 11-24-2014 MODIFIED FOR ESSP INTERFACE CL*40 +00058 * MODIFIED PROGRAM TO MOVE ESSP IMPORT RECORDS TYPE CL*40 +00059 * X120 TO A WORKING COPY OF DUTAS X120 CL*40 +00060 * FIELDS ON THE INPUT RECORD IS LARGER THAT DUTAS CL*40 +00061 * FIELDS. WITH NO PHARSING FIELD LENGTHS ARE CL*40 +00062 * THE EDITS TO FAILING. CL*40 +00063 * REFERENCE RFP: ESSP REGISTRTION ZL1 CL*40 +00064 * CL*40 +00065 * CL*40 +00066 ***** DTSBX417 +00067 SKIP3 DTSBX417 +00068 ENVIRONMENT DIVISION. DTSBX417 +00069 SKIP2 DTSBX417 +00070 INPUT-OUTPUT SECTION. DTSBX417 +00071 DTSBX417 +00072 FILE-CONTROL. DTSBX417 +00073 DTSBX417 +00074 SELECT WEB-IMP-FILE ASSIGN TO WEBREG DTSBX417 +00075 FILE STATUS IS WEB-IMP-STATUS. DTSBX417 +00076 DTSBX417 +00077 ** SELECT CURR-BATCH-NO ASSIGN TO CURRBTCH DTSBX417 +00078 ** FILE STATUS IS BATCH-STATUS. DTSBX417 +00079 DTSBX417 +00080 SELECT SORT-FILE ASSIGN TO SORTFILE. DTSBX417 +00081 DTSBX417 +00082 DATA DIVISION. DTSBX417 +00083 DTSBX417 +00084 FILE SECTION. DTSBX417 +00085 DTSBX417 +00086 FD WEB-IMP-FILE DTSBX417 +00087 RECORDING MODE IS F DTSBX417 +00088 BLOCK CONTAINS 0 RECORDS DTSBX417 +00089 LABEL RECORDS ARE OMITTED. DTSBX417 +00090 DTSBX417 +00091 01 WEB-IMP-REC. DTSBX417 +00092 05 WEB-IMP-TYPE PIC X(03). DTSBX417 +00093 88 WEB-IMP-TYPE-PRF-88 VALUE '102'. DTSBX417 +00094 88 WEB-IMP-TYPE-DETERM-88 VALUE '104'. DTSBX417 +00095 88 WEB-IMP-TYPE-NAME-88 VALUE '106'. DTSBX417 +00096 88 WEB-IMP-TYPE-RATE-88 VALUE '108'. DTSBX417 +00097 88 WEB-IMP-TYPE-ADDR-88 VALUE '110'. DTSBX417 +00098 88 WEB-IMP-TYPE-OPO-88 VALUE '120'. DTSBX417 +00099 88 WEB-IMP-TYPE-REL-88 VALUE '130'. DTSBX417 +00100 *** 88 WEB-IMP-TYPE-IND-88 VALUE '132'. DTSBX417 +00101 88 WEB-IMP-TYPE-RPT-88 VALUE '140'. DTSBX417 +00102 88 WEB-IMP-TYPE-WAGE-88 VALUE '144'. DTSBX417 +00103 88 WEB-IMP-TYPE-PAY-88 VALUE '145'. DTSBX417 +00104 88 WEB-IMP-TYPE-BHDR-88 VALUE '149'. DTSBX417 +00105 88 WEB-TYPE-REG-88 VALUE '102' '104' '106' DTSBX417 +00106 '108' '130' '132'. DTSBX417 +00107 88 WEB-TYPE-RPT-88 VALUE '140' '144'. DTSBX417 +00108 88 WEB-TYPE-PAY-88 VALUE '145'. DTSBX417 +00109 88 WEB-TYPE-PRF-88 VALUE '110' '120'. DTSBX417 +00110 05 FILLER PIC X(01). DTSBX417 +00111 05 WEB-IMP-EMP-NO PIC 9(06). DTSBX417 +00112 05 FILLER PIC X(01). DTSBX417 +00113 05 WEB-IMP-QTR PIC X(06). DTSBX417 +00114 05 FILLER PIC X(495). DTSBX417 +00115 DTSBX417 +00116 *FD CURR-BATCH-NO DTSBX417 +00117 * RECORDING MODE IS F DTSBX417 +00118 * BLOCK CONTAINS 0 RECORDS DTSBX417 +00119 * LABEL RECORDS ARE OMITTED. DTSBX417 +00120 * DTSBX417 +00121 *01 CURR-BATCH-NO-REC. DTSBX417 +00122 * 05 CURRENT-BATCH-NO PIC 9(05). DTSBX417 +00123 * 05 CURRENT-ITEM-NO PIC 9(03). DTSBX417 +00124 * 05 FILLER PIC X(01). DTSBX417 +00125 * 05 CURRENT-ARCHIVE-YEAR PIC 9(04). DTSBX417 +00126 * 05 FILLER PIC X(01). DTSBX417 +00127 * 05 FIRST-ARCHIVE-YEAR PIC 9(04). DTSBX417 +00128 * 05 FILLER PIC X(62). DTSBX417 +00129 DTSBX417 +00130 SD SORT-FILE. DTSBX417 +00131 DTSBX417 +00132 01 SORT-REC. DTSBX417 +00133 05 SORT-KEY. DTSBX417 +00134 10 SORT-EMP-NO PIC 9(06). DTSBX417 +00135 10 SORT-SEQ2 PIC X(16). DTSBX417 +00136 10 SORT-SEQ1 PIC S9(04) COMP. CL*60 +00137 05 RPT-PAY-SORT-KEY REDEFINES SORT-KEY. CL*57 +00138 10 SORT-PAY-EMP-NO PIC 9(06). CL*57 +00139 10 SORT-PAY-QTR PIC X(06). CL*57 +00140 10 SORT-FILLER PIC X(10). DTSBX417 +00141 10 SORT-PAY-SEQ1 PIC S9(04) COMP. CL*60 +00142 05 IN-HOUSE-SORT-KEY REDEFINES SORT-KEY. CL*57 +00143 10 SORT-IN-HOUSE-SEQ PIC 9(06). CL*57 +00144 10 SORT-BATCH PIC 9(05). CL*57 +00145 10 SORT-ITEM PIC 9(03). CL*57 +00146 10 SORT-FILLER PIC X(10). CL*57 +00147 05 SORT-DATA PIC X(512). DTSBX417 +00148 DTSBX417 +00149 WORKING-STORAGE SECTION. DTSBX417 +001495 77 PAN-VALET PICTURE X(24) VALUE '077DTSBX417 05/23/19'. DTSBX417 +00150 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX420 10/07/14'. DTSBX417 +00151 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX420 10/07/14'. DTSBX417 +00152 SKIP3 DTSBX417 +00153 01 WRK-AREA. DTSBX417 +00154 05 W-ABEND-CD PIC S9(04) COMP VALUE 420. DTSBX417 +00155 05 W-MOD-NAME PIC X(08) VALUE 'DTSBX420'.DTSBX417 +00156 DTSBX417 +00157 05 WEB-IMP-STATUS PIC X(02). DTSBX417 +00158 88 WEB-IMP-STATUS-OK-88 VALUE '00'. DTSBX417 +00159 88 WEB-IMP-STATUS-EOF-88 VALUE '10'. DTSBX417 +00160 DTSBX417 +00161 ** 05 BATCH-STATUS PIC X(02). DTSBX417 +00162 * 88 BATCH-STATUS-OK-88 VALUE '00'. DTSBX417 +00163 ** 88 BATCH-STATUS-EOF-88 VALUE '10'. DTSBX417 +00164 DTSBX417 +00165 05 SORT-EOF-IND PIC X(01). DTSBX417 +00166 88 SORT-OK-88 VALUE '0'. DTSBX417 +00167 88 SORT-EOF-88 VALUE '1'. DTSBX417 +00168 DTSBX417 +00169 05 W-ERROR-IND PIC X(01) VALUE 'N'. DTSBX417 +00170 88 W-ERROR-YES-88 VALUE 'Y'. DTSBX417 +00171 88 W-ERROR-NO-88 VALUE 'N'. DTSBX417 +00172 DTSBX417 +00173 05 W-FATAL-ERROR-IND PIC X(01) VALUE 'N'. DTSBX417 +00174 88 W-FATAL-ERROR-YES-88 VALUE 'Y'. DTSBX417 +00175 88 W-FATAL-ERROR-NO-88 VALUE 'N'. DTSBX417 +00176 DTSBX417 +00177 05 W-EMP-NO PIC 9(07) VALUE ZERO. DTSBX417 +00178 05 W-PAY-QTR PIC X(06) VALUE SPACES. CL*57 +00179 05 W-PSEUDO-BATCH-NO PIC 9(05) VALUE ZERO. DTSBX417 +00180 05 W-CURR-RUN-DATE PIC S9(09) COMP-3. DTSBX417 +00181 05 W-LAST-RATE-YEAR PIC 9(04). DTSBX417 +00182 05 W-CURR-QTR PIC X(06) VALUE SPACES. CL*70 +00183 05 X102-KEY-AREA PIC X(06) VALUE SPACES. CL*15 +00184 DTSBX417 +00185 05 SUB PIC S9(04) COMP. DTSBX417 +00186 ** 05 W-PSEUDO-BATCH-NO PIC 9(05) VALUE ZERO. DTSBX417 +00187 * 05 FILLER REDEFINES W-PSEUDO-BATCH-NO. DTSBX417 +00188 * 10 W-PSEUDO-DAYS PIC 9(03). DTSBX417 +00189 ** 10 W-PSEUDO-BATCH-SEQ PIC 9(02). DTSBX417 +00190 DTSBX417 +00191 05 W-START-BATCH PIC 9(05) VALUE ZERO. DTSBX417 +00192 05 W-END-BATCH PIC 9(05) VALUE ZERO. DTSBX417 +00193 DTSBX417 +00194 05 W-PSEUDO-ITEM-NO PIC 9(03) VALUE 0. DTSBX417 +00195 DTSBX417 +00196 05 W-500-DATE. DTSBX417 +00197 10 W-500-DATE-MM PIC XX. DTSBX417 +00198 10 FILLER PIC X. DTSBX417 +00199 10 W-500-DATE-DD PIC XX. DTSBX417 +00200 10 FILLER PIC X. DTSBX417 +00201 10 W-500-DATE-YY PIC XXXX. DTSBX417 +00202 DTSBX417 +00203 05 W-500-FQTR. DTSBX417 +00204 10 W-500-FQTR-YY PIC XXXX. DTSBX417 +00205 10 FILLER PIC X VALUE '/'. DTSBX417 +00206 10 W-500-FQTR-NO PIC X. DTSBX417 +00207 DTSBX417 +00208 05 W-INT-9 PIC 9(13). DTSBX417 +00209 05 W-INT-X REDEFINES W-INT-9 DTSBX417 +00210 PIC X(13). DTSBX417 +00211 05 W-INTEGER PIC S9(11) COMP-3. DTSBX417 +00212 05 W-FRACTION PIC SV9(11) COMP-3. DTSBX417 +00213 05 W-NUMBER PIC S9(11)V9(05) COMP-3. DTSBX417 +00214 DTSBX417 +00215 ** 05 W-MULTIPLIER PIC S9(11)V99 COMP-3 DTSBX417 +00216 * VALUE +0. DTSBX417 +00217 * 05 W-DIGIT PIC 9. DTSBX417 +00218 * 05 W-AMT PIC S9(09)V99 COMP-3 DTSBX417 +00219 * VALUE +0. DTSBX417 +00220 * DTSBX417 +00221 * 05 W-DECIMAL-FOUND-IND PIC X(01) VALUE 'N'. DTSBX417 +00222 * 88 W-DECIMAL-FOUND-YES-88 VALUE 'Y'. DTSBX417 +00223 * 88 W-DECIMAL-FOUND-NO-88 VALUE 'N'. DTSBX417 +00224 * DTSBX417 +00225 * 05 W-WAGES PIC S9(11)V99. DTSBX417 +00226 * 05 W-WAGES-X PIC X(14). DTSBX417 +00227 * 05 W-WAGES-9 REDEFINES W-WAGES-X DTSBX417 +00228 * PIC 9(11).99. DTSBX417 +00229 * 05 W-REMIT-X PIC X(12). DTSBX417 +00230 * 05 W-REMIT-9 REDEFINES W-REMIT-X DTSBX417 +00231 * PIC 9(09).99. DTSBX417 +00232 05 W-TRACE-X. DTSBX417 +00233 10 W-TRACE-A PIC X(05) VALUE '00000'. DTSBX417 +00234 10 W-TRACE-B PIC X(08) VALUE ZEROS. DTSBX417 +00235 05 W-TRACE-9 REDEFINES W-TRACE-X DTSBX417 +00236 PIC 9(13). DTSBX417 +00237 * 05 W-COUNT-X PIC X(07). DTSBX417 +00238 * 05 W-COUNT-9 REDEFINES W-COUNT-X DTSBX417 +00239 * PIC 9(07). DTSBX417 +00240 * 05 W-EARNINGS-X PIC X(12). DTSBX417 +00241 * 05 W-EARNINGS-9 REDEFINES W-EARNINGS-X DTSBX417 +00242 * PIC 9(09).99. DTSBX417 +00243 * 05 W-EARNINGS PIC S9(07)V99. DTSBX417 +00244 * 05 W-RATE PIC S9V9(04). DTSBX417 +00245 * 05 W-RATE-X PIC X(06). DTSBX417 +00246 * 05 W-RATE-9 REDEFINES W-RATE-X DTSBX417 +00247 * PIC 9.9999. DTSBX417 +00248 * DTSBX417 +00249 * 05 ISUB1 PIC S9(04) COMP. DTSBX417 +00250 * 05 ISUB2 PIC S9(04) COMP. DTSBX417 +00251 * 05 ISUB3 PIC S9(04) COMP. DTSBX417 +00252 * 05 ISUB4 PIC S9(04) COMP. DTSBX417 +00253 * 05 ISUB5 PIC S9(04) COMP. DTSBX417 +00254 * 05 ISUB6 PIC S9(04) COMP. DTSBX417 +00255 * 05 W-SLASH1 PIC S9(04) COMP. DTSBX417 +00256 * 05 W-SLASH2 PIC S9(04) COMP. DTSBX417 +00257 * 05 W-CURR-FIELD PIC S9(04) COMP. DTSBX417 +00258 * 05 W-LAST-FIELD PIC S9(04) COMP. DTSBX417 +00259 * 05 W-LAST-FIELD-LEN PIC S9(04) COMP. DTSBX417 +00260 * 05 W-INPUT-LENGTH PIC S9(04) COMP DTSBX417 +00261 * VALUE +502. DTSBX417 +00262 * 05 W-INPUT-LINE PIC X(500). DTSBX417 +00263 * 05 W-PARSE-COMPLETE-IND PIC X(01). DTSBX417 +00264 * 88 W-PARSE-COMPLETE-YES-88 VALUE 'Y'. DTSBX417 +00265 * 88 W-PARSE-COMPLETE-NO-88 VALUE 'N'. DTSBX417 +00266 * 05 W-FIELD-LENGTH PIC S9(04) COMP. DTSBX417 +00267 * 05 W-CONV-LINE PIC X(32). DTSBX417 +00268 * DTSBX417 +00269 * 05 W-MDY PIC X(04). DTSBX417 +00270 * 05 FILLER REDEFINES W-MDY. DTSBX417 +00271 * 10 FILLER PIC X(02). DTSBX417 +00272 * 10 W-MDY-X-2 PIC X(02). DTSBX417 +00273 * 10 FILLER REDEFINES W-MDY-X-2. DTSBX417 +00274 * 15 FILLER PIC X(01). DTSBX417 +00275 ** 15 W-MDY-X-1 PIC X(01). DTSBX417 +00276 DTSBX417 +00277 05 W-WEB-IMP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX417 +00278 05 W-102-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00279 05 W-104-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00280 05 W-106-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00281 05 W-108-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00282 05 W-110-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00283 05 W-120-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00284 05 W-140-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00285 05 W-144-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00286 05 W-145-IMP-CNT PIC S9(07) COMP-3 VALUE +0. CL*38 +00287 DTSBX417 +00288 05 W-WEB-IMP-LENGTH PIC S9(04) COMP. DTSBX417 +00289 DTSBX417 +00290 05 W-AMT-DISP1 PIC ----------9.99. DTSBX417 +00291 05 W-AMT-DISP2 PIC ----------9.99. DTSBX417 +00292 05 W-AMT-DISP4 PIC -.99999999999. DTSBX417 +00293 05 W-AMT-DISP3 PIC ------------9. DTSBX417 +00294 DTSBX417 +00295 * PROFILE DTSBX417 +00296 01 X102-REC. DTSBX417 +00297 ++INCLUDE DTSIX102 DTSBX417 +00298 DTSBX417 +00299 * DETERMINATION DTSBX417 +00300 01 X104-REC. DTSBX417 +00301 ++INCLUDE DTSIX104 DTSBX417 +00302 DTSBX417 +00303 * NAME DTSBX417 +00304 01 X106-REC. DTSBX417 +00305 ++INCLUDE DTSIX106 DTSBX417 +00306 DTSBX417 +00307 * RATE DTSBX417 +00308 01 X108-REC. DTSBX417 +00309 ++INCLUDE DTSIX108 DTSBX417 +00310 DTSBX417 +00311 * ADDRESS DTSBX417 +00312 01 X110-REC. DTSBX417 +00313 ++INCLUDE DTSIX110 DTSBX417 +00314 DTSBX417 +00315 * OPO DTSBX417 +00316 01 X120-REC. DTSBX417 +00317 ++INCLUDE DTSIX120 DTSBX417 +00318 DTSBX417 +00319 * WORKING COPY OF X120 CL*41 +00320 01 W120-REC. CL*41 +00321 ++INCLUDE DTSWX120 CL*43 +00322 CL*41 +00323 * RELATIONSHIP DTSBX417 +00324 01 X130-REC. DTSBX417 +00325 ++INCLUDE DTSIX130 DTSBX417 +00326 DTSBX417 +00327 ** INDUSTRY DESCRIPTION DTSBX417 +00328 *01 X132-REC. DTSBX417 +00329 ***INCLUDE DTSIX132 DTSBX417 +00330 DTSBX417 +00331 * REPORT DTSBX417 +00332 01 X140-REC. DTSBX417 +00333 ++INCLUDE DTSIX140 DTSBX417 +00334 DTSBX417 +00335 * EMPLOYEE WAGES DTSBX417 +00336 01 X144-REC. DTSBX417 +00337 ++INCLUDE DTSIX144 DTSBX417 +00338 DTSBX417 +00339 * EMPLOYEE WAGES-WORK COPY CL*50 +00340 01 W144-REC. CL*50 +00341 ++INCLUDE DTSIW144 CL*50 +00342 CL*50 +00343 * PAYMENT DTSBX417 +00344 01 X145-REC. DTSBX417 +00345 ++INCLUDE DTSIX145 DTSBX417 +00346 DTSBX417 +00347 01 X149-REC. DTSBX417 +00348 ++INCLUDE DTSIX149 DTSBX417 +00349 DTSBX417 +00350 01 L001-LINK-AREA. DTSBX417 +00351 ++INCLUDE DTSIL001 DTSBX417 +00352 DTSBX417 +00353 01 L003-LINK-AREA. DTSBX417 +00354 ++INCLUDE DTSIL003 DTSBX417 +00355 DTSBX417 +00356 01 L004-LINK-AREA. DTSBX417 +00357 ++INCLUDE DTSIL004 DTSBX417 +00358 DTSBX417 +00359 01 L005-LINK-AREA. DTSBX417 +00360 ++INCLUDE DTSIL005 DTSBX417 +00361 DTSBX417 +00362 01 L205-LINK-AREA. DTSBX417 +00363 ++INCLUDE DTSIL205 DTSBX417 +00364 DTSBX417 +00365 01 LX42-LINK-AREA. DTSBX417 +00366 ++INCLUDE DTSILX42 CL*39 +00367 DTSBX417 +00368 01 L910-LINK-AREA. DTSBX417 +00369 ++INCLUDE DTSIL910 DTSBX417 +00370 01 MSKL-REC. DTSBX417 +00371 ++INCLUDE DTSIMSKL DTSBX417 +00372 DTSBX417 +00373 01 MHDR-REC. DTSBX417 +00374 ++INCLUDE DTSIMHDR DTSBX417 +00375 DTSBX417 +00376 01 MPRF-REC. DTSBX417 +00377 ++INCLUDE DTSIMPRF DTSBX417 +00378 DTSBX417 +00379 01 MSOL-REC. DTSBX417 +00380 ++INCLUDE DTSIMSOL DTSBX417 +00381 DTSBX417 +00382 01 MQTR-REC. DTSBX417 +00383 ++INCLUDE DTSIMQTR DTSBX417 +00384 DTSBX417 +00385 01 MOPO-REC. DTSBX417 +00386 ++INCLUDE DTSIMOPO DTSBX417 +00387 DTSBX417 +00388 01 MTAD-REC. DTSBX417 +00389 ++INCLUDE DTSIMTAD DTSBX417 +00390 DTSBX417 +00391 01 MNTE-REC. DTSBX417 +00392 ++INCLUDE DTSIMNTE DTSBX417 +00393 DTSBX417 +00394 01 L921-LINK-AREA. DTSBX417 +00395 ++INCLUDE DTSIL921 DTSBX417 +00396 SKIP3 DTSBX417 +00397 01 ISKL-REC. DTSBX417 +00398 ++INCLUDE DTSIISKL DTSBX417 +00399 SKIP3 DTSBX417 +00400 01 IEIN-REC. DTSBX417 +00401 ++INCLUDE DTSIIEIN DTSBX417 +00402 DTSBX417 +00403 01 L923-LINK-AREA. DTSBX417 +00404 ++INCLUDE DTSIL923 DTSBX417 +00405 EJECT DTSBX417 +00406 01 ASKL-REC. DTSBX417 +00407 ++INCLUDE DTSIASKL DTSBX417 +00408 EJECT DTSBX417 +00409 01 AHDR-REC. DTSBX417 +00410 ++INCLUDE DTSIAHDR DTSBX417 +00411 DTSBX417 +00412 01 ARPT-REC. DTSBX417 +00413 ++INCLUDE DTSIARPT DTSBX417 +00414 DTSBX417 +00415 01 APAY-REC. DTSBX417 +00416 ++INCLUDE DTSIAPAY DTSBX417 +00417 DTSBX417 +00418 DTSBX417 +00419 01 L927-LINK-AREA. DTSBX417 +00420 ++INCLUDE DTSIL927 DTSBX417 +00421 DTSBX417 +00422 01 TSKL-REC. DTSBX417 +00423 ++INCLUDE DTSITSKL DTSBX417 +00424 DTSBX417 +00425 01 L931-LINK-AREA. DTSBX417 +00426 ++INCLUDE DTSIL931 DTSBX417 +00427 DTSBX417 +00428 01 FSKL-REC. DTSBX417 +00429 ++INCLUDE DTSIFSKL DTSBX417 +00430 DTSBX417 +00431 PROCEDURE DIVISION. DTSBX417 +00432 DTSBX417 +00433 DTSBX420-MAIN. DTSBX417 +00434 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX417 +00435 IF W-FATAL-ERROR-YES-88 DTSBX417 +00436 GO TO DTSBX420-MAIN-EXIT DTSBX417 +00437 END-IF. DTSBX417 +00438 DTSBX417 +00439 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX417 +00440 DTSBX417 +00441 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX417 +00442 IF W-ERROR-YES-88 DTSBX417 +00443 MOVE +2 TO RETURN-CODE. DTSBX417 +00444 DTSBX420-MAIN-EXIT. DTSBX417 +00445 GOBACK. DTSBX417 +00446 EJECT DTSBX417 +00447 I0000-INITIATE. DTSBX417 +00448 SET W-ERROR-NO-88 TO TRUE. DTSBX417 +00449 SET W-FATAL-ERROR-NO-88 TO TRUE. DTSBX417 +00450 DTSBX417 +00451 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBX417 +00452 DTSBX417 +00453 PERFORM I2000-OPEN-FILES THRU I2000-EXIT. DTSBX417 +00454 IF W-FATAL-ERROR-YES-88 DTSBX417 +00455 GO TO I0000-EXIT DTSBX417 +00456 END-IF. DTSBX417 +00457 DTSBX417 +00458 PERFORM I3000-READ-HEADER THRU I3000-EXIT. DTSBX417 +00459 IF W-FATAL-ERROR-YES-88 DTSBX417 +00460 GO TO I0000-EXIT DTSBX417 +00461 END-IF. DTSBX417 +00462 DTSBX417 +00463 ** PERFORM I4000-CURRENT-BATCH THRU I4000-EXIT DTSBX417 +00464 * IF W-FATAL-ERROR-YES-88 DTSBX417 +00465 * GO TO I0000-EXIT DTSBX417 +00466 ** END-IF. DTSBX417 +00467 DTSBX417 +00468 PERFORM I5000-INITIAL-CALLS THRU I5000-EXIT. DTSBX417 +00469 DTSBX417 +00470 I0000-EXIT. DTSBX417 +00471 EXIT. DTSBX417 +00472 DTSBX417 +00473 I2000-OPEN-FILES. DTSBX417 +00474 OPEN INPUT WEB-IMP-FILE. DTSBX417 +00475 IF NOT WEB-IMP-STATUS-OK-88 DTSBX417 +00476 SET W-FATAL-ERROR-YES-88 TO TRUE DTSBX417 +00477 DISPLAY 'NO ESSP UPDATES FILE TO PROCESS' DTSBX417 +00478 MOVE +3 TO RETURN-CODE DTSBX417 +00479 SET W-ERROR-YES-88 TO TRUE DTSBX417 +00480 DISPLAY 'CANNOT OPEN WEB-IMP-FILE ' DTSBX417 +00481 WEB-IMP-STATUS DTSBX417 +00482 GO TO I2000-EXIT DTSBX417 +00483 END-IF. DTSBX417 +00484 DTSBX417 +00485 READ WEB-IMP-FILE. DTSBX417 +00486 IF NOT WEB-IMP-STATUS-OK-88 DTSBX417 +00487 SET W-FATAL-ERROR-YES-88 TO TRUE DTSBX417 +00488 DISPLAY 'NO ESSP FTP UPDATE FILES TO PROCESS' DTSBX417 +00489 MOVE +3 TO RETURN-CODE DTSBX417 +00490 SET W-ERROR-YES-88 TO TRUE DTSBX417 +00491 DISPLAY 'NO RECORDS ON WEB-IMP-FILE ' DTSBX417 +00492 WEB-IMP-STATUS DTSBX417 +00493 GO TO I2000-EXIT DTSBX417 +00494 END-IF. DTSBX417 +00495 CLOSE WEB-IMP-FILE. DTSBX417 +00496 OPEN INPUT WEB-IMP-FILE. DTSBX417 +00497 IF NOT WEB-IMP-STATUS-OK-88 DTSBX417 +00498 SET W-FATAL-ERROR-YES-88 TO TRUE DTSBX417 +00499 DISPLAY 'NO ESSP UPDATES FILE TO PROCESS' DTSBX417 +00500 MOVE +3 TO RETURN-CODE DTSBX417 +00501 SET W-ERROR-YES-88 TO TRUE DTSBX417 +00502 DISPLAY 'CANNOT OPEN WEB-IMP-FILE ' DTSBX417 +00503 WEB-IMP-STATUS DTSBX417 +00504 GO TO I2000-EXIT DTSBX417 +00505 END-IF. DTSBX417 +00506 DTSBX417 +00507 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBX417 +00508 DTSBX417 +00509 PERFORM S921-OPEN-READ THRU S921-EXIT. DTSBX417 +00510 DTSBX417 +00511 PERFORM S923-OPEN-READ THRU S923-EXIT. DTSBX417 +00512 DTSBX417 +00513 PERFORM S931-OPEN-READ THRU S931-EXIT. DTSBX417 +00514 DTSBX417 +00515 * MOVE 'N' TO L927-TRACE-IND. CL*44 +00516 * MOVE W-MOD-NAME TO L927-MOD-NAME. CL*44 +00517 * PERFORM S927A-OPEN THRU S927A-EXIT. CL*44 +00518 DTSBX417 +00519 I2000-EXIT. DTSBX417 +00520 EXIT. DTSBX417 +00521 DTSBX417 +00522 I3000-READ-HEADER. DTSBX417 +00523 MOVE LOW-VALUES TO MSKL-REC. CL*74 +00524 MOVE +0 TO MSKL-EMP-NO. CL*74 +00525 SET MSKL-HDR-88 TO TRUE. CL*74 +00526 DTSBX417 +00527 PERFORM S910-READ THRU S910-EXIT. CL*74 +00528 IF L910-NO-REC-88 CL*74 +00529 DISPLAY 'DTSBX420: MHDR RECORD IS MISSING' DTSBX417 +00530 SET W-FATAL-ERROR-YES-88 TO TRUE DTSBX417 +00531 MOVE +6 TO RETURN-CODE DTSBX417 +00532 GO TO I3000-EXIT DTSBX417 +00533 ELSE CL*74 +00534 MOVE MSKL-REC TO MHDR-REC DTSBX417 +00535 END-IF. CL*74 +00536 DTSBX417 +00537 MOVE MHDR-CURR-RUN-DATE TO W-CURR-RUN-DATE. CL*74 +00538 DTSBX417 +00539 MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9. CL*74 +00540 MOVE L004-QTR-5-YR TO W-LAST-RATE-YEAR. CL*74 +00541 DISPLAY 'LAST RATE YEAR ' W-LAST-RATE-YEAR. CL*74 +00542 CL*69 +00543 MOVE MHDR-LAST-UC30-MASS-MAIL-YRQ TO L004-QTR-5-9. CL*77 +00544 CL*72 +00545 PERFORM S004-FROM-5 THRU S004-EXIT. CL*74 +00546 CL*72 +00547 MOVE L004-SLASH-5-QTR TO W-CURR-QTR. CL*74 +00548 DISPLAY 'CURRENT QTR: ' W-CURR-QTR. CL*74 +00549 DTSBX417 +00550 I3000-EXIT. DTSBX417 +00551 EXIT. DTSBX417 +00552 DTSBX417 +00553 *I4000-CURRENT-BATCH. DTSBX417 +00554 * OPEN I-O CURR-BATCH-NO. DTSBX417 +00555 * IF NOT BATCH-STATUS-OK-88 DTSBX417 +00556 * SET W-FATAL-ERROR-YES-88 TO TRUE DTSBX417 +00557 * DISPLAY 'CANNOT OPEN CURR BATCH NUMBER FILE ' DTSBX417 +00558 * BATCH-STATUS DTSBX417 +00559 * GO TO I4000-EXIT DTSBX417 +00560 * END-IF. DTSBX417 +00561 * DTSBX417 +00562 * READ CURR-BATCH-NO DTSBX417 +00563 * IF BATCH-STATUS-OK-88 DTSBX417 +00564 * DISPLAY 'OLD BATCH ' CURRENT-BATCH-NO DTSBX417 +00565 * COMPUTE W-PSEUDO-BATCH-NO = (CURRENT-BATCH-NO + 1) DTSBX417 +00566 * MOVE W-PSEUDO-BATCH-NO TO W-START-BATCH DTSBX417 +00567 * MOVE ZERO TO W-PSEUDO-ITEM-NO DTSBX417 +00568 * DISPLAY 'CURRENT BATCH ' W-PSEUDO-BATCH-NO DTSBX417 +00569 * DISPLAY 'CURRENT ITEM ' W-PSEUDO-ITEM-NO DTSBX417 +00570 * ELSE DTSBX417 +00571 * SET W-FATAL-ERROR-YES-88 TO TRUE DTSBX417 +00572 * DISPLAY 'CANNOT READ CURR BATCH NUMBER FILE ' DTSBX417 +00573 * BATCH-STATUS DTSBX417 +00574 * GO TO I4000-EXIT DTSBX417 +00575 * END-IF. DTSBX417 +00576 * DTSBX417 +00577 *I4000-EXIT. DTSBX417 +00578 * EXIT. DTSBX417 +00579 DTSBX417 +00580 I5000-INITIAL-CALLS. DTSBX417 +00581 DISPLAY '!!!!! BX420- INITILIZE RECORDS START BX420' CL*12 +00582 SET LX42-INITIALIZE-88 TO TRUE. DTSBX417 +00583 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX417 +00584 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX417 +00585 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX417 +00586 MOVE W-CURR-QTR TO LX42-CURR-QTR CL*69 +00587 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*69 +00588 LX42-LAST-DETERM-EMP DTSBX417 +00589 LX42-RPT-CNT DTSBX417 +00590 LX42-RPT-REMIT-AMT DTSBX417 +00591 LX42-PAY-CNT DTSBX417 +00592 LX42-PAY-REMIT-AMT. DTSBX417 +00593 SET LX42-BATCH-ERR-NO-88 TO TRUE. DTSBX417 +00594 SET LX42-ERROR-NO-88 TO TRUE. DTSBX417 +00595 SET LX42-RPT-ERROR-NO-88 TO TRUE CL*29 +00596 MOVE LOW-VALUES TO LX42-DATA-AREA. DTSBX417 +00597 DTSBX417 +00598 DISPLAY 'X42 CURR QTR: 'LX42-CURR-QTR CL*76 +00599 MOVE ZERO TO W-102-IMP-CNT CL*38 +00600 W-104-IMP-CNT CL*38 +00601 W-106-IMP-CNT CL*38 +00602 W-108-IMP-CNT CL*38 +00603 W-110-IMP-CNT CL*38 +00604 W-120-IMP-CNT CL*38 +00605 W-140-IMP-CNT CL*38 +00606 W-144-IMP-CNT CL*38 +00607 W-145-IMP-CNT. CL*38 +00608 ** PERFORM S421-REGISTRATION THRU S421-EXIT. CL*66 +00609 PERFORM S422-REPORT-WAGES THRU S422-EXIT. CL*63 +00610 PERFORM S423-PAYMENTS THRU S423-EXIT. CL*63 +00611 ** PERFORM S424-PROFILE THRU S424-EXIT. CL*66 +00612 ** PERFORM S426-HEADER THRU S426-EXIT. DTSBX417 +00613 DTSBX417 +00614 I5000-EXIT. DTSBX417 +00615 EXIT. DTSBX417 +00616 DTSBX417 +00617 DTSBX417 +00618 P0000-PROCESS. DTSBX417 +00619 DISPLAY '!!!! BX420- START WEB IMPORT PRELIMINARY EDIT'. CL*12 +00620 DISPLAY SPACE. DTSBX417 +00621 DTSBX417 +00622 SET W-ERROR-NO-88 TO TRUE. DTSBX417 +00623 DTSBX417 +00624 SORT SORT-FILE DTSBX417 +00625 ON ASCENDING KEY SORT-KEY DTSBX417 +00626 INPUT PROCEDURE P1000-PRE-SORT THRU P1000-EXIT DTSBX417 +00627 OUTPUT PROCEDURE P2000-POST-SORT THRU P2000-EXIT. DTSBX417 +00628 DTSBX417 +00629 IF SORT-RETURN NOT = +0 DTSBX417 +00630 DISPLAY 'SORT FAILED ' SORT-RETURN DTSBX417 +00631 END-IF. DTSBX417 +00632 DTSBX417 +00633 P0000-EXIT. DTSBX417 +00634 EXIT. DTSBX417 +00635 DTSBX417 +00636 DTSBX417 +00637 P1000-PRE-SORT. DTSBX417 +00638 PERFORM S1000-READ-WEB-IMP THRU S1000-EXIT. DTSBX417 +00639 PERFORM UNTIL WEB-IMP-STATUS-EOF-88 DTSBX417 +00640 PERFORM P1100-PARSE-IMPORT-REC THRU P1100-EXIT DTSBX417 +00641 PERFORM P1200-BUILD-SORT-REC THRU P1200-EXIT DTSBX417 +00642 PERFORM S1000-READ-WEB-IMP THRU S1000-EXIT DTSBX417 +00643 END-PERFORM. DTSBX417 +00644 DTSBX417 +00645 DISPLAY '!!!!! BX420- ENDOF INPUT SORT PROCEDURE ****'. CL*12 +00646 P1000-EXIT. DTSBX417 +00647 EXIT. DTSBX417 +00648 DTSBX417 +00649 P1100-PARSE-IMPORT-REC. DTSBX417 +00650 IF WEB-IMP-TYPE-BHDR-88 DTSBX417 +00651 DISPLAY 'BX420 P1000 HDR ' WEB-IMP-REC(1:14) DTSBX417 +00652 END-IF. DTSBX417 +00653 CL*20 +00654 * DISPLAY 'P1000 ' WEB-IMP-TYPE ' ' WEB-IMP-EMP-NO. CL*21 +00655 DTSBX417 +00656 PERFORM DTSBX417 +00657 VARYING SUB FROM +1 BY +1 DTSBX417 +00658 UNTIL SUB > +100 DTSBX417 +00659 MOVE +0 TO L205-FIELD-LENGTH (SUB) DTSBX417 +00660 L205-INTEGER (SUB) DTSBX417 +00661 L205-FRACTION (SUB) DTSBX417 +00662 MOVE SPACES TO L205-TEXT (SUB) DTSBX417 +00663 L205-DATE (SUB) DTSBX417 +00664 SET L205-TYPE-TEXT-88 (SUB) TO TRUE DTSBX417 +00665 END-PERFORM. DTSBX417 +00666 DTSBX417 +00667 EVALUATE TRUE DTSBX417 +00668 WHEN WEB-IMP-TYPE-PRF-88 DTSBX417 +00669 PERFORM P1100A-PRF THRU P1100A-EXIT DTSBX417 +00670 DTSBX417 +00671 WHEN WEB-IMP-TYPE-DETERM-88 DTSBX417 +00672 PERFORM P1100B-DETERM THRU P1100B-EXIT DTSBX417 +00673 DTSBX417 +00674 WHEN WEB-IMP-TYPE-NAME-88 DTSBX417 +00675 PERFORM P1100C-NAME THRU P1100C-EXIT DTSBX417 +00676 DTSBX417 +00677 WHEN WEB-IMP-TYPE-RATE-88 DTSBX417 +00678 PERFORM P1100D-RATE THRU P1100D-EXIT DTSBX417 +00679 DTSBX417 +00680 WHEN WEB-IMP-TYPE-ADDR-88 DTSBX417 +00681 PERFORM P1100E-ADDR THRU P1100E-EXIT DTSBX417 +00682 DTSBX417 +00683 WHEN WEB-IMP-TYPE-OPO-88 DTSBX417 +00684 PERFORM P1100F-OPO THRU P1100F-EXIT DTSBX417 +00685 DTSBX417 +00686 WHEN WEB-IMP-TYPE-REL-88 DTSBX417 +00687 PERFORM P1100G-REL THRU P1100G-EXIT DTSBX417 +00688 DTSBX417 +00689 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417 +00690 * PERFORM P1100X-IND THRU P1100X-EXIT DTSBX417 +00691 * INITIALIZE X132-REC DTSBX417 +00692 * MOVE +4 TO L205-LAST-FIELD DTSBX417 +00693 *** MOVE +500 TO L205-LAST-FIELD-LEN DTSBX417 +00694 DTSBX417 +00695 WHEN WEB-IMP-TYPE-RPT-88 DTSBX417 +00696 PERFORM P1100H-RPT THRU P1100H-EXIT DTSBX417 +00697 DTSBX417 +00698 WHEN WEB-IMP-TYPE-WAGE-88 DTSBX417 +00699 PERFORM P1100I-WAGE THRU P1100I-EXIT DTSBX417 +00700 DTSBX417 +00701 WHEN WEB-IMP-TYPE-PAY-88 DTSBX417 +00702 PERFORM P1100J-PAY THRU P1100J-EXIT DTSBX417 +00703 DTSBX417 +00704 * WHEN WEB-IMP-TYPE-BHDR-88 DTSBX417 +00705 * PERFORM P1100K-BATCH-HEADER THRU P1100K-EXIT DTSBX417 +00706 DTSBX417 +00707 END-EVALUATE. DTSBX417 +00708 DTSBX417 +00709 MOVE WEB-IMP-REC TO L205-INPUT-DATA. DTSBX417 +00710 CALL 'DTSBU205' USING L205-LINK-AREA. DTSBX417 +00711 DTSBX417 +00712 P1100-EXIT. DTSBX417 +00713 EXIT. DTSBX417 +00714 DTSBX417 +00715 P1100A-PRF. DTSBX417 +00716 INITIALIZE X102-REC DTSBX417 +00717 MOVE +7 TO L205-LAST-FIELD DTSBX417 +00718 MOVE +1 TO L205-LAST-FIELD-LEN DTSBX417 +00719 DTSBX417 +00720 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +00721 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +00722 DTSBX417 +00723 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +00724 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +00725 DTSBX417 +00726 MOVE +9 TO L205-FIELD-LENGTH (3). DTSBX417 +00727 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +00728 DTSBX417 +00729 MOVE +1 TO L205-FIELD-LENGTH (4). DTSBX417 +00730 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +00731 DTSBX417 +00732 MOVE +1 TO L205-FIELD-LENGTH (5). DTSBX417 +00733 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX417 +00734 DTSBX417 +00735 MOVE +2 TO L205-FIELD-LENGTH (6). DTSBX417 +00736 SET L205-TYPE-NUMBER-88 (6) TO TRUE. DTSBX417 +00737 DTSBX417 +00738 MOVE +1 TO L205-FIELD-LENGTH (7). DTSBX417 +00739 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX417 +00740 DTSBX417 +00741 P1100A-EXIT. DTSBX417 +00742 EXIT. DTSBX417 +00743 DTSBX417 +00744 P1100B-DETERM. DTSBX417 +00745 INITIALIZE X104-REC DTSBX417 +00746 MOVE +18 TO L205-LAST-FIELD DTSBX417 +00747 MOVE +1 TO L205-LAST-FIELD-LEN DTSBX417 +00748 DTSBX417 +00749 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +00750 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +00751 DTSBX417 +00752 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +00753 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +00754 DTSBX417 +00755 MOVE +1 TO L205-FIELD-LENGTH (3). DTSBX417 +00756 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +00757 DTSBX417 +00758 MOVE +2 TO L205-FIELD-LENGTH (4). DTSBX417 +00759 SET L205-TYPE-NUMBER-88 (4) TO TRUE. DTSBX417 +00760 DTSBX417 +00761 MOVE +2 TO L205-FIELD-LENGTH (5). DTSBX417 +00762 SET L205-TYPE-NUMBER-88 (5) TO TRUE. DTSBX417 +00763 DTSBX417 +00764 MOVE +6 TO L205-FIELD-LENGTH (6). DTSBX417 +00765 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX417 +00766 DTSBX417 +00767 MOVE +3 TO L205-FIELD-LENGTH (7). DTSBX417 +00768 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX417 +00769 DTSBX417 +00770 MOVE +2 TO L205-FIELD-LENGTH (8). DTSBX417 +00771 SET L205-TYPE-TEXT-88 (8) TO TRUE. DTSBX417 +00772 DTSBX417 +00773 MOVE +10 TO L205-FIELD-LENGTH (9). DTSBX417 +00774 SET L205-TYPE-DATE-88 (9) TO TRUE. DTSBX417 +00775 DTSBX417 +00776 MOVE +1 TO L205-FIELD-LENGTH (10). DTSBX417 +00777 SET L205-TYPE-TEXT-88 (10) TO TRUE. DTSBX417 +00778 DTSBX417 +00779 MOVE +10 TO L205-FIELD-LENGTH (11). DTSBX417 +00780 SET L205-TYPE-DATE-88 (11) TO TRUE. DTSBX417 +00781 DTSBX417 +00782 MOVE +10 TO L205-FIELD-LENGTH (12). DTSBX417 +00783 SET L205-TYPE-TEXT-88 (12) TO TRUE. DTSBX417 +00784 DTSBX417 +00785 MOVE +1 TO L205-FIELD-LENGTH (13). DTSBX417 +00786 SET L205-TYPE-TEXT-88 (13) TO TRUE. DTSBX417 +00787 DTSBX417 +00788 MOVE +1 TO L205-FIELD-LENGTH (14). DTSBX417 +00789 SET L205-TYPE-TEXT-88 (14) TO TRUE. DTSBX417 +00790 DTSBX417 +00791 MOVE +1 TO L205-FIELD-LENGTH (15). DTSBX417 +00792 SET L205-TYPE-TEXT-88 (15) TO TRUE. DTSBX417 +00793 DTSBX417 +00794 MOVE +1 TO L205-FIELD-LENGTH (16). DTSBX417 +00795 SET L205-TYPE-TEXT-88 (16) TO TRUE. DTSBX417 +00796 DTSBX417 +00797 MOVE +1 TO L205-FIELD-LENGTH (17). DTSBX417 +00798 SET L205-TYPE-TEXT-88 (17) TO TRUE. DTSBX417 +00799 DTSBX417 +00800 MOVE +1 TO L205-FIELD-LENGTH (18). DTSBX417 +00801 SET L205-TYPE-TEXT-88 (18) TO TRUE. DTSBX417 +00802 DTSBX417 +00803 P1100B-EXIT. DTSBX417 +00804 EXIT. DTSBX417 +00805 DTSBX417 +00806 P1100C-NAME. DTSBX417 +00807 INITIALIZE X106-REC DTSBX417 +00808 MOVE +4 TO L205-LAST-FIELD DTSBX417 +00809 MOVE +40 TO L205-LAST-FIELD-LEN DTSBX417 +00810 DTSBX417 +00811 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +00812 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +00813 DTSBX417 +00814 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +00815 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +00816 DTSBX417 +00817 MOVE +1 TO L205-FIELD-LENGTH (3). DTSBX417 +00818 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +00819 DTSBX417 +00820 MOVE +40 TO L205-FIELD-LENGTH (4). DTSBX417 +00821 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +00822 DTSBX417 +00823 P1100C-EXIT. DTSBX417 +00824 EXIT. DTSBX417 +00825 DTSBX417 +00826 P1100D-RATE. DTSBX417 +00827 ** DISPLAY 'RATE P1100D ' WEB-IMP-REC (1:23). DTSBX417 +00828 DTSBX417 +00829 INITIALIZE X108-REC. DTSBX417 +00830 MOVE +4 TO L205-LAST-FIELD. DTSBX417 +00831 MOVE +6 TO L205-LAST-FIELD-LEN. DTSBX417 +00832 DTSBX417 +00833 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +00834 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +00835 DTSBX417 +00836 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +00837 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +00838 DTSBX417 +00839 MOVE +4 TO L205-FIELD-LENGTH (3). DTSBX417 +00840 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +00841 DTSBX417 +00842 MOVE +6 TO L205-FIELD-LENGTH (4). DTSBX417 +00843 SET L205-TYPE-NUMBER-88 (4) TO TRUE. DTSBX417 +00844 DTSBX417 +00845 P1100D-EXIT. DTSBX417 +00846 EXIT. DTSBX417 +00847 DTSBX417 +00848 P1100E-ADDR. DTSBX417 +00849 INITIALIZE X110-REC. DTSBX417 +00850 MOVE +14 TO L205-LAST-FIELD. DTSBX417 +00851 MOVE +40 TO L205-LAST-FIELD-LEN. DTSBX417 +00852 DTSBX417 +00853 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +00854 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +00855 DTSBX417 +00856 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +00857 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +00858 DTSBX417 +00859 MOVE +2 TO L205-FIELD-LENGTH (3). DTSBX417 +00860 SET L205-TYPE-NUMBER-88 (3) TO TRUE. DTSBX417 +00861 DTSBX417 +00862 MOVE +40 TO L205-FIELD-LENGTH (4). DTSBX417 +00863 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +00864 DTSBX417 +00865 MOVE +40 TO L205-FIELD-LENGTH (5). DTSBX417 +00866 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX417 +00867 DTSBX417 +00868 MOVE +40 TO L205-FIELD-LENGTH (6). DTSBX417 +00869 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX417 +00870 DTSBX417 +00871 MOVE +25 TO L205-FIELD-LENGTH (7). DTSBX417 +00872 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX417 +00873 DTSBX417 +00874 MOVE +2 TO L205-FIELD-LENGTH (8). DTSBX417 +00875 SET L205-TYPE-TEXT-88 (8) TO TRUE. DTSBX417 +00876 DTSBX417 +00877 MOVE +10 TO L205-FIELD-LENGTH (9). DTSBX417 +00878 SET L205-TYPE-TEXT-88 (9) TO TRUE. DTSBX417 +00879 DTSBX417 +00880 MOVE +15 TO L205-FIELD-LENGTH (10). DTSBX417 +00881 SET L205-TYPE-TEXT-88 (10) TO TRUE. DTSBX417 +00882 DTSBX417 +00883 MOVE +15 TO L205-FIELD-LENGTH (11). DTSBX417 +00884 SET L205-TYPE-TEXT-88 (11) TO TRUE. DTSBX417 +00885 DTSBX417 +00886 MOVE +40 TO L205-FIELD-LENGTH (12). DTSBX417 +00887 SET L205-TYPE-TEXT-88 (12) TO TRUE. DTSBX417 +00888 DTSBX417 +00889 MOVE +40 TO L205-FIELD-LENGTH (13). DTSBX417 +00890 SET L205-TYPE-TEXT-88 (13) TO TRUE. DTSBX417 +00891 DTSBX417 +00892 MOVE +40 TO L205-FIELD-LENGTH (14). DTSBX417 +00893 SET L205-TYPE-TEXT-88 (14) TO TRUE. DTSBX417 +00894 DTSBX417 +00895 P1100E-EXIT. DTSBX417 +00896 EXIT. DTSBX417 +00897 DTSBX417 +00898 P1100F-OPO. DTSBX417 +00899 INITIALIZE X120-REC. DTSBX417 +00900 MOVE +18 TO L205-LAST-FIELD. DTSBX417 +00901 MOVE +40 TO L205-LAST-FIELD-LEN. DTSBX417 +00902 DTSBX417 +00903 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +00904 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +00905 DTSBX417 +00906 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +00907 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +00908 DTSBX417 +00909 MOVE +2 TO L205-FIELD-LENGTH (3). DTSBX417 +00910 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +00911 DTSBX417 +00912 MOVE +40 TO L205-FIELD-LENGTH (4). CL*22 +00913 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +00914 DTSBX417 +00915 MOVE +1 TO L205-FIELD-LENGTH (5). DTSBX417 +00916 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX417 +00917 DTSBX417 +00918 MOVE +40 TO L205-FIELD-LENGTH (6). CL*22 +00919 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX417 +00920 DTSBX417 +00921 MOVE +40 TO L205-FIELD-LENGTH (7). DTSBX417 +00922 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX417 +00923 DTSBX417 +00924 MOVE +9 TO L205-FIELD-LENGTH (8). DTSBX417 +00925 SET L205-TYPE-TEXT-88 (8) TO TRUE. DTSBX417 +00926 DTSBX417 +00927 MOVE +40 TO L205-FIELD-LENGTH (9). DTSBX417 +00928 SET L205-TYPE-TEXT-88 (9) TO TRUE. DTSBX417 +00929 DTSBX417 +00930 MOVE +40 TO L205-FIELD-LENGTH (10). DTSBX417 +00931 SET L205-TYPE-TEXT-88 (10) TO TRUE. DTSBX417 +00932 DTSBX417 +00933 MOVE +40 TO L205-FIELD-LENGTH (11). DTSBX417 +00934 SET L205-TYPE-TEXT-88 (11) TO TRUE. DTSBX417 +00935 DTSBX417 +00936 MOVE +40 TO L205-FIELD-LENGTH (12). DTSBX417 +00937 SET L205-TYPE-TEXT-88 (12) TO TRUE. DTSBX417 +00938 DTSBX417 +00939 MOVE +25 TO L205-FIELD-LENGTH (13). DTSBX417 +00940 SET L205-TYPE-TEXT-88 (13) TO TRUE. DTSBX417 +00941 DTSBX417 +00942 MOVE +2 TO L205-FIELD-LENGTH (14). DTSBX417 +00943 SET L205-TYPE-TEXT-88 (14) TO TRUE. DTSBX417 +00944 DTSBX417 +00945 MOVE +10 TO L205-FIELD-LENGTH (15). DTSBX417 +00946 SET L205-TYPE-TEXT-88 (15) TO TRUE. DTSBX417 +00947 DTSBX417 +00948 MOVE +15 TO L205-FIELD-LENGTH (16). DTSBX417 +00949 SET L205-TYPE-TEXT-88 (16) TO TRUE. DTSBX417 +00950 DTSBX417 +00951 MOVE +16 TO L205-FIELD-LENGTH (17). CL*22 +00952 SET L205-TYPE-TEXT-88 (17) TO TRUE. DTSBX417 +00953 DTSBX417 +00954 MOVE +40 TO L205-FIELD-LENGTH (18). DTSBX417 +00955 SET L205-TYPE-TEXT-88 (18) TO TRUE. DTSBX417 +00956 DTSBX417 +00957 P1100F-EXIT. DTSBX417 +00958 EXIT. DTSBX417 +00959 DTSBX417 +00960 P1100G-REL. DTSBX417 +00961 INITIALIZE X130-REC. DTSBX417 +00962 MOVE +16 TO L205-LAST-FIELD. DTSBX417 +00963 MOVE +40 TO L205-LAST-FIELD-LEN. DTSBX417 +00964 DTSBX417 +00965 P1100G-EXIT. DTSBX417 +00966 EXIT. DTSBX417 +00967 DTSBX417 +00968 P1100H-RPT. DTSBX417 +00969 * DISPLAY 'P1100H-RPT ' WEB-IMP-REC(1:126). CL*23 +00970 INITIALIZE X140-REC. DTSBX417 +00971 MOVE +16 TO L205-LAST-FIELD. CL*24 +00972 MOVE +14 TO L205-LAST-FIELD-LEN. CL*27 +00973 DTSBX417 +00974 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +00975 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +00976 DTSBX417 +00977 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +00978 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +00979 DTSBX417 +00980 MOVE +4 TO L205-FIELD-LENGTH (3). DTSBX417 +00981 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +00982 DTSBX417 +00983 MOVE +1 TO L205-FIELD-LENGTH (4). DTSBX417 +00984 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +00985 DTSBX417 +00986 MOVE +8 TO L205-FIELD-LENGTH (5). DTSBX417 +00987 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX417 +00988 DTSBX417 +00989 MOVE +8 TO L205-FIELD-LENGTH (6). DTSBX417 +00990 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX417 +00991 DTSBX417 +00992 MOVE +14 TO L205-FIELD-LENGTH (7). DTSBX417 +00993 SET L205-TYPE-NUMBER-88 (7) TO TRUE. DTSBX417 +00994 DTSBX417 +00995 MOVE +14 TO L205-FIELD-LENGTH (8). DTSBX417 +00996 SET L205-TYPE-NUMBER-88 (8) TO TRUE. DTSBX417 +00997 DTSBX417 +00998 MOVE +14 TO L205-FIELD-LENGTH (9). DTSBX417 +00999 SET L205-TYPE-NUMBER-88 (9) TO TRUE. DTSBX417 +01000 DTSBX417 +01001 MOVE +04 TO L205-FIELD-LENGTH (10). DTSBX417 +01002 SET L205-TYPE-TEXT-88 (10) TO TRUE. DTSBX417 +01003 DTSBX417 +01004 MOVE +10 TO L205-FIELD-LENGTH (11). DTSBX417 +01005 SET L205-TYPE-TEXT-88 (11) TO TRUE. DTSBX417 +01006 DTSBX417 +01007 MOVE +8 TO L205-FIELD-LENGTH (12). DTSBX417 +01008 SET L205-TYPE-TEXT-88 (12) TO TRUE. CL*48 +01009 DTSBX417 +01010 MOVE +8 TO L205-FIELD-LENGTH (13). DTSBX417 +01011 SET L205-TYPE-TEXT-88 (13) TO TRUE. CL*48 +01012 DTSBX417 +01013 MOVE +8 TO L205-FIELD-LENGTH (14). DTSBX417 +01014 SET L205-TYPE-TEXT-88 (14) TO TRUE. CL*48 +01015 DTSBX417 +01016 MOVE +4 TO L205-FIELD-LENGTH (15). DTSBX417 +01017 SET L205-TYPE-TEXT-88 (15) TO TRUE. DTSBX417 +01018 DTSBX417 +01019 MOVE +14 TO L205-FIELD-LENGTH (16). CL*27 +01020 SET L205-TYPE-NUMBER-88 (16) TO TRUE. CL*26 +01021 CL*24 +01022 ** MOVE +1 TO L205-FIELD-LENGTH (16). DTSBX417 +01023 ** SET L205-TYPE-TEXT-88 (18) TO TRUE. DTSBX417 +01024 DTSBX417 +01025 ** MOVE +1 TO L205-FIELD-LENGTH (17). DTSBX417 +01026 ** SET L205-TYPE-TEXT-88 (19) TO TRUE. DTSBX417 +01027 DTSBX417 +01028 ** MOVE +3 TO L205-FIELD-LENGTH (18). DTSBX417 +01029 ** SET L205-TYPE-TEXT-88 (20) TO TRUE. DTSBX417 +01030 DTSBX417 +01031 ** MOVE +8 TO L205-FIELD-LENGTH (19). DTSBX417 +01032 ** SET L205-TYPE-TEXT-88 (21) TO TRUE. DTSBX417 +01033 ** DISPLAY 'NANCY '. CL*31 +01034 P1100H-EXIT. DTSBX417 +01035 EXIT. DTSBX417 +01036 DTSBX417 +01037 P1100I-WAGE. DTSBX417 +01038 * DISPLAY 'P1100I-WAGE ' WEB-IMP-REC(1:126). CL*10 +01039 INITIALIZE X144-REC. DTSBX417 +01040 MOVE +10 TO L205-LAST-FIELD. DTSBX417 +01041 MOVE +14 TO L205-LAST-FIELD-LEN. DTSBX417 +01042 DTSBX417 +01043 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +01044 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +01045 DTSBX417 +01046 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +01047 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +01048 DTSBX417 +01049 MOVE +4 TO L205-FIELD-LENGTH (3). DTSBX417 +01050 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +01051 DTSBX417 +01052 MOVE +1 TO L205-FIELD-LENGTH (4). DTSBX417 +01053 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +01054 DTSBX417 +01055 MOVE +8 TO L205-FIELD-LENGTH (5). DTSBX417 +01056 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX417 +01057 DTSBX417 +01058 MOVE +9 TO L205-FIELD-LENGTH (6). DTSBX417 +01059 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX417 +01060 DTSBX417 +01061 MOVE +30 TO L205-FIELD-LENGTH (7). DTSBX417 +01062 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX417 +01063 DTSBX417 +01064 MOVE +30 TO L205-FIELD-LENGTH (8). DTSBX417 +01065 SET L205-TYPE-TEXT-88 (8) TO TRUE. DTSBX417 +01066 DTSBX417 +01067 MOVE +1 TO L205-FIELD-LENGTH (9). DTSBX417 +01068 SET L205-TYPE-TEXT-88 (9) TO TRUE. DTSBX417 +01069 DTSBX417 +01070 MOVE +14 TO L205-FIELD-LENGTH (10). DTSBX417 +01071 SET L205-TYPE-NUMBER-88 (10) TO TRUE. DTSBX417 +01072 P1100I-EXIT. DTSBX417 +01073 EXIT. DTSBX417 +01074 DTSBX417 +01075 P1100J-PAY. DTSBX417 +01076 * DISPLAY 'P1100J-PAY ' WEB-IMP-REC(1:84). CL*10 +01077 INITIALIZE X145-REC. DTSBX417 +01078 MOVE +12 TO L205-LAST-FIELD. DTSBX417 +01079 MOVE +8 TO L205-LAST-FIELD-LEN. DTSBX417 +01080 DTSBX417 +01081 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +01082 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +01083 DTSBX417 +01084 MOVE +6 TO L205-FIELD-LENGTH (2). DTSBX417 +01085 SET L205-TYPE-TEXT-88 (2) TO TRUE. DTSBX417 +01086 DTSBX417 +01087 MOVE +6 TO L205-FIELD-LENGTH (3). DTSBX417 +01088 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +01089 DTSBX417 +01090 MOVE +6 TO L205-FIELD-LENGTH (4). DTSBX417 +01091 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +01092 DTSBX417 +01093 MOVE +3 TO L205-FIELD-LENGTH (5). DTSBX417 +01094 SET L205-TYPE-TEXT-88 (5) TO TRUE. DTSBX417 +01095 DTSBX417 +01096 MOVE +2 TO L205-FIELD-LENGTH (6). DTSBX417 +01097 SET L205-TYPE-TEXT-88 (6) TO TRUE. DTSBX417 +01098 DTSBX417 +01099 MOVE +2 TO L205-FIELD-LENGTH (7). DTSBX417 +01100 SET L205-TYPE-TEXT-88 (7) TO TRUE. DTSBX417 +01101 DTSBX417 +01102 MOVE +2 TO L205-FIELD-LENGTH (8). DTSBX417 +01103 SET L205-TYPE-TEXT-88 (8) TO TRUE. DTSBX417 +01104 DTSBX417 +01105 MOVE +14 TO L205-FIELD-LENGTH (9). DTSBX417 +01106 SET L205-TYPE-NUMBER-88 (9) TO TRUE. DTSBX417 +01107 DTSBX417 +01108 MOVE +10 TO L205-FIELD-LENGTH (10). DTSBX417 +01109 SET L205-TYPE-TEXT-88 (10) TO TRUE. DTSBX417 +01110 DTSBX417 +01111 MOVE +10 TO L205-FIELD-LENGTH (11). DTSBX417 +01112 SET L205-TYPE-TEXT-88 (11) TO TRUE. DTSBX417 +01113 DTSBX417 +01114 MOVE +8 TO L205-FIELD-LENGTH (12). DTSBX417 +01115 SET L205-TYPE-TEXT-88 (12) TO TRUE. DTSBX417 +01116 DTSBX417 +01117 DTSBX417 +01118 P1100J-EXIT. DTSBX417 +01119 EXIT. DTSBX417 +01120 DTSBX417 +01121 P1100K-BATCH-HEADER. DTSBX417 +01122 ** DISPLAY 'BX420 P1100K-HDR ' WEB-IMP-REC(1:84). DTSBX417 +01123 INITIALIZE X149-REC. DTSBX417 +01124 MOVE +13 TO L205-LAST-FIELD. DTSBX417 +01125 MOVE +1 TO L205-LAST-FIELD-LEN. DTSBX417 +01126 DTSBX417 +01127 MOVE +3 TO L205-FIELD-LENGTH (1). DTSBX417 +01128 SET L205-TYPE-TEXT-88 (1) TO TRUE. DTSBX417 +01129 DTSBX417 +01130 MOVE +5 TO L205-FIELD-LENGTH (2). DTSBX417 +01131 SET L205-TYPE-TEXT-88(2) TO TRUE. DTSBX417 +01132 DTSBX417 +01133 MOVE +3 TO L205-FIELD-LENGTH (3). DTSBX417 +01134 SET L205-TYPE-TEXT-88 (3) TO TRUE. DTSBX417 +01135 DTSBX417 +01136 MOVE +8 TO L205-FIELD-LENGTH (4). DTSBX417 +01137 SET L205-TYPE-TEXT-88 (4) TO TRUE. DTSBX417 +01138 DTSBX417 +01139 MOVE +10 TO L205-FIELD-LENGTH (5). DTSBX417 +01140 SET L205-TYPE-DATE-88 (5) TO TRUE. DTSBX417 +01141 DTSBX417 +01142 MOVE +10 TO L205-FIELD-LENGTH (6). DTSBX417 +01143 SET L205-TYPE-DATE-88 (6) TO TRUE. DTSBX417 +01144 DTSBX417 +01145 MOVE +10 TO L205-FIELD-LENGTH (7). DTSBX417 +01146 SET L205-TYPE-DATE-88 (7) TO TRUE. DTSBX417 +01147 DTSBX417 +01148 MOVE +3 TO L205-FIELD-LENGTH (8). DTSBX417 +01149 SET L205-TYPE-NUMBER-88 (8) TO TRUE. DTSBX417 +01150 DTSBX417 +01151 MOVE +3 TO L205-FIELD-LENGTH (9). DTSBX417 +01152 SET L205-TYPE-NUMBER-88 (9) TO TRUE. DTSBX417 +01153 DTSBX417 +01154 MOVE +12 TO L205-FIELD-LENGTH (10). DTSBX417 +01155 SET L205-TYPE-NUMBER-88 (10) TO TRUE. DTSBX417 +01156 DTSBX417 +01157 MOVE +3 TO L205-FIELD-LENGTH (11). DTSBX417 +01158 SET L205-TYPE-NUMBER-88 (11) TO TRUE. DTSBX417 +01159 DTSBX417 +01160 MOVE +10 TO L205-FIELD-LENGTH (12). DTSBX417 +01161 SET L205-TYPE-DATE-88 (12) TO TRUE. DTSBX417 +01162 DTSBX417 +01163 MOVE +1 TO L205-FIELD-LENGTH (13). DTSBX417 +01164 SET L205-TYPE-TEXT-88 (13) TO TRUE. DTSBX417 +01165 DTSBX417 +01166 P1100K-EXIT. DTSBX417 +01167 EXIT. DTSBX417 +01168 DTSBX417 +01169 P1200-BUILD-SORT-REC. DTSBX417 +01170 MOVE LOW-VALUES TO SORT-REC. DTSBX417 +01171 MOVE WEB-IMP-EMP-NO TO SORT-EMP-NO. DTSBX417 +01172 DTSBX417 +01173 EVALUATE TRUE DTSBX417 +01174 WHEN WEB-IMP-TYPE-PRF-88 DTSBX417 +01175 PERFORM P1200A-PRF THRU P1200A-EXIT DTSBX417 +01176 MOVE +1 TO SORT-SEQ1 DTSBX417 +01177 MOVE X102-REC TO SORT-DATA DTSBX417 +01178 CL*21 +01179 WHEN WEB-IMP-TYPE-DETERM-88 CL*21 +01180 PERFORM P1200B-DETERM THRU P1200B-EXIT CL*21 +01181 MOVE +2 TO SORT-SEQ1 CL*21 +01182 MOVE X104-REC TO SORT-DATA CL*21 +01183 CL*21 +01184 DTSBX417 +01185 WHEN WEB-IMP-TYPE-NAME-88 DTSBX417 +01186 * PERFORM P1200C-NAME THRU P1200C-EXIT CL*42 +01187 MOVE WEB-IMP-REC TO X106-REC CL*42 +01188 MOVE +3 TO SORT-SEQ1 CL*21 +01189 MOVE X106-NAME-TYPE TO SORT-SEQ2 DTSBX417 +01190 MOVE X106-REC TO SORT-DATA DTSBX417 +01191 CL*23 +01192 WHEN WEB-IMP-TYPE-RATE-88 DTSBX417 +01193 PERFORM P1200D-RATE THRU P1200D-EXIT DTSBX417 +01194 MOVE +4 TO SORT-SEQ1 DTSBX417 +01195 MOVE X108-REC TO SORT-DATA DTSBX417 +01196 DTSBX417 +01197 WHEN WEB-IMP-TYPE-ADDR-88 DTSBX417 +01198 * PERFORM P1200E-ADDR THRU P1200E-EXIT CL*27 +01199 MOVE WEB-IMP-REC TO X110-REC CL*28 +01200 MOVE +90 TO SORT-SEQ1 DTSBX417 +01201 MOVE X110-REC TO SORT-DATA DTSBX417 +01202 DTSBX417 +01203 WHEN WEB-IMP-TYPE-OPO-88 DTSBX417 +01204 PERFORM P1200F-OPO THRU P1200F-EXIT CL*40 +01205 * MOVE WEB-IMP-REC TO X120-REC CL*40 +01206 MOVE +91 TO SORT-SEQ1 DTSBX417 +01207 MOVE X120-REC TO SORT-DATA DTSBX417 +01208 DTSBX417 +01209 WHEN WEB-IMP-TYPE-REL-88 DTSBX417 +01210 PERFORM P1200G-REL THRU P1200G-EXIT DTSBX417 +01211 MOVE +5 TO SORT-SEQ1 DTSBX417 +01212 MOVE X130-REC TO SORT-DATA DTSBX417 +01213 DTSBX417 +01214 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417 +01215 * MOVE +6 TO SORT-SEQ1 DTSBX417 +01216 *** MOVE X132-REC TO SORT-DATA DTSBX417 +01217 DTSBX417 +01218 WHEN WEB-IMP-TYPE-RPT-88 DTSBX417 +01219 * IF X140-IN-HOUSE-88 DTSBX417 +01220 * MOVE 999999 TO SORT-IN-HOUSE-SEQ DTSBX417 +01221 ** MOVE X140-PSEUDO-BATCH-NO TO SORT-BATCH DTSBX417 +01222 ** MOVE X140-PSEUDO-ITEM-NO TO SORT-ITEM DTSBX417 +01223 * MOVE LOW-VALUES TO SORT-FILLER DTSBX417 +01224 * ELSE DTSBX417 +01225 PERFORM P1200H-RPT THRU P1200H-EXIT CL*33 +01226 MOVE +20 TO SORT-SEQ1 CL*33 +01227 MOVE X140-QUARTER TO SORT-SEQ2 CL*56 +01228 * STRING CL*56 +01229 * X140-QUARTER '0' DELIMITED BY SIZE CL*56 +01230 * INTO SORT-SEQ2 CL*56 +01231 * END-STRING CL*56 +01232 * END-IF CL*35 +01233 MOVE X140-REC TO SORT-DATA CL*36 +01234 DTSBX417 +01235 WHEN WEB-IMP-TYPE-WAGE-88 DTSBX417 +01236 PERFORM P1200I-WAGE THRU P1200I-EXIT DTSBX417 +01237 MOVE +21 TO SORT-SEQ1 CL*61 +01238 MOVE X144-QUARTER TO SORT-SEQ2 CL*61 +01239 * STRING CL*61 +01240 * X140-QUARTER '1' CL*61 +01241 * DELIMITED BY SIZE CL*61 +01242 * INTO CL*61 +01243 * SORT-SEQ2 CL*61 +01244 * END-STRING CL*61 +01245 MOVE X144-REC TO SORT-DATA CL*36 +01246 DTSBX417 +01247 ************************************************************ CL*23 +01248 * CHANGED SORT SEQ FOR PAYMENT RECORDS FROM 30 TO 19 DUE TO ESSP CL*23 +01249 * REPORTS X140 CANNOT BE PROCESSED WITHOUT A PAYMENT TRANSACTION CL*23 +01250 * UNLESS IT IS A 0 WAGE REPORT = REMIT AMOUNT = 0 CL*23 +01251 ************************************************************ CL*23 +01252 CL*23 +01253 WHEN WEB-IMP-TYPE-PAY-88 DTSBX417 +01254 PERFORM P1200J-PAY THRU P1200J-EXIT DTSBX417 +01255 MOVE +19 TO SORT-SEQ1 CL*23 +01256 MOVE X145-QTR TO SORT-SEQ2 CL*56 +01257 MOVE X145-REC TO SORT-DATA DTSBX417 +01258 ** DISPLAY 'P2 PAY ' X145-REC DTSBX417 +01259 DTSBX417 +01260 DTSBX417 +01261 ** WHEN WEB-IMP-TYPE-BHDR-88 DTSBX417 +01262 * PERFORM P1200K-BATCH-HEADER THRU P1200K-EXIT DTSBX417 +01263 * MOVE 999999 TO SORT-IN-HOUSE-SEQ DTSBX417 +01264 * MOVE X149-PSEUDO-BATCH TO SORT-BATCH DTSBX417 +01265 * MOVE X149-PSEUDO-ITEM TO SORT-ITEM DTSBX417 +01266 * MOVE LOW-VALUES TO SORT-FILLER DTSBX417 +01267 * MOVE X149-REC TO SORT-DATA DTSBX417 +01268 DTSBX417 +01269 END-EVALUATE. DTSBX417 +01270 DTSBX417 +01271 RELEASE SORT-REC. DTSBX417 +01272 DTSBX417 +01273 P1200-EXIT. DTSBX417 +01274 EXIT. DTSBX417 +01275 DTSBX417 +01276 P1200A-PRF. DTSBX417 +01277 MOVE L205-TEXT (1) (1:3) TO X102-REC-TYPE. DTSBX417 +01278 ** DISPLAY X102-REC-TYPE DTSBX417 +01279 MOVE L205-TEXT (2) (1:6) TO X102-EMP-NO. DTSBX417 +01280 ** DISPLAY X102-EMP-NO DTSBX417 +01281 DTSBX417 +01282 MOVE L205-TEXT (3) (1:9) TO X102-EMP-FEIN. DTSBX417 +01283 ** DISPLAY X102-EMP-FEIN DTSBX417 +01284 DTSBX417 +01285 MOVE L205-TEXT (4) (1:1) TO X102-EMP-CLASS. DTSBX417 +01286 ** DISPLAY X102-EMP-CLASS DTSBX417 +01287 DTSBX417 +01288 MOVE L205-TEXT (5) (1:1) TO X102-EMP-STATUS. DTSBX417 +01289 ** DISPLAY X102-EMP-STATUS DTSBX417 +01290 DTSBX417 +01291 MOVE L205-INTEGER (6) TO W-INT-9. DTSBX417 +01292 MOVE W-INT-X (12:2) TO X102-SOURCE-CD. DTSBX417 +01293 ** DISPLAY X102-SOURCE-CD DTSBX417 +01294 DTSBX417 +01295 ** DISPLAY X102-REC-TYPE DTSBX417 +01296 MOVE L205-TEXT (7) (1:1) TO X102-ACTION-CD. DTSBX417 +01297 ** DISPLAY X102-ACTION-CD. DTSBX417 +01298 DTSBX417 +01299 P1200A-EXIT. DTSBX417 +01300 EXIT. DTSBX417 +01301 DTSBX417 +01302 P1200B-DETERM. DTSBX417 +01303 MOVE L205-TEXT (1) (1:03) TO X104-REC-TYPE. DTSBX417 +01304 DTSBX417 +01305 MOVE L205-TEXT (2) (1:06) TO X104-EMP-NO. DTSBX417 +01306 DTSBX417 +01307 MOVE L205-TEXT (3) (1:01) TO X104-STAFF-REVIEW-IND. DTSBX417 +01308 DTSBX417 +01309 MOVE L205-INTEGER (4) TO W-INT-9. DTSBX417 +01310 MOVE W-INT-X (12:2) TO X104-LIAB-CD. DTSBX417 +01311 DTSBX417 +01312 MOVE L205-INTEGER (5) TO W-INT-9. DTSBX417 +01313 MOVE W-INT-X (12:2) TO X104-ELIG-CD. DTSBX417 +01314 DTSBX417 +01315 MOVE L205-TEXT (6) (1:06) TO X104-NAICS-CD. DTSBX417 +01316 DTSBX417 +01317 MOVE L205-TEXT (7) (1:03) TO X104-ORG-TYPE. DTSBX417 +01318 DTSBX417 +01319 MOVE L205-TEXT (8) (1:02) TO X104-INCORP-STATE. DTSBX417 +01320 DTSBX417 +01321 MOVE L205-DATE (9) TO X104-INCORP-DATE. DTSBX417 +01322 DTSBX417 +01323 MOVE L205-TEXT (10) (1:01) TO X104-HOUSEHOLD-FILING. DTSBX417 +01324 DTSBX417 +01325 MOVE L205-DATE (11) TO X104-FIRST-WAGE-DT. DTSBX417 +01326 DTSBX417 +01327 MOVE L205-TEXT (12) TO W-500-DATE. DTSBX417 +01328 DTSBX417 +01329 MOVE SPACES TO X104-FIRST-500-QTR DTSBX417 +01330 IF W-500-DATE > SPACES DTSBX417 +01331 MOVE W-500-DATE-YY TO W-500-FQTR-YY. DTSBX417 +01332 IF W-500-DATE-MM < '04' DTSBX417 +01333 MOVE '1' TO W-500-FQTR-NO. DTSBX417 +01334 IF W-500-DATE-MM > '03' AND < '07' DTSBX417 +01335 MOVE '2' TO W-500-FQTR-NO. DTSBX417 +01336 IF W-500-DATE-MM > '06' AND < '10' DTSBX417 +01337 MOVE '3' TO W-500-FQTR-NO. DTSBX417 +01338 IF W-500-DATE-MM > '09' AND < '13' DTSBX417 +01339 MOVE '4' TO W-500-FQTR-NO. DTSBX417 +01340 MOVE W-500-FQTR TO X104-FIRST-500-QTR DTSBX417 +01341 DTSBX417 +01342 MOVE L205-TEXT (13) (1:01) TO X104-ACQUIRE-IND. DTSBX417 +01343 DTSBX417 +01344 MOVE L205-TEXT (14) (1:01) TO X104-MERGER-SPLIT-IND. DTSBX417 +01345 DTSBX417 +01346 MOVE L205-TEXT (15) (1:01) TO X104-REORG-IND. DTSBX417 +01347 DTSBX417 +01348 MOVE L205-TEXT (16) (1:01) TO X104-COMMON-OWN-IND. DTSBX417 +01349 DTSBX417 +01350 MOVE L205-TEXT (17) (1:01) TO X104-SALE-TRANSFER-IND. DTSBX417 +01351 DTSBX417 +01352 MOVE L205-TEXT (18) (1:01) TO X104-NOT-LIAB-REASON. DTSBX417 +01353 ** DISPLAY X104-REC. DTSBX417 +01354 P1200B-EXIT. DTSBX417 +01355 EXIT. DTSBX417 +01356 DTSBX417 +01357 P1200C-NAME. DTSBX417 +01358 MOVE L205-TEXT (1) (1:03) TO X106-REC-TYPE. DTSBX417 +01359 DTSBX417 +01360 MOVE L205-TEXT (2) (1:06) TO X106-EMP-NO. DTSBX417 +01361 DTSBX417 +01362 MOVE L205-TEXT (3) (1:01) TO X106-NAME-TYPE DTSBX417 +01363 DTSBX417 +01364 MOVE L205-TEXT (4) (1:40) TO X106-EMP-NAME. DTSBX417 +01365 DTSBX417 +01366 P1200C-EXIT. DTSBX417 +01367 EXIT. DTSBX417 +01368 DTSBX417 +01369 P1200D-RATE. DTSBX417 +01370 MOVE L205-TEXT (1) (1:03) TO X108-REC-TYPE. DTSBX417 +01371 DTSBX417 +01372 MOVE L205-TEXT (2) (1:06) TO X108-EMP-NO. DTSBX417 +01373 DTSBX417 +01374 MOVE L205-TEXT (3) (1:04) TO X108-RATE-YEAR(1:04). DTSBX417 +01375 MOVE '/1' TO X108-RATE-YEAR(5:02). DTSBX417 +01376 DTSBX417 +01377 MOVE L205-INTEGER (4) TO W-INTEGER. DTSBX417 +01378 MOVE L205-FRACTION (4) TO W-FRACTION. DTSBX417 +01379 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX417 +01380 MOVE W-NUMBER TO X108-RATE. DTSBX417 +01381 ** DISPLAY 'BX420 RATE ' X108-RATE ' ' W-NUMBER. DTSBX417 +01382 ** DISPLAY ' RATE YR ' X108-RATE-YEAR. DTSBX417 +01383 DTSBX417 +01384 P1200D-EXIT. DTSBX417 +01385 EXIT. DTSBX417 +01386 DTSBX417 +01387 P1200E-ADDR. DTSBX417 +01388 MOVE L205-TEXT (1) (1:03) TO X110-REC-TYPE. DTSBX417 +01389 DTSBX417 +01390 MOVE L205-TEXT (2) (1:06) TO X110-EMP-NO. DTSBX417 +01391 DTSBX417 +01392 MOVE L205-INTEGER (3) TO W-INT-9. DTSBX417 +01393 MOVE W-INT-X (12:2) TO X110-ADDR-TYPE. DTSBX417 +01394 DTSBX417 +01395 MOVE L205-TEXT (4) (1:40) TO X110-ATTENTION. DTSBX417 +01396 DTSBX417 +01397 MOVE L205-TEXT (5) (1:40) TO X110-STREET-1. DTSBX417 +01398 DTSBX417 +01399 MOVE L205-TEXT (6) (1:40) TO X110-STREET-2. DTSBX417 +01400 DTSBX417 +01401 MOVE L205-TEXT (7) (1:25) TO X110-CITY. DTSBX417 +01402 DTSBX417 +01403 MOVE L205-TEXT (8) (1:02) TO X110-STATE. DTSBX417 +01404 DTSBX417 +01405 MOVE L205-TEXT (9) (1:10) TO X110-ZIP. DTSBX417 +01406 DTSBX417 +01407 MOVE L205-TEXT (10) (1:15) TO X110-PHONE. DTSBX417 +01408 DTSBX417 +01409 MOVE L205-TEXT (11) (1:15) TO X110-FAX. DTSBX417 +01410 DTSBX417 +01411 MOVE L205-TEXT(12) (1:40) TO X110-EMAIL. DTSBX417 +01412 DTSBX417 +01413 MOVE L205-TEXT (13) (1:40) TO X110-WEB-SITE. DTSBX417 +01414 DTSBX417 +01415 MOVE L205-TEXT (14) (1:40) TO X110-EMP-NAME. DTSBX417 +01416 DTSBX417 +01417 P1200E-EXIT. DTSBX417 +01418 EXIT. DTSBX417 +01419 DTSBX417 +01420 P1200F-OPO. DTSBX417 +01421 MOVE WEB-IMP-REC TO W120-REC. CL*40 +01422 MOVE W120-REC-TYPE TO X120-REC-TYPE. CL*40 +01423 DTSBX417 +01424 MOVE W120-EMP-NO TO X120-EMP-NO. CL*40 +01425 DTSBX417 +01426 MOVE W120-TYPE-IND (1:02) TO X120-TYPE-IND. CL*40 +01427 DTSBX417 +01428 MOVE W120-OPO-FIRST-NAME (1:20) TO X120-OPO-FIRST-NAME. CL*40 +01429 DTSBX417 +01430 MOVE W120-OPO-MID-INIT (1:01) TO X120-OPO-MID-INIT. CL*40 +01431 DTSBX417 +01432 MOVE W120-OPO-LAST-NAME (1:20) TO X120-OPO-LAST-NAME. CL*40 +01433 DTSBX417 +01434 MOVE W120-OPO-MEMBER-NAME (1:40) TO X120-OPO-MEMBER-NAME. CL*40 +01435 DTSBX417 +01436 MOVE W120-OPO-SSN (1:09) TO X120-OPO-SSN. CL*40 +01437 DTSBX417 +01438 MOVE W120-OPO-TITLE (1:40) TO X120-OPO-TITLE. CL*40 +01439 DTSBX417 +01440 MOVE W120-OPO-ATTENTION (1:40) TO X120-OPO-ATTENTION. CL*40 +01441 DTSBX417 +01442 MOVE W120-OPO-STREET-1 (1:40) TO X120-OPO-STREET-1. CL*40 +01443 DTSBX417 +01444 MOVE W120-OPO-STREET-2 (1:40) TO X120-OPO-STREET-2. CL*40 +01445 DTSBX417 +01446 MOVE W120-OPO-CITY (1:20) TO X120-OPO-CITY. CL*40 +01447 DTSBX417 +01448 MOVE W120-OPO-STATE (1:02) TO X120-OPO-STATE. CL*40 +01449 DTSBX417 +01450 MOVE W120-OPO-ZIP (1:10) TO X120-OPO-ZIP. CL*40 +01451 DTSBX417 +01452 MOVE W120-OPO-PHONE (1:15) TO X120-OPO-PHONE. CL*40 +01453 DTSBX417 +01454 MOVE W120-OPO-FAX (1:15) TO X120-OPO-FAX. CL*40 +01455 DTSBX417 +01456 MOVE W120-OPO-EMAIL (1:40) TO X120-OPO-EMAIL. CL*43 +01457 DTSBX417 +01458 P1200F-EXIT. DTSBX417 +01459 EXIT. DTSBX417 +01460 DTSBX417 +01461 P1200G-REL. DTSBX417 +01462 P1200G-EXIT. DTSBX417 +01463 EXIT. DTSBX417 +01464 DTSBX417 +01465 P1200H-RPT. DTSBX417 +01466 * DISPLAY '01200H-RPT ' CL**9 +01467 DTSBX417 +01468 MOVE L205-TEXT (1) (1:03) TO X140-REC-TYPE. DTSBX417 +01469 * DISPLAY 'X140-REC-TYPE' X140-REC-TYPE CL**9 +01470 DTSBX417 +01471 MOVE L205-TEXT (2) (1:06) TO X140-EMP-NO. DTSBX417 +01472 * DISPLAY 'X140-EMP-NO ' X140-EMP-NO CL*68 +01473 DTSBX417 +01474 MOVE L205-TEXT (3) (1:04) TO X140-QUARTER(1:04). DTSBX417 +01475 MOVE '/' TO X140-QUARTER(5:01). DTSBX417 +01476 MOVE L205-TEXT (4) (1:01) TO X140-QUARTER(6:01). DTSBX417 +01477 * DISPLAY 'X140 QTR' X140-QUARTER. CL*68 +01478 DTSBX417 +01479 MOVE '00' TO X140-SOURCE. DTSBX417 +01480 ** DISPLAY 'X140-EMP-NO ' X140-EMP-NO DTSBX417 +01481 DTSBX417 +01482 MOVE L205-TEXT (5) (7:02) TO X140-REPORT-TYPE. CL**2 +01483 IF X140-REPORT-TYPE = ZERO DTSBX417 +01484 MOVE 'OR' TO X140-REPORT-TYPE DTSBX417 +01485 ELSE DTSBX417 +01486 MOVE 'EA' TO X140-REPORT-TYPE DTSBX417 +01487 END-IF. DTSBX417 +01488 DTSBX417 +01489 MOVE L205-TEXT (6) (2:07) TO X140-WRKR-CNT-TOTAL. CL*52 +01490 * DISPLAY 'L205-TEXT (6) (2:07) ' L205-TEXT (6) (2:07) CL*53 +01491 DTSBX417 +01492 MOVE ZEROS TO X140-PSEUDO-BATCH-NO. DTSBX417 +01493 ** DISPLAY 'X140-PSEUDO-BATCH-NO ' X140-PSEUDO-BATCH-NO DTSBX417 +01494 DTSBX417 +01495 MOVE ZEROS TO X140-PSEUDO-ITEM-NO. DTSBX417 +01496 ** DISPLAY 'X140-PSEUDO-ITEM-NO ' X140-PSEUDO-ITEM-NO DTSBX417 +01497 DTSBX417 +01498 MOVE L205-INTEGER (8) TO W-INTEGER. DTSBX417 +01499 MOVE L205-FRACTION (8) TO W-FRACTION. DTSBX417 +01500 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX417 +01501 MOVE W-NUMBER TO X140-TAX-WAGES. DTSBX417 +01502 * DISPLAY 'X140-TAX-WAGES ' X140-TAX-WAGES CL**9 +01503 DTSBX417 +01504 MOVE L205-INTEGER (9) TO W-INTEGER. DTSBX417 +01505 MOVE L205-FRACTION (9) TO W-FRACTION. DTSBX417 +01506 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX417 +01507 MOVE W-NUMBER TO X140-TOTAL-WAGES. DTSBX417 +01508 * DISPLAY 'X140-TOTAL-WAGES ' X140-TOTAL-WAGES CL**9 +01509 DTSBX417 +01510 MOVE ZERO TO X140-CONFIRMATION. DTSBX417 +01511 DTSBX417 +01512 MOVE L205-TEXT (11) TO X140-RCVD-DATE. DTSBX417 +01513 * DISPLAY 'RECV DATE ' X140-RCVD-DATE. CL**9 +01514 DTSBX417 +01515 MOVE L205-TEXT (12) (2:07) TO X140-WRKR-CNT-1ST-MNTH. CL*51 +01516 * DISPLAY 'X140-WRKR-CNT-1ST-MNTH ' X140-WRKR-CNT-1ST-MNTH CL*53 +01517 DTSBX417 +01518 MOVE L205-TEXT (13) (2:07) TO X140-WRKR-CNT-2ND-MNTH. CL*51 +01519 * DISPLAY 'X140-WRKR-CNT-2ND-MNTH ' X140-WRKR-CNT-2ND-MNTH CL*53 +01520 DTSBX417 +01521 MOVE L205-TEXT (14) (2:07) TO X140-WRKR-CNT-3RD-MNTH. CL*51 +01522 * DISPLAY 'X140-WRKR-CNT-3RD-MNTH ' X140-WRKR-CNT-3RD-MNTH CL*53 +01523 DTSBX417 +01524 CL*25 +01525 MOVE L205-INTEGER (16) TO W-INTEGER. CL*25 +01526 MOVE L205-FRACTION (16) TO W-FRACTION. CL*25 +01527 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. CL*25 +01528 MOVE W-NUMBER TO X140-REMITTANCE. CL*25 +01529 * DISPLAY 'X140-REMITTANCE ' X140-REMITTANCE. CL*30 +01530 CL*25 +01531 MOVE SPACES TO X140-CHECK-SCAN-DT. DTSBX417 +01532 * DISPLAY 'X140-CHECK SCANDATE ' X140-CHECK-SCAN-DT. CL**9 +01533 DTSBX417 +01534 MOVE ZEROS TO X140-CHECK-SEQ-NBR. DTSBX417 +01535 * DISPLAY 'X140-CHECK-SEQ-NBR ' X140-CHECK-SEQ-NBR CL**9 +01536 DTSBX417 +01537 MOVE 'N' TO X140-WAIVE-INTEREST. DTSBX417 +01538 * DISPLAY 'X140-WAIVE-INTEREST ' X140-WAIVE-INTEREST CL**9 +01539 DTSBX417 +01540 MOVE 'N' TO X140-WAIVE-PENALTY. DTSBX417 +01541 * DISPLAY 'X140-WAIVE-PENALTY ' X140-WAIVE-PENALTY CL**9 +01542 DTSBX417 +01543 MOVE ' ' TO X140-RESP-ACTIVITY. DTSBX417 +01544 * DISPLAY 'X140-RESP-ACTIVITY ' X140-RESP-ACTIVITY CL**9 +01545 DTSBX417 +01546 MOVE 'WEBESSP ' TO X140-RESP-OPID. DTSBX417 +01547 * DISPLAY 'X140-RESP-OPID ' X140-RESP-OPID CL**9 +01548 DTSBX417 +01549 *& DTSBX417 +01550 * DISPLAY 'BX420 P1200H: ' X140-REC. CL*30 +01551 P1200H-EXIT. DTSBX417 +01552 EXIT. DTSBX417 +01553 DTSBX417 +01554 P1200I-WAGE. DTSBX417 +01555 MOVE WEB-IMP-REC TO W144-REC. CL*50 +01556 CL*50 +01557 * DISPLAY 'WEB-REC-WORK: ' W144-REC. CL*55 +01558 MOVE W144-REC-TYPE TO X144-REC-TYPE. CL*50 +01559 DTSBX417 +01560 MOVE W144-EMP-NO TO X144-EMP-NO. CL*50 +01561 DTSBX417 +01562 DTSBX417 +01563 MOVE '/' TO W144-QUARTER-SLASH. CL*50 +01564 MOVE W144-QUARTER TO X144-QUARTER. CL*50 +01565 DTSBX417 +01566 MOVE W144-SSN TO X144-SSN. CL*50 +01567 DTSBX417 +01568 MOVE '5' TO X144-WAGE-STATUS. DTSBX417 +01569 DTSBX417 +01570 MOVE W144-LAST-NAME TO X144-LAST-NAME. CL*50 +01571 DTSBX417 +01572 MOVE W144-FIRST-NAME TO X144-FIRST-NAME. CL*50 +01573 DTSBX417 +01574 MOVE W144-MID-INIT TO X144-MID-INIT. CL*50 +01575 DTSBX417 +01576 MOVE W144-EARNINGS TO X144-EARNINGS. CL*50 +01577 DTSBX417 +01578 * DISPLAY 'W144REC: ' X144-REC. CL*55 +01579 P1200I-EXIT. DTSBX417 +01580 EXIT. DTSBX417 +01581 DTSBX417 +01582 P1200J-PAY. DTSBX417 +01583 MOVE L205-TEXT (1) (1:03) TO X145-REC-TYPE. DTSBX417 +01584 DTSBX417 +01585 MOVE L205-TEXT (2) (1:06) TO X145-EMP-NO. DTSBX417 +01586 DTSBX417 +01587 MOVE '0' TO X145-SOURCE. DTSBX417 +01588 DTSBX417 +01589 MOVE L205-TEXT (3) (1:06) TO X145-QTR. DTSBX417 +01590 DISPLAY 'X145 QTR ' X145-QTR. CL*56 +01591 DTSBX417 +01592 MOVE L205-TEXT (7) (1:02) TO X145-PAY-TYPE. CL*67 +01593 * DISPLAY 'X145 PAY TYPE ' X145-PAY-TYPE. CL**9 +01594 DTSBX417 +01595 MOVE L205-INTEGER (9) TO W-INTEGER. DTSBX417 +01596 MOVE L205-FRACTION (9) TO W-FRACTION. DTSBX417 +01597 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX417 +01598 MOVE W-NUMBER TO X145-REMITTANCE. DTSBX417 +01599 * DISPLAY 'X145 PAY AMT ' X145-REMITTANCE. CL**9 +01600 DTSBX417 +01601 MOVE L205-TEXT (10) (1:10) TO X145-RCVD-DATE. DTSBX417 +01602 * DISPLAY 'X145 PAY DATE ' X145-RCVD-DATE. CL**9 +01603 DTSBX417 +01604 MOVE L205-TEXT (12) TO W-TRACE-B. DTSBX417 +01605 MOVE W-TRACE-9 TO X145-TRACE-NO. DTSBX417 +01606 * DISPLAY 'X145 PAY NO ' X145-TRACE-NO. CL**9 +01607 DTSBX417 +01608 DTSBX417 +01609 MOVE ZEROS TO X145-PSEUDO-BATCH. DTSBX417 +01610 DTSBX417 +01611 MOVE ZEROS TO X145-PSEUDO-ITEM. DTSBX417 +01612 DTSBX417 +01613 MOVE SPACES TO X145-APPLIC-ACCT. DTSBX417 +01614 DTSBX417 +01615 MOVE SPACES TO X145-CHECK-SCAN-DT. DTSBX417 +01616 DTSBX417 +01617 MOVE ZEROS TO X145-CHECK-SEQ-NBR. DTSBX417 +01618 DTSBX417 +01619 MOVE 'N' TO X145-WAIVE-INTEREST. DTSBX417 +01620 DTSBX417 +01621 MOVE 'N' TO X145-WAIVE-PENALTY. DTSBX417 +01622 DTSBX417 +01623 MOVE 'VOL' TO X145-RESP-ACTIVITY. DTSBX417 +01624 DTSBX417 +01625 MOVE 'WEBESSP ' TO X145-RESP-OPID. DTSBX417 +01626 DTSBX417 +01627 P1200J-EXIT. DTSBX417 +01628 EXIT. DTSBX417 +01629 DTSBX417 +01630 P1200K-BATCH-HEADER. DTSBX417 +01631 MOVE L205-TEXT (1) (1:03) TO X149-REC-TYPE. DTSBX417 +01632 DTSBX417 +01633 MOVE L205-TEXT (2) (1:5) TO X149-PSEUDO-BATCH. DTSBX417 +01634 DTSBX417 +01635 MOVE L205-TEXT (3) (1:3) TO X149-PSEUDO-ITEM. DTSBX417 +01636 DTSBX417 +01637 MOVE L205-TEXT (4) (1:08) TO X149-ESTB-OPID. DTSBX417 +01638 DTSBX417 +01639 MOVE L205-DATE (5) TO X149-ESTB-DATE. DTSBX417 +01640 DTSBX417 +01641 MOVE L205-DATE (6) TO X149-DEPOSIT-DATE. DTSBX417 +01642 DTSBX417 +01643 IF L205-VALID-NO-88 (7) DTSBX417 +01644 MOVE SPACES TO X149-RCVD-DATE DTSBX417 +01645 ELSE DTSBX417 +01646 MOVE L205-DATE (7) TO X149-RCVD-DATE DTSBX417 +01647 END-IF. DTSBX417 +01648 DTSBX417 +01649 MOVE L205-INTEGER (8) TO X149-LAST-ITEM-NBR. DTSBX417 +01650 DTSBX417 +01651 MOVE L205-INTEGER (9) TO X149-CONTROL-TRAN-CNT. DTSBX417 +01652 DTSBX417 +01653 MOVE L205-INTEGER (10) TO W-INTEGER. DTSBX417 +01654 MOVE L205-FRACTION (10) TO W-FRACTION. DTSBX417 +01655 COMPUTE W-NUMBER = W-INTEGER + W-FRACTION. DTSBX417 +01656 MOVE W-NUMBER TO X149-CONTROL-REMIT-AMT. DTSBX417 +01657 MOVE W-INTEGER TO W-AMT-DISP1. DTSBX417 +01658 MOVE W-FRACTION TO W-AMT-DISP4. DTSBX417 +01659 MOVE W-NUMBER TO W-AMT-DISP2. DTSBX417 +01660 ** DISPLAY 'BX420 P1200 HDR ' X149-PSEUDO-BATCH DTSBX417 +01661 ** ' INT ' W-AMT-DISP1 ' FR ' W-AMT-DISP4 DTSBX417 +01662 ** ' NBR ' W-AMT-DISP2 DTSBX417 +01663 ** ' X149 ' X149-CONTROL-REMIT-AMT. DTSBX417 +01664 DTSBX417 +01665 MOVE L205-INTEGER (11) TO X149-CONTROL-CHECK-CNT. DTSBX417 +01666 DTSBX417 +01667 MOVE L205-DATE (12) TO X149-CHECK-SCAN-DATE. DTSBX417 +01668 DTSBX417 +01669 MOVE L205-TEXT (13) (1:08) TO X149-ANN-BATCH-IND. DTSBX417 +01670 DTSBX417 +01671 ** DISPLAY 'BX420 P1200 HDR ' X149-PSEUDO-BATCH DTSBX417 +01672 ** ' ' X149-PSEUDO-ITEM ' ' X149-ESTB-OPID. DTSBX417 +01673 P1200K-EXIT. DTSBX417 +01674 EXIT. DTSBX417 +01675 DTSBX417 +01676 P2000-POST-SORT. DTSBX417 +01677 SET SORT-OK-88 TO TRUE. DTSBX417 +01678 DTSBX417 +01679 * DISPLAY 'P2000 BEG READING SORT-FILE ' SORT-EMP-NO. CL*68 +01680 PERFORM P2100-PROCESS-SORT THRU P2100-EXIT DTSBX417 +01681 UNTIL SORT-EOF-88. DTSBX417 +01682 DTSBX417 +01683 * SET LX42-TERMINATE-88 TO TRUE CL**9 +01684 * DISPLAY 'BX420 P2000 END READING SORT-FILE ' SORT-EMP-NO. CL**9 +01685 * DISPLAY 'BX420 P2000 END READING SORT-FILE ' SORT-KEY ' ' CL*68 +01686 * SORT-DATA (1:14). CL*68 +01687 P2000-EXIT. DTSBX417 +01688 EXIT. DTSBX417 +01689 DTSBX417 +01690 P2100-PROCESS-SORT. DTSBX417 +01691 * DISPLAY 'BX420 P2100 FIRST SORT-EMP-NO ' SORT-EMP-NO CL*38 +01692 * ' ' SORT-DATA (1:14). CL*38 +01693 RETURN SORT-FILE DTSBX417 +01694 AT END DTSBX417 +01695 SET SORT-EOF-88 TO TRUE DTSBX417 +01696 GO TO P2100-EXIT DTSBX417 +01697 END-RETURN. DTSBX417 +01698 DTSBX417 +01699 * DISPLAY 'BX420 P2100 SORT-REC ' SORT-KEY ' ' CL*68 +01700 * SORT-DATA (1:14). CL*68 +01701 DTSBX417 +01702 MOVE SORT-DATA TO LX42-DATA-AREA. DTSBX417 +01703 IF SORT-EMP-NO = 999999 DTSBX417 +01704 IF SORT-BATCH = W-PSEUDO-BATCH-NO DTSBX417 +01705 * DISPLAY 'BX420 NEW BATCH 999999 PROCESS' CL*53 +01706 SET LX42-PROCESS-88 TO TRUE DTSBX417 +01707 PERFORM P3000-PROCESS THRU P3000-EXIT DTSBX417 +01708 ELSE DTSBX417 +01709 MOVE SORT-BATCH TO W-PSEUDO-BATCH-NO DTSBX417 +01710 * DISPLAY 'BX420 NEW BATCH ' CL*53 +01711 ** PERFORM P2120-NEW-BATCH THRU P2120-EXIT DTSBX417 +01712 SET LX42-PROCESS-88 TO TRUE DTSBX417 +01713 SET LX42-ERROR-NO-88 TO TRUE DTSBX417 +01714 SET LX42-RPT-ERROR-NO-88 TO TRUE CL*29 +01715 ** DISPLAY 'BX420 NEW BATCH 888888 PROCESS' CL*13 +01716 PERFORM P3000-PROCESS THRU P3000-EXIT DTSBX417 +01717 END-IF DTSBX417 +01718 ELSE CL*19 +01719 IF SORT-EMP-NO = W-EMP-NO AND SORT-PAY-QTR = W-PAY-QTR CL*57 +01720 * DISPLAY 'BX420 SORT-EMP-NO = W-EMP-NO ' CL*53 +01721 SET LX42-PROCESS-88 TO TRUE DTSBX417 +01722 PERFORM P3000-PROCESS THRU P3000-EXIT DTSBX417 +01723 ELSE DTSBX417 +01724 * DISPLAY 'BX420 SORT-EMP-NO < W-EMP-NO ' CL*53 +01725 MOVE SORT-EMP-NO TO W-EMP-NO DTSBX417 +01726 MOVE SORT-PAY-QTR TO W-PAY-QTR CL*57 +01727 PERFORM P2110-NEW-EMP THRU P2110-EXIT DTSBX417 +01728 SET LX42-PROCESS-88 TO TRUE DTSBX417 +01729 SET LX42-ERROR-NO-88 TO TRUE DTSBX417 +01730 SET LX42-RPT-ERROR-NO-88 TO TRUE CL*29 +01731 PERFORM P3000-PROCESS THRU P3000-EXIT DTSBX417 +01732 END-IF DTSBX417 +01733 END-IF. DTSBX417 +01734 DTSBX417 +01735 P2100-EXIT. DTSBX417 +01736 EXIT. DTSBX417 +01737 DTSBX417 +01738 P2110-NEW-EMP. DTSBX417 +01739 DTSBX417 +01740 DISPLAY 'BX420 >>>>>>>> NEW-EMP ' LX42-DATA-AREA (1:20). CL*11 +01741 DTSBX417 +01742 SET LX42-NEW-EMPLOYER-88 TO TRUE. DTSBX417 +01743 MOVE ZERO TO LX42-LAST-DETERM-EMP. DTSBX417 +01744 DTSBX417 +01745 ** PERFORM S421-REGISTRATION THRU S421-EXIT. CL*66 +01746 PERFORM S422-REPORT-WAGES THRU S422-EXIT. CL*63 +01747 PERFORM S423-PAYMENTS THRU S423-EXIT. CL*63 +01748 ** PERFORM S424-PROFILE THRU S424-EXIT. CL*66 +01749 DTSBX417 +01750 P2110-EXIT. DTSBX417 +01751 EXIT. DTSBX417 +01752 DTSBX417 +01753 P2120-NEW-BATCH. DTSBX417 +01754 *& DTSBX417 +01755 * DISPLAY 'BX420 P2120 NEW BATCH ' LX42-PSEUDO-BATCH-NO DTSBX417 +01756 * ' ' LX42-DATA-AREA (1:20). DTSBX417 +01757 *& DTSBX417 +01758 SET LX42-NEW-BATCH-88 TO TRUE. DTSBX417 +01759 DTSBX417 +01760 * PERFORM S426-HEADER THRU S426-EXIT. DTSBX417 +01761 * IF LX42-BATCH-ERR-YES-88 DTSBX417 +01762 * SET LX42-BATCH-ERROR-88 TO TRUE DTSBX417 +01763 * END-IF. DTSBX417 +01764 PERFORM S422-REPORT-WAGES THRU S422-EXIT. CL*63 +01765 PERFORM S423-PAYMENTS THRU S423-EXIT. CL*63 +01766 DTSBX417 +01767 MOVE W-PSEUDO-BATCH-NO TO LX42-PSEUDO-BATCH-NO. DTSBX417 +01768 MOVE ZERO TO LX42-RPT-CNT DTSBX417 +01769 LX42-RPT-REMIT-AMT DTSBX417 +01770 LX42-PAY-CNT DTSBX417 +01771 LX42-PAY-REMIT-AMT. DTSBX417 +01772 SET LX42-BATCH-ERR-NO-88 TO TRUE. DTSBX417 +01773 DTSBX417 +01774 P2120-EXIT. DTSBX417 +01775 EXIT. DTSBX417 +01776 DTSBX417 +01777 P3000-PROCESS. DTSBX417 +01778 *& DTSBX417 +01779 *& DTSBX417 +01780 **************************************************************** DTSBX417 +01781 * LX42-LAST-DETERM-EMP IS SET WHEN PROCESSING A DETERMINATION. DTSBX417 +01782 * THE EMPLOYER ACCOUNT NUMBER IS PASSED THROUGH THIS FIELD DTSBX417 +01783 * TO DTSBX422, WHICH PROCESSES REPORTS. IT IS USED DTSBX417 +01784 * TO DETERMINE WHEN TO WAIVE P & I. THE WAIVER IS AUTOMATIC DTSBX417 +01785 * FOR REPORTS WITHIN THE LAST 5 QUARTERS SUBMITTED ALONG DTSBX417 +01786 * WITH A WEB REGISTRATION. DTSBX417 +01787 **************************************************************** DTSBX417 +01788 DTSBX417 +01789 EVALUATE TRUE DTSBX417 +01790 * WHEN LX42-REC-TYPE-PRF-88 CL*66 +01791 * ADD +1 TO W-102-IMP-CNT CL*66 +01792 * PERFORM S421-REGISTRATION THRU S421-EXIT CL*66 +01793 CL**9 +01794 * WHEN LX42-REC-TYPE-DETERM-88 CL*66 +01795 * ADD +1 TO W-104-IMP-CNT CL*66 +01796 * MOVE W-EMP-NO CL*66 +01797 * TO LX42-LAST-DETERM-EMP CL*66 +01798 * PERFORM S421-REGISTRATION THRU S421-EXIT CL*66 +01799 CL**9 +01800 * WHEN LX42-REC-TYPE-RATE-88 CL*66 +01801 * ADD +1 TO W-108-IMP-CNT CL*66 +01802 * PERFORM S421-REGISTRATION THRU S421-EXIT CL*66 +01803 CL**9 +01804 * WHEN LX42-REC-TYPE-NAME-88 CL*66 +01805 * ADD +1 TO W-106-IMP-CNT CL*66 +01806 * PERFORM S421-REGISTRATION THRU S421-EXIT CL*66 +01807 CL**9 +01808 * WHEN LX42-REC-TYPE-REL-88 CL**9 +01809 * PERFORM S421-REGISTRATION THRU S421-EXIT CL**9 +01810 DTSBX417 +01811 WHEN LX42-REC-TYPE-RPT-88 DTSBX417 +01812 ADD +1 TO W-140-IMP-CNT CL*38 +01813 *** PERFORM P3100-BATCH-NO THRU P3100-EXIT DTSBX417 +01814 PERFORM S422-REPORT-WAGES THRU S422-EXIT CL*64 +01815 CL**9 +01816 WHEN LX42-REC-TYPE-WAGE-88 DTSBX417 +01817 ADD +1 TO W-144-IMP-CNT CL*38 +01818 PERFORM S422-REPORT-WAGES THRU S422-EXIT CL*64 +01819 DTSBX417 +01820 * WHEN LX42-REC-TYPE-BHDR-88 CL**9 +01821 * PERFORM S426-HEADER THRU S426-EXIT CL**9 +01822 DTSBX417 +01823 WHEN LX42-REC-TYPE-PAY-88 DTSBX417 +01824 ADD +1 TO W-145-IMP-CNT CL*38 +01825 PERFORM S423-PAYMENTS THRU S423-EXIT CL*64 +01826 DTSBX417 +01827 * WHEN LX42-REC-TYPE-ADDR-88 CL*66 +01828 * ADD +1 TO W-110-IMP-CNT CL*66 +01829 * PERFORM S424-PROFILE THRU S424-EXIT CL*66 +01830 CL**9 +01831 * WHEN LX42-REC-TYPE-OPO-88 CL*66 +01832 * ADD +1 TO W-120-IMP-CNT CL*66 +01833 * PERFORM S424-PROFILE THRU S424-EXIT CL*66 +01834 DTSBX417 +01835 END-EVALUATE. DTSBX417 +01836 DTSBX417 +01837 P3000-EXIT. DTSBX417 +01838 EXIT. DTSBX417 +01839 DTSBX417 +01840 P3100-BATCH-NO. DTSBX417 +01841 *& IF W-PSEUDO-ITEM-NO < 999 DTSBX417 +01842 * ADD 1 TO W-PSEUDO-ITEM-NO DTSBX417 +01843 * ELSE DTSBX417 +01844 * ADD 1 TO W-PSEUDO-BATCH-NO DTSBX417 +01845 * MOVE 1 TO W-PSEUDO-ITEM-NO DTSBX417 +01846 * END-IF. DTSBX417 +01847 * DTSBX417 +01848 * MOVE W-PSEUDO-BATCH-NO TO LX42-PSEUDO-BATCH-NO. DTSBX417 +01849 *& MOVE W-PSEUDO-ITEM-NO TO LX42-PSEUDO-ITEM-NO. DTSBX417 +01850 DTSBX417 +01851 P3100-EXIT. DTSBX417 +01852 EXIT. DTSBX417 +01853 DTSBX417 +01854 DTSBX417 +01855 T0000-TERMINATE. DTSBX417 +01856 PERFORM T1000-FINAL-CALLS THRU T1000-EXIT. DTSBX417 +01857 DTSBX417 +01858 *** PERFORM T1100-UPDATE-CURR-BATCH THRU T1100-EXIT. DTSBX417 +01859 DTSBX417 +01860 DISPLAY ' '. DTSBX417 +01861 DTSBX417 +01862 DISPLAY '*** DTSBX420 TERMINATION STATISTICS ***'. DTSBX417 +01863 DTSBX417 +01864 DISPLAY '***************************************'. CL*30 +01865 DISPLAY '*** WEB/ESSP IMPORT DRIVER COUNTS ***'. CL*38 +01866 DISPLAY '*** ***'. CL*30 +01867 DISPLAY 'TOTAL INPUT RECORDS READ: ' W-WEB-IMP-CNT. CL*38 +01868 DISPLAY ' X102 RECORDS READ: ' W-102-IMP-CNT. CL*38 +01869 DISPLAY ' X104 RECORDS READ: ' W-104-IMP-CNT. CL*38 +01870 DISPLAY ' X106 RECORDS READ: ' W-106-IMP-CNT. CL*38 +01871 DISPLAY ' X108 RECORDS READ: ' W-108-IMP-CNT. CL*38 +01872 DISPLAY ' X110 RECORDS READ: ' W-110-IMP-CNT. CL*38 +01873 DISPLAY ' X120 RECORDS READ: ' W-120-IMP-CNT. CL*38 +01874 DISPLAY ' X140 RECORDS READ: ' W-140-IMP-CNT. CL*38 +01875 DISPLAY ' X144 RECORDS READ: ' W-144-IMP-CNT. CL*38 +01876 DISPLAY ' X145 RECORDS READ: ' W-145-IMP-CNT. CL*38 +01877 DISPLAY ' ' CL*38 +01878 DISPLAY '*** ***'. CL*30 +01879 DISPLAY '*********** END OF RUN ****************'. CL*38 +01880 DTSBX417 +01881 CLOSE WEB-IMP-FILE. DTSBX417 +01882 *** CURR-BATCH-NO. DTSBX417 +01883 *** TEMP-BTC-FILE. DTSBX417 +01884 DTSBX417 +01885 PERFORM S910-CLOSE THRU S910-EXIT. DTSBX417 +01886 PERFORM S921-CLOSE THRU S921-EXIT. DTSBX417 +01887 PERFORM S923-CLOSE THRU S923-EXIT. DTSBX417 +01888 PERFORM S931-CLOSE THRU S931-EXIT. DTSBX417 +01889 * PERFORM S927C-CLOSE THRU S927C-EXIT. CL*44 +01890 DTSBX417 +01891 T0000-EXIT. DTSBX417 +01892 EXIT. DTSBX417 +01893 DTSBX417 +01894 T1000-FINAL-CALLS. DTSBX417 +01895 *& DTSBX417 +01896 DISPLAY 'BX420 T1000 ' LX42-DATA-AREA (1:20). CL**7 +01897 *& DTSBX417 +01898 SET LX42-TERMINATE-88 TO TRUE. DTSBX417 +01899 MOVE LOW-VALUES TO LX42-DATA-AREA. DTSBX417 +01900 DTSBX417 +01901 ** PERFORM S421-REGISTRATION THRU S421-EXIT. CL*66 +01902 ** PERFORM S426-HEADER THRU S426-EXIT. DTSBX417 +01903 PERFORM S422-REPORT-WAGES THRU S422-EXIT. CL*63 +01904 PERFORM S423-PAYMENTS THRU S423-EXIT. CL*63 +01905 ** PERFORM S424-PROFILE THRU S424-EXIT. CL*66 +01906 DTSBX417 +01907 T1000-EXIT. DTSBX417 +01908 EXIT. DTSBX417 +01909 DTSBX417 +01910 *T1100-UPDATE-CURR-BATCH. DTSBX417 +01911 * MOVE W-PSEUDO-BATCH-NO TO CURRENT-BATCH-NO DTSBX417 +01912 * W-END-BATCH. DTSBX417 +01913 * MOVE W-PSEUDO-ITEM-NO TO CURRENT-ITEM-NO. DTSBX417 +01914 * DISPLAY 'REWRITING CURRENT BATCH ' DTSBX417 +01915 * W-PSEUDO-BATCH-NO '/' W-PSEUDO-ITEM-NO DTSBX417 +01916 * REWRITE CURR-BATCH-NO-REC. DTSBX417 +01917 * IF BATCH-STATUS-OK-88 DTSBX417 +01918 * NEXT SENTENCE DTSBX417 +01919 * ELSE DTSBX417 +01920 * DISPLAY 'T1100 - CANNOT REWRITE BATCH NUMBER FILE ' DTSBX417 +01921 * BATCH-STATUS DTSBX417 +01922 * END-IF. DTSBX417 +01923 * DTSBX417 +01924 *T1100-EXIT. DTSBX417 +01925 * EXIT. DTSBX417 +01926 DTSBX417 +01927 S001-FROM-FED-8. DTSBX417 +01928 SET L001-FROM-FED-8 TO TRUE. DTSBX417 +01929 GO TO S001-DATE. DTSBX417 +01930 DTSBX417 +01931 S001-FROM-CAL-8. DTSBX417 +01932 SET L001-FROM-CAL-8 TO TRUE. DTSBX417 +01933 GO TO S001-DATE. DTSBX417 +01934 DTSBX417 +01935 S001-FROM-ABS-DAY. DTSBX417 +01936 SET L001-FROM-ABS-DAY TO TRUE. DTSBX417 +01937 GO TO S001-DATE. DTSBX417 +01938 DTSBX417 +01939 S001-DATE. DTSBX417 +01940 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBX417 +01941 S001-EXIT. DTSBX417 +01942 EXIT. DTSBX417 +01943 DTSBX417 +01944 S003-AGENCY-DAY. DTSBX417 +01945 SET L003-AGENCY-DAY TO TRUE. DTSBX417 +01946 GO TO S003-WORK-DAY. DTSBX417 +01947 DTSBX417 +01948 S003-WORK-DAY. DTSBX417 +01949 CALL 'DTSBU003' USING L003-LINK-AREA. DTSBX417 +01950 S003-EXIT. DTSBX417 +01951 EXIT. DTSBX417 +01952 DTSBX417 +01953 S004-FROM-5. DTSBX417 +01954 SET L004-FROM-5 TO TRUE. DTSBX417 +01955 GO TO S004-YRQ. DTSBX417 +01956 DTSBX417 +01957 S004-FROM-DATE. DTSBX417 +01958 SET L004-FROM-DATE TO TRUE. DTSBX417 +01959 GO TO S004-YRQ. DTSBX417 +01960 DTSBX417 +01961 S004-FROM-ABS. DTSBX417 +01962 SET L004-FROM-ABS TO TRUE. DTSBX417 +01963 GO TO S004-YRQ. DTSBX417 +01964 DTSBX417 +01965 S004-YRQ. DTSBX417 +01966 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBX417 +01967 DTSBX417 +01968 S004-EXIT. DTSBX417 +01969 EXIT. DTSBX417 +01970 DTSBX417 +01971 S005-FROM-SYS. DTSBX417 +01972 SET L005-FROM-SYS TO TRUE. DTSBX417 +01973 GO TO S005-ABSTIME. DTSBX417 +01974 DTSBX417 +01975 S005-ABSTIME. DTSBX417 +01976 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX417 +01977 S005-EXIT. DTSBX417 +01978 EXIT. DTSBX417 +01979 DTSBX417 +01980 S421-REGISTRATION. DTSBX417 +01981 DISPLAY 'CALL S421-REGISTRATION'. CL**8 +01982 CALL 'DTSBX421' USING LX42-LINK-AREA. DTSBX417 +01983 S421-EXIT. DTSBX417 +01984 EXIT. DTSBX417 +01985 DTSBX417 +01986 S422-REPORT-WAGES. CL*63 +01987 DISPLAY 'CALL S422-REPORTS- WAGES '. CL*63 +01988 CALL 'DTSBX430' USING LX42-LINK-AREA. CL*23 +01989 S422-EXIT. DTSBX417 +01990 EXIT. DTSBX417 +01991 DTSBX417 +01992 S423-PAYMENTS. CL*63 +01993 * DISPLAY 'CALL S423-RPT-WAGES'. CL*59 +01994 CALL 'DTSBX530' USING LX42-LINK-AREA. CL*63 +01995 S423-EXIT. CL*63 +01996 EXIT. CL*63 +01997 DTSBX417 +01998 S424-PROFILE. DTSBX417 +01999 DISPLAY 'CALL S424-PROFILE' CL**8 +02000 ** DISPLAY 'LINK AREA ' LX42-LINK-AREA DTSBX417 +02001 CALL 'DTSBX424' USING LX42-LINK-AREA. DTSBX417 +02002 S424-EXIT. DTSBX417 +02003 EXIT. DTSBX417 +02004 DTSBX417 +02005 *S426-HEADER. CL*65 +02006 * CALL 'DTSBX426' USING LX42-LINK-AREA. CL*65 +02007 *S426-EXIT. CL*65 +02008 EXIT. DTSBX417 +02009 DTSBX417 +02010 DTSBX417 +02011 S910-OPEN-READ. DTSBX417 +02012 SET L910-OPEN-READ-88 TO TRUE. DTSBX417 +02013 GO TO S910-MSTR-IO. DTSBX417 +02014 DTSBX417 +02015 S910-OPEN-UPDATE. DTSBX417 +02016 SET L910-OPEN-UPDATE-88 TO TRUE. DTSBX417 +02017 GO TO S910-MSTR-IO. DTSBX417 +02018 DTSBX417 +02019 S910-READ. DTSBX417 +02020 SET L910-READ-88 TO TRUE. DTSBX417 +02021 GO TO S910-MSTR-IO. DTSBX417 +02022 DTSBX417 +02023 S910-START-BROWSE. DTSBX417 +02024 SET L910-START-BROWSE-88 TO TRUE. DTSBX417 +02025 GO TO S910-MSTR-IO. DTSBX417 +02026 DTSBX417 +02027 S910-READ-NEXT. DTSBX417 +02028 SET L910-READ-NEXT-88 TO TRUE. DTSBX417 +02029 GO TO S910-MSTR-IO. DTSBX417 +02030 DTSBX417 +02031 S910-CLOSE. DTSBX417 +02032 SET L910-CLOSE-88 TO TRUE. DTSBX417 +02033 GO TO S910-MSTR-IO. DTSBX417 +02034 DTSBX417 +02035 S910-MSTR-IO. DTSBX417 +02036 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX417 +02037 MSKL-REC. DTSBX417 +02038 S910-EXIT. DTSBX417 +02039 EXIT. DTSBX417 +02040 DTSBX417 +02041 S921-OPEN-READ. DTSBX417 +02042 SET L921-OPEN-READ-88 TO TRUE. DTSBX417 +02043 GO TO S921-AIX-IO. DTSBX417 +02044 DTSBX417 +02045 S921-READ. DTSBX417 +02046 SET L921-READ-88 TO TRUE. DTSBX417 +02047 GO TO S921-AIX-IO. DTSBX417 +02048 DTSBX417 +02049 S921-START-BROWSE. DTSBX417 +02050 SET L921-START-BROWSE-88 TO TRUE. DTSBX417 +02051 GO TO S921-AIX-IO. DTSBX417 +02052 DTSBX417 +02053 S921-READ-NEXT. DTSBX417 +02054 SET L921-READ-NEXT-88 TO TRUE. DTSBX417 +02055 GO TO S921-AIX-IO. DTSBX417 +02056 DTSBX417 +02057 S921-CLOSE. DTSBX417 +02058 SET L921-CLOSE-88 TO TRUE. DTSBX417 +02059 GO TO S921-AIX-IO. DTSBX417 +02060 DTSBX417 +02061 S921-AIX-IO. DTSBX417 +02062 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX417 +02063 ISKL-REC. DTSBX417 +02064 S921-EXIT. DTSBX417 +02065 EXIT. DTSBX417 +02066 DTSBX417 +02067 S923-OPEN-UPDATE. DTSBX417 +02068 SET L923-OPEN-UPDATE-88 TO TRUE. DTSBX417 +02069 GO TO S923-ATC-CALL. DTSBX417 +02070 DTSBX417 +02071 S923-OPEN-READ. DTSBX417 +02072 SET L923-OPEN-READ-88 TO TRUE. DTSBX417 +02073 GO TO S923-ATC-CALL. DTSBX417 +02074 DTSBX417 +02075 S923-WRITE. DTSBX417 +02076 SET L923-WRITE-88 TO TRUE. DTSBX417 +02077 GO TO S923-ATC-CALL. DTSBX417 +02078 DTSBX417 +02079 S923-CLOSE. DTSBX417 +02080 SET L923-CLOSE-88 TO TRUE. DTSBX417 +02081 GO TO S923-ATC-CALL. DTSBX417 +02082 DTSBX417 +02083 S923-ATC-CALL. DTSBX417 +02084 CALL 'DTSBU923' USING L923-LINK-AREA DTSBX417 +02085 ASKL-REC. DTSBX417 +02086 S923-EXIT. DTSBX417 +02087 EXIT. DTSBX417 +02088 DTSBX417 +02089 S927A-OPEN. DTSBX417 +02090 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX417 +02091 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX417 +02092 DTSBX417 +02093 S927A-EXIT. DTSBX417 +02094 EXIT. DTSBX417 +02095 DTSBX417 +02096 S927C-CLOSE. DTSBX417 +02097 SET L927-CLOSE-88 TO TRUE. DTSBX417 +02098 PERFORM S927Z-IO THRU S927Z-EXIT. DTSBX417 +02099 DTSBX417 +02100 S927C-EXIT. DTSBX417 +02101 EXIT. DTSBX417 +02102 DTSBX417 +02103 S927Z-IO. DTSBX417 +02104 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX417 +02105 TSKL-REC. DTSBX417 +02106 S927Z-EXIT. DTSBX417 +02107 EXIT. DTSBX417 +02108 DTSBX417 +02109 S931-OPEN-READ. DTSBX417 +02110 SET L931-OPEN-READ-88 TO TRUE. DTSBX417 +02111 GO TO S931-REF-IO. DTSBX417 +02112 DTSBX417 +02113 S931-CLOSE. DTSBX417 +02114 SET L931-CLOSE-88 TO TRUE. DTSBX417 +02115 GO TO S931-REF-IO. DTSBX417 +02116 DTSBX417 +02117 S931-REF-IO. DTSBX417 +02118 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX417 +02119 FSKL-REC. DTSBX417 +02120 S931-EXIT. DTSBX417 +02121 EXIT. DTSBX417 +02122 DTSBX417 +02123 S1000-READ-WEB-IMP. DTSBX417 +02124 READ WEB-IMP-FILE. DTSBX417 +02125 IF WEB-IMP-STATUS-OK-88 DTSBX417 +02126 ADD +1 TO W-WEB-IMP-CNT DTSBX417 +02127 ELSE DTSBX417 +02128 IF WEB-IMP-STATUS-EOF-88 DTSBX417 +02129 DISPLAY 'ENE OF WEB-IMP-FILE ' WEB-IMP-STATUS CL**3 +02130 ELSE DTSBX417 +02131 DISPLAY 'CANNOT READ WEB-IMP-FILE ' WEB-IMP-STATUS DTSBX417 +02132 SET W-ERROR-YES-88 TO TRUE DTSBX417 +02133 END-IF DTSBX417 +02134 END-IF. DTSBX417 +02135 DTSBX417 +02136 * DISPLAY 'S1000-READ WEB ' WEB-IMP-TYPE ' ' WEB-IMP-EMP-NO. CL*12 +02137 DTSBX417 +02138 S1000-EXIT. DTSBX417 +02139 EXIT. DTSBX417 +02140 DTSBX417 +02141 S999-ABEND. DTSBX417 +02142 CALL 'DTSBU999' USING W-ABEND-CD. DTSBX417 +02143 S999-EXIT. DTSBX417 +02144 EXIT. DTSBX417 +02145 DTSBX417 diff --git a/Batch/GENT350.cob b/Batch/GENT350.cob index 76ee7ac..5d70dd9 100644 --- a/Batch/GENT350.cob +++ b/Batch/GENT350.cob @@ -20,5 +20,4 @@ MOVE ALL "0" TO WS-DATA. WRITE OUT-REC. CLOSE LBL1OUT. - STOP RUN. - \ No newline at end of file + STOP RUN. \ No newline at end of file diff --git a/Copybook/DTSHX145.TXT b/Copybook/DTSHX145.TXT new file mode 100644 index 0000000..5fc2658 --- /dev/null +++ b/Copybook/DTSHX145.TXT @@ -0,0 +1,41 @@ +00001 ***** 04/04/18 +00002 * DTSHX145 +00003 * DTSIX145 EMPLOYER PAYMENT EXTRACT RECORD LV008 +00004 * DTSHX145 +00005 * EXCHANGES EMPLOYER PAYMENT DATA BETWEEN MAINFRAME AND DTSHX145 +00006 * SQL SERVER DATABASE. DTSHX145 +00007 * DTSHX145 +00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSHX145 +00009 * LEVEL-88 FOR PAYMENTS FROM IN-HOUSE CASHIERING, DTSHX145 +00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSHX145 +00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSHX145 +00012 * DTSHX145 +00013 * 11/17/2010 CHANGED LENGTH OF SOURCE TO ONE BYTE. ADDED DTSHX145 +00014 * X145-TO-WEB-88 FOR DATA SENT TO THE WEB DTSHX145 +00015 * DATABASE FROM THE MAINFRAME. GD DTSHX145 +00016 ***** DTSHX145 +00017 DTSHX145 +00018 15 H145-REC-TYPE PIC X(03) VALUE '145'. CL**7 +00019 15 FILLER PIC X(01) VALUE ','. DTSHX145 +00020 15 H145-EMP-NO PIC 9(06). CL**7 +00021 15 FILLER PIC X(01) VALUE ','. DTSHX145 +00022 15 H145-QTR PIC X(06). CL**7 +00023 15 FILLER PIC X(01) VALUE ','. DTSHX145 +00024 15 FILLER PIC X(06). CL**3 +00025 15 FILLER PIC X(01) VALUE ','. CL**3 +00026 15 FILLER PIC X(03). CL**5 +00027 15 FILLER PIC X(01) VALUE ','. CL**3 +00028 15 FILLER PIC X(02). CL**3 +00029 15 FILLER PIC X(01) VALUE ','. CL**3 +00030 15 FILLER PIC X(02). CL**3 +00031 15 FILLER PIC X(01) VALUE ','. CL**3 +00032 15 FILLER PIC X(02). CL**3 +00033 15 FILLER PIC X(01) VALUE ','. CL**3 +00034 15 H145-REMITTANCE PIC 9(11).99. CL**8 +00035 15 FILLER PIC X(01) VALUE ','. DTSHX145 +00036 15 H145-RECV-DATE PIC X(10). CL**7 +00037 15 FILLER PIC X(01) VALUE ','. CL**3 +00038 15 FILLER PIC X(10). CL**3 +00039 15 FILLER PIC X(01) VALUE ','. CL**3 +00040 15 H145-TRACE-NO PIC X(08). CL**7 +00041 15 FILLER PIC X(429). CL**5 diff --git a/Copybook/DTSIL415.cpy b/Copybook/DTSIL415.cpy index 3f0d195..402d7ab 100644 --- a/Copybook/DTSIL415.cpy +++ b/Copybook/DTSIL415.cpy @@ -1,6 +1,6 @@ -00001 ***** 04/09/13 +00001 ***** 07/17/03 00002 * DTSIL415 -00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV002 +00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV005 00004 * MODULE LINKAGE. DTSIL415 00005 * DTSIL415 00006 * THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSIL415 @@ -48,7 +48,7 @@ 00048 PIC S9(05) COMP-3. DTSIL415 00049 15 L415-UC30H-FIRST-DEL-END-YRQ DTSIL415 00050 PIC S9(05) COMP-3. DTSIL415 -00051 15 L415-UC30H-ESTIMATED-DATE CL**2 +00051 15 L415-UC30H-FINAL-DEL-DATE DTSIL415 00052 PIC S9(09) COMP-3. DTSIL415 00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415 00054 PIC S9(05) COMP-3. DTSIL415 diff --git a/Copybook/DTSIMQTR.cpy b/Copybook/DTSIMQTR.cpy index 3b2c67a..c412e28 100644 --- a/Copybook/DTSIMQTR.cpy +++ b/Copybook/DTSIMQTR.cpy @@ -1,6 +1,6 @@ -00001 ***** 12/09/04 +00001 ***** 11/08/12 00002 * DTSIMQTR -00003 * DTSIMQTR MASTER FILE 'QUARTER FINANCIAL SUMMARY' LV018 +00003 * DTSIMQTR MASTER FILE 'QUARTER FINANCIAL SUMMARY' LV006 00004 * RECORD DEFINITION. DTSIMQTR 00005 * DTSIMQTR 00006 * DTSIMQTR @@ -16,205 +16,218 @@ 00016 * SET TO NULL IF THERE IS NO REPORT ON FIDTSIMQTR 00017 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSIMQTR 00018 * DTSIMQTR -00019 * 04/44/2004 ADDED MQTR-CMP-ESTB-ABSTIME WHICH DTSIMQTR +00019 * 04/04/2004 ADDED MQTR-CMP-ESTB-ABSTIME WHICH CL**6 00020 * ACTS AS A FOREIGN KEY LINKING THE DTSIMQTR 00021 * QUARTER TO A COMPROMISE SETTLEMENT (MCMDTSIMQTR 00022 * IN WHICH THE QUARTER IS INCLUDED. DTSIMQTR 00023 * REFERENCE: COMPROMISE PROGRAMMER: GD DTSIMQTR 00024 * DTSIMQTR -00025 * DTSIMQTR -00026 ***** DTSIMQTR -00027 DTSIMQTR -00028 10 MQTR-KEY-AREA. DTSIMQTR -00029 15 MQTR-EMP-NO PIC S9(07) COMP-3. DTSIMQTR -00030 15 MQTR-REC-TYPE PIC S9(04) COMP. DTSIMQTR -00031 88 MQTR-QTR-88 VALUE +41. DTSIMQTR -00032 15 MQTR-YRQ PIC S9(05) COMP-3. DTSIMQTR -00033 88 MQTR-PICKUP-YRQ-88 VALUE +19924. DTSIMQTR -00034 15 MQTR-KEY-FILLER PIC X(07). DTSIMQTR -00035 DTSIMQTR -00036 DTSIMQTR -00037 10 MQTR-PURGE-DATE PIC S9(09) COMP-3. DTSIMQTR -00038 DTSIMQTR +00025 * 11/08/2012 ADDED THE VALUE MQTR-CURR-CLMT-WAGE-88 CL**6 +00026 * TO THE MQTR-CURR-RPT-TYPE FIELD. THIS CL**6 +00027 * VALUE IS SET ONLY WHEN A CLAIMANT WAGE CL**6 +00028 * REPORT IS THE FIRST REPORT FILED FOR CL**6 +00029 * THE QUARTER. THE CURRENT REPORT TYPE CL**6 +00030 * DOES NOT CHANGE WHEN CLAIMANT WAGE CL**6 +00031 * REPORTS ARE POSTED AFTER ONE OR MORE CL**6 +00032 * EMPLOYER REPORTS ARE ON FILE. CL**6 +00033 * THE REPORT IS NOT CONSIDERED 'RECEIVED' CL**6 +00034 * IF A ONLY CLAIMANT WAGE REPORT IS ON FI CL**6 +00035 * REFERENCE: PROGRAMMER: GD CL**6 +00036 * CL**6 +00037 * DTSIMQTR +00038 ***** DTSIMQTR 00039 DTSIMQTR -00040 10 MQTR-DATA-AREA. DTSIMQTR -00041 15 MQTR-CURR-RPT-TYPE PIC X(01). DTSIMQTR -00042 88 MQTR-CURR-NOT-LIABLE-88 VALUE 'N'. DTSIMQTR -00043 88 MQTR-CURR-NOT-DUE-88 VALUE 'L'. DTSIMQTR -00044 88 MQTR-CURR-DELINQ-88 VALUE 'D'. DTSIMQTR -00045 88 MQTR-CURR-PICKUP-88 VALUE 'P'. DTSIMQTR -00046 88 MQTR-CURR-ESTIM-88 VALUE 'E'. DTSIMQTR -00047 88 MQTR-CURR-ORIG-88 VALUE 'O'. DTSIMQTR -00048 88 MQTR-CURR-ORIG-ANN-NL-88 VALUE 'H'. DTSIMQTR -00049 88 MQTR-CURR-AMEND-88 VALUE 'M'. DTSIMQTR -00050 88 MQTR-CURR-AUDIT-88 VALUE 'A'. DTSIMQTR -00051 88 MQTR-CURR-ADMIN-88 VALUE 'C'. DTSIMQTR -00052 88 MQTR-CURR-FIELD-88 VALUE 'F'. DTSIMQTR -00053 88 MQTR-CURR-RCVD-88 VALUE 'O' 'M' 'A' DTSIMQTR -00054 'C' 'F' 'H'. DTSIMQTR -00055 88 MQTR-CURR-MISSING-88 VALUE 'D' 'E'. DTSIMQTR -00056 DTSIMQTR -00057 15 MQTR-PURSUED-RPT-IND PIC X(01). DTSIMQTR -00058 88 MQTR-RPT-IS-PURSUED-88 VALUE 'Y'. DTSIMQTR -00059 88 MQTR-RPT-NOT-PURSUED-88 VALUE 'N'. DTSIMQTR -00060 DTSIMQTR -00061 15 MQTR-MISS-RPT-CUTOFF-CD PIC X(01). DTSIMQTR -00062 88 MQTR-MISS-NOT-LIABLE-88 VALUE '0'. DTSIMQTR -00063 88 MQTR-MISS-TIMELY-88 VALUE '1'. DTSIMQTR -00064 88 MQTR-MISS-UNTIMELY-88 VALUE '2'. DTSIMQTR -00065 88 MQTR-MISS-NO-LTR-EXT-88 VALUE '3'. DTSIMQTR -00066 88 MQTR-MISS-NO-LTR-ADDR-88 VALUE '4'. DTSIMQTR -00067 88 MQTR-MISS-NO-LTR-OTHER-88 VALUE '8'. DTSIMQTR -00068 88 MQTR-MISS-LETTER-SENT-88 VALUE '9'. DTSIMQTR -00069 88 MQTR-MISS-NO-LTR-88 VALUE '3' '4' '8'. DTSIMQTR -00070 88 MQTR-MISS-CONVERSION-88 VALUE 'C'. DTSIMQTR -00071 88 MQTR-MISS-NOT-YET-RUN-88 VALUE 'Z'. DTSIMQTR -00072 DTSIMQTR +00040 10 MQTR-KEY-AREA. DTSIMQTR +00041 15 MQTR-EMP-NO PIC S9(07) COMP-3. DTSIMQTR +00042 15 MQTR-REC-TYPE PIC S9(04) COMP. DTSIMQTR +00043 88 MQTR-QTR-88 VALUE +41. DTSIMQTR +00044 15 MQTR-YRQ PIC S9(05) COMP-3. DTSIMQTR +00045 88 MQTR-PICKUP-YRQ-88 VALUE +19924. DTSIMQTR +00046 15 MQTR-KEY-FILLER PIC X(07). DTSIMQTR +00047 DTSIMQTR +00048 DTSIMQTR +00049 10 MQTR-PURGE-DATE PIC S9(09) COMP-3. DTSIMQTR +00050 DTSIMQTR +00051 DTSIMQTR +00052 10 MQTR-DATA-AREA. DTSIMQTR +00053 15 MQTR-CURR-RPT-TYPE PIC X(01). DTSIMQTR +00054 88 MQTR-CURR-NOT-LIABLE-88 VALUE 'N'. DTSIMQTR +00055 88 MQTR-CURR-NOT-DUE-88 VALUE 'L'. DTSIMQTR +00056 88 MQTR-CURR-DELINQ-88 VALUE 'D'. DTSIMQTR +00057 88 MQTR-CURR-PICKUP-88 VALUE 'P'. DTSIMQTR +00058 88 MQTR-CURR-ESTIM-88 VALUE 'E'. DTSIMQTR +00059 88 MQTR-CURR-ORIG-88 VALUE 'O'. DTSIMQTR +00060 88 MQTR-CURR-ORIG-ANN-NL-88 VALUE 'H'. DTSIMQTR +00061 88 MQTR-CURR-AMEND-88 VALUE 'M'. DTSIMQTR +00062 88 MQTR-CURR-AUDIT-88 VALUE 'A'. DTSIMQTR +00063 88 MQTR-CURR-ADMIN-88 VALUE 'C'. DTSIMQTR +00064 88 MQTR-CURR-FIELD-88 VALUE 'F'. DTSIMQTR +00065 88 MQTR-CURR-CLMT-WAGE-88 VALUE 'B'. CL**6 +00066 88 MQTR-CURR-RCVD-88 VALUE 'O' 'M' 'A' DTSIMQTR +00067 'C' 'F' 'H'. CL**5 +00068 88 MQTR-CURR-MISSING-88 VALUE 'D' 'E'. CL**3 +00069 DTSIMQTR +00070 15 MQTR-PURSUED-RPT-IND PIC X(01). DTSIMQTR +00071 88 MQTR-RPT-IS-PURSUED-88 VALUE 'Y'. DTSIMQTR +00072 88 MQTR-RPT-NOT-PURSUED-88 VALUE 'N'. DTSIMQTR 00073 DTSIMQTR -00074 15 MQTR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR -00075 88 MQTR-NO-UI-RATE-88 VALUE -9.9999. DTSIMQTR -00076 DTSIMQTR -00077 DTSIMQTR -00078 15 MQTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR -00079 DTSIMQTR -00080 15 MQTR-TAX-DUE-DATE-IND PIC X(01). DTSIMQTR -00081 88 MQTR-TAX-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR -00082 88 MQTR-TAX-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR -00083 DTSIMQTR -00084 DTSIMQTR -00085 15 MQTR-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR +00074 15 MQTR-MISS-RPT-CUTOFF-CD PIC X(01). DTSIMQTR +00075 88 MQTR-MISS-NOT-LIABLE-88 VALUE '0'. DTSIMQTR +00076 88 MQTR-MISS-TIMELY-88 VALUE '1'. DTSIMQTR +00077 88 MQTR-MISS-UNTIMELY-88 VALUE '2'. DTSIMQTR +00078 88 MQTR-MISS-NO-LTR-EXT-88 VALUE '3'. DTSIMQTR +00079 88 MQTR-MISS-NO-LTR-ADDR-88 VALUE '4'. DTSIMQTR +00080 88 MQTR-MISS-NO-LTR-OTHER-88 VALUE '8'. DTSIMQTR +00081 88 MQTR-MISS-LETTER-SENT-88 VALUE '9'. DTSIMQTR +00082 88 MQTR-MISS-NO-LTR-88 VALUE '3' '4' '8'. DTSIMQTR +00083 88 MQTR-MISS-CONVERSION-88 VALUE 'C'. DTSIMQTR +00084 88 MQTR-MISS-NOT-YET-RUN-88 VALUE 'Z'. DTSIMQTR +00085 DTSIMQTR 00086 DTSIMQTR -00087 15 MQTR-RPT-DUE-DATE-IND PIC X(01). DTSIMQTR -00088 88 MQTR-RPT-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR -00089 88 MQTR-RPT-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR +00087 15 MQTR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR +00088 88 MQTR-NO-UI-RATE-88 VALUE -9.9999. DTSIMQTR +00089 DTSIMQTR 00090 DTSIMQTR -00091 DTSIMQTR -00092 15 MQTR-WAGE-DATA. DTSIMQTR -00093 20 MQTR-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR -00094 20 MQTR-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR -00095 20 MQTR-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR -00096 20 MQTR-WAGE-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR +00091 15 MQTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR +00092 DTSIMQTR +00093 15 MQTR-TAX-DUE-DATE-IND PIC X(01). DTSIMQTR +00094 88 MQTR-TAX-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR +00095 88 MQTR-TAX-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR +00096 DTSIMQTR 00097 DTSIMQTR -00098 DTSIMQTR -00099 15 MQTR-INT-AREA. DTSIMQTR -00100 20 MQTR-INT-CHARGE-IND PIC X(01). DTSIMQTR -00101 88 MQTR-INT-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR -00102 88 MQTR-INT-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR +00098 15 MQTR-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR +00099 DTSIMQTR +00100 15 MQTR-RPT-DUE-DATE-IND PIC X(01). DTSIMQTR +00101 88 MQTR-RPT-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR +00102 88 MQTR-RPT-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR 00103 DTSIMQTR -00104 20 MQTR-INT-SPAN-AREA. DTSIMQTR -00105 25 MQTR-INT-CNT PIC S9(04) COMP. DTSIMQTR -00106 25 MQTR-INT-SPAN OCCURS 2 TIMES DTSIMQTR -00107 INDEXED BY MQTR-INT-IDX. DTSIMQTR -00108 30 MQTR-INT-START-DATE DTSIMQTR -00109 PIC S9(09) COMP-3. DTSIMQTR -00110 30 MQTR-INT-END-DATE DTSIMQTR -00111 PIC S9(09) COMP-3. DTSIMQTR -00112 30 MQTR-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR -00113 DTSIMQTR -00114 20 MQTR-WAIVE-INT-SPAN. DTSIMQTR -00115 25 MQTR-WAIVE-INT-START-DATE DTSIMQTR -00116 PIC S9(09) COMP-3. DTSIMQTR -00117 25 MQTR-WAIVE-INT-END-DATE DTSIMQTR -00118 PIC S9(09) COMP-3. DTSIMQTR -00119 DTSIMQTR -00120 DTSIMQTR -00121 15 MQTR-PEN-AREA. DTSIMQTR -00122 20 MQTR-PEN-CHARGE-IND PIC X(01). DTSIMQTR -00123 88 MQTR-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR -00124 88 MQTR-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR -00125 DTSIMQTR -00126 20 MQTR-WAIVE-PEN-SPAN. DTSIMQTR -00127 25 MQTR-WAIVE-PEN-START-DATE DTSIMQTR -00128 PIC S9(09) COMP-3. DTSIMQTR -00129 25 MQTR-WAIVE-PEN-END-DATE DTSIMQTR -00130 PIC S9(09) COMP-3. DTSIMQTR -00131 DTSIMQTR +00104 DTSIMQTR +00105 15 MQTR-WAGE-DATA. DTSIMQTR +00106 20 MQTR-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR +00107 20 MQTR-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR +00108 20 MQTR-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR +00109 20 MQTR-WAGE-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR +00110 DTSIMQTR +00111 DTSIMQTR +00112 15 MQTR-INT-AREA. DTSIMQTR +00113 20 MQTR-INT-CHARGE-IND PIC X(01). DTSIMQTR +00114 88 MQTR-INT-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR +00115 88 MQTR-INT-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR +00116 DTSIMQTR +00117 20 MQTR-INT-SPAN-AREA. DTSIMQTR +00118 25 MQTR-INT-CNT PIC S9(04) COMP. DTSIMQTR +00119 25 MQTR-INT-SPAN OCCURS 2 TIMES DTSIMQTR +00120 INDEXED BY MQTR-INT-IDX. DTSIMQTR +00121 30 MQTR-INT-START-DATE DTSIMQTR +00122 PIC S9(09) COMP-3. DTSIMQTR +00123 30 MQTR-INT-END-DATE DTSIMQTR +00124 PIC S9(09) COMP-3. DTSIMQTR +00125 30 MQTR-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR +00126 DTSIMQTR +00127 20 MQTR-WAIVE-INT-SPAN. DTSIMQTR +00128 25 MQTR-WAIVE-INT-START-DATE DTSIMQTR +00129 PIC S9(09) COMP-3. DTSIMQTR +00130 25 MQTR-WAIVE-INT-END-DATE DTSIMQTR +00131 PIC S9(09) COMP-3. DTSIMQTR 00132 DTSIMQTR -00133 15 MQTR-WAGE-RPT-IND PIC X(01). DTSIMQTR -00134 88 MQTR-WAGE-RPT-NO-88 VALUE 'N'. DTSIMQTR -00135 88 MQTR-WAGE-RPT-YES-88 VALUE 'Y'. DTSIMQTR -00136 DTSIMQTR -00137 DTSIMQTR -00138 15 MQTR-EMPL-DATA. DTSIMQTR -00139 20 MQTR-1ST-MTH-EMPL-CNT DTSIMQTR -00140 PIC S9(07) COMP-3. DTSIMQTR -00141 88 MQTR-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR -00142 20 MQTR-2ND-MTH-EMPL-CNT DTSIMQTR -00143 PIC S9(07) COMP-3. DTSIMQTR -00144 88 MQTR-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR -00145 20 MQTR-3RD-MTH-EMPL-CNT DTSIMQTR -00146 PIC S9(07) COMP-3. DTSIMQTR -00147 88 MQTR-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR -00148 20 MQTR-EMPL-CNT-CHNG-DATE DTSIMQTR -00149 PIC S9(09) COMP-3. DTSIMQTR +00133 DTSIMQTR +00134 15 MQTR-PEN-AREA. DTSIMQTR +00135 20 MQTR-PEN-CHARGE-IND PIC X(01). DTSIMQTR +00136 88 MQTR-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR +00137 88 MQTR-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR +00138 DTSIMQTR +00139 20 MQTR-WAIVE-PEN-SPAN. DTSIMQTR +00140 25 MQTR-WAIVE-PEN-START-DATE DTSIMQTR +00141 PIC S9(09) COMP-3. DTSIMQTR +00142 25 MQTR-WAIVE-PEN-END-DATE DTSIMQTR +00143 PIC S9(09) COMP-3. DTSIMQTR +00144 DTSIMQTR +00145 DTSIMQTR +00146 15 MQTR-WAGE-RPT-IND PIC X(01). DTSIMQTR +00147 88 MQTR-WAGE-RPT-NO-88 VALUE 'N'. DTSIMQTR +00148 88 MQTR-WAGE-RPT-YES-88 VALUE 'Y'. DTSIMQTR +00149 DTSIMQTR 00150 DTSIMQTR -00151 DTSIMQTR -00152 15 MQTR-COLL-PROMPT-DUE-AMT DTSIMQTR -00153 PIC S9(09)V9(02) COMP-3. DTSIMQTR -00154 DTSIMQTR -00155 DTSIMQTR -00156 15 MQTR-ETA581-DATA. DTSIMQTR -00157 20 MQTR-ETA581-OVR15MNTH-RPT-CNT DTSIMQTR -00158 PIC S9(04) COMP. DTSIMQTR -00159 DTSIMQTR -00160 20 MQTR-ETA581-OVR15MNTH-RPT-YRQ DTSIMQTR -00161 OCCURS 2 TIMES DTSIMQTR -00162 INDEXED BY MQTR-ETA581-IDX DTSIMQTR -00163 PIC S9(05) COMP-3. DTSIMQTR +00151 15 MQTR-EMPL-DATA. DTSIMQTR +00152 20 MQTR-1ST-MTH-EMPL-CNT DTSIMQTR +00153 PIC S9(07) COMP-3. DTSIMQTR +00154 88 MQTR-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR +00155 20 MQTR-2ND-MTH-EMPL-CNT DTSIMQTR +00156 PIC S9(07) COMP-3. DTSIMQTR +00157 88 MQTR-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR +00158 20 MQTR-3RD-MTH-EMPL-CNT DTSIMQTR +00159 PIC S9(07) COMP-3. DTSIMQTR +00160 88 MQTR-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR +00161 20 MQTR-EMPL-CNT-CHNG-DATE DTSIMQTR +00162 PIC S9(09) COMP-3. DTSIMQTR +00163 DTSIMQTR 00164 DTSIMQTR -00165 20 MQTR-ETA581-REMOVED-IND DTSIMQTR -00166 PIC X(01). DTSIMQTR -00167 88 MQTR-ETA581-REMOVED-NO-88 VALUE 'N'. DTSIMQTR -00168 88 MQTR-ETA581-REMOVED-YES-88 VALUE 'Y'. DTSIMQTR -00169 DTSIMQTR -00170 20 MQTR-ETA581-UNCOLLECT-IND DTSIMQTR -00171 PIC X(01). DTSIMQTR -00172 88 MQTR-ETA581-UNCOLLECT-NO-88 VALUE 'N'. DTSIMQTR -00173 88 MQTR-ETA581-UNCOLLECT-YES-88 VALUE 'Y'. DTSIMQTR -00174 DTSIMQTR -00175 15 MQTR-ANNUAL-IND PIC X(01). DTSIMQTR -00176 88 MQTR-ANNUAL-YES-88 VALUE 'Y'. DTSIMQTR -00177 88 MQTR-ANNUAL-NO-88 VALUE 'N'. DTSIMQTR -00178 88 MQTR-ANNUAL-NULL-88 VALUE ' '. DTSIMQTR -00179 DTSIMQTR -00180 15 MQTR-R317-SENT-IND PIC X(01). DTSIMQTR -00181 88 MQTR-R317-SENT-YES-88 VALUE 'Y'. DTSIMQTR -00182 88 MQTR-R317-SENT-NO-88 VALUE 'N'. DTSIMQTR -00183 DTSIMQTR -00184 15 MQTR-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMQTR -00185 DTSIMQTR -00186 15 FILLER PIC X(38). DTSIMQTR +00165 15 MQTR-COLL-PROMPT-DUE-AMT DTSIMQTR +00166 PIC S9(09)V9(02) COMP-3. DTSIMQTR +00167 DTSIMQTR +00168 DTSIMQTR +00169 15 MQTR-ETA581-DATA. DTSIMQTR +00170 20 MQTR-ETA581-OVR15MNTH-RPT-CNT DTSIMQTR +00171 PIC S9(04) COMP. DTSIMQTR +00172 DTSIMQTR +00173 20 MQTR-ETA581-OVR15MNTH-RPT-YRQ DTSIMQTR +00174 OCCURS 2 TIMES DTSIMQTR +00175 INDEXED BY MQTR-ETA581-IDX DTSIMQTR +00176 PIC S9(05) COMP-3. DTSIMQTR +00177 DTSIMQTR +00178 20 MQTR-ETA581-REMOVED-IND DTSIMQTR +00179 PIC X(01). DTSIMQTR +00180 88 MQTR-ETA581-REMOVED-NO-88 VALUE 'N'. DTSIMQTR +00181 88 MQTR-ETA581-REMOVED-YES-88 VALUE 'Y'. DTSIMQTR +00182 DTSIMQTR +00183 20 MQTR-ETA581-UNCOLLECT-IND DTSIMQTR +00184 PIC X(01). DTSIMQTR +00185 88 MQTR-ETA581-UNCOLLECT-NO-88 VALUE 'N'. DTSIMQTR +00186 88 MQTR-ETA581-UNCOLLECT-YES-88 VALUE 'Y'. DTSIMQTR 00187 DTSIMQTR -00188 DTSIMQTR -00189 15 MQTR-CONVERTED-IND PIC X(01). DTSIMQTR -00190 88 MQTR-CONVERTED-88 VALUE 'Y'. DTSIMQTR -00191 88 MQTR-NOT-CONVERTED-88 VALUE 'N'. DTSIMQTR +00188 15 MQTR-ANNUAL-IND PIC X(01). DTSIMQTR +00189 88 MQTR-ANNUAL-YES-88 VALUE 'Y'. DTSIMQTR +00190 88 MQTR-ANNUAL-NO-88 VALUE 'N'. DTSIMQTR +00191 88 MQTR-ANNUAL-NULL-88 VALUE ' '. DTSIMQTR 00192 DTSIMQTR -00193 DTSIMQTR -00194 15 MQTR-ESTB-DATE PIC S9(09) COMP-3. DTSIMQTR -00195 DTSIMQTR -00196 15 MQTR-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR -00197 DTSIMQTR +00193 15 MQTR-R317-SENT-IND PIC X(01). DTSIMQTR +00194 88 MQTR-R317-SENT-YES-88 VALUE 'Y'. DTSIMQTR +00195 88 MQTR-R317-SENT-NO-88 VALUE 'N'. DTSIMQTR +00196 DTSIMQTR +00197 15 MQTR-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMQTR 00198 DTSIMQTR -00199 15 MQTR-ACCT-CNT PIC S9(04) COMP. DTSIMQTR +00199 15 FILLER PIC X(38). DTSIMQTR 00200 DTSIMQTR -00201 15 MQTR-ACCT-AREA. DTSIMQTR -00202 20 MQTR-ACCT-GROUP OCCURS 10 TIMES DTSIMQTR -00203 INDEXED BY MQTR-ACCT-IDX. DTSIMQTR -00204 25 MQTR-ACCT-IND PIC X(02). DTSIMQTR -00205 88 MQTR-ACCT-UI-88 VALUE 'UI'. DTSIMQTR -00206 88 MQTR-ACCT-SUR-88 VALUE 'SU'. DTSIMQTR -00207 88 MQTR-ACCT-INT-88 VALUE 'I '. DTSIMQTR -00208 88 MQTR-ACCT-LATE-PEN-88 VALUE 'LP'. DTSIMQTR -00209 88 MQTR-ACCT-NSF-PEN-88 VALUE 'NP'. DTSIMQTR -00210 88 MQTR-ACCT-MISC-PEN-88 VALUE 'MP'. DTSIMQTR -00211 88 MQTR-ACCT-TAX-88 VALUE DTSIMQTR -00212 'UI' 'SU'. DTSIMQTR +00201 DTSIMQTR +00202 15 MQTR-CONVERTED-IND PIC X(01). DTSIMQTR +00203 88 MQTR-CONVERTED-88 VALUE 'Y'. DTSIMQTR +00204 88 MQTR-NOT-CONVERTED-88 VALUE 'N'. DTSIMQTR +00205 DTSIMQTR +00206 DTSIMQTR +00207 15 MQTR-ESTB-DATE PIC S9(09) COMP-3. DTSIMQTR +00208 DTSIMQTR +00209 15 MQTR-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR +00210 DTSIMQTR +00211 DTSIMQTR +00212 15 MQTR-ACCT-CNT PIC S9(04) COMP. DTSIMQTR 00213 DTSIMQTR -00214 25 MQTR-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR -00215 25 MQTR-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR -00216 25 MQTR-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR -00217 25 MQTR-WRITTEN-OFF-AMT DTSIMQTR -00218 PIC S9(09)V9(02) COMP-3.DTSIMQTR -00219 25 MQTR-TOLER-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR -00220 25 MQTR-BALANCE-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR +00214 15 MQTR-ACCT-AREA. DTSIMQTR +00215 20 MQTR-ACCT-GROUP OCCURS 10 TIMES DTSIMQTR +00216 INDEXED BY MQTR-ACCT-IDX. DTSIMQTR +00217 25 MQTR-ACCT-IND PIC X(02). DTSIMQTR +00218 88 MQTR-ACCT-UI-88 VALUE 'UI'. DTSIMQTR +00219 88 MQTR-ACCT-SUR-88 VALUE 'SU'. DTSIMQTR +00220 88 MQTR-ACCT-INT-88 VALUE 'I '. DTSIMQTR +00221 88 MQTR-ACCT-LATE-PEN-88 VALUE 'LP'. DTSIMQTR +00222 88 MQTR-ACCT-NSF-PEN-88 VALUE 'NP'. DTSIMQTR +00223 88 MQTR-ACCT-MISC-PEN-88 VALUE 'MP'. DTSIMQTR +00224 88 MQTR-ACCT-TAX-88 VALUE DTSIMQTR +00225 'UI' 'SU'. DTSIMQTR +00226 DTSIMQTR +00227 25 MQTR-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR +00228 25 MQTR-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR +00229 25 MQTR-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR +00230 25 MQTR-WRITTEN-OFF-AMT DTSIMQTR +00231 PIC S9(09)V9(02) COMP-3.DTSIMQTR +00232 25 MQTR-TOLER-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR +00233 25 MQTR-BALANCE-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR diff --git a/Copybook/DTSIP007.cpy b/Copybook/DTSIP007.cpy index 826c6d6..ff3806e 100644 --- a/Copybook/DTSIP007.cpy +++ b/Copybook/DTSIP007.cpy @@ -10,8 +10,8 @@ 00010 * CL**2 00011 ***** DTSIP007 00012 CL**2 -00013 S7000-IO-DATA-TO-WRK-DATA. DTSIP007 - DISPLAY 'MIO-COMPRESSION-IND:' MIO-COMPRESSION-IND. DTSIP007 +00013 S7000-IO-DATA-TO-WRK-DATA. + *** SET MIO-COMPRESS-NO-88 TO TRUE. DTSIP007 00014 IF MIO-COMPRESS-NO-88 DTSIP007 00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007 00016 ELSE DTSIP007 diff --git a/Copybook/DTSIR316.cpy b/Copybook/DTSIR316.cpy index e7cbc3c..a2abde9 100644 --- a/Copybook/DTSIR316.cpy +++ b/Copybook/DTSIR316.cpy @@ -1,34 +1,34 @@ -00001 ***** 03/20/99 +00001 ***** 05/03/13 00002 * DTSIR316 -00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV008 -00004 * REPORT RECORDS. CL**6 -00005 * CL**6 -00006 * CL**2 -00007 * 12/18/1998 CREATED FOR DC. EHH. CL**5 -00008 * CL**2 +00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV002 +00004 * REPORT RECORDS. DTSIR316 +00005 * DTSIR316 +00006 * DTSIR316 +00007 * 12/18/1998 CREATED FOR DC. EHH. DTSIR316 +00008 * DTSIR316 00009 ***** DTSIR316 -00010 CL**2 -00011 10 R316-LENGTH PIC S9(04) COMP. CL**5 -00012 CL**2 -00013 10 R316-SORT-AREA. CL**5 -00014 15 R316-REC-TYPE PIC X(03). CL**7 -00015 15 R316-EMP-NO PIC S9(07) COMP-3. CL**5 -00016 15 R316-YRQ PIC S9(05) COMP-3. CL**5 -00017 CL**2 -00018 10 R316-DATA-AREA. CL**5 -00019 15 R316-EMP-CLASS PIC X(01). CL**8 -00020 88 R316-CLASS-RATED-88 VALUE 'R'. CL**8 -00021 88 R316-CLASS-SELF-INS-88 VALUE 'S'. CL**8 -00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. CL**5 -00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8 -00024 15 R316-SUR-TAX-CHARGED-AMT CL**8 -00025 PIC S9(09)V9(02) COMP-3. CL**8 -00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8 -00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8 -00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3. CL**8 -00029 15 R316-FMT-ADDR. CL**5 -00030 20 R316-FMT-LINE OCCURS 5 TIMES CL**5 -00031 INDEXED BY R316-FMT-IDX CL**5 +00010 DTSIR316 +00011 10 R316-LENGTH PIC S9(04) COMP. DTSIR316 +00012 DTSIR316 +00013 10 R316-SORT-AREA. DTSIR316 +00014 15 R316-REC-TYPE PIC X(03). DTSIR316 +00015 15 R316-EMP-NO PIC S9(07) COMP-3. DTSIR316 +00016 15 R316-YRQ PIC S9(05) COMP-3. DTSIR316 +00017 DTSIR316 +00018 10 R316-DATA-AREA. DTSIR316 +00019 15 R316-EMP-FILING PIC X(01). CL**2 +00020 88 R316-QTR-FILING-88 VALUE 'Q'. CL**2 +00021 88 R316-ANN-FILING-88 VALUE 'A'. CL**2 +00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. DTSIR316 +00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316 +00024 15 R316-SUR-TAX-CHARGED-AMT DTSIR316 +00025 PIC S9(09)V9(02) COMP-3.DTSIR316 +00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316 +00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316 +00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3.DTSIR316 +00029 15 R316-FMT-ADDR. DTSIR316 +00030 20 R316-FMT-LINE OCCURS 5 TIMES DTSIR316 +00031 INDEXED BY R316-FMT-IDX DTSIR316 00032 PIC X(40). DTSIR316 -00033 15 R316-ZIP PIC X(10). CL**5 -00034 15 R316-ADVANCED-BARCODE PIC X(14). CL**5 +00033 15 R316-ZIP PIC X(10). DTSIR316 +00034 15 R316-ADVANCED-BARCODE PIC X(14). DTSIR316 diff --git a/Copybook/DTSIS82.cpy b/Copybook/DTSIS82.cpy index 3bac413..066c055 100644 --- a/Copybook/DTSIS82.cpy +++ b/Copybook/DTSIS82.cpy @@ -1,6 +1,6 @@ -00001 ***** 08/14/25 +00001 ***** 04/13/17 00002 * DTSIS82 -00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005 +00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004 00004 * DTSIS82 00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82 00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82 @@ -139,19 +139,19 @@ 00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82 00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82 00141 SKIP1 DTSIS82 -00142 * 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**5 -00143 * 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**5 -00144 * 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**5 -00145 * 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**5 -00146 * 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**5 -00147 * 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**5 -00148 * 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**5 -00149 * 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**5 -00150 * 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**5 -00151 * 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**5 -00152 * 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**5 -00153 * 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**5 -00154 * 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**5 +00142 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**3 +00143 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**2 +00144 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**2 +00145 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**2 +00146 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**2 +00147 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**2 +00148 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**2 +00149 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**2 +00150 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**2 +00151 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**2 +00152 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**2 +00153 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**2 +00154 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**2 00155 SKIP1 DTSIS82 00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82 00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82 diff --git a/Copybook/DTSIS89.cpy b/Copybook/DTSIS89.cpy index 38b6ce4..760407c 100644 --- a/Copybook/DTSIS89.cpy +++ b/Copybook/DTSIS89.cpy @@ -1,6 +1,6 @@ -00001 ***** 04/09/13 +00001 ***** 11/11/02 00002 * DTSIS89 -00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV003 +00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV001 00004 * DTSIS89 00005 ***** DTSIS89 00006 SKIP1 DTSIS89 @@ -88,33 +88,33 @@ 00088 20 MAP-UC30H-FIRST-DEL-YY-A PIC X(01). DTSIS89 00089 20 MAP-UC30H-FIRST-DEL-YY PIC X(02). DTSIS89 00090 SKIP1 DTSIS89 -00091 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89 -00092 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89 -00093 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89 -00094 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89 -00095 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89 -00096 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89 -00097 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89 -00098 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89 -00099 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89 -00100 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89 -00101 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89 -00102 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89 -00103 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89 -00104 SKIP1 CL**2 -00105 10 MAP-UC30H-ESTIMATED-DATE-AREA. CL**3 -00106 15 MAP-UC30H-ESTIMATED-MM-AREA. CL**3 -00107 20 MAP-UC30H-ESTIMATED-MM-L PIC S9(04) COMP. CL**3 -00108 20 MAP-UC30H-ESTIMATED-MM-A PIC X(01). CL**3 -00109 20 MAP-UC30H-ESTIMATED-MM PIC X(02). CL**3 -00110 15 MAP-UC30H-ESTIMATED-DD-AREA. CL**3 -00111 20 MAP-UC30H-ESTIMATED-DD-L PIC S9(04) COMP. CL**3 -00112 20 MAP-UC30H-ESTIMATED-DD-A PIC X(01). CL**3 -00113 20 MAP-UC30H-ESTIMATED-DD PIC X(02). CL**3 -00114 15 MAP-UC30H-ESTIMATED-YY-AREA. CL**3 -00115 20 MAP-UC30H-ESTIMATED-YY-L PIC S9(04) COMP. CL**3 -00116 20 MAP-UC30H-ESTIMATED-YY-A PIC X(01). CL**3 -00117 20 MAP-UC30H-ESTIMATED-YY PIC X(02). CL**3 +00091 10 MAP-UC30H-FINAL-DEL-DATE-AREA. DTSIS89 +00092 15 MAP-UC30H-FINAL-DEL-MM-AREA. DTSIS89 +00093 20 MAP-UC30H-FINAL-DEL-MM-L PIC S9(04) COMP. DTSIS89 +00094 20 MAP-UC30H-FINAL-DEL-MM-A PIC X(01). DTSIS89 +00095 20 MAP-UC30H-FINAL-DEL-MM PIC X(02). DTSIS89 +00096 15 MAP-UC30H-FINAL-DEL-DD-AREA. DTSIS89 +00097 20 MAP-UC30H-FINAL-DEL-DD-L PIC S9(04) COMP. DTSIS89 +00098 20 MAP-UC30H-FINAL-DEL-DD-A PIC X(01). DTSIS89 +00099 20 MAP-UC30H-FINAL-DEL-DD PIC X(02). DTSIS89 +00100 15 MAP-UC30H-FINAL-DEL-YY-AREA. DTSIS89 +00101 20 MAP-UC30H-FINAL-DEL-YY-L PIC S9(04) COMP. DTSIS89 +00102 20 MAP-UC30H-FINAL-DEL-YY-A PIC X(01). DTSIS89 +00103 20 MAP-UC30H-FINAL-DEL-YY PIC X(02). DTSIS89 +00104 SKIP1 DTSIS89 +00105 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89 +00106 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89 +00107 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89 +00108 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89 +00109 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89 +00110 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89 +00111 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89 +00112 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89 +00113 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89 +00114 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89 +00115 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89 +00116 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89 +00117 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89 00118 SKIP1 DTSIS89 00119 10 MAP-ESTB-DATE-AREA. DTSIS89 00120 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS89 diff --git a/Copybook/DTSIWWGH.cpy b/Copybook/DTSIWWGH.cpy index 19b6194..cbbe607 100644 --- a/Copybook/DTSIWWGH.cpy +++ b/Copybook/DTSIWWGH.cpy @@ -21,4 +21,4 @@ 00021 DTSIWWGH 00022 10 WWGH-DATA-AREA. DTSIWWGH 00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH -00024 * 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2 +00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2 diff --git a/JCL/DTSBX303.jcl b/JCL/DTSBX303.jcl index 8ce0fa9..34007ab 100644 --- a/JCL/DTSBX303.jcl +++ b/JCL/DTSBX303.jcl @@ -24,7 +24,8 @@ // DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500) //* //****************************************************************** -//* | +//* RAINCODE TESTED 08/20/25 ZL1 r +//****************************************************************** //* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2) //**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30 | //****************************************************************** diff --git a/JCL/DTSFRAUD.jcl b/JCL/DTSFRAUD.jcl index 0f69cda..4fdc165 100644 --- a/JCL/DTSFRAUD.jcl +++ b/JCL/DTSFRAUD.jcl @@ -9,7 +9,7 @@ //PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //* 00001700 -//STEP0100 EXEC PGM=DESBD473, // VERIFY EMP REGISTRTION DATE +//STEP0100 EXEC PGM=DESBD473, VERIFY EMP REGISTRTION DATE // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* @@ -21,29 +21,41 @@ //DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) +//**** +//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR +//* DISP=(NEW,CATLG,DELETE), +//* SPACE=(8192,(100,200),RLSE), +//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** -//DTSFP140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR //DTSFR140 DD DSN=DOESTAX.CONV.FRAUD.X140RPT,DISP=SHR -//********************************************************************* -//STEP0200 EXEC PGM=DESBD474, // SELECT FRAUD WAGES FROM X144 +//* DISP=(,CATLG,DELETE), +//* SPACE=(8192,(100,200),RLSE), +//* CODEPAGE=1252,AUTOENCODE=YES, +//* DCB=(RECFM=LSEQ,LRECL=161,BLKSIZE=1610) +//* +//STEP0200 EXEC PGM=DESBD474, // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSABEND DD SYSOUT=* //DTSFMSTR INCLUDE MEMBER=DTSIMSTR -//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X140(+1),DISP=SHR +//DTSFF140 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X140,DISP=SHR //DTSFX144 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR // DD DSN=DOESTAX.CONV.FROMESSP.FRAUD144.RELEASE,DISP=SHR //DTSFF144 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X144(+1), // DISP=(,CATLG,DELETE), // SPACE=(CYL,(100,50),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** //DTSFP144 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X144,DISP=SHR -//********************************************************************* -//STEP0300 EXEC PGM=DESBD475, // SELECT FRAUD WAGES FROM X147 +//* DISP=(,CATLG,DELETE), +//* SPACE=(8192,(100,200),RLSE), +//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) +//* +//********************************* +//STEP0300 EXEC PGM=DESBD475, SELECT FRAUD WAGES FROM X147 // COND=(0,LT), // REGION=0M //SYSOUT DD SYSOUT=* @@ -56,10 +68,14 @@ //DTSFF147 DD DSN=DOESTAX.CONV.FROMESSP.FRAUD.X147(+1), // DISP=(,CATLG,DELETE), // SPACE=(8192,(100,200),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) //**** -//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR -//********************************************************************* +//DTSFP147 DD DSN=DOESTAX.CONV.FROMESSP.PASSED.X147,DISP=SHR +//* DISP=(,CATLG,DELETE), +//* SPACE=(8192,(100,200),RLSE), +//* DCB=(,RECFM=FB,LRECL=512,BLKSIZE=5120) +//**** +//*********************************** //EMAIL EXEC PGM=IEBGENER, // COND=(0,LT), // REGION=4M @@ -149,3 +165,4 @@ // DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR //* +// diff --git a/JCL/DTSGCHKS.jcl b/JCL/DTSGCHKS.jcl index a0ac01f..2c410ec 100644 --- a/JCL/DTSGCHKS.jcl +++ b/JCL/DTSGCHKS.jcl @@ -14,7 +14,7 @@ //*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. //******************************************************************** //**`**** CHANGE PARM QTR TO CURRENT QUARTER ******** -// SET CURRQTR='Q2018Q3' +// SET CURRQTR='Q2018Q4' // SET LVLNODE='CONV' // SET MSTNODE='PROD' // SET PRGNODE='CONV' @@ -44,27 +44,31 @@ //********************************************************************* //******************************************************************** //* -//TDECFTP EXEC PGM=FTP,COND=(0,LT) -//SYSPRINT DD SYSOUT=* -//OUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 +//*TDECFTP EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 //**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRECK),DISP=SHR //*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTECK),DISP=SHR -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDCK),DISP=SHR //* //******************************************************************** //**** DECRYPT TDEC CHECKS FILE INTO TEXTOUT //******************************************************************** //* -//DECRYPT EXEC SECPDEC,COND=(0,LT) +//*DECRYPT EXEC SECPDEC,COND=(0,LT) //*ECRYPT EXEC SECODEC,COND=(0,LT) -//DATAIN DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR -//DATAOUT DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1), +//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR +//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1), // DISP=(,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** //* //******************************************************************** //*** COPY TDEC DAILY CHECKS FILE TO BBACKUP FILE. @@ -77,7 +81,7 @@ //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** @@ -90,9 +94,9 @@ //** //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.&CURRQTR., //* DISP=(NEW,CATLG,DELETE), -// DISP=MOD, +// DISP=MOD, // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** @@ -101,33 +105,33 @@ //IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR //** //OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS, -//* DISP=(NEW,CATLG,DELETE), +//* DISP=(NEW,CATLG,DELETE), //* DISP=MOD, // DISP=SHR, // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** //******************************************************************** //**** DELETE TDEC ENCRYPTED CHECK FILE //******************************************************************** -//TDECDEL EXEC PGM=FTP,COND=(0,LT) -//SYSPRINT DD SYSOUT=* -//OUTOUT DD SYSOUT=* -//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 -//SYSGET DD *,DCB=BLKSIZE=80 +//*TDECDEL EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 //**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRCHK),DISP=SHR //*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDECHK),DISP=SHR -//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR //***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR //* -//STEP0200 EXEC DTSBXCHK +//STEP0200 EXEC DTSZXCHK //* //STEP0300 EXEC DTSRSESP //*** //* REPORT GENERATION -//STEP0400 EXEC DTSRERPT +//STEP0400 EXEC DTSRERPZ //STEP0100.RPT140R1 DD HOLD=YES //STEP0100.RPT140R2 DD HOLD=YES //STEP0100.RPT907R1 DD HOLD=YES diff --git a/JCL/DTSGZCHD.jcl b/JCL/DTSGZCHD.jcl new file mode 100644 index 0000000..e73cc3a --- /dev/null +++ b/JCL/DTSGZCHD.jcl @@ -0,0 +1,93 @@ +//DTSGACHD JOB (UI,4300,03410,P),'recv-ACH-DEBIT-WF',REGION=4000K, +// USER=#DOADTS, +// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1 +/*ROUTE PRINT U@PRT65 +//* +// SET LVLNODE='CONV' +// SET MSTNODE='PROD' +// SET IMPNODE='CONV' +// SET PRGNODE='CONV' +// SET LVDHOLD='YES' +//* +//PROCLIB JCLLIB ORDER=DOESTAX.&MSTNODE..PROCLIB +//LOADLIBS INCLUDE MEMBER=DTSIELIB +//** +//**** GET ESSP ACH PAYMENTS FROM WELLS FARGO USING FTPS ON THE +//**** MAINFRAME. THIS JOB WILL RUN DAILY AT 9:00 AM +//**** 1/30/15 ZL1 +//******************************************************************* +//****************** production files only ************ +//******************************************************************* +//**** +//*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY. +//**** +//*** THIS JOB WILL USE FTPS (FTP WITH SSL CERT) TO TRANSMIT FILE. +//**** +//*** ALL WELLS FARGO CERT ARE INSTALLED ON DOES LPARS 0S19 & OS16 +//******************************************************************** +//*----------------------------------------------------- +//* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS +//*----------------------------------------------------- +//*STEPWF EXEC PGM=FTP, +//* PARM='-r TLS safetrans.wellsfargo.com' +//** PARM='-Sftp=TRUE 10.57.110.160' +//*ENVVAR DD * +//* CLIENT=sftp +//* SFTP_AUTH=3 +/* +//*SFTPAUTH DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) +//*SFTPAUTH DD * +//* machine 10.57.110.160 user dutasrc pass Today728rc! +//* +//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN) +//*NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) +//*SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT) +//* DD * +//*FWFRIENDLY TRUE +//*SYSPRINT DD SYSOUT=*,HOLD=YES +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),DISP=SHR +//* +//******************************************************************** +//*** COPY essp ach RETURNS to backup ach file. +//** +//******************************************************************** +//** +//*COPYACHP EXEC PGM=IDCAMS,COND=(0,LT) +//*IFILE DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDRETN,DISP=SHR +//** +//*OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDR.ARCHIVE(+1), +//* DISP=(NEW,CATLG,DELETE), +//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//*SYSPRINT DD SYSOUT=(*) +//*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//STEP0100 EXEC DTSZX426 +//** +//******************************************************************** +//*** send email ach returns received from wells fargo. +// +//******************************************************************** +//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), +// REGION=4M +//SYSPRINT DD SYSOUT=* +//OUT1 OUTPUT DEST=U1003, +// USERDATA=('TO:rosalind.holbrook@dc.gov', +// 'TO:aravind.vitta@sagitec.com', +// 'TO:rajini.jujjavarapu@dc.gov', +// 'TO:ZARATH.LALPUTAN@DC.GOV', +// 'TO:margaret.hernandez@dc.gov', +// 'TO:yinka.olarewaju-alo@dc.gov', +// 'TO:joy.diggs@dc.gov', +//* 'TO:macarena.cantelas@dc.gov', +// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +// 'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO', +// 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ', +// 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'), +// MAILFROM=DUTAS@DC.GOV +//SYSUT1 DD DSN=DOESTAX.CONV.ESSP.X426ACHR(+1),DISP=SHR +//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSIN DD DUMMY +//SYSUDUMP DD SYSOUT=(*,,DUMP) +//**** +//******************************************************************** diff --git a/JCL/DTSPDAY1.jcl b/JCL/DTSPDAY1.jcl index c214702..05e0640 100644 --- a/JCL/DTSPDAY1.jcl +++ b/JCL/DTSPDAY1.jcl @@ -20,7 +20,7 @@ // SET BYPASS2='000000' /* BYPASS EMPLOYER 2 // SET BYPASS3='000000' /* BYPASS EMPLOYER 3 //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP @@ -74,7 +74,7 @@ //**** //**** //STEP0075 EXEC DTSBX415 -//* /* GET EMLOYER DATA FRROM WEB +// /* GET EMLOYER DATA FRROM WEB //****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES) //**** //* /* MERGE WAGE.BTC TO BTC @@ -84,8 +84,8 @@ //******** EXEC DESOLABK //* /* STD DAILY PROC //* /* STD DAILY BEFORE DAILY BATCH -//STEP0175 EXEC DTSUTVSM, -// BKUPGEN='(+1)' +//*STEP0175 EXEC DTSUTVSM, +//* BKUPGEN='(+1)' //* /* GET CREDITS/DEBITS/REFUNDS FROM WEB //STEP0200 EXEC DTSDUPDT, //* LHOLD='NO', diff --git a/JCL/DTSPDAY7.jcl b/JCL/DTSPDAY7.jcl index e2ac90a..df51b5f 100644 --- a/JCL/DTSPDAY7.jcl +++ b/JCL/DTSPDAY7.jcl @@ -9,7 +9,7 @@ // SET LVLNODE='PROD' // SET LVDHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //* 09/30/99 - JHP @@ -23,11 +23,11 @@ //**** //* WEEKLY BACKUP IS TAKEN HERE BEFORE WEEKLY UPDATE JOB //* -//**** +//**** testing rc zl1 //* 11/9/12 CHANGED PROC FROM DTSRWVD TO DTSRWTR FOR TRMS RPTS ZL1 //* -//STEP0050 EXEC DTSUWVSM, -// BKUPGEN='(+1)' +//*STEP0050 EXEC DTSUWVSM, +//* BKUPGEN='(+1)' //* THIS RESTORE IS DONE AT WEEK-END TO //* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH) //* (OLA IS ALREADY RESET BY THE DAILY) diff --git a/JCL/DTSPODC4.jcl b/JCL/DTSPODC4.jcl index 162b48f..19497af 100644 --- a/JCL/DTSPODC4.jcl +++ b/JCL/DTSPODC4.jcl @@ -1,7 +1,7 @@ //DTSPODC4 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS, // NOTIFY=ECNTZL1 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE -//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS +//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS //********************************************************************** //* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION * //* RUNS ON DOES CA/7 * diff --git a/JCL/DTSPODC6.jcl b/JCL/DTSPODC6.jcl index d4485a4..f8f3fb7 100644 --- a/JCL/DTSPODC6.jcl +++ b/JCL/DTSPODC6.jcl @@ -1,7 +1,7 @@ //DTSPODC6 JOB (0),'CA7 DUMMY JOB',CLASS=P,MSGCLASS=X,USER=#DOADTS, // NOTIFY=ECNTZL1 /*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE -//PROCLIB JCLLIB ORDER=PROD.PROCS.BATCH.LIB BY Z/OS +//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS //********************************************************************** //* THIS JOB IS DEMANDED IN AFTER SUCCESSFULL TRANSMISSION * //* RUNS ON DOES CA/7 * diff --git a/JCL/DTSPVIEW.jcl b/JCL/DTSPVIEW.jcl index 6cc881d..912e5d8 100644 --- a/JCL/DTSPVIEW.jcl +++ b/JCL/DTSPVIEW.jcl @@ -6,7 +6,7 @@ // SET LVLNODE='PROD' // SET LVDHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //INFOPACK EXEC PGM=INFOPACR, diff --git a/JCL/DTSPX148.jcl b/JCL/DTSPX148.jcl index ce0b588..795fff9 100644 --- a/JCL/DTSPX148.jcl +++ b/JCL/DTSPX148.jcl @@ -21,7 +21,7 @@ // SET S0910='+0' //* 00001700 //* 00001700 -//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600 +//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001600 //LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600 //***************************************************************** //*** diff --git a/JCL/DTSRACHD.jcl b/JCL/DTSRACHD.jcl index 2fc2e5b..4882100 100644 --- a/JCL/DTSRACHD.jcl +++ b/JCL/DTSRACHD.jcl @@ -7,10 +7,10 @@ // SET MSTNODE='PROD' // SET IMPNODE='CONV' // SET BTCNODE='DEVL' -// SET PRGNODE='CONV' +// SET PRGNODE='PROD' // SET LVDHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB +//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //** //******************************************************************** @@ -22,7 +22,7 @@ //*** FILES COMING FROM ESSP WILL UPLOAD (FTP) TO MAINFRAME DAILY. //**** //******************************************************************** -//*** COPY essp ach payments to backup ach file. +//*** COPY essp ach payments to backup ach file. raincode testing zl1 //** //******************************************************************** //** @@ -32,7 +32,7 @@ //OFILE DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), -// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) //SYSPRINT DD SYSOUT=(*) //SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR //** diff --git a/JCL/DTSRBTCH.jcl b/JCL/DTSRBTCH.jcl index 58a26df..144c490 100644 --- a/JCL/DTSRBTCH.jcl +++ b/JCL/DTSRBTCH.jcl @@ -5,9 +5,9 @@ //**** TYPRUN=SCAN, // REGION=0M //********************************************************************** -//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH NO TESTING ZL1 +//*** COPY PROD BTC FILES TO HDVL FOR NEW BATCH raincode tESTING ZL1 //********************************************************************** -//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB +//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //* //COPY1Z EXEC PGM=IDCAMS diff --git a/JCL/DTSRDAY1.jcl b/JCL/DTSRDAY1.jcl index 1b2bae4..9dcb4ec 100644 --- a/JCL/DTSRDAY1.jcl +++ b/JCL/DTSRDAY1.jcl @@ -13,7 +13,7 @@ // SET LDEST=U@PRT65 // SET PRTHOLD='YES' //* -//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB +//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB //LOADLIBS INCLUDE MEMBER=DTSIJLIB //**** //* 09/28/99 - BROUGHT OVER TO LEXINGTON JHP diff --git a/JCL/DTSRQ320.jcl b/JCL/DTSRQ320.jcl index b8c96d8..9bd25c2 100644 --- a/JCL/DTSRQ320.jcl +++ b/JCL/DTSRQ320.jcl @@ -23,14 +23,14 @@ //LOADLIBS INCLUDE MEMBER=DTSIJLIB //* //* STD BACKUP BEFORE DATA FILE UPDATE -//*STEP0100 EXEC DTSUTVSM, -//* BKUPGEN='(+1)' +//STEP0100 EXEC DTSUTVSM, +// BKUPGEN='(+1)' //* //STEP0200 EXEC DTSUEXT3, BD400 PERIODIC EXTRACT // RUNTYPE='QP', // PREBACK='Y' //STEP0100.EXTPARM DD * -320 +320,244, //* STD BACKUP AFTER DATA FILE UPDATE //** (NOT NEEDED IF RUN IMMEDIATELY BEFORE //STEP0200 EXEC DTSRS320 diff --git a/JCL/DTSRQ513.jcl b/JCL/DTSRQ513.jcl index 96f7b48..27e7be4 100644 --- a/JCL/DTSRQ513.jcl +++ b/JCL/DTSRQ513.jcl @@ -29,12 +29,15 @@ //* //** //DTSF513 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513, -//** DISP=(NEW,CATLG,CATLG), -// DISP=(OLD,KEEP,KEEP), +// DISP=(NEW,CATLG,CATLG), +//* DISP=(OLD,KEEP,KEEP), // UNIT=SYSDA, +// CODEPAGE=1252,AUTOENCODE=YES, // SPACE=(800,(1000,1000),RLSE), -// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80) +// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=80) //* +// +// //*** SEND DATA TO SERVER FOR UPLOAD //STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE //SYSPRINT DD SYSOUT=* diff --git a/JCL/DTSZPAYT.jcl b/JCL/DTSZPAYT.jcl new file mode 100644 index 0000000..b4cfb18 --- /dev/null +++ b/JCL/DTSZPAYT.jcl @@ -0,0 +1,151 @@ +//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K, +// USER=#DOADTS, +// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1 +/*ROUTE PRINT U@PRT65 +//******************************************************************** +//**** TDEC PAYMENT FILES ARE ENCRYPTED USING PKZIP +//**** WITH OCTO DATA CENTER PUBLIC KEY. +//**** +//*** ANY QUESTIONS WITH PGP SHOULD BE DIRECTED TO SEAN DUNN +//**** +//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY. +//**** +//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY. +//**** +//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. +//******************************************************************** +//******** CHANGE QTR PARM TO CURRENT QTR ********** +// SET CURRQTR='Q2017Q4' +//* +// SET LVLNODE='CONV' +// SET MSTNODE='PROD' +// SET PRGNODE='CONV' +// SET IMPNODE='CONV' +// SET LVDHOLD='YES' +// SET EXTNODE='CONV' +// SET RPTNODE='ESSP.BX420.RPT' +//* +//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB +//LOADLIBS INCLUDE MEMBER=DTSIJLIB +//** +//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES) +//**** GET TDEC ENCRYPTED REPORT PAYMENT FILE +//******************************************************************** +//********************************************************************* +//STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE +// COND=(4,LT) GENERATION +//SYSPRINT DD SYSOUT=* +//INDD01 DD DUMMY +//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR +//********************************************************************* +//* +//********************************************************************* +//STEP0112 EXEC PGM=IDCAMS, FEEDS INTO BX530 PAYMENTS +// COND=(4,LT) GENERATION +//SYSPRINT DD SYSOUT=* +//INDD01 DD DUMMY +//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.RPTPAY(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR +//********************************************************************* +//* +//*TDECFTP EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR +//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),DISP=SHR +//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR +//* +//******************************************************************** +//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT +//******************************************************************** +//* +//*DECRYPT EXEC SECPDEC,COND=(0,LT) +//*ECRYPT EXEC SECODEC,COND=(0,LT) +//STEPCRTP EXEC PGM=IDCAMS, +// COND=(0,LT) +//INDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR +//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//******************************************************************** +//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE. +//** +//******************************************************************** +//** +//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),DISP=SHR +//* DISP=(NEW,CATLG,DELETE), +//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//******************************************************************** +//*** COPY TDEC REPORT PAYMENT FILE TO BACKUP QUARTER FILE +//** +//******************************************************************** +//** +//COPYPAYT EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT.&CURRQTR., +//* DISP=(NEW,CATLG,DELETE), +// DISP=MOD, +// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//** +//COPYFTPT EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DAILY.FTPWEB.PAYMT, +//* DISP=(NEW,CATLG,DELETE), +// DISP=SHR, +// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//* +//************************* COMMENT OUT HERE FOR NOW ZL1 ******************************************* +//**** DELETE TDEC ENCRYPTED PAYMENT FILE FROM TDEC SERVER +//******************************************************************** +//*TDECDEL EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRPAY),DISP=SHR +//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEPAY),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),DISP=SHR +//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDPAY),DISP=SHR +//* +//* +//STEP0200 EXEC DTSZXPAY +// +//STEP0200 EXEC DTSRSESP +//*** +//* REPORT GENERATION +//STEP0300 EXEC DTSRQRPT +//STEP0100.RPT140R1 DD HOLD=YES +//STEP0100.RPT140R2 DD HOLD=YES +//STEP0100.RPT907R1 DD HOLD=YES +//STEP0100.RPT907R2 DD HOLD=YES +//STEP0100.RPT980R1 DD HOLD=YES +//** diff --git a/JCL/DTSZWAGE.jcl b/JCL/DTSZWAGE.jcl new file mode 100644 index 0000000..cd0b43d --- /dev/null +++ b/JCL/DTSZWAGE.jcl @@ -0,0 +1,156 @@ +//DTSGWAGE JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K, +// USER=#DOADTS, +// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1 +/*ROUTE PRINT U@PRT65 +//******************************************************************** +//**** TDEC WAGE DATA FILES ARE ENCRYPTED USING PKZIP +//**** WITH OCTO DATA CENTER PUBLIC KEY. +//******************* SET QTR PARM TO CURRENT QTR +//******************************************************************* +//**** +// SET CURRQTR='Q2021Q2' +//**** +//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY. +//**** +//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY. +//**** +//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1. +//******************************************************************** +//**** MODIFIED JCL TO USE DIFFERENT PARMS TO RETRIEVE AND DELETE TDEC +//**** WAGE FILE +//**DFLT DTSFTEON - GET TDEC WAGE FILE WITH NO DATES +//****** DTSFTDON - GET TDEC WAGE FILE WITH DATES IN FILE NAME +//**DFLT DTSDEWAG - DELETE TDEC WAGE FILE WITH NO DATES +//****** DTSDDEAG - DELETE TDEC WAGE FILE WIT DATES IN FILE NAME +//************************************************* 12/24/14 ZL1 +//**** +//**** GET TDEC ENCRYPTED WAGE FILE (ONTIME AND DELINQUENT) 4 ESSP +//******************************************************************** +//*TDECFTP EXEC PGM=FTP,COND=(0,LT) +//*SYSPRINT DD SYSOUT=* +//*OUTOUT DD SYSOUT=* +//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//*SYSGET DD *,DCB=BLKSIZE=80 +//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREON),DISP=SHR +//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),DISP=SHR +//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDON),DISP=SHR +//* +//******************************************************************** +//**** DECRYPT TDEC DELINQ FILE INTO TEXTOUT +//******************************************************************** +//* +//*DECRYPT EXEC SECPDEC,COND=(0,LT) +//*ECRYPT EXEC SECODEC,COND=(0,LT) +//COPYCRYT EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1), +// DISP=(,CATLG,DELETE), +// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//* +//******************************************************************** +//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE. +//** +//******************************************************************** +//** +//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+1), +// DISP=(NEW,CATLG,DELETE), +// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//* +//******************************************************************** +//*** COPY TDEC WAGE DECRYPTED FILE TO ESSP FTP FILE. +//** +//******************************************************************** +//** +//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,DISP=SHR +//* DISP=(NEW,CATLG,DELETE), +//* DISP=SHR, +//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE), +//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +//* +//******************************************************************** +//*** COPY TDEC WAGE DECRYPTED FILE TO QUARTER FILE. +//** +//******************************************************************** +//** +//COPYFQTR EXEC PGM=IDCAMS,COND=(0,LT) +//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR +//** +//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.&CURRQTR., +//** DISP=(NEW,CATLG,DELETE), +// DISP=MOD, +// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSPRINT DD SYSOUT=(*) +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR +//** +// +//****************** stop here for now zl1 S************************************************** +//**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER +//******************************************************************** +//TDECDEL EXEC PGM=FTP,COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//OUTOUT DD SYSOUT=* +//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133 +//SYSGET DD *,DCB=BLKSIZE=80 +//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRWAG),DISP=SHR +//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR +//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR +//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR +//* +//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL), +// REGION=4M +//SYSPRINT DD SYSOUT=* +//OUT1 OUTPUT DEST=U1003, +//* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM', +// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', +// 'TO:ARAVIND.VITTA@SAGITEC.COM', +// 'TO:PRABHU.TEGUR@SAGITEC.COM', +// 'TO:RAJINI.JUJJAVARAPU@DC.GOV', +// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +//* 'TO:ZARATH.LALPUTAN@DC.GOV', +// 'SUBJECT: ##### NO TDEC REPORT WAGES TODAY !!!!...ZL1', +//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ', +// 'FILENAME:NOTDEC_WAGES.TXT'), +// MAILFROM=DUTAS@DC.GOV +//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,DISP=SHR +//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSIN DD DUMMY +//SYSUDUMP DD SYSOUT=(*,,DUMP) +//* +//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), +// REGION=4M +//SYSPRINT DD SYSOUT=* +//OUT1 OUTPUT DEST=U1003, +// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM', +//* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM', +// 'TO:ARAVIND.VITTA@SAGITEC.COM', +// 'TO:PRABHU.TEGUR@SAGITEC.COM', +// 'TO:RAJINI.JUJJAVARAPU@DC.GOV', +// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +// 'TO:ZARATH.LALPUTAN@DC.GOV', +// 'SUBJECT: ESSP TDEC WAGES READY 4 PICKUP', +//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ', +// 'FILENAME:TDEC_WAGES.TXT'), +// MAILFROM=DUTAS@DC.GOV +//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.WAGES.TXT,DISP=SHR +//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSIN DD DUMMY +//SYSUDUMP DD SYSOUT=(*,,DUMP) +// diff --git a/JCL/DTZGACHD.jcl b/JCL/DTZGACHD.jcl index d9b8f09..14fd082 100644 --- a/JCL/DTZGACHD.jcl +++ b/JCL/DTZGACHD.jcl @@ -28,10 +28,9 @@ //*----------------------------------------------------- //* BATCH EXECUTION OF FTP UNDER TLS TO REMOTE HOST WF FTPS //*----------------------------------------------------- -//STEPWF EXEC PGM=FTP, -// PARM='-r TLS safetrans.wellsfargo.com' -//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPWFIN) -//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPFIN) +//STEPWF EXEC PGM=FTP,PARM='-r TLS safetrans.wellsfargo.com' +//*ETRC DD DISP=SHR,DSN=DOESTAX.CONV.PARMLIB(DTSPPFIN) +//NETRC DD DISP=SHR,DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24) //SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCWFPAT) // DD * FWFRIENDLY TRUE @@ -57,20 +56,21 @@ FWFRIENDLY TRUE //** //******************************************************************** //*** send email ach returns received from wells fargo. -//** +//* //******************************************************************** //ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT), // REGION=4M //SYSPRINT DD SYSOUT=* //OUT1 OUTPUT DEST=U1003, -// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM', +// USERDATA=('TO:rosalind.holbrook@dc.gov', // 'TO:aravind.vitta@sagitec.com', -// 'TO:NANCY.HUDAK@DC.GOV', +// 'TO:rajini.jujjavarapu@dc.gov', // 'TO:ZARATH.LALPUTAN@DC.GOV', // 'TO:margaret.hernandez@dc.gov', -// 'TO:geraldine.hester@dc.gov', -// 'TO:esayas.lemma@dc.gov', -// 'TO:ryan.moore-lee@dc.gov', +// 'TO:yinka.olarewaju-alo@dc.gov', +// 'TO:joy.diggs@dc.gov', +//* 'TO:macarena.cantelas@dc.gov', +// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', // 'SUBJECT:ESSP DAILY ACH RETURNS RECEIVED FROM WELLS FARGO', // 'FILEDESC: ESSP ACH RETURNS FORM WELLS FARGO ', // 'FILENAME:ESSP_DUTAS_ACHRETURNS.TXT'), diff --git a/Procs/DTSBXPAZ b/Procs/DTSBXPAZ new file mode 100644 index 0000000..0110737 --- /dev/null +++ b/Procs/DTSBXPAZ @@ -0,0 +1,159 @@ +//**** 00000010 +//* PROCESS TDEC REPORT PAYMENTS 00001700 +//* 00001700 +//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700 +//** 00001700 +//DTSBXPAY PROC +//** 00001700 +//STEP0100 EXEC PGM=SORT, +// COND=(0,LT) +//SYSOUT DD SYSOUT=* +//* +//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,DISP=SHR +//* +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1), +//* DISP=(NEW,CATLG,DELETE), +// DISP=SHR +//* UNIT=SYSDA, +//* SPACE=(30720,(1000,1000),RLSE), 00008000 +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR +//* +//STEP0200 EXEC PGM=DTSBX437, +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//SYSUDUMP DD SYSOUT=* +//* 00001700 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//*** +//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1), +// DISP=SHR 00006000 +//* 00001700 +//DTSPX145 DD DSN=&&PENDX140, 00005000 +// DISP=(NEW,PASS,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(1000,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//* 00001700 +//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.X437.BTC, 00005000 +//* DISP=(NEW,CATLG,DELETE), 00006000 +// DISP=SHR, 00006000 +//* DISP=MOD, 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//* +//X437RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1), +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// SPACE=(30000,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +//X437RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.TXT(+1), +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// SPACE=(30000,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330) +//* +//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000 +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), 00410000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//*********************************************************** +//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED +//*********************************************************** +//*STEP0300 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M +//*SYSPRINT DD SYSOUT=* +//*OUT1 OUTPUT DEST=U1003, +//* USERDATA=('TO:SRUJANI.CHANDRAGIRI@DC.GOV', +//* 'CC:RAJINI.JUJJAVARAPU@DC.GOV', +//* 'CC:MARGARET.HERNANDEZ@DC.GOV', +//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +//* 'CC:ZARATH.LALPUTAN@DC.GOV', +//* 'CC:JOY.DIGGS@DC.GOV', +//* 'CC:YINKA.OLAREWAJU-ALO@DC.GOV', +//* 'SUBJECT: TDEC DAILY REPORT PAYMENTS ......ZL1', +//* 'FILEDESC: DOES TDEC REPORT PAYMENTS ', +//* 'FILENAME:TDEC_DUTAS_RPTPAYMTS.TXT'), +//* MAILFROM=DUTAS@DC.GOV +//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..ESSP.X437PAID.TXT(+1),DISP=SHR +//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//*SYSIN DD DUMMY +//* +//*********************************************************** +//*STEP0310 EXEC PGM=IEBGENER,COND=(8,NE,DECRYPT),REGION=4M +//*SYSPRINT DD SYSOUT=* +//*OUT1 OUTPUT DEST=U1003, +//* USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', +//* 'CC:SRUJANI.CHANDRAGIRI@DC.GOV', +//* 'CC:ZARATH.LALPUTAN@DC.GOV', +//* 'SUBJECT: ++++ NO TDEC PAYMENTS TODAY ++++..ZL1', +//* 'FILEDESC: TDEC DUTAS PAYMT REPORT ', +//* 'FILENAME:TDEC_DUTAS.TXT'), +//* MAILFROM=DUTAS@DC.GOV +//*SYSUT1 DD DSN=DOESTAX.&EXTNODE..TDEC.ERORPAYT.TXT,DISP=SHR +//*SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//*SYSIN DD DUMMY +//* +//* +//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG +// COND=(4,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX140, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X437.PAY(+1), +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* +//* +//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX144, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X144, +//* DISP=(,CATLG,DELETE), +// DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* +//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX145, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145, +//* DISP=(,CATLG,DELETE), +// DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* diff --git a/Procs/DTSBZCHK b/Procs/DTSBZCHK new file mode 100644 index 0000000..1eea6d1 --- /dev/null +++ b/Procs/DTSBZCHK @@ -0,0 +1,124 @@ +//**** 00000010 +//* PROCESS TDEC CHECK DEPOSIT FILES 00001700 +//* 00001700 +//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700 +//** 00001700 +//DTSBXCHK PROC +//** 00001700 +//STEP0210 EXEC PGM=SORT, SORT TRANSACTIONS +// COND=(0,LT) +//SYSOUT DD SYSOUT=* +//* +//SORTIN DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,DISP=SHR +// DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+0),DISP=SHR +//* +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1), +//* DISP=(NEW,CATLG,DELETE), +// DISP=SHR, +// UNIT=SYSDA, +// SPACE=(30720,(1000,1000),RLSE), 00008000 +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR +//* +//STEP0220 EXEC PGM=DTSBX429, +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//SYSUDUMP DD SYSOUT=* +//* 00001700 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//*** +//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1), +// DISP=SHR 00006000 +//* 00001700 +//DTSPX145 DD DSN=&&PENDX145, 00005000 +// DISP=(NEW,PASS,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(1000,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//* 00001700 +//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..TDEC.X429.BTC, 00005000 +//* DISP=(NEW,CATLG,DELETE), 00006000 +// DISP=SHR, 00006000 +//* DISP=MOD, 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//* +//X429RPT1 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PAID.TXT(+1), +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// SPACE=(30000,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +//X429RPT2 DD DSN=DOESTAX.&LVLNODE..TDEC.X429PEND.TXT(+1), +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// SPACE=(30000,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330) +//* +//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000 +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), 00410000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//* +//STEP0250 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG +// COND=(3,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX145, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+1), +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* +// +//STEP0260 EXEC PGM=IDCAMS, COPY CHKS RECEIVE TO QTR FILE +// COND=(3,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS, +// DISP=OLD, 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.G2014Q4, +//* DISP=(,CATLG,DELETE), +// DISP=MOD, +// SPACE=(25600,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +// +//**************** END OF PROC FOR NOW ZL1****** +//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX145, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145, +//* DISP=(,CATLG,DELETE), +// DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* diff --git a/Procs/DTSRERPZ b/Procs/DTSRERPZ new file mode 100644 index 0000000..52a5606 --- /dev/null +++ b/Procs/DTSRERPZ @@ -0,0 +1,396 @@ +//***** +//** ON REQ RPT GENERATION +//***** +//*DTSRQRPT PROC LDEST='U@PRT155', +//DTSRQRPT PROC LDEST='LOCAL', +// LVDHOLD='YES' +//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702 +//DOESLBL1 EXEC PGM=IDCAMS, 00001806 +// COND=(3,LT) 00001906 +//SYSPRINT DD SYSOUT=* 00002006 +//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002106 +// UNIT=SYSDA, 00002206 +// SPACE=(TRK,1), 00002306 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506 +// DISP=SHR 00002606 +//**** /* POPULATE THE LABELS WORK FILE 00003105 +//DOESLBL2 EXEC PGM=IDCAMS, 00003206 +// COND=(3,LT) 00003306 +//SYSPRINT DD SYSOUT=* 00003405 +//FILEIN DD DSN=&&TMP901, 00003505 +// DISP=(OLD,DELETE,DELETE), 00003605 +// UNIT=SYSDA 00003705 +//DOESVRO1 DD DSN=&&LBL901, 00003805 +// DISP=(NEW,PASS,DELETE), 00003905 +// UNIT=SYSDA, 00004005 +// SPACE=(8192,(1000,1000),RLSE), 00004105 +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205 +//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSLBL02), 00004305 +// DISP=SHR 00004405 +//** 00004705 +//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION +// COND=(3,LT) +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSUDUMP DD SYSOUT=* +//** +//PARMIN DD DUMMY +//** +//ATLSTIN DD DUMMY +//** +//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) +//** +//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00100001 +//** 00100100 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//** 00100100 +//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//** +//** NEW/REACT/DEACTIVATED EMPLYRS +//RPT116R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** GENRC/DEMAND/'8 QTRS 0' INACTVATN LTR +//RPT117R1 DD SYSOUT=W, +// DEST=&LDEST. +//** '8 QTRS OF NONE' REPORT +//RPT119R1 DD SYSOUT=0, +// DEST=&LDEST. +//** POTENTIONALLY FICTITIOUS EMPLOYERS +//RPT120R1 DD SYSOUT=Z,COPIES=2, +// DEST=&LDEST. +//** LIABILITY DETERMINATION ACTIVITY LIST +//RPT122R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT122R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT122R3 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT122R4 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT122R5 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT122R6 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** EMPLYRS W/05/06/09/11 STATUS CODES +//RPT123R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** EMPLOYER ALPHA LIST +//RPT125R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** EMPLOYER FLD-REP-ID = '??' RPT +//RPT129R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** WEB REGISTRATION CYCLE A RPT +//RPT130R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** WEB REGISTRATION ERROR REPORT +//RPT140R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** ACCOUNT NUMBER CHANGED +//RPT204R1 DD SYSOUT=O, +// DEST=&LDEST. +//** TRIAL BAL RPT +//RPT305R1 DD SYSOUT=Z, +// DEST=&LDEST., +// HOLD=&LVDHOLD. +//** ACCT SUMMARY RPT +//RPT306R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** EMPLR ACCT CREDIT BAL RPT +//RPT308R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** STATEMENT OF ACCT (CR-MEMO-SM) +//RPT309R1 DD SYSOUT=W, +// DEST=&LDEST. +//** STATEMENT OF ACCT (CR-MEMO-PC) +//RPT309R2 DD SYSOUT=I, +// DEST=&LDEST. +//** STATEMENT OF ACCT - -CTRL RPT +//RPT310R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** STATEMENT OF ACCT - -CREDIT RPT +//RPT315R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** QUARTERLY LATE PAYMENT NOTICE +//RPT320R1 DD SYSOUT=* +//RPT320R2 DD SYSOUT=* +//RPT320R3 DD SYSOUT=W, +// DEST=&LDEST. +//** QUARTERLY MISSING REPORT NOTICE +//RPT320R4 DD SYSOUT=Z, +// DEST=&LDEST. +//** SI EMPLOYER ADMIN ASSESSMENT LETTER +//RPT325R1 DD SYSOUT=W, +// DEST=&LDEST. +//** SI EMPLOYER ADMIN ASSESSMENT RPT2 +//RPT325R2 DD SYSOUT=Z, +// DEST=&LDEST. +//** SI EMPLOYER ADMIN ASSESSMENT RPT3 +//RPT325R3 DD SYSOUT=Z, +// DEST=&LDEST. +//** SI EMPLOYER ADMIN ASSESSMENT RPT4 +//RPT325R4 DD SYSOUT=Z, +// DEST=&LDEST. +//** SI EMPLOYER ADMIN ASSESSMENT RPT5 +//RPT325R5 DD SYSOUT=Z, +// DEST=&LDEST. +//** STATEMENT OF ACCT - -CREDIT RPT +//RPT410R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** OPEN BANKRUPTCIES LIST +//RPT411R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** ESTIMATED REPORT LIST +//RPT412R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** NO ESTIMATED REPORT LIST +//RPT412R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** WRITE OFF CANDIDATES LIST +//RPT413R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** MONTHLY DEBIT MEMO +//RPT414R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT414R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT414R3 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT414R5 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** COMMA SEPARATED COPY OF FILE 2 +//RPT414R4 DD DUMMY +//** +//** ALL EMPLOYERS RECEIVIG BILLS +//RPT414R6 DD DUMMY +//** +//** WRITE 416 REPORT +//RPT416R1 DD SYSOUT=O,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** DELIQUENT REPORT NOTICES (UC-8) +//RPT417R1 DD SYSOUT=W, +// DEST=&LDEST. +//** DELINQUERNT EMPLYR ACCT NBR LIST +//RPT418R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** FINAL NOTICE DELINQUENCY LIST +//** (NOW PRODUCED AS RPT422R2) +//RPT420R1 DD DUMMY +//**RPT420R1 DD SYSOUT=Z, +//** DEST=&LDEST. +//** FINAL DELINQUENCY NOTICE +//RPT421R1 DD SYSOUT=W, +// DEST=&LDEST. +//** FINAL DELINQUENCY REPORT LIST +//RPT422R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** FINAL DELINQUENCY REPORT LIST (2) +//RPT422R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** PRIOR DELINQUENT LIST - FLD REP/1 ENTRY +//RPT423R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** PRIOR DELINQUENT LIST - FLD REP/2 ENTRIES +//RPT423R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** PRIOR DELINQUENT LIST - FLD REP/3+ ENTRIES +//RPT423R3 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** COLLECTIONS SUMMARY RPT +//RPT426R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** TOTAL BAL DUE > $?? RPT +//RPT429R1 DD SYSOUT=Z,COPIES=2, +// DEST=&LDEST. +//** SECOND NOTICE FOR REIMBURSBLE EMPLYS +//RPT433R1 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** REPORT OF SECOND NOTICE FOR VIEW DIR +//RPT433R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** OVER 120 DAYS DELINQUENCY LIST +//RPT435R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** EMPLOYERS AGING ACCOUNT RECEIVABLE REPORT +//RPT442R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** FIRST DELINQUENT ANNUAL SELF MAILER +//RPT451R1 DD SYSOUT=W, +// DEST=&LDEST. +//** FIRST DELINQUENT ANNUAL REPORT +//RPT452R1 DD SYSOUT=Z, +// DEST=&LDEST. +//RPT452R2 DD SYSOUT=Z, +// DEST=&LDEST. +//** FINAL DELINQUENT ANNUAL SELF MAILER +//RPT453R1 DD SYSOUT=W, +// DEST=&LDEST. +//** FINAL DELINQUENT ANNUAL REPORT +//RPT454R1 DD SYSOUT=Z, +// DEST=&LDEST. +//RPT454R2 DD SYSOUT=Z, +// DEST=&LDEST. +//** ESTIMATE RPT CANDIDATES LIST +//RPT461R1 DD SYSOUT=Z +//RPT461R3 DD SYSOUT=Z +//RPT461R2 DD SYSOUT=Z, +// DEST=&LDEST. +//** ESTIMATE RPT CANDIDATES LIST +//RPT455R1 DD SYSOUT=Z, +// DEST=&LDEST. +//RPT455R2 DD SYSOUT=Z, +// DEST=&LDEST. +//** EMPLYRS QUALIFIED FOR EFF PENALTY +//RPT518R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** EMPLYRS QUALIFIED FOR PENALTY RATE +//RPT519R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** AUDIT SELECTION CRITERIA +//RPT602R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** AUDIT CANDIDATES LIST +//RPT602R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** AUDIT CANDIDATES SELF MAILER +//RPT602R3 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** AUDIT FILE +//RPT602F3 DD DUMMY +//** ASSIGNMENT SUMMARY - FLD REP +//RPT606R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** ASSIGNMENT DETAIL - FLD REP +//RPT607R1 DD SYSOUT=I, +// DEST=&LDEST. +//** ASSIGNMENT MANAGEMENT RPTS +//RPT609R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** ASSIGNMENT MANAGEMENT RPTS +//RPT609R2 DD SYSOUT=Z, +// DEST=&LDEST. +//** ACT EMPLYRS BY ZIPCODE CNTS +//RPT611R1 DD SYSOUT=Z, +// DEST=&LDEST. +//****CBDATA DD DUMMY +//****CBDATA DD DSN=DOES.CICS.FIN730.CBDATA.EX100102,DISP=SHR +//** AUDIT ASSGNMNTS W/NO AUDIT RESULTS +//RPT612R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** FEILD ASSIGNMENT - DELINQUENCY +//RPT615R1 DD SYSOUT=0 +//** SUCCESSFUL FUTA CERTIFICATIONS +//RPT704R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** FAILED FUTA CERTIFICATIONS +//RPT705R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** POTENTIAL NON-FEDERAL FILERS +//RPT708R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** REQ. FOR FED-ID LETTER (MASS MAILING) +//RPT712R1 DD SYSOUT=W, +// DEST=&LDEST. +//** ETA-581 ELEMENT RECORDS (EXPORT) +//RPT713R1 DD DUMMY +//** +//** ETA-581 SPEC DEPT OF LABOR REPORT +//RPT713R2 DD SYSOUT=O,COPIES=2, +// DEST=&LDEST. +//** +//RPT715R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** +//***** SEE PROC DTSTPRPT FOR TPS FILES +//** TPS EXPERIENCE RATING (EXPORT) +//**RPT723R1 IS IN DTSARRPT +//** +//** ACCTS AVAIL FOR PURGE LST +//RPT729R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** ACCTS AVAIL FOR PURGE LST +//RPT730R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** WAGE FILE/TAX FILE COMPARISON +//RPT737R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** ELECTRONIC FILER LIST +//RPT740R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** LIST OF NEW EMPLOYERS WITHIN RPT PERIOC. +//RPT763R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** CICS OP ID LIST +//RPT791R1 DD SYSOUT=Z,COPIES=3, +// DEST=&LDEST. +//** EMPLYRS W/A MISSING SIC +//RPT792R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** FUTA QTRLY FEIN CHANGES +//RPT793R1 DD SYSOUT=W, +// DEST=&LDEST. +//** FUTA QTRLY FEIN CHANGES +//RPT793R2 DD SYSOUT=Z, +// DEST=&LDEST. +//** WAGE RPTS (UC-30 QTRLY) +//DTS902F1 DD DUMMY +//** +//** WAGE RPTS (UC-30 DAILY) +//*RPT902R1 DD DUMMY +//RPT902R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** ONLINE UPDT LOG PARMS (MUST BE HERE*) +//PARM906 DD DUMMY,DCB=BLKSIZE=80 +//** ONLINE UPDATE LOG RPT +//RPT906R1 DD SYSOUT=Z, +// DEST=&LDEST. +//** UNUSUAL CONDITIONS ENCOUNTERED REPORT +//RPT907R1 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** UNUSUAL CONDITIONS ENCOUNTERED REPORT +//RPT907R2 DD SYSOUT=Z,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** UC-30 CNTS RPTN +//RPT908R1 DD SYSOUT=Z, +// DEST=&LDEST. +//RPT909R1 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT909R2 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT909R3 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT909R4 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT909R5 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//RPT909R6 DD SYSOUT=W,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** WAGE RPTS (UC-30H YRLY) +//DTS910F1 DD DUMMY +//** +//** WAGE RPTS (UC-30H DAILY) +//RPT910R1 DD DUMMY +//** CONTROL REPORT SUMMARY +//RPT980R1 DD SYSOUT=Q,HOLD=&LVDHOLD., +// DEST=&LDEST. +//** EXPORT CONTROL REPORTS +//RPT991R1 DD SYSOUT=Q,COPIES=2, +// DEST=&LDEST. +//**** +//*DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 00131001 +//* COND=(0,LT), 00140000 +//* REGION=4096K 00150000 +//*DOESVRI1 DD DSN=&&LBL901, 00150101 +//* DISP=(OLD,DELETE,DELETE) 00150201 +//*SYSOUT DD SYSOUT=* 00151000 +//*SYSABOUT DD SYSOUT=* 00152000 +//*SYSABEND DD SYSOUT=* 00153000 +//*CAIMRPTS DD SYSOUT=* 00154000 +//*DOESLBL1 DD SYSOUT=(C), 00155101 +//* FCB=P104, 00155201 +//* DEST=&LDEST., 00155302 +//* HOLD=&LVDHOLD. 00155403 +//** 00157001 +//** diff --git a/Procs/DTSZX425 b/Procs/DTSZX425 new file mode 100644 index 0000000..9f0c6d1 --- /dev/null +++ b/Procs/DTSZX425 @@ -0,0 +1,87 @@ +//**** 00000010 +//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700 +//* TO MAINFRAME 00001700 +//* 00001700 +//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700 +//** 00001700 +//DTSBX420 PROC +//** 00001700 +//***** 00001700 +//STEP0110 EXEC PGM=SORT, SORT TRANSACTIONS +// COND=(0,LT) +//SYSOUT DD SYSOUT=* +//* +//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 00005000 +//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),DISP=SHR 00005000 +//* +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTOUT DD DSN=&&WEBIMPRT, +// DISP=(NEW,PASS,DELETE), +// UNIT=SYSDA, +// SPACE=(30720,(1000,1000),RLSE), 00008000 +// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000 +//* +//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSX425),DISP=SHR +//* +//STEP0200 EXEC PGM=DTSBX425, +// COND=(0,LT), +// REGION=4096K +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//SYSUDUMP DD SYSOUT=* +//* 00001700 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//*** +//EFTFACH DD DSN=&&WEBIMPRT, +// DISP=(OLD,DELETE,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(30720,(1000,1000),RLSE), 00008000 +// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000 +//* 00001700 +//X425RPT1 DD DSN=DOESTAX.CONV.ESSP.X425ACHD(+1), +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// UNIT=SYSDA, +// SPACE=(25600,(100,100),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL, +//* DISP=(,CATLG,DELETE), +// DISP=SHR +//* UNIT=SYSDA, +//* SPACE=(25600,(100,100),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +//DTSFBTCO DD DSN=DOESTAX.DEVL.BX425.BTC, +//* DISP=(NEW,CATLG,DELETE), +// DISP=(OLD,KEEP,KEEP), +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//* +//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M +//SYSPRINT DD SYSOUT=* +//OUT1 OUTPUT DEST=U1003, +// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', +// 'TO:PANKAJ.SHARMA@SAGITEC.COM', +// 'TO:RYAN.MOORE-LEE@DC.GOV', +// 'CC:NANCY.HUDAK@DC.GOV', +// 'CC:MARGARET.HERNANDEZ@DC.GOV', +// 'CC:ESAYAS.LEMMA@DC.GOV', +//* 'CC:ZARATH.LALPUTAN@DC.GOV', +// 'SUBJECT: ESSP DAILY WELLS FARGO ACH DEPOSITS-VERIFY', +//* 'SUBJECT: ESSP 11-2 WELLS FARGO ACH DEPOSITS ', +// 'FILEDESC: ESSP ACH DEPOSITS FOR WELLF FARGO ', +// 'FILENAME:ESSP_DUTAS_ACHDEPOSITS.TXT'), +// MAILFROM=DUTAS@DC.GOV +//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X425ACHD(+1),DISP=SHR +//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSIN DD DUMMY +//* +//********************************************************************* diff --git a/Procs/DTSZXPAY b/Procs/DTSZXPAY new file mode 100644 index 0000000..32accc6 --- /dev/null +++ b/Procs/DTSZXPAY @@ -0,0 +1,127 @@ +//**** 00000010 +//* PROCESS TDEC REPORT PAYMENTS 00001700 +//* 00001700 +//* RUNS DAILY TAX UPDATE (DTSPDAY1) 00001700 +//** 00001700 +//DTSBXPAY PROC +//** 00001700 +//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS +// COND=(0,LT) +//SYSOUT DD SYSOUT=* +//* +//SORTIN DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT,DISP=SHR +//* +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTOUT DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1),DISP=SHR +//* DISP=(NEW,CATLG,DELETE), +//* DISP=SHR, +//* UNIT=SYSDA, +//* SPACE=(30720,(1000,1000),RLSE), 00008000 +//* DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) 00009000 +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR +//* +//STEP0200 EXEC PGM=DTSBX437, +// COND=(0,LT), +// REGION=0M +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//SYSUDUMP DD SYSOUT=* +//* 00001700 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//*** +//DTSFX145 DD DSN=DOESTAX.&IMPNODE..TDEC.DOES.RPTPAY(+1), +// DISP=SHR 00006000 +//* 00001700 +//DTSPX145 DD DSN=&&PENDX140, 00005000 +// DISP=(NEW,PASS,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(1000,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//* 00001700 +//DTSFBTCO DD DSN=DOESTAX.&IMPNODE..ESSP.ZX437.BTC, 00005000 +//* DISP=(NEW,CATLG,DELETE), 00006000 +// DISP=SHR, 00006000 +//* DISP=MOD, 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//* +//X437RPT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PAID.TXT(+1), +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// SPACE=(30000,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +//X437RPT2 DD DSN=DOESTAX.&LVLNODE..ESSP.X437PEND.TXT(+1), +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// SPACE=(30000,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=133,BLKSIZE=1330) +//* +//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..ESSP.BX420.RPT(+1), 00409000 +// DISP=(,CATLG,DELETE), +//* DISP=(OLD,KEEP,KEEP), 00410000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) +//*********************************************************** +//* SEND EMAIL WHEN REPORT PAYMENTS PROCESSED +//*********************************************************** +//* +//STEP0400 EXEC PGM=IDCAMS, COPY X140 PENDING TO GDG +// COND=(4,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX140, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.CONV.ESSP.PENDING.X437.PAY(+1), +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* +//* +//STEP0410 EXEC PGM=IDCAMS, COPY X144 PENDING TO GDG +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX144, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X144, +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* +//STEP0420 EXEC PGM=IDCAMS, COPY X145 PENDING TO GDG +// COND=(0,LT) +//SYSPRINT DD SYSOUT=* +//INDD01 DD DSN=&&PENDX145, +// DISP=(OLD,DELETE,DELETE), 00006000 +// UNIT=SYSDA, 00007000 +// SPACE=(8192,(100,200),RLSE), +// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120) +//OUTDD01 DD DSN=DOESTAX.DEVL.PENDING.X435.X145, +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// SPACE=(25600,(100,200),RLSE), +// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120) +//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSRONE),DISP=SHR +//* +//********************************************************************* +// \ No newline at end of file diff --git a/Procs/DTSZZBX425 b/Procs/DTSZZBX425 new file mode 100644 index 0000000..9565e05 --- /dev/null +++ b/Procs/DTSZZBX425 @@ -0,0 +1,83 @@ +//**** 00000010 +//* IMPORT EMPLOYER DATA FROM WEB DATABASE 00001700 +//* TO MAINFRAME 00001700 +//* File="E:\Innova\Code\MP\Git\DUTAS]PROCS <<<< +//* 00001700 +//* RUNS DAILY PRIOR TO TAX UPDATE (DTSPDAY1) 00001700 +//** 00001700 +//DTSBX425 PROC +//** 00001700 +//***** 00001700 +//STEP0110 EXEC PGM=SORT, +// REGION=4096K, +// COND=(0,LT) +//SYSOUT DD SYSOUT=* +//* +//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.ACHDPAYT,DISP=SHR 00005000 +//*ORTIN DD DSN=DOESTAX.CONV.ESSP.ACHDD.ARCHIVE(+1),DISP=SHR 00005000 +//* +//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) +//SORTOUT DD DSN=&&ACHIMP, +// DISP=(NEW,PASS,DELETE), +// UNIT=SYSDA, +// SPACE=(30720,(1000,1000),RLSE), 00008000 +// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000 +//* +//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX425),DISP=SHR +//* +//STEP0200 EXEC PGM=DTSBX425, +// COND=(0,LT), +// REGION=4096K +//SYSOUT DD SYSOUT=* +//SYSABOUT DD SYSOUT=* +//SYSABEND DD SYSOUT=* +//SYSUDUMP DD SYSOUT=* +//* 00001700 +//DTSFMSTR INCLUDE MEMBER=DTSIMSTR +//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, +// AMP=('BUFNI=5,BUFND=10') +//*** +//EFTFACH DD DSN=&&ACHIMP, +// DISP=(OLD,DELETE,DELETE), +//* DISP=(OLD,KEEP,KEEP), +// UNIT=SYSDA, +// SPACE=(30720,(1000,1000),RLSE), 00008000 +// DCB=(RECFM=FB,LRECL=94,BLKSIZE=9400) 00009000 +//* 00001700 +//X425RPT1 DD DSN=DOESTAX.CONV.ESSP.X425ACHD(+1), +// DISP=(,CATLG,DELETE), +//* DISP=SHR, +// UNIT=SYSDA, +// SPACE=(25600,(100,100),RLSE), +// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +//X425TOTL DD DSN=DOESTAX.CONV.ESSP.DAILY.ACHDTOTL, +// DISP=(,CATLG,DELETE), +//* DISP=SHR +//* UNIT=SYSDA, +//* SPACE=(25600,(100,100),RLSE), +//* DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340) +//* +//STEP0320 EXEC PGM=IEBGENER,COND=(3,LT),REGION=4M +//SYSPRINT DD SYSOUT=* +//OUT1 OUTPUT DEST=U1003, +// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV', +// 'TO:PANKAJ.SHARMA@SAGITEC.COM', +// 'TO:RYAN.MOORE-LEE@DC.GOV', +// 'CC:NANCY.HUDAK@DC.GOV', +// 'CC:MARGARET.HERNANDEZ@DC.GOV', +// 'CC:ESAYAS.LEMMA@DC.GOV', +//* 'CC:ZARATH.LALPUTAN@DC.GOV', +// 'SUBJECT: ESSP DAILY WELLS FARGO ACH DEPOSITS-VERIFY', +//* 'SUBJECT: ESSP 11-2 WELLS FARGO ACH DEPOSITS ', +// 'FILEDESC: ESSP ACH DEPOSITS FOR WELLF FARGO ', +// 'FILENAME:ESSP_DUTAS_ACHDEPOSITS.TXT'), +// MAILFROM=DUTAS@DC.GOV +//SYSUT1 DD DSN=DOESTAX.&LVLNODE..ESSP.X425ACHD(+1),DISP=SHR +//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1 +//SYSIN DD DUMMY +//* +//*********************************************************************