Abap

*----------------------------------------------------------------------*
***INCLUDE Z_CALC_INCLUDE01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT. SET PF-STATUS 'STATUS_001'. SET TITLEBAR 'TITLE_0100'.

ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT. case sy-ucomm. when '1'. IF V_CONTADOR >= 2. CLEAR V_RESULTADO. IF V_STATUS = '='. CLEAR V_RESULTADO. CLEAR V_STATUS. ENDIF. ENDIF. CONCATENATE V_RESULTADO '1' INTO V_RESULTADO. when '2'. IF V_CONTADOR >= 2. CLEAR V_RESULTADO. IF V_STATUS = '='. CLEAR V_RESULTADO. CLEAR V_STATUS. ENDIF. ENDIF. CONCATENATE V_RESULTADO '2' INTO V_RESULTADO. when '3'. IF V_CONTADOR >= 2. CLEAR V_RESULTADO. IF V_STATUS = '='. CLEAR V_RESULTADO. CLEAR V_STATUS. ENDIF. ENDIF. CONCATENATE V_RESULTADO '3' INTO V_RESULTADO. WHEN '4'. IF V_CONTADOR >= 2. CLEAR V_RESULTADO. IF V_STATUS = '='. CLEAR V_RESULTADO. CLEAR V_STATUS. ENDIF. ENDIF. CONCATENATE