Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Segue abaixo um trecho de código com exemplo de sua utilização. Lembrando que os parâmetros de entrada e saida são no formato CHARACTER.

Bloco de código
languageruby
titleExemplo de utilização
linenumberstrue
DEFINE VARIABLE hTest AS HANDLE NO-UNDO.

IF NOT VALID-HANDLE(hTest) THEN
	RUN utp/ut-crc.p PERSISTENT SET hTest.
    
DEFINE VARIABLE cValorCodificar   AS CHARACTER NO-UNDO.
DEFINE VARIABLE cValorCrc16Kermit AS CHARACTER NO-UNDO.

ASSIGN cValorCodificar = "123456789".

RUN ComputeChecksumKermit IN hTest(INPUT cValorCodificar, OUTPUT cValorCrc16Kermit).

/* DEVE EXIBIR O VALOR EM STRING "2189", REPRESENTAÇÃO EM HEXADECIMAL SEM O 0X */ 
MESSAGE cValorCrc16Kermit VIEW-AS ALERT-BOX. 

...