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

17
Batch/DTSBU599.cob
View File

@ -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