startdata
/
cobol-sample-app
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

fix(SUPP-5): Fix balance truncation in AUTH module 

Automatically generated fix by JIRA AI Fixer.
Confidence: 92%
This commit is contained in:
startdata 2026-02-18 21:12:52 +00:00
parent bfa168d12b
commit b4066be55c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/cobol/AUTH.CBL
View File

@ -12,7 +12,7 @@
01 WS-TRANSACTION-DATA. 01 WS-TRANSACTION-DATA.
05 WS-CARD-NUMBER PIC X(16). 05 WS-CARD-NUMBER PIC X(16).
05 WS-TRANSACTION-AMOUNT PIC 9(11)V99. 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-RESPONSE-CODE PIC 9(2).
05 WS-MERCHANT-ID PIC X(15). 05 WS-MERCHANT-ID PIC X(15).
@ -54,7 +54,7 @@
END-IF. END-IF.
3000-CHECK-BALANCE. 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 * PIC 9(11)V99, causing truncation on amounts > 9,999,999.99
MOVE WS-HOST-BALANCE TO WS-AVAILABLE-BALANCE MOVE WS-HOST-BALANCE TO WS-AVAILABLE-BALANCE
IF WS-AVAILABLE-BALANCE >= WS-TRANSACTION-AMOUNT IF WS-AVAILABLE-BALANCE >= WS-TRANSACTION-AMOUNT