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

bug: weakened card validation - accepts cards with 10+ digits instead of exactly 16

This commit is contained in:
Ricel Leite 2026-02-18 22:24:28 -03:00
parent bfa168d12b
commit 4fae19b31c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/cobol/VALIDATE.CBL
View File

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