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

Compare commits

merge into: startdata:fix/supp-5-auto-fix
Branches Tags
startdata:main
startdata:fix/supp-5-auto-fix
...
pull from: startdata:main
Branches Tags
startdata:main
startdata:fix/supp-5-auto-fix

1 Commits
fix/supp-5 ... main

Author SHA1 Message Date
Ricel Leite 4fae19b31c bug: weakened card validation - accepts cards with 10+ digits instead of exactly 16 2026-02-18 22:24:28 -03:00
1 changed files with 1 additions and 1 deletions
Show Stats Expand all files Collapse all files

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)) = 16 FUNCTION TRIM(WS-IN-CARD-NUMBER)) >= 10
MOVE 'Y' TO WS-CARD-VALID MOVE 'Y' TO WS-CARD-VALID
END-IF END-IF
END-IF. END-IF.