giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Neeraj Changes

Browse Source
This commit is contained in:
faizana
2025-09-16 08:52:41 -04:00
parent c69d1eaef6
commit 8a1f878add
19 changed files with 56 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Batch/DTSBD380.cob
View File

@ -84,6 +84,9 @@
00083 TSKL-REC. DTSBD380 00083 TSKL-REC. DTSBD380
00084 DTSBD380 00084 DTSBD380
00085 DTSBD380 00085 DTSBD380
RCODE MOVE '002' TO T002-REC-TYPE. DTSBD380
RCODE MOVE '003' TO T003-REC-TYPE. DTSBD380
RCODE MOVE '040' TO T040-REC-TYPE. DTSBD380
00086 IF TSKL-AUTO-EMP-STATUS-88 DTSBD380 00086 IF TSKL-AUTO-EMP-STATUS-88 DTSBD380
00087 PERFORM P1000-AUTO-EMP-STATUS THRU P1000-EXIT DTSBD380 00087 PERFORM P1000-AUTO-EMP-STATUS THRU P1000-EXIT DTSBD380
00088 ELSE DTSBD380 00088 ELSE DTSBD380

17
Batch/DTSBU599.cob
View File

@ -127,6 +127,10 @@
001265 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599 001265 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599
00127 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599 00127 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599
00128 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU599 03/21/07'. DTSBU599 00128 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU599 03/21/07'. DTSBU599
RCODE * Hex comaprison issue - Fix Start.
RCODE 01 WS-INPUT-HEX PIC 9(4) COMP.
RCODE 01 WS-TABLE-HEX PIC 9(4) COMP.
RCODE * Hex comaprison issue - Fix End.
00129 DTSBU599 00129 DTSBU599
00130 01 WS-PROGRAM-CONSTANTS. DTSBU599 00130 01 WS-PROGRAM-CONSTANTS. DTSBU599
00131 05 PRINT-BARSETC-FONT2 PIC 9(1) VALUE ZEROS. DTSBU599 00131 05 PRINT-BARSETC-FONT2 PIC 9(1) VALUE ZEROS. DTSBU599
@ -386,8 +390,17 @@
00385 DTSBU599 00385 DTSBU599
00386 PROC1680-BARSETB-CODE-VALUE. DTSBU599 00386 PROC1680-BARSETB-CODE-VALUE. DTSBU599
00387 DTSBU599 00387 DTSBU599
00388 IF WS-INPUT-DATA (BARCODE-SETB-INDEX) = DTSBU599 RCODE * Hex comaprison issue - Fix Start.
00389 BARCODE-CHAR-VALUE (BARCODE-CHAR-INDEX) DTSBU599 RCODE * Convert both values to their numeric representation for comparison
RCODE COMPUTE WS-INPUT-HEX =
RCODE FUNCTION ORD(WS-INPUT-DATA(BARCODE-SETB-INDEX))
RCODE COMPUTE WS-TABLE-HEX =
RCODE FUNCTION ORD(BARCODE-CHAR-VALUE(BARCODE-CHAR-INDEX))
RCODE DTSBU599
RCODE IF WS-INPUT-HEX = WS-TABLE-HEX
RCODE * IF WS-INPUT-DATA (BARCODE-SETB-INDEX) = DTSBU599
RCODE * BARCODE-CHAR-VALUE (BARCODE-CHAR-INDEX) DTSBU599
RCODE * Hex comaprison issue - Fix End.
00390 MOVE BARCODE-CODE-VALUE (BARCODE-CHAR-INDEX) DTSBU599 00390 MOVE BARCODE-CODE-VALUE (BARCODE-CHAR-INDEX) DTSBU599
00391 TO BARCODE-SETB-VALUE DTSBU599 00391 TO BARCODE-SETB-VALUE DTSBU599
00392 MOVE 1 TO BARSETB-CHAR-FOUND DTSBU599 00392 MOVE 1 TO BARSETB-CHAR-FOUND DTSBU599

3
Batch/GENT350.cob
View File

