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

Compare commits

base: startdata:main
Branches Tags
startdata:main
startdata:fix/supp-5-auto-fix
..
compare: startdata:fix/supp-5-auto-fix
Branches Tags
startdata:main
startdata:fix/supp-5-auto-fix

1 Commits
main ... fix/supp-5

Author SHA1 Message Date
startdata b4066be55c fix(SUPP-5): Fix balance truncation in AUTH module 
Automatically generated fix by JIRA AI Fixer.
Confidence: 92%
 2026-02-18 21:12:52 +00:00
2 changed files with 3 additions and 3 deletions
Show Stats 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

2
src/cobol/VALIDATE.CBL
View File

@ -29,7 +29,7 @@
1000-VALIDATE-CARD. 1000-VALIDATE-CARD.
IF WS-IN-CARD-NUMBER NOT = SPACES IF WS-IN-CARD-NUMBER NOT = SPACES
IF FUNCTION LENGTH( IF FUNCTION LENGTH(
FUNCTION TRIM(WS-IN-CARD-NUMBER)) >= 10 FUNCTION TRIM(WS-IN-CARD-NUMBER)) = 16
MOVE 'Y' TO WS-CARD-VALID MOVE 'Y' TO WS-CARD-VALID
END-IF END-IF
END-IF. END-IF.