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
|
||||
00003 AUTHOR. NGC. LV077
|
||||
00003 AUTHOR. NGC. LV078
|
||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX417
|
||||
00005 DATE-COMPILED. DTSBX417
|
||||
00006 SKIP3 DTSBX417
|
||||
@ -147,7 +147,7 @@
|
||||
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
|
||||
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
|
||||
00151 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX420 10/07/14'. DTSBX417
|
||||
00152 SKIP3 DTSBX417
|
||||
@ -1207,10 +1207,10 @@
|
||||
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
|
||||
01209 * WHEN WEB-IMP-TYPE-REL-88 CL*78
|
||||
01210 * PERFORM P1200G-REL THRU P1200G-EXIT CL*78
|
||||
01211 * MOVE +5 TO SORT-SEQ1 CL*78
|
||||
01212 * MOVE X130-REC TO SORT-DATA CL*78
|
||||
01213 DTSBX417
|
||||
01214 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417
|
||||
01215 * MOVE +6 TO SORT-SEQ1 DTSBX417
|
||||
@ -1459,9 +1459,9 @@
|
||||
01458 P1200F-EXIT. DTSBX417
|
||||
01459 EXIT. DTSBX417
|
||||
01460 DTSBX417
|
||||
01461 P1200G-REL. DTSBX417
|
||||
01462 P1200G-EXIT. DTSBX417
|
||||
01463 EXIT. DTSBX417
|
||||
01461 *P1200G-REL. CL*78
|
||||
01462 *P1200G-EXIT. CL*78
|
||||
01463 * EXIT. CL*78
|
||||
01464 DTSBX417
|
||||
01465 P1200H-RPT. DTSBX417
|
||||
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
|
||||
00003 AUTHOR. NGC. LV051
|
||||
00003 AUTHOR. NGC. LV052
|
||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX418
|
||||
00005 DATE-COMPILED. DTSBX418
|
||||
00006 SKIP3 DTSBX418
|
||||
@ -142,7 +142,7 @@
|
||||
00142 05 SORT-DATA PIC X(512). DTSBX418
|
||||
00143 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
|
||||
00146 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX418 10/07/14'. CL*49
|
||||
00147 SKIP3 DTSBX418
|
||||
@ -566,8 +566,8 @@
|
||||
00565 MOVE W-CURR-RUN-DATE TO LX42-CURR-RUN-DATE. DTSBX418
|
||||
00566 MOVE L005-DATE TO LX42-SYS-DATE. DTSBX418
|
||||
00567 MOVE L005-TIME TO LX42-SYS-TIME. DTSBX418
|
||||
00568 * MOVE ZERO TO LX42-BATCH-NO DTSBX418
|
||||
00568 MOVE ZERO TO LX42-PSEUDO-BATCH-NO DTSBX418
|
||||
00568 * MOVE ZERO TO LX42-BATCH-NO CL*52
|
||||
00569 MOVE ZERO TO LX42-PSEUDO-BATCH-NO CL*52
|
||||
00570 LX42-LAST-DETERM-EMP DTSBX418
|
||||
00571 LX42-RPT-CNT 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
|
||||
00003 AUTHOR. NGC. LV253
|
||||
00003 AUTHOR. NGC. LV254
|
||||
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 '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
|
||||
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. CL253
|
||||
00766 PROCEDURE DIVISION USING LX42-LINK-AREA. CL254
|
||||
00767 DTSBX430
|
||||
00768 DTSBX430-MAIN. CL*47
|
||||
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
|
||||
00003 AUTHOR. NGC. LV224
|
||||
00003 AUTHOR. NGC. LV227
|
||||
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 * 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
|
||||
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 '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
|
||||
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). DTSBX626
|
||||
00201 88 WRK-MPRF-OK VALUE 'Y'. DTSBX626
|
||||
00202 88 WRK-MPRF-NO-REC VALUE 'N'. 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
|
||||
00203 DTSBX626
|
||||
00204 05 WRK-MPAY-IND PIC X(01). 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
|
||||
01524 MOVE WRK-X145-XYZ-CNT TO X626-CNT CL205
|
||||
01525 WRITE X626-REC. CL205
|
||||
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
|
||||
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
|
||||
01552 CL*29
|
||||
01553 DTSBX626
|
||||
01554 T0000-EXIT. DTSBX626
|
||||
01555 EXIT. DTSBX626
|
||||
01556 DTSBX626
|
||||
01557 P1070-READ-MPRF. DTSBX626
|
||||
01558 DTSBX626
|
||||
01553 CL*29
|
||||
01554 DTSBX626
|
||||
01555 T0000-EXIT. DTSBX626
|
||||
01556 EXIT. DTSBX626
|
||||
01557 DTSBX626
|
||||
01558 P1070-READ-MPRF. DTSBX626
|
||||
01559 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
|
||||
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
|
||||
01639 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
|
||||
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
|
||||
|
||||
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