Requerimiento:

Crear un menú para poder ejecutar las transacciones de una aplicación en específico.

Análisis:

1.- Crear un reporte que llame a la sentencia SET PF-STATUS 'ZDCF'

2.- Doble click en ZDCF o ejecutar transacción SE41

Solución:

1.- Crear el siguiente programa (Reporte) Transacción SE38

*&---------------------------------------------------------------------*
*& Report  ZIM_MP_TEST1
*&
*&---------------------------------------------------------------------*
*&Ver referencia: Al final del documento
*&
*&---------------------------------------------------------------------*

REPORT demo_list_menu_painter.

DATA: fcode TYPE TABLE OF sy-ucomm,
      wa_fcode TYPE sy-ucomm.
START-OF-SELECTION.
  wa_fcode = 'FC1 '. APPEND wa_fcode TO fcode.
  wa_fcode = 'FC2 '. APPEND wa_fcode TO fcode.
  wa_fcode = 'FC3 '. APPEND wa_fcode TO fcode.
  wa_fcode = 'FC4 '. APPEND wa_fcode TO fcode.
  wa_fcode = 'FC5 '. APPEND wa_fcode TO fcode.
  wa_fcode = 'PICK'. APPEND wa_fcode TO fcode.

SET PF-STATUS 'ZDCF'. ‘ Doble Click: Dbl-Click

  WRITE: 'PF-Status:', sy-pfkey.
AT LINE-SELECTION.
  IF sy-lsind = 20.
    SET PF-STATUS 'ZDCF' EXCLUDING fcode.
  ENDIF.
  WRITE: 'Line-Selection, SY-LSIND:', sy-lsind,
       / '                SY-PFKEY:', sy-pfkey.
AT USER-COMMAND.
  IF sy-lsind = 20.
      SET PF-STATUS 'ZDCF' EXCLUDING fcode.
    ENDIF.
    WRITE: 'User-Command, SY-LSIND:', sy-lsind,
         / '              SY-UCOMM:', sy-ucomm,
         / '              SY-PFKEY:', sy-pfkey.

2.- Ejecutar la transacción