diff options
Diffstat (limited to 'src/cepis-normalize-cep.cob')
| -rw-r--r-- | src/cepis-normalize-cep.cob | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/cepis-normalize-cep.cob b/src/cepis-normalize-cep.cob index 41615ad..cdbc954 100644 --- a/src/cepis-normalize-cep.cob +++ b/src/cepis-normalize-cep.cob @@ -36,6 +36,8 @@ MAIN-START. MOVE 0 TO CEPIS-STATUS-ATTEMPTS MOVE -1 TO CEPIS-STATUS-RETRY-AFTER-MS MOVE SPACES TO CEPIS-STATUS-MESSAGE + INITIALIZE CEPIS-FAIXA + SET CEPIS-FAIXA-ABSENT TO TRUE PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 20 MOVE CEPIS-CEP-INPUT(WS-I:1) TO WS-C |