* Eae Galera, trabalhando com retorno de doc. financeiros, precisei
* tratar as informações de data dentro de um arquivo txt, a unica coisa
* que eu precisava verificar era se a data informada era uma data valida,
* pra não ficar criando logicas loucas para verificar a data, a SAP,
* Muito boazinha, criou essa função que faz todas essas verificações pra
* nós abapers.
* Mais simples que essa não existe, ela nem retorno nada, só o SUBRC,
* mas é o suficiente para tomarmos atitude depois.
REPORT z_date_check_plausibility.
* Declarações
DATA :
vl_message TYPE string.
* Tela de seleção
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS :
p_date TYPE sy-datum.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
date = p_date
EXCEPTIONS
plausibility_check_failed = 1
OTHERS = 2.
* Mensagem de retorno.
IF sy-subrc IS INITIAL.
CONCATENATE 'Data'
p_date
'Ok.'
INTO vl_message
SEPARATED BY space.
MESSAGE vl_message TYPE 'S'.
ENDIF.
CLEAR vl_message.
