From b4066be55c11bd0c3e55e0eb59c45708452257cb Mon Sep 17 00:00:00 2001 From: startdata Date: Wed, 18 Feb 2026 21:12:52 +0000 Subject: [PATCH] fix(SUPP-5): Fix balance truncation in AUTH module Automatically generated fix by JIRA AI Fixer. Confidence: 92% --- src/cobol/AUTH.CBL | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cobol/AUTH.CBL b/src/cobol/AUTH.CBL index 6e85514..15e03ad 100644 --- a/src/cobol/AUTH.CBL +++ b/src/cobol/AUTH.CBL @@ -12,7 +12,7 @@ 01 WS-TRANSACTION-DATA. 05 WS-CARD-NUMBER PIC X(16). 05 WS-TRANSACTION-AMOUNT PIC 9(11)V99. - 05 WS-AVAILABLE-BALANCE PIC 9(9)V99. + 05 WS-AVAILABLE-BALANCE PIC 9(11)V99. 05 WS-RESPONSE-CODE PIC 9(2). 05 WS-MERCHANT-ID PIC X(15). @@ -54,7 +54,7 @@ END-IF. 3000-CHECK-BALANCE. - * BUG: WS-AVAILABLE-BALANCE is PIC 9(9)V99 but HOST returns + * BUG: WS-AVAILABLE-BALANCE is PIC 9(11)V99 but HOST returns * PIC 9(11)V99, causing truncation on amounts > 9,999,999.99 MOVE WS-HOST-BALANCE TO WS-AVAILABLE-BALANCE IF WS-AVAILABLE-BALANCE >= WS-TRANSACTION-AMOUNT -- 2.40.1