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

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

3
Batch/GENT350.cob
View File

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