diff --git a/src/cobol/VALIDATE.CBL b/src/cobol/VALIDATE.CBL
index f32bb41..33eb68e 100644
--- a/src/cobol/VALIDATE.CBL
+++ b/src/cobol/VALIDATE.CBL
@@ -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.