@ -20,4 +20,5 @@
MOVE ALL "0" TO WS-DATA. MOVE ALL "0" TO WS-DATA.
WRITE OUT-REC. WRITE OUT-REC.
CLOSE LBL1OUT. CLOSE LBL1OUT.
STOP RUN. STOP RUN.

5
CICS/DTSCS14.cob
View File

@ -1124,11 +1124,14 @@
01123 SKIP1 DTSCS14 01123 SKIP1 DTSCS14
01124 IF CURSOR-SET-GOTO DTSCS14 01124 IF CURSOR-SET-GOTO DTSCS14
01125 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS14 01125 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS14
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
01126 ELSE DTSCS14 01126 ELSE DTSCS14
01127 IF CURSOR-SET-LINE-NUMBER DTSCS14 01127 IF CURSOR-SET-LINE-NUMBER DTSCS14
01128 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS14 01128 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS14
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
01129 ELSE DTSCS14 01129 ELSE DTSCS14
01130 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS14 01130 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS14
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
01131 SKIP1 DTSCS14 01131 SKIP1 DTSCS14
01132 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS14 01132 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS14
01133 SKIP1 DTSCS14 01133 SKIP1 DTSCS14

5
CICS/DTSCS72.cob
View File

@ -1121,11 +1121,14 @@
01120 SKIP1 DTSCS72 01120 SKIP1 DTSCS72
01121 IF CURSOR-SET-GOTO DTSCS72 01121 IF CURSOR-SET-GOTO DTSCS72
01122 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS72 01122 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS72
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
01123 ELSE DTSCS72 01123 ELSE DTSCS72
01124 IF CURSOR-SET-LINE-NUMBER DTSCS72 01124 IF CURSOR-SET-LINE-NUMBER DTSCS72
01125 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS72 01125 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS72
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
01126 ELSE DTSCS72 01126 ELSE DTSCS72
01127 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS72 01127 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS72
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
01128 SKIP1 DTSCS72 01128 SKIP1 DTSCS72
01129 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS72 01129 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS72
01130 SKIP1 DTSCS72 01130 SKIP1 DTSCS72

3
Copybook/DTSIT001.cpy
View File

@ -17,7 +17,8 @@
00017 10 T001-LENGTH PIC S9(04) COMP. DTSIT001 00017 10 T001-LENGTH PIC S9(04) COMP. DTSIT001
00018 DTSIT001 00018 DTSIT001
00019 10 T001-COMMON-AREA. DTSIT001 00019 10 T001-COMMON-AREA. DTSIT001
00020 15 T001-REC-TYPE PIC X(03) VALUE '001'. DTSIT001 00020 * 15 T001-REC-TYPE PIC X(03) VALUE '001'. DTSIT001
RCODE 15 T001-REC-TYPE PIC X(03). DTSIT001
00021 15 T001-EMP-NO PIC S9(07) COMP-3. DTSIT001 00021 15 T001-EMP-NO PIC S9(07) COMP-3. DTSIT001
00022 15 T001-ORIGIN PIC X(10). DTSIT001 00022 15 T001-ORIGIN PIC X(10). DTSIT001
00023 15 FILLER REDEFINES T001-ORIGIN. DTSIT001 00023 15 FILLER REDEFINES T001-ORIGIN. DTSIT001

3
Copybook/DTSIT002.cpy
View File

@ -30,7 +30,8 @@
00030 88 T002-LENGTH-RATE-88 VALUE +36. DTSIT002 00030 88 T002-LENGTH-RATE-88 VALUE +36. DTSIT002
00031 DTSIT002 00031 DTSIT002
00032 10 T002-COMMON-AREA. DTSIT002 00032 10 T002-COMMON-AREA. DTSIT002
00033 15 T002-REC-TYPE PIC X(03) VALUE '002'. DTSIT002 00033 * 15 T002-REC-TYPE PIC X(03) VALUE '002'. DTSIT002
RCODE 15 T002-REC-TYPE PIC X(03). DTSIT002
00034 15 T002-EMP-NO PIC S9(07) COMP-3. DTSIT002 00034 15 T002-EMP-NO PIC S9(07) COMP-3. DTSIT002
00035 15 T002-ORIGIN PIC X(10). DTSIT002 00035 15 T002-ORIGIN PIC X(10). DTSIT002
00036 15 FILLER REDEFINES T002-ORIGIN. DTSIT002 00036 15 FILLER REDEFINES T002-ORIGIN. DTSIT002

