diff --git a/Batch/DTSBD380.cob b/Batch/DTSBD380.cob index f15151a..7091457 100644 --- a/Batch/DTSBD380.cob +++ b/Batch/DTSBD380.cob @@ -84,6 +84,9 @@ 00083 TSKL-REC. DTSBD380 00084 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 00087 PERFORM P1000-AUTO-EMP-STATUS THRU P1000-EXIT DTSBD380 00088 ELSE DTSBD380 diff --git a/Batch/DTSBU599.cob b/Batch/DTSBU599.cob index 119fcad..2e1cbe3 100644 --- a/Batch/DTSBU599.cob +++ b/Batch/DTSBU599.cob @@ -127,6 +127,10 @@ 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 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 00130 01 WS-PROGRAM-CONSTANTS. DTSBU599 00131 05 PRINT-BARSETC-FONT2 PIC 9(1) VALUE ZEROS. DTSBU599 @@ -386,8 +390,17 @@ 00385 DTSBU599 00386 PROC1680-BARSETB-CODE-VALUE. DTSBU599 00387 DTSBU599 -00388 IF WS-INPUT-DATA (BARCODE-SETB-INDEX) = DTSBU599 -00389 BARCODE-CHAR-VALUE (BARCODE-CHAR-INDEX) DTSBU599 +RCODE * Hex comaprison issue - Fix Start. +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 00391 TO BARCODE-SETB-VALUE DTSBU599 00392 MOVE 1 TO BARSETB-CHAR-FOUND DTSBU599 diff --git a/Batch/GENT350.cob b/Batch/GENT350.cob index 5d70dd9..76ee7ac 100644 --- a/Batch/GENT350.cob +++ b/Batch/GENT350.cob @@ -20,4 +20,5 @@ 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/CICS/DTSCS14.cob b/CICS/DTSCS14.cob index a4c8caf..d066884 100644 --- a/CICS/DTSCS14.cob +++ b/CICS/DTSCS14.cob @@ -1124,11 +1124,14 @@ 01123 SKIP1 DTSCS14 01124 IF CURSOR-SET-GOTO DTSCS14 01125 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS14 +RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A 01126 ELSE DTSCS14 01127 IF CURSOR-SET-LINE-NUMBER 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 -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 01132 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS14 01133 SKIP1 DTSCS14 diff --git a/CICS/DTSCS72.cob b/CICS/DTSCS72.cob index ae54c26..3550e38 100644 --- a/CICS/DTSCS72.cob +++ b/CICS/DTSCS72.cob @@ -1121,11 +1121,14 @@ 01120 SKIP1 DTSCS72 01121 IF CURSOR-SET-GOTO DTSCS72 01122 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS72 +RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A 01123 ELSE DTSCS72 01124 IF CURSOR-SET-LINE-NUMBER 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 -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 01129 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS72 01130 SKIP1 DTSCS72 diff --git a/Copybook/DTSIT001.cpy b/Copybook/DTSIT001.cpy index abec587..ff62ff7 100644 --- a/Copybook/DTSIT001.cpy +++ b/Copybook/DTSIT001.cpy @@ -17,7 +17,8 @@ 00017 10 T001-LENGTH PIC S9(04) COMP. DTSIT001 00018 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 00022 15 T001-ORIGIN PIC X(10). DTSIT001 00023 15 FILLER REDEFINES T001-ORIGIN. DTSIT001 diff --git a/Copybook/DTSIT002.cpy b/Copybook/DTSIT002.cpy index f83b2f1..20b8734 100644 --- a/Copybook/DTSIT002.cpy +++ b/Copybook/DTSIT002.cpy @@ -30,7 +30,8 @@ 00030 88 T002-LENGTH-RATE-88 VALUE +36. DTSIT002 00031 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 00035 15 T002-ORIGIN PIC X(10). DTSIT002 00036 15 FILLER REDEFINES T002-ORIGIN. DTSIT002 diff --git a/Copybook/DTSIT003.cpy b/Copybook/DTSIT003.cpy index c519f61..16b4aa3 100644 --- a/Copybook/DTSIT003.cpy +++ b/Copybook/DTSIT003.cpy @@ -14,7 +14,8 @@ 00014 10 T003-LENGTH PIC S9(04) COMP. DTSIT003 00015 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 00019 15 T003-ORIGIN PIC X(10). DTSIT003 00020 15 FILLER REDEFINES T003-ORIGIN. DTSIT003 diff --git a/Copybook/DTSIT011.cpy b/Copybook/DTSIT011.cpy index f8232fc..37eaf21 100644 --- a/Copybook/DTSIT011.cpy +++ b/Copybook/DTSIT011.cpy @@ -17,7 +17,8 @@ 00017 10 T011-LENGTH PIC S9(04) COMP. DTSIT011 00018 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 00022 15 T011-ORIGIN PIC X(10). DTSIT011 00023 15 FILLER REDEFINES T011-ORIGIN. DTSIT011 diff --git a/Copybook/DTSIT016.cpy b/Copybook/DTSIT016.cpy index cc5058d..1d16018 100644 --- a/Copybook/DTSIT016.cpy +++ b/Copybook/DTSIT016.cpy @@ -10,7 +10,8 @@ 00010 10 T016-LENGTH PIC S9(04) COMP. CL**3 00011 CL**3 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 00015 15 T016-ORIGIN PIC X(10). DTSIT016 00016 15 FILLER REDEFINES T016-ORIGIN. DTSIT016 diff --git a/Copybook/DTSIT021.cpy b/Copybook/DTSIT021.cpy index d481d68..eacb0af 100644 --- a/Copybook/DTSIT021.cpy +++ b/Copybook/DTSIT021.cpy @@ -10,7 +10,8 @@ 00010 10 T021-LENGTH PIC S9(04) COMP. CL**2 00011 CL**2 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 00015 15 T021-ORIGIN PIC X(10). DTSIT021 00016 15 FILLER REDEFINES T021-ORIGIN. DTSIT021 diff --git a/Copybook/DTSIT025.cpy b/Copybook/DTSIT025.cpy index 70704e2..76eda4e 100644 --- a/Copybook/DTSIT025.cpy +++ b/Copybook/DTSIT025.cpy @@ -15,7 +15,8 @@ 00015 10 T025-LENGTH PIC S9(04) COMP. DTSIT025 00016 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 00020 15 T025-ORIGIN PIC X(10). DTSIT025 00021 15 FILLER REDEFINES T025-ORIGIN. DTSIT025 diff --git a/Copybook/DTSIT026.cpy b/Copybook/DTSIT026.cpy index 660a7b2..396df8f 100644 --- a/Copybook/DTSIT026.cpy +++ b/Copybook/DTSIT026.cpy @@ -13,7 +13,8 @@ 00013 10 T026-LENGTH PIC S9(04) COMP VALUE +128. DTSIT026 00014 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 00018 15 T026-ORIGIN PIC X(10). DTSIT026 00019 15 FILLER REDEFINES T026-ORIGIN. DTSIT026 diff --git a/Copybook/DTSIT027.cpy b/Copybook/DTSIT027.cpy index 826f101..be991db 100644 --- a/Copybook/DTSIT027.cpy +++ b/Copybook/DTSIT027.cpy @@ -13,7 +13,8 @@ 00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027 00014 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 00018 15 T027-ORIGIN PIC X(10). DTSIT027 00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027 diff --git a/Copybook/DTSIT028.cpy b/Copybook/DTSIT028.cpy index 207f065..278c5dd 100644 --- a/Copybook/DTSIT028.cpy +++ b/Copybook/DTSIT028.cpy @@ -16,7 +16,8 @@ 00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028 00017 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 00021 88 T028-ICESA-88 VALUE '1'. DTSIT028 00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028 diff --git a/Copybook/DTSIT031.cpy b/Copybook/DTSIT031.cpy index 8f41349..f08cb41 100644 --- a/Copybook/DTSIT031.cpy +++ b/Copybook/DTSIT031.cpy @@ -15,7 +15,8 @@ 00015 10 T031-LENGTH PIC S9(04) COMP. DTSIT031 00016 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 00020 15 T031-ORIGIN PIC X(10). DTSIT031 00021 15 FILLER REDEFINES T031-ORIGIN. DTSIT031 diff --git a/Copybook/DTSIT036.cpy b/Copybook/DTSIT036.cpy index e52db8f..ffe4610 100644 --- a/Copybook/DTSIT036.cpy +++ b/Copybook/DTSIT036.cpy @@ -11,7 +11,8 @@ 00011 10 T036-LENGTH PIC S9(04) COMP. CL**2 00012 CL**2 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 00016 15 T036-ORIGIN PIC X(10). DTSIT036 00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036 diff --git a/Copybook/DTSIT040.cpy b/Copybook/DTSIT040.cpy index 6b9d1a6..b21da73 100644 --- a/Copybook/DTSIT040.cpy +++ b/Copybook/DTSIT040.cpy @@ -12,7 +12,8 @@ 00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040 00013 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 00017 15 T040-ORIGIN PIC X(10). DTSIT040 00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040 diff --git a/Copybook/DTSIT051.cpy b/Copybook/DTSIT051.cpy index 9dab6d2..6c74afa 100644 --- a/Copybook/DTSIT051.cpy +++ b/Copybook/DTSIT051.cpy @@ -10,7 +10,8 @@ 00010 10 T051-LENGTH PIC S9(04) COMP. CL**2 00011 CL**2 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 00015 15 T051-ORIGIN PIC X(10). DTSIT051 00016 88 T051-ORIGIN-TRANSFER-88 VALUE 'TRANSFER'. CL**3