As per Srujani's email ,on sep-15, these are the updated programs.
This commit is contained in:
faizana
@ -1,6 +1,6 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 05/23/19
|
00001 IDENTIFICATION DIVISION. 09/06/25
|
||||||
00002 PROGRAM-ID. DTSBX417. DTSBX417
|
00002 PROGRAM-ID. DTSBX417. DTSBX417
|
||||||
00003 AUTHOR. NGC. LV077
|
00003 AUTHOR. NGC. LV078
|
||||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX417
|
00004 DATE-WRITTEN. APRIL 2005. DTSBX417
|
||||||
00005 DATE-COMPILED. DTSBX417
|
00005 DATE-COMPILED. DTSBX417
|
||||||
00006 SKIP3 DTSBX417
|
00006 SKIP3 DTSBX417
|
||||||
@ -147,7 +147,7 @@
|
|||||||
00147 05 SORT-DATA PIC X(512). DTSBX417
|
00147 05 SORT-DATA PIC X(512). DTSBX417
|
||||||
00148 DTSBX417
|
00148 DTSBX417
|
||||||
00149 WORKING-STORAGE SECTION. DTSBX417
|
00149 WORKING-STORAGE SECTION. DTSBX417
|
||||||
001495 77 PAN-VALET PICTURE X(24) VALUE '077DTSBX417 05/23/19'. DTSBX417
|
001495 77 PAN-VALET PICTURE X(24) VALUE '078DTSBX417 09/06/25'. DTSBX417
|
||||||
00150 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX420 10/07/14'. 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
|
00151 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX420 10/07/14'. DTSBX417
|
||||||
00152 SKIP3 DTSBX417
|
00152 SKIP3 DTSBX417
|
||||||
@ -1207,10 +1207,10 @@
|
|||||||
01206 MOVE +91 TO SORT-SEQ1 DTSBX417
|
01206 MOVE +91 TO SORT-SEQ1 DTSBX417
|
||||||
01207 MOVE X120-REC TO SORT-DATA DTSBX417
|
01207 MOVE X120-REC TO SORT-DATA DTSBX417
|
||||||
01208 DTSBX417
|
01208 DTSBX417
|
||||||
01209 WHEN WEB-IMP-TYPE-REL-88 DTSBX417
|
01209 * WHEN WEB-IMP-TYPE-REL-88 CL*78
|
||||||
01210 PERFORM P1200G-REL THRU P1200G-EXIT DTSBX417
|
01210 * PERFORM P1200G-REL THRU P1200G-EXIT CL*78
|
||||||
01211 MOVE +5 TO SORT-SEQ1 DTSBX417
|
01211 * MOVE +5 TO SORT-SEQ1 CL*78
|
||||||
01212 MOVE X130-REC TO SORT-DATA DTSBX417
|
01212 * MOVE X130-REC TO SORT-DATA CL*78
|
||||||
01213 DTSBX417
|
01213 DTSBX417
|
||||||
01214 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417
|
01214 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417
|
||||||
01215 * MOVE +6 TO SORT-SEQ1 DTSBX417
|
01215 * MOVE +6 TO SORT-SEQ1 DTSBX417
|
||||||
@ -1459,9 +1459,9 @@
|
|||||||
01458 P1200F-EXIT. DTSBX417
|
01458 P1200F-EXIT. DTSBX417
|
||||||
01459 EXIT. DTSBX417
|
01459 EXIT. DTSBX417
|
||||||
01460 DTSBX417
|
01460 DTSBX417
|
||||||
01461 P1200G-REL. DTSBX417
|
01461 *P1200G-REL. CL*78
|
||||||
01462 P1200G-EXIT. DTSBX417
|
01462 *P1200G-EXIT. CL*78
|
||||||
01463 EXIT. DTSBX417
|
01463 * EXIT. CL*78
|
||||||
01464 DTSBX417
|
01464 DTSBX417
|
||||||
01465 P1200H-RPT. DTSBX417
|
01465 P1200H-RPT. DTSBX417
|
||||||
01466 * DISPLAY '01200H-RPT ' CL**9
|
01466 * DISPLAY '01200H-RPT ' CL**9
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 04/03/15
|
00001 IDENTIFICATION DIVISION. 08/27/25
|
||||||
00002 PROGRAM-ID. DTSBX418. DTSBX418
|
00002 PROGRAM-ID. DTSBX418. DTSBX418
|
||||||
00003 AUTHOR. NGC. LV051
|
00003 AUTHOR. NGC. LV052
|
||||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX418
|
00004 DATE-WRITTEN. APRIL 2005. DTSBX418
|
||||||
00005 DATE-COMPILED. DTSBX418
|
00005 DATE-COMPILED. DTSBX418
|
||||||
00006 SKIP3 DTSBX418
|
00006 SKIP3 DTSBX418
|
||||||
@ -142,7 +142,7 @@
|
|||||||
00142 05 SORT-DATA PIC X(512). DTSBX418
|
00142 05 SORT-DATA PIC X(512). DTSBX418
|
||||||
00143 DTSBX418
|
00143 DTSBX418
|
||||||
00144 WORKING-STORAGE SECTION. DTSBX418
|
00144 WORKING-STORAGE SECTION. DTSBX418
|
||||||
001445 77 PAN-VALET PICTURE X(24) VALUE '051DTSBX418 04/03/15'. DTSBX418
|
001445 77 PAN-VALET PICTURE X(24) VALUE '052DTSBX418 08/27/25'. DTSBX418
|
||||||
00145 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX418 10/07/14'. CL*49
|
00145 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX418 10/07/14'. CL*49
|
||||||
00146 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX418 10/07/14'. CL*49
|
00146 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX418 10/07/14'. CL*49
|
||||||
00147 SKIP3 DTSBX418
|
00147 SKIP3 DTSBX418
|
||||||
@ -566,8 +566,8 @@
|
|||||||
00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418
|
00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418
|
||||||
00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418
|
00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418
|
||||||
00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418
|
00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418
|
||||||
00568 * MOVE ZERO TO LX42-BATCH-NO DTSBX418
|
00568 * MOVE ZERO TO LX42-BATCH-NO CL*52
|
||||||
00568 MOVE ZERO TO LX42-PSEUDO-BATCH-NO DTSBX418
|
00569 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*52
|
||||||
00570 LX42-LAST-DETERM-EMP DTSBX418
|
00570 LX42-LAST-DETERM-EMP DTSBX418
|
||||||
00571 LX42-RPT-CNT DTSBX418
|
00571 LX42-RPT-CNT DTSBX418
|
||||||
00572 LX42-RPT-REMIT-AMT DTSBX418
|
00572 LX42-RPT-REMIT-AMT DTSBX418
|
||||||
|
|||||||
6181
Batch/DTSBX421.cob
6181
Batch/DTSBX421.cob
File diff suppressed because it is too large
Load Diff
3072
Batch/DTSBX426.cob
3072
Batch/DTSBX426.cob
File diff suppressed because it is too large
Load Diff
@ -1,6 +1,6 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 03/10/25
|
00001 IDENTIFICATION DIVISION. 09/06/25
|
||||||
00002 PROGRAM-ID. DTSBX430. DTSBX430
|
00002 PROGRAM-ID. DTSBX430. DTSBX430
|
||||||
00003 AUTHOR. NGC. LV253
|
00003 AUTHOR. NGC. LV254
|
||||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX430
|
00004 DATE-WRITTEN. APRIL 2005. DTSBX430
|
||||||
00005 DATE-COMPILED. DTSBX430
|
00005 DATE-COMPILED. DTSBX430
|
||||||
00006 SKIP3 DTSBX430
|
00006 SKIP3 DTSBX430
|
||||||
@ -161,7 +161,7 @@
|
|||||||
00161 CL119
|
00161 CL119
|
||||||
00162 CL*59
|
00162 CL*59
|
||||||
00163 WORKING-STORAGE SECTION. DTSBX430
|
00163 WORKING-STORAGE SECTION. DTSBX430
|
||||||
001635 77 PAN-VALET PICTURE X(24) VALUE '253DTSBX430 03/10/25'. DTSBX430
|
001635 77 PAN-VALET PICTURE X(24) VALUE '254DTSBX430 09/06/25'. DTSBX430
|
||||||
00164 77 PAN-VALET PICTURE X(24) VALUE '015DTSBX422 10/07/14'. 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
|
00165 77 PAN-VALET PICTURE X(24) VALUE '047DTSBX422 09/27/14'. DTSBX430
|
||||||
00166 SKIP3 DTSBX430
|
00166 SKIP3 DTSBX430
|
||||||
@ -764,7 +764,7 @@
|
|||||||
00763 01 LX42-LINK-AREA. DTSBX430
|
00763 01 LX42-LINK-AREA. DTSBX430
|
||||||
00764 ++INCLUDE DTSILX42 CL112
|
00764 ++INCLUDE DTSILX42 CL112
|
||||||
00765 DTSBX430
|
00765 DTSBX430
|
||||||
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL253
|
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL254
|
||||||
00767 DTSBX430
|
00767 DTSBX430
|
||||||
00768 DTSBX430-MAIN. CL*47
|
00768 DTSBX430-MAIN. CL*47
|
||||||
00769 * DISPLAY 'LX42-LINK-AREA' LX42-LINK-AREA CL*80
|
00769 * DISPLAY 'LX42-LINK-AREA' LX42-LINK-AREA CL*80
|
||||||
|
|||||||
3118
Batch/DTSBX551.cob
Normal file
3118
Batch/DTSBX551.cob
Normal file
File diff suppressed because it is too large
Load Diff
@ -1,13 +1,13 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 09/20/22
|
00001 IDENTIFICATION DIVISION. 09/07/25
|
||||||
00002 PROGRAM-ID. DTSBX626. DTSBX626
|
00002 PROGRAM-ID. DTSBX626. DTSBX626
|
||||||
00003 AUTHOR. NGC. LV224
|
00003 AUTHOR. NGC. LV227
|
||||||
00004 DATE-WRITTEN. SEPT 2013. CL**2
|
00004 DATE-WRITTEN. SEPT 2013. CL**2
|
||||||
00005 DATE-COMPILED. DTSBX626
|
00005 DATE-COMPILED. DTSBX626
|
||||||
00006 SKIP3 DTSBX626
|
00006 SKIP3 DTSBX626
|
||||||
00007 *** CL160
|
00007 *** CL160
|
||||||
00008 * FUNCTION: READ A DAILY BANK PAYMENT FILE AND THE DUTAS CL205
|
00008 * FUNCTION: READ A DAILY BANK PAYMENT FILE AND THE DUTAS CL205
|
||||||
00009 * PAYMENT FILE RECEIVED FROM ESSP. IF THE TOTAL CL205
|
00009 * PAYMENT FILE RECEIVED FROM ESSP. IF THE TOTAL CL205
|
||||||
00010 * AMOUNTS DONT MATCH ABEND JOB AND DO NOT SEND CL205
|
00010 *RCTEST AMOUNTS DONT MATCH ABEND JOB AND DO NOT SEND CL226
|
||||||
00011 * PAYMENT FILE TO WELLS FARGO. CL205
|
00011 * PAYMENT FILE TO WELLS FARGO. CL205
|
||||||
00012 * 06/01/18 ZL1 CL205
|
00012 * 06/01/18 ZL1 CL205
|
||||||
00013 *** CL205
|
00013 *** CL205
|
||||||
@ -83,7 +83,7 @@
|
|||||||
00083 01 ESSP-ACH-TOT-REC PIC X(80). CL193
|
00083 01 ESSP-ACH-TOT-REC PIC X(80). CL193
|
||||||
00084 DTSBX626
|
00084 DTSBX626
|
||||||
00085 WORKING-STORAGE SECTION. DTSBX626
|
00085 WORKING-STORAGE SECTION. DTSBX626
|
||||||
000855 77 PAN-VALET PICTURE X(24) VALUE '224DTSBX626 09/20/22'. DTSBX626
|
000855 77 PAN-VALET PICTURE X(24) VALUE '227DTSBX626 09/07/25'. DTSBX626
|
||||||
00086 77 PAN-VALET PICTURE X(24) VALUE '216DTSBX425 01/22/04'. CL**2
|
00086 77 PAN-VALET PICTURE X(24) VALUE '216DTSBX425 01/22/04'. CL**2
|
||||||
00087 DTSBX626
|
00087 DTSBX626
|
||||||
00088 01 WRK-AREA. CL216
|
00088 01 WRK-AREA. CL216
|
||||||
@ -198,9 +198,9 @@
|
|||||||
00197 88 TRACE-NO-END-NO-88 VALUE 'N'. CL107
|
00197 88 TRACE-NO-END-NO-88 VALUE 'N'. CL107
|
||||||
00198 CL106
|
00198 CL106
|
||||||
00199 DTSBX626
|
00199 DTSBX626
|
||||||
00200 05 WRK-MPRF-IND PIC X(01). DTSBX626
|
00200 * 05 WRK-MPRF-IND PIC X(01). CL225
|
||||||
00201 88 WRK-MPRF-OK VALUE 'Y'. DTSBX626
|
00201 * 88 WRK-MPRF-OK VALUE 'Y'. CL225
|
||||||
00202 88 WRK-MPRF-NO-REC VALUE 'N'. DTSBX626
|
00202 * 88 WRK-MPRF-NO-REC VALUE 'N'. CL225
|
||||||
00203 DTSBX626
|
00203 DTSBX626
|
||||||
00204 05 WRK-MPAY-IND PIC X(01). DTSBX626
|
00204 05 WRK-MPAY-IND PIC X(01). DTSBX626
|
||||||
00205 88 MPAY-FOUND-YES-88 VALUE 'Y'. DTSBX626
|
00205 88 MPAY-FOUND-YES-88 VALUE 'Y'. DTSBX626
|
||||||
@ -1524,210 +1524,211 @@
|
|||||||
01523 MOVE ' TOTAL WELLS ACH-TPA CNT: ' TO X626-TXT CL208
|
01523 MOVE ' TOTAL WELLS ACH-TPA CNT: ' TO X626-TXT CL208
|
||||||
01524 MOVE WRK-X145-XYZ-CNT TO X626-CNT CL205
|
01524 MOVE WRK-X145-XYZ-CNT TO X626-CNT CL205
|
||||||
01525 WRITE X626-REC. CL205
|
01525 WRITE X626-REC. CL205
|
||||||
01526 DISPLAY ' ' CL199
|
01526 CL227
|
||||||
01527 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL219
|
01527 DISPLAY ' ' CL199
|
||||||
01528 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL219
|
01528 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL219
|
||||||
01529 IF WS-TOTAL-X145-AMT NOT = X145-ACH-REC-DEPOSIT CL199
|
01529 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL219
|
||||||
01530 * X145-ACH-REC-CNT NOT = WRK-X145-X626-CNT CL205
|
01530 IF WS-TOTAL-X145-AMT NOT = X145-ACH-REC-DEPOSIT CL199
|
||||||
01531 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
01531 * X145-ACH-REC-CNT NOT = WRK-X145-X626-CNT CL205
|
||||||
01532 DISPLAY '+' CL218
|
01532 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
||||||
01533 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL218
|
01533 DISPLAY '+' CL218
|
||||||
01534 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL218
|
01534 DISPLAY 'DUTAS ACH DEPOSITS RECD = ' WS-TOTAL-X145-AMT CL218
|
||||||
01535 DISPLAY '+' CL218
|
01535 DISPLAY 'WELLS ACH DEPOSITS RECD = ' X145-ACH-REC-DEPOSIT CL218
|
||||||
01536 DISPLAY '!!! ERROR RECEVIED DEPOSITS NOT MATCHING***' CL218
|
01536 DISPLAY '+' CL218
|
||||||
01537 DISPLAY '+' CL218
|
01537 DISPLAY '!!! ERROR RECEVIED DEPOSITS NOT MATCHING***' CL218
|
||||||
01538 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
01538 DISPLAY '+' CL218
|
||||||
01539 * PERFORM S999-ABEND THRU S999-EXIT CL214
|
01539 DISPLAY '++++++++++++++++++++++++++++++++++++++++++++++++' CL218
|
||||||
01540 MOVE +05 TO RETURN-CODE CL222
|
01540 * PERFORM S999-ABEND THRU S999-EXIT CL214
|
||||||
01541 DISPLAY 'RET CODE VALUE ' RETURN-CODE CL223
|
01541 MOVE +05 TO RETURN-CODE CL222
|
||||||
01542 END-IF. CL193
|
01542 DISPLAY 'RET CODE VALUE ' RETURN-CODE CL223
|
||||||
01543 CL193
|
01543 END-IF. CL193
|
||||||
01544 DTSBX626
|
01544 CL193
|
||||||
01545 T0000-CONTINUE. CL209
|
01545 DTSBX626
|
||||||
01546 CL*29
|
01546 T0000-CONTINUE. CL209
|
||||||
01547 CLOSE ESSP-EMAIL-RPT. CL205
|
01547 CL*29
|
||||||
01548 CLOSE ESSP-IN-X145 ESSP-OUT-X145 ESSP-ACH-TOTALS. CL193
|
01548 CLOSE ESSP-EMAIL-RPT. CL205
|
||||||
01549 PERFORM S910-CLOSE THRU S910-EXIT. CL*29
|
01549 CLOSE ESSP-IN-X145 ESSP-OUT-X145 ESSP-ACH-TOTALS. CL193
|
||||||
01550 PERFORM S927-CLOSE THRU S927-EXIT. CL*29
|
01550 PERFORM S910-CLOSE THRU S910-EXIT. CL*29
|
||||||
01551 CL*29
|
01551 PERFORM S927-CLOSE THRU S927-EXIT. CL*29
|
||||||
01552 CL*29
|
01552 CL*29
|
||||||
01553 DTSBX626
|
01553 CL*29
|
||||||
01554 T0000-EXIT. DTSBX626
|
01554 DTSBX626
|
||||||
01555 EXIT. DTSBX626
|
01555 T0000-EXIT. DTSBX626
|
||||||
01556 DTSBX626
|
01556 EXIT. DTSBX626
|
||||||
01557 P1070-READ-MPRF. DTSBX626
|
01557 DTSBX626
|
||||||
01558 DTSBX626
|
01558 P1070-READ-MPRF. DTSBX626
|
||||||
01559 DTSBX626
|
01559 DTSBX626
|
||||||
01560 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX626
|
01560 DTSBX626
|
||||||
01561 SET MPRF-PRF-88 TO TRUE. DTSBX626
|
01561 MOVE LOW-VALUE TO MPRF-KEY-AREA. DTSBX626
|
||||||
01562 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130
|
01562 SET MPRF-PRF-88 TO TRUE. DTSBX626
|
||||||
01563 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131
|
01563 DISPLAY ' FAC6EMP ' FAC6-DUTAS-EMP-NO. CL130
|
||||||
01564 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131
|
01564 DISPLAY ' MPAYEMP ' MPAY-EMP-NO. CL131
|
||||||
01565 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX626
|
01565 MOVE MPAY-EMP-NO TO MPRF-EMP-NO. CL131
|
||||||
01566 DTSBX626
|
01566 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. DTSBX626
|
||||||
01567 PERFORM S910-READ THRU S910-EXIT. DTSBX626
|
01567 DTSBX626
|
||||||
01568 DTSBX626
|
01568 PERFORM S910-READ THRU S910-EXIT. DTSBX626
|
||||||
01569 IF L910-OK-88 DTSBX626
|
01569 DTSBX626
|
||||||
01570 SET L910-OK-88 TO TRUE DTSBX626
|
01570 IF L910-OK-88 DTSBX626
|
||||||
01571 MOVE MSKL-REC TO MPRF-REC DTSBX626
|
01571 SET L910-OK-88 TO TRUE DTSBX626
|
||||||
01572 ELSE DTSBX626
|
01572 MOVE MSKL-REC TO MPRF-REC DTSBX626
|
||||||
01573 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131
|
01573 ELSE DTSBX626
|
||||||
01574 SET L910-NO-REC-88 TO TRUE DTSBX626
|
01574 DISPLAY '********NO MPRF-REC FOUND ' L910-RESULT-IND CL131
|
||||||
01575 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX626
|
01575 SET L910-NO-REC-88 TO TRUE DTSBX626
|
||||||
01576 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX626
|
01576 DISPLAY '6090 L910 NO RECORD FOUND ' DTSBX626
|
||||||
01577 GO TO P1070-EXIT. DTSBX626
|
01577 PERFORM P1055-WRITE-F907 THRU P1055-EXIT DTSBX626
|
||||||
01578 DTSBX626
|
01578 GO TO P1070-EXIT. DTSBX626
|
||||||
01579 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127
|
01579 DTSBX626
|
||||||
01580 WS-FAC6-DUTAS-EMP-NAME. CL129
|
01580 MOVE MPRF-PRIMARY-NAME TO T025-NAME-CHECK CL127
|
||||||
01581 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129
|
01581 WS-FAC6-DUTAS-EMP-NAME. CL129
|
||||||
01582 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129
|
01582 DISPLAY ' EMP ' MPRF-PRIMARY-NAME ' ' MPRF-EMP-NO CL129
|
||||||
01583 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129
|
01583 DISPLAY ' T25 ' T025-NAME-CHECK ' ' MPRF-EMP-NO CL129
|
||||||
01584 P1070-EXIT. DTSBX626
|
01584 MOVE WS-FAC6-DUTAS-EMP-NAMEA TO FAC6-DUTAS-EMP-NAME. CL129
|
||||||
01585 EXIT. DTSBX626
|
01585 P1070-EXIT. DTSBX626
|
||||||
01586 DTSBX626
|
01586 EXIT. DTSBX626
|
||||||
01587 S3000-INIT-T003. CL*70
|
01587 DTSBX626
|
||||||
01588 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70
|
01588 S3000-INIT-T003. CL*70
|
||||||
01589 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70
|
01589 MOVE LOW-VALUES TO MNTE-KEY-AREA. CL*70
|
||||||
01590 SET MNTE-NTE-88 TO TRUE. CL*70
|
01590 MOVE MPAY-EMP-NO TO MNTE-EMP-NO. CL*70
|
||||||
01591 MOVE +0 TO MNTE-PURGE-DATE. CL*70
|
01591 SET MNTE-NTE-88 TO TRUE. CL*70
|
||||||
01592 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70
|
01592 MOVE +0 TO MNTE-PURGE-DATE. CL*70
|
||||||
01593 CL*70
|
01593 SET MNTE-NOT-CONVERTED-88 TO TRUE. CL*70
|
||||||
01594 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72
|
01594 CL*70
|
||||||
01595 MNTE-CHNG-DATE. CL*70
|
01595 MOVE L005-DATE TO MNTE-ESTB-DATE CL*72
|
||||||
01596 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70
|
01596 MNTE-CHNG-DATE. CL*70
|
||||||
01597 MNTE-DATA-ESTB-ABSTIME CL*70
|
01597 MOVE ZERO TO MNTE-KEY-ESTB-ABSTIME CL*70
|
||||||
01598 MNTE-CHNG-ABSTIME. CL*70
|
01598 MNTE-DATA-ESTB-ABSTIME CL*70
|
||||||
01599 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70
|
01599 MNTE-CHNG-ABSTIME. CL*70
|
||||||
01600 MNTE-CHNG-OP-ID. CL*70
|
01600 MOVE 'WEBESSP ' TO MNTE-ESTB-OP-ID CL*70
|
||||||
01601 MOVE +0 TO MNTE-TEXT-CNT. CL*70
|
01601 MNTE-CHNG-OP-ID. CL*70
|
||||||
01602 MOVE SPACES TO MNTE-TEXT-AREA. CL*70
|
01602 MOVE +0 TO MNTE-TEXT-CNT. CL*70
|
||||||
01603 CL*70
|
01603 MOVE SPACES TO MNTE-TEXT-AREA. CL*70
|
||||||
01604 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
01604 CL*70
|
||||||
01605 MOVE '003' TO T003-REC-TYPE. CL*70
|
01605 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
||||||
01606 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
01606 MOVE '003' TO T003-REC-TYPE. CL*70
|
||||||
01607 MOVE '003' TO T003-REC-TYPE. CL*70
|
01607 MOVE LENGTH OF T003-REC TO T003-LENGTH CL*70
|
||||||
01608 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70
|
01608 MOVE '003' TO T003-REC-TYPE. CL*70
|
||||||
01609 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70
|
01609 MOVE MPAY-EMP-NO TO T003-EMP-NO. CL*70
|
||||||
01610 MOVE L005-DATE TO T003-SYS-DATE. CL*72
|
01610 MOVE 'WEB PAY ' TO T003-ORIGIN. CL*70
|
||||||
01611 MOVE L005-TIME TO T003-SYS-TIME. CL*72
|
01611 MOVE L005-DATE TO T003-SYS-DATE. CL*72
|
||||||
01612 SET T003-ADD-MNTE-88 TO TRUE. CL*70
|
01612 MOVE L005-TIME TO T003-SYS-TIME. CL*72
|
||||||
01613 CL*70
|
01613 SET T003-ADD-MNTE-88 TO TRUE. CL*70
|
||||||
01614 S3000-EXIT. CL*70
|
01614 CL*70
|
||||||
01615 EXIT. CL*70
|
01615 S3000-EXIT. CL*70
|
||||||
01616 CL*70
|
01616 EXIT. CL*70
|
||||||
01617 DTSBX626
|
01617 CL*70
|
||||||
01618 S001-FROM-FED-8. CL*71
|
01618 DTSBX626
|
||||||
01619 SET L001-FROM-FED-8 TO TRUE. CL*71
|
01619 S001-FROM-FED-8. CL*71
|
||||||
01620 GO TO S001-DATE. CL*71
|
01620 SET L001-FROM-FED-8 TO TRUE. CL*71
|
||||||
01621 CL*71
|
01621 GO TO S001-DATE. CL*71
|
||||||
01622 S001-DATE. CL*71
|
01622 CL*71
|
||||||
01623 SKIP1 CL*71
|
01623 S001-DATE. CL*71
|
||||||
01624 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71
|
01624 SKIP1 CL*71
|
||||||
01625 S001-EXIT. CL*71
|
01625 CALL 'DTSBU001' USING L001-LINK-AREA. CL*71
|
||||||
01626 EXIT. CL*71
|
01626 S001-EXIT. CL*71
|
||||||
01627 S005-FROM-SYS. CL*71
|
01627 EXIT. CL*71
|
||||||
01628 DTSBX626
|
01628 S005-FROM-SYS. CL*71
|
||||||
01629 SET L005-FROM-SYS TO TRUE. DTSBX626
|
01629 DTSBX626
|
||||||
01630 GO TO S005-ABSTIME. DTSBX626
|
01630 SET L005-FROM-SYS TO TRUE. DTSBX626
|
||||||
01631 DTSBX626
|
01631 GO TO S005-ABSTIME. DTSBX626
|
||||||
01632 S005-ABSTIME. DTSBX626
|
01632 DTSBX626
|
||||||
01633 DTSBX626
|
01633 S005-ABSTIME. DTSBX626
|
||||||
01634 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX626
|
01634 DTSBX626
|
||||||
01635 DTSBX626
|
01635 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBX626
|
||||||
01636 S005-EXIT. DTSBX626
|
01636 DTSBX626
|
||||||
01637 EXIT. DTSBX626
|
01637 S005-EXIT. DTSBX626
|
||||||
01638 DTSBX626
|
01638 EXIT. DTSBX626
|
||||||
01639 DTSBX626
|
01639 DTSBX626
|
||||||
01640 S910-OPEN-UPDATE-NO-AIX. DTSBX626
|
01640 DTSBX626
|
||||||
01641 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX626
|
01641 S910-OPEN-UPDATE-NO-AIX. DTSBX626
|
||||||
01642 GO TO S910-MSTR-IO. DTSBX626
|
01642 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. DTSBX626
|
||||||
01643 DTSBX626
|
01643 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01644 EJECT DTSBX626
|
01644 DTSBX626
|
||||||
01645 S910-OPEN-READ. DTSBX626
|
01645 EJECT DTSBX626
|
||||||
01646 SET L910-OPEN-READ-88 TO TRUE. DTSBX626
|
01646 S910-OPEN-READ. DTSBX626
|
||||||
01647 GO TO S910-MSTR-IO. DTSBX626
|
01647 SET L910-OPEN-READ-88 TO TRUE. DTSBX626
|
||||||
01648 DTSBX626
|
01648 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01649 S910-READ. DTSBX626
|
01649 DTSBX626
|
||||||
01650 SET L910-READ-88 TO TRUE. DTSBX626
|
01650 S910-READ. DTSBX626
|
||||||
01651 GO TO S910-MSTR-IO. DTSBX626
|
01651 SET L910-READ-88 TO TRUE. DTSBX626
|
||||||
01652 DTSBX626
|
01652 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01653 S910-DELETE. DTSBX626
|
01653 DTSBX626
|
||||||
01654 SET L910-DELETE-88 TO TRUE. DTSBX626
|
01654 S910-DELETE. DTSBX626
|
||||||
01655 GO TO S910-MSTR-IO. DTSBX626
|
01655 SET L910-DELETE-88 TO TRUE. DTSBX626
|
||||||
01656 DTSBX626
|
01656 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01657 S910-WRITE. DTSBX626
|
01657 DTSBX626
|
||||||
01658 SET L910-WRITE-88 TO TRUE. DTSBX626
|
01658 S910-WRITE. DTSBX626
|
||||||
01659 GO TO S910-MSTR-IO. DTSBX626
|
01659 SET L910-WRITE-88 TO TRUE. DTSBX626
|
||||||
01660 DTSBX626
|
01660 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01661 S910-START-BROWSE. DTSBX626
|
01661 DTSBX626
|
||||||
01662 SET L910-START-BROWSE-88 TO TRUE. DTSBX626
|
01662 S910-START-BROWSE. DTSBX626
|
||||||
01663 GO TO S910-MSTR-IO. DTSBX626
|
01663 SET L910-START-BROWSE-88 TO TRUE. DTSBX626
|
||||||
01664 DTSBX626
|
01664 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01665 S910-READ-NEXT. DTSBX626
|
01665 DTSBX626
|
||||||
01666 SET L910-READ-NEXT-88 TO TRUE. DTSBX626
|
01666 S910-READ-NEXT. DTSBX626
|
||||||
01667 GO TO S910-MSTR-IO. DTSBX626
|
01667 SET L910-READ-NEXT-88 TO TRUE. DTSBX626
|
||||||
01668 DTSBX626
|
01668 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01669 S910-REWRITE. DTSBX626
|
01669 DTSBX626
|
||||||
01670 SET L910-REWRITE-88 TO TRUE. DTSBX626
|
01670 S910-REWRITE. DTSBX626
|
||||||
01671 GO TO S910-MSTR-IO. DTSBX626
|
01671 SET L910-REWRITE-88 TO TRUE. DTSBX626
|
||||||
01672 DTSBX626
|
01672 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01673 S910-CLOSE. DTSBX626
|
01673 DTSBX626
|
||||||
01674 SET L910-CLOSE-88 TO TRUE. DTSBX626
|
01674 S910-CLOSE. DTSBX626
|
||||||
01675 GO TO S910-MSTR-IO. DTSBX626
|
01675 SET L910-CLOSE-88 TO TRUE. DTSBX626
|
||||||
01676 DTSBX626
|
01676 GO TO S910-MSTR-IO. DTSBX626
|
||||||
01677 S910-MSTR-IO. DTSBX626
|
01677 DTSBX626
|
||||||
01678 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX626
|
01678 S910-MSTR-IO. DTSBX626
|
||||||
01679 MSKL-REC. DTSBX626
|
01679 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX626
|
||||||
01680 S910-EXIT. DTSBX626
|
01680 MSKL-REC. DTSBX626
|
||||||
01681 EXIT. DTSBX626
|
01681 S910-EXIT. DTSBX626
|
||||||
01682 DTSBX626
|
01682 EXIT. DTSBX626
|
||||||
01683 SKIP3 DTSBX626
|
01683 DTSBX626
|
||||||
01684 S921-OPEN-READ. DTSBX626
|
01684 SKIP3 DTSBX626
|
||||||
01685 SET L921-OPEN-READ-88 TO TRUE. DTSBX626
|
01685 S921-OPEN-READ. DTSBX626
|
||||||
01686 GO TO S921-AIX-IO. DTSBX626
|
01686 SET L921-OPEN-READ-88 TO TRUE. DTSBX626
|
||||||
01687 DTSBX626
|
01687 GO TO S921-AIX-IO. DTSBX626
|
||||||
01688 S921-READ. DTSBX626
|
01688 DTSBX626
|
||||||
01689 SET L921-READ-88 TO TRUE. DTSBX626
|
01689 S921-READ. DTSBX626
|
||||||
01690 GO TO S921-AIX-IO. DTSBX626
|
01690 SET L921-READ-88 TO TRUE. DTSBX626
|
||||||
01691 DTSBX626
|
01691 GO TO S921-AIX-IO. DTSBX626
|
||||||
01692 S921-START-BROWSE. DTSBX626
|
01692 DTSBX626
|
||||||
01693 SET L921-START-BROWSE-88 TO TRUE. DTSBX626
|
01693 S921-START-BROWSE. DTSBX626
|
||||||
01694 GO TO S921-AIX-IO. DTSBX626
|
01694 SET L921-START-BROWSE-88 TO TRUE. DTSBX626
|
||||||
01695 DTSBX626
|
01695 GO TO S921-AIX-IO. DTSBX626
|
||||||
01696 S921-READ-NEXT. DTSBX626
|
01696 DTSBX626
|
||||||
01697 SET L921-READ-NEXT-88 TO TRUE. DTSBX626
|
01697 S921-READ-NEXT. DTSBX626
|
||||||
01698 GO TO S921-AIX-IO. DTSBX626
|
01698 SET L921-READ-NEXT-88 TO TRUE. DTSBX626
|
||||||
01699 DTSBX626
|
01699 GO TO S921-AIX-IO. DTSBX626
|
||||||
01700 S921-CLOSE. DTSBX626
|
01700 DTSBX626
|
||||||
01701 SET L921-CLOSE-88 TO TRUE. DTSBX626
|
01701 S921-CLOSE. DTSBX626
|
||||||
01702 GO TO S921-AIX-IO. DTSBX626
|
01702 SET L921-CLOSE-88 TO TRUE. DTSBX626
|
||||||
01703 DTSBX626
|
01703 GO TO S921-AIX-IO. DTSBX626
|
||||||
01704 S921-AIX-IO. DTSBX626
|
01704 DTSBX626
|
||||||
01705 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX626
|
01705 S921-AIX-IO. DTSBX626
|
||||||
01706 ISKL-REC. DTSBX626
|
01706 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX626
|
||||||
01707 S921-EXIT. DTSBX626
|
01707 ISKL-REC. DTSBX626
|
||||||
01708 EXIT. DTSBX626
|
01708 S921-EXIT. DTSBX626
|
||||||
01709 DTSBX626
|
01709 EXIT. DTSBX626
|
||||||
01710 S927-OPEN-UPDATE. DTSBX626
|
01710 DTSBX626
|
||||||
01711 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX626
|
01711 S927-OPEN-UPDATE. DTSBX626
|
||||||
01712 GO TO S927-BTC-O. DTSBX626
|
01712 SET L927-OPEN-UPDATE-88 TO TRUE. DTSBX626
|
||||||
01713 DTSBX626
|
01713 GO TO S927-BTC-O. DTSBX626
|
||||||
01714 S927-WRITE. DTSBX626
|
01714 DTSBX626
|
||||||
01715 SET L927-WRITE-88 TO TRUE. DTSBX626
|
01715 S927-WRITE. DTSBX626
|
||||||
01716 GO TO S927-BTC-O. DTSBX626
|
01716 SET L927-WRITE-88 TO TRUE. DTSBX626
|
||||||
01717 DTSBX626
|
01717 GO TO S927-BTC-O. DTSBX626
|
||||||
01718 S927-CLOSE. DTSBX626
|
01718 DTSBX626
|
||||||
01719 SET L927-CLOSE-88 TO TRUE. DTSBX626
|
01719 S927-CLOSE. DTSBX626
|
||||||
01720 GO TO S927-BTC-O. DTSBX626
|
01720 SET L927-CLOSE-88 TO TRUE. DTSBX626
|
||||||
01721 DTSBX626
|
01721 GO TO S927-BTC-O. DTSBX626
|
||||||
01722 S927-BTC-O. DTSBX626
|
01722 DTSBX626
|
||||||
01723 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX626
|
01723 S927-BTC-O. DTSBX626
|
||||||
01724 TSKL-REC. DTSBX626
|
01724 CALL 'DTSBU927' USING L927-LINK-AREA DTSBX626
|
||||||
01725 S927-EXIT. DTSBX626
|
01725 TSKL-REC. DTSBX626
|
||||||
01726 EXIT. DTSBX626
|
01726 S927-EXIT. DTSBX626
|
||||||
01727 DTSBX626
|
01727 EXIT. DTSBX626
|
||||||
01728 EJECT DTSBX626
|
01728 DTSBX626
|
||||||
01729 S999-ABEND. DTSBX626
|
01729 EJECT DTSBX626
|
||||||
01730 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX626
|
01730 S999-ABEND. DTSBX626
|
||||||
01731 S999-EXIT. DTSBX626
|
01731 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX626
|
||||||
01732 EXIT. DTSBX626
|
01732 S999-EXIT. DTSBX626
|
||||||
|
01733 EXIT. DTSBX626
|
||||||
|
|||||||
1221
Batch/DTSBX629.cob
1221
Batch/DTSBX629.cob
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user