GetFocus

Obtém o foco do ACCEPT.

Sintaxe

GetFocus
[ FIELD;nome-de-campo ]
[ SUBSCRIPT; ocorrência ]
[ LENGTH;tamanho ]

Argumentos

nome-de-campo

Retorna o nome do campo da posição do cursor no momento do ACCEPT.

ocorrência

Retorna o número da ocorrência do campo da posição do cursor no momento do ACCEPT quando o nome se repete na tela.

Tamanho

Retorna o tamanho da área digitável preenchida ou em foco.

Exemplo

Codificação COBOL

ACCEPT LISTA-DE-MESES
EXEC COBOLware GetFocus
           FIELD;CAMPO
           SUBSCRIPT;OCORRENCIA
END-EXEC
IF CAMPO = “MES” AND OCORRENCIA = 2
     PERFORM PROCESSA-FEVEREIRO
END-IF