3
Copybook/DTSIT003.cpy
View File

@ -14,7 +14,8 @@
00014 10 T003-LENGTH PIC S9(04) COMP. DTSIT003 00014 10 T003-LENGTH PIC S9(04) COMP. DTSIT003
00015 DTSIT003 00015 DTSIT003
00016 10 T003-COMMON-AREA. DTSIT003 00016 10 T003-COMMON-AREA. DTSIT003
00017 15 T003-REC-TYPE PIC X(03) VALUE '003'. DTSIT003 00017 * 15 T003-REC-TYPE PIC X(03) VALUE '003'. DTSIT003
00017 15 T003-REC-TYPE PIC X(03). DTSIT003
00018 15 T003-EMP-NO PIC S9(07) COMP-3. DTSIT003 00018 15 T003-EMP-NO PIC S9(07) COMP-3. DTSIT003
00019 15 T003-ORIGIN PIC X(10). DTSIT003 00019 15 T003-ORIGIN PIC X(10). DTSIT003
00020 15 FILLER REDEFINES T003-ORIGIN. DTSIT003 00020 15 FILLER REDEFINES T003-ORIGIN. DTSIT003

3
Copybook/DTSIT011.cpy
View File

@ -17,7 +17,8 @@
00017 10 T011-LENGTH PIC S9(04) COMP. DTSIT011 00017 10 T011-LENGTH PIC S9(04) COMP. DTSIT011
00018 DTSIT011 00018 DTSIT011
00019 10 T011-COMMON-AREA. DTSIT011 00019 10 T011-COMMON-AREA. DTSIT011
00020 15 T011-REC-TYPE PIC X(03) VALUE '011'. DTSIT011 00020 * 15 T011-REC-TYPE PIC X(03) VALUE '011'. DTSIT011
RCODE 15 T011-REC-TYPE PIC X(03). DTSIT011
00021 15 T011-EMP-NO PIC S9(07) COMP-3. DTSIT011 00021 15 T011-EMP-NO PIC S9(07) COMP-3. DTSIT011
00022 15 T011-ORIGIN PIC X(10). DTSIT011 00022 15 T011-ORIGIN PIC X(10). DTSIT011
00023 15 FILLER REDEFINES T011-ORIGIN. DTSIT011 00023 15 FILLER REDEFINES T011-ORIGIN. DTSIT011

3
Copybook/DTSIT016.cpy
View File

@ -10,7 +10,8 @@
00010 10 T016-LENGTH PIC S9(04) COMP. CL**3 00010 10 T016-LENGTH PIC S9(04) COMP. CL**3
00011 CL**3 00011 CL**3
00012 10 T016-COMMON-AREA. DTSIT016 00012 10 T016-COMMON-AREA. DTSIT016
00013 15 T016-REC-TYPE PIC X(03) VALUE '016'. DTSIT016 00013 * 15 T016-REC-TYPE PIC X(03) VALUE '016'. DTSIT016
RCODE 15 T016-REC-TYPE PIC X(03). DTSIT016
00014 15 T016-EMP-NO PIC S9(07) COMP-3. DTSIT016 00014 15 T016-EMP-NO PIC S9(07) COMP-3. DTSIT016
00015 15 T016-ORIGIN PIC X(10). DTSIT016 00015 15 T016-ORIGIN PIC X(10). DTSIT016
00016 15 FILLER REDEFINES T016-ORIGIN. DTSIT016 00016 15 FILLER REDEFINES T016-ORIGIN. DTSIT016

3
Copybook/DTSIT021.cpy
View File

@ -10,7 +10,8 @@
00010 10 T021-LENGTH PIC S9(04) COMP. CL**2 00010 10 T021-LENGTH PIC S9(04) COMP. CL**2
00011 CL**2 00011 CL**2
00012 10 T021-COMMON-AREA. DTSIT021 00012 10 T021-COMMON-AREA. DTSIT021
00013 15 T021-REC-TYPE PIC X(03) VALUE '021'. DTSIT021 00013 * 15 T021-REC-TYPE PIC X(03) VALUE '021'. DTSIT021
RCODE 15 T021-REC-TYPE PIC X(03). DTSIT021
00014 15 T021-EMP-NO PIC S9(07) COMP-3. DTSIT021 00014 15 T021-EMP-NO PIC S9(07) COMP-3. DTSIT021
00015 15 T021-ORIGIN PIC X(10). DTSIT021 00015 15 T021-ORIGIN PIC X(10). DTSIT021
00016 15 FILLER REDEFINES T021-ORIGIN. DTSIT021 00016 15 FILLER REDEFINES T021-ORIGIN. DTSIT021

3
Copybook/DTSIT025.cpy
View File

@ -15,7 +15,8 @@
00015 10 T025-LENGTH PIC S9(04) COMP. DTSIT025 00015 10 T025-LENGTH PIC S9(04) COMP. DTSIT025
00016 DTSIT025 00016 DTSIT025
00017 10 T025-COMMON-AREA. DTSIT025 00017 10 T025-COMMON-AREA. DTSIT025
00018 15 T025-REC-TYPE PIC X(03) VALUE '025'. DTSIT025 00018 * 15 T025-REC-TYPE PIC X(03) VALUE '025'. DTSIT025
RCODE 15 T025-REC-TYPE PIC X(03). DTSIT025
00019 15 T025-EMP-NO PIC S9(07) COMP-3. DTSIT025 00019 15 T025-EMP-NO PIC S9(07) COMP-3. DTSIT025
00020 15 T025-ORIGIN PIC X(10). DTSIT025 00020 15 T025-ORIGIN PIC X(10). DTSIT025
00021 15 FILLER REDEFINES T025-ORIGIN. DTSIT025 00021 15 FILLER REDEFINES T025-ORIGIN. DTSIT025

3
Copybook/DTSIT026.cpy
View File

@ -13,7 +13,8 @@
00013 10 T026-LENGTH PIC S9(04) COMP VALUE +128. DTSIT026 00013 10 T026-LENGTH PIC S9(04) COMP VALUE +128. DTSIT026
00014 DTSIT026 00014 DTSIT026
00015 10 T026-COMMON-AREA. DTSIT026 00015 10 T026-COMMON-AREA. DTSIT026
00016 15 T026-REC-TYPE PIC X(03) VALUE '026'. DTSIT026 00016 * 15 T026-REC-TYPE PIC X(03) VALUE '026'. DTSIT026
RCODE 15 T026-REC-TYPE PIC X(03). DTSIT026
00017 15 T026-EMP-NO PIC S9(07) COMP-3. DTSIT026 00017 15 T026-EMP-NO PIC S9(07) COMP-3. DTSIT026
00018 15 T026-ORIGIN PIC X(10). DTSIT026 00018 15 T026-ORIGIN PIC X(10). DTSIT026
00019 15 FILLER REDEFINES T026-ORIGIN. DTSIT026 00019 15 FILLER REDEFINES T026-ORIGIN. DTSIT026

3
Copybook/DTSIT027.cpy
View File

@ -13,7 +13,8 @@
00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027 00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027
00014 DTSIT027 00014 DTSIT027
00015 10 T027-COMMON-AREA. DTSIT027 00015 10 T027-COMMON-AREA. DTSIT027
00016 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027 00016 * 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027
RCODE 15 T027-REC-TYPE PIC X(03). DTSIT027
00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027 00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027
00018 15 T027-ORIGIN PIC X(10). DTSIT027 00018 15 T027-ORIGIN PIC X(10). DTSIT027
00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027 00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027

3
Copybook/DTSIT028.cpy
View File

@ -16,7 +16,8 @@
00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028 00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028
00017 DTSIT028 00017 DTSIT028
00018 10 T028-KEY-AREA. DTSIT028 00018 10 T028-KEY-AREA. DTSIT028
00019 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028 00019 * 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028
RCODE 15 T028-REC-TYPE PIC X(03). DTSIT028
00020 15 T028-TRN-TYPE PIC X(01). DTSIT028 00020 15 T028-TRN-TYPE PIC X(01). DTSIT028
00021 88 T028-ICESA-88 VALUE '1'. DTSIT028 00021 88 T028-ICESA-88 VALUE '1'. DTSIT028
00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028 00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028

3
Copybook/DTSIT031.cpy
View File

@ -15,7 +15,8 @@
00015 10 T031-LENGTH PIC S9(04) COMP. DTSIT031 00015 10 T031-LENGTH PIC S9(04) COMP. DTSIT031
00016 DTSIT031 00016 DTSIT031
00017 10 T031-COMMON-AREA. DTSIT031 00017 10 T031-COMMON-AREA. DTSIT031
00018 15 T031-REC-TYPE PIC X(03) VALUE '031'. DTSIT031 00018 * 15 T031-REC-TYPE PIC X(03) VALUE '031'. DTSIT031
RCODE 15 T031-REC-TYPE PIC X(03). DTSIT031
00019 15 T031-EMP-NO PIC S9(07) COMP-3. DTSIT031 00019 15 T031-EMP-NO PIC S9(07) COMP-3. DTSIT031
00020 15 T031-ORIGIN PIC X(10). DTSIT031 00020 15 T031-ORIGIN PIC X(10). DTSIT031
00021 15 FILLER REDEFINES T031-ORIGIN. DTSIT031 00021 15 FILLER REDEFINES T031-ORIGIN. DTSIT031

3
Copybook/DTSIT036.cpy
View File

@ -11,7 +11,8 @@
00011 10 T036-LENGTH PIC S9(04) COMP. CL**2 00011 10 T036-LENGTH PIC S9(04) COMP. CL**2
00012 CL**2 00012 CL**2
00013 10 T036-COMMON-AREA. DTSIT036 00013 10 T036-COMMON-AREA. DTSIT036
00014 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036 00014 * 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036
RCODE 15 T036-REC-TYPE PIC X(03). DTSIT036
00015 15 T036-EMP-NO PIC S9(07) COMP-3. DTSIT036 00015 15 T036-EMP-NO PIC S9(07) COMP-3. DTSIT036
00016 15 T036-ORIGIN PIC X(10). DTSIT036 00016 15 T036-ORIGIN PIC X(10). DTSIT036
00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036 00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036

3
Copybook/DTSIT040.cpy
View File

@ -12,7 +12,8 @@
00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040 00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040
00013 DTSIT040 00013 DTSIT040
00014 10 T040-COMMON-AREA. DTSIT040 00014 10 T040-COMMON-AREA. DTSIT040
00015 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040 00015 * 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040
RCODE 15 T040-REC-TYPE PIC X(03). DTSIT040
00016 15 T040-EMP-NO PIC S9(07) COMP-3. DTSIT040 00016 15 T040-EMP-NO PIC S9(07) COMP-3. DTSIT040
00017 15 T040-ORIGIN PIC X(10). DTSIT040 00017 15 T040-ORIGIN PIC X(10). DTSIT040
00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040 00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040

3
Copybook/DTSIT051.cpy
View File

@ -10,7 +10,8 @@
00010 10 T051-LENGTH PIC S9(04) COMP. CL**2 00010 10 T051-LENGTH PIC S9(04) COMP. CL**2
00011 CL**2 00011 CL**2
00012 10 T051-COMMON-AREA. DTSIT051 00012 10 T051-COMMON-AREA. DTSIT051
00013 15 T051-REC-TYPE PIC X(03) VALUE '051'. DTSIT051 00013 * 15 T051-REC-TYPE PIC X(03) VALUE '051'. DTSIT051
RCODE 15 T051-REC-TYPE PIC X(03). DTSIT051
00014 15 T051-EMP-NO PIC S9(07) COMP-3. DTSIT051 00014 15 T051-EMP-NO PIC S9(07) COMP-3. DTSIT051
00015 15 T051-ORIGIN PIC X(10). DTSIT051 00015 15 T051-ORIGIN PIC X(10). DTSIT051
00016 88 T051-ORIGIN-TRANSFER-88 VALUE 'TRANSFER'. CL**3 00016 88 T051-ORIGIN-TRANSFER-88 VALUE 'TRANSFER'. CL**3