Programa ABAP para tratar Reg e Green de uma decision ABAP no Process Chain.

Programa ABAP para tratar Reg e Green de uma decision ABAP no Process Chain.

*&---------------------------------------------------------------------*
*& Report ZRED_OR_GREEN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zred_or_green.
DATA: zcl_abap_pt_decision TYPE REF TO zcl_abap_pt_decision,
l_flag TYPE rspc_state.
*
SELECTION-SCREEN BEGIN OF BLOCK eins WITH FRAME.
PARAMETERS: red RADIOBUTTON GROUP radi,
green RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK eins.
*
START-OF-SELECTION.
CREATE OBJECT zcl_abap_pt_decision.
IF NOT green IS INITIAL.
l_flag = zcl_abap_pt_decision=>success.
ELSE.
l_flag = zcl_abap_pt_decision=>failed.
ENDIF.
EXPORT e_state FROM l_flag TO MEMORY ID zcl_abap_pt_decision=>status_mem_id.