Check

Validação de documentos.

Sintaxe

Check
[ CARTAO | CARD (número-do-cartão) ]
[ CEI matrícula-no-cadastro-específico-do-inss CEI-EDITADA ; cei-editada ]
[ { CIC | CPF } inscrição-pessoa-física [ { CIC-EDITADO | CPF-EDITADO } ; pf-editada ] ]
[ { CNPJ | CGC } inscrição-pessoa-jurídica [ { CNPJ-EDITADO | CGC-EDITADO } ; pj-editada ] ]
[ { PIS | PASEP | PIS-PASEP } inscrição-no-pis-ou-pasep
[ { PIS-EDITADO | PASEP-EDITADO | PIS-PASEP-EDITADO } ; pis-pasep-editado ] ]
[ TITULO-ELEITOR número-do-título [ TITULO-EDITADO ; título-editado ] ]
[ { UF | UNIDADE-FEDERATIVA }sigla-da-unidade-federativa [ { UF-EXTENSO | UNIDADE-EXTENSO }; nome-do-estado ] ]
[ { IE | INSCRICAO-ESTADUAL }inscrição-estadual  [ { IE-EDITADA INSCRICAO-EDITADA }; inscrição-estadual-editada ] ]
  ERROR-LEVEL;indicador-de-erro

Argumentos

número-do-cartão

Variável de 19 bytes que informa o número do cartão de crédito a ser validado, pode conter apenas os dígitos ou incluir os espaços separadores dos blocos de 4.

cei-editada

Variável de 17 bytes que recebe a matricula da CEI no formato editado caso seja consistente.

pf-editada

Variável de 14 bytes que recebe o CIC/CPF  no formato editado caso seja consistente.

pj-editada

Variável de 18 bytes que recebe o CNPJ/CGC  no formato editado caso seja consistente.

nome-do-estado

Variável que recebe o nome do estado por extenso caso a sigla seja válida.

pis-pasep-editado

Variável de 14 bytes que recebe o pis ou o pasep editado caso seja consistente.

título-editado

Variável de 13 bytes que recebe o número do título de eleitor no formato editado caso seja consistente.

inscrição-estadual-editada

Variável de até 18 bytes que recebe a inscrição estadual no formato editado caso seja consistente de acordo com o algoritmo da sigla-da-unidade-federativa informada.

indicador-de-erro

Valor retornado indicativo de erro de consistência que retorna zero quando as verificações solicitadas forem consistentes. Se diferente de zero significa que houve inconsistência. Em caso de verificações múltiplas a identificação dos erros específicos segue a seguinte codificação.

Nível de erro

Inconsistência

1

CEI

2

CIC/CPF

4

CNPJ/CGC

8

PIS/PASEP

16

TITULO-ELEITOR

32

UNIDADE-FEDERATIVA

64

INSCRICAO-ESTADUAL

128

CARTAO

Exemplos

EXEC COBOLware Check
           CIC cic-digitado
           ERROR-LEVEL;erro
END-EXEC

IF erro NOT = 0
     EXEC COBOLware Send
                Message "CPF inválido"
     END-EXEC
END-IF

EXEC COBOLware Check
           UNIDADE-FEDERATIVA estado-digitado
           INSCRICAO-ESTADUAL inscricao-digitada
           ERROR-LEVEL;erro
END-EXEC

IF erro NOT = 0
     EXEC  COBOLware Send
                Message "Inscrição estadual/Estado inconsistente"
     END-EXEC
END-IF

EXEC COBOLware Check
           PIS-PASEP pis-pasep-digitado
           TITULO-ELEITOR título-digitado
           ERROR-LEVEL;erro
END-EXEC

IF erro NOT < 16
     EXEC  COBOLware Send
                Message "Título de eleitor inconsistente"
     END-EXEC
     SBTRACT 16 FROM erro
END-IF

IF erro NOT < 8
     EXEC  COBOLware Send
                Message "PIS/PASEP inconsistente"
     END-EXEC
     SBTRACT 8 FROM erro
END-IF