Dica Alterar senha via Programa

Código:

DEF VAR codUsuario  AS CHAR INIT "meuUsuario".
DEF VAR xsenha      AS CHAR INIT "MinhaSenha".
   
xsenha = BASE64-ENCODE(SHA1-DIGEST(LC(xsenha))). //ou xsenha = BASE64-ENCODE(SHA1-DIGEST(xsenha)).
FIND FIRST usuar_mestre WHERE usuar_mestre.cod_usuario = codUsuario EXCLUSIVE-LOCK.
IF AVAIL usuar_mestre THEN DO:
   ASSIGN usuar_mestre.cod_senha            = xsenha
          usuar_mestre.cod_senha_framework  = xsenha
          /*usuar_mestre.dat_inic_valid       = 01/01/0001
          usuar_mestre.dat_fim_valid        = 12/31/9999
          usuar_mestre.dat_valid_senha      = 12/31/9999
          usuar_mestre.num_dias_valid_senha = 9999999
          usuar_mestre.ind_tip_usuar        = "Comum" //Super - Comum*/
          .
   MESSAGE "Feito"
       VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
END.
ELSE DO:
   MESSAGE "Usuário não encontrado!"
       VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
END.