Creare un semplice cruscotto

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
TABLES: sscrfields.

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_uvet USER-COMMAND comm01,
                  COMMENT 6(79) TEXT-d11,
                  END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_del USER-COMMAND comm02,
                  COMMENT 6(79) TEXT-d21,
                  END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE,
                  COMMENT 6(79) TEXT-d22 MODIF ID id1,
                  END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_del2 USER-COMMAND comm10,
                  COMMENT 6(79) TEXT-d23,
                  END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE,
                  COMMENT 6(79) TEXT-d22 MODIF ID id1,
                  END OF LINE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_zint USER-COMMAND comm03,
                  COMMENT 6(79) TEXT-d31,
                  END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 6(4) pb_check USER-COMMAND comm04,
                  COMMENT 11(79) TEXT-d41,
                  END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 6(4) pb_appr USER-COMMAND comm05,
                  COMMENT 11(79) TEXT-d51,
                  END OF LINE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_exc USER-COMMAND comm06,
                  COMMENT 6(79) TEXT-d61,
                  END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_inter USER-COMMAND comm07,
                  COMMENT 6(79) TEXT-d71,
                  END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_forn USER-COMMAND comm08,
                  COMMENT 6(79) TEXT-d81,
                  END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_cdc USER-COMMAND comm09,
                  COMMENT 6(79) TEXT-d91,
                  END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN: BEGIN OF LINE,
                  PUSHBUTTON 1(4) pb_descr USER-COMMAND comm11,
                  COMMENT 6(79) TEXT-d92,
                  END OF LINE.
SELECTION-SCREEN END OF BLOCK b4.

*----------------------------------------------------------------------*
* EVENTS                                                               *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'COMM01'.
      CALL TRANSACTION 'ZHCM_ANAGR_UVET'.                
    WHEN 'COMM02'.
      CALL TRANSACTION 'ZHCM_ZT_ZINTORD_DEL'.            
    WHEN 'COMM10'.
      CALL TRANSACTION 'ZHCM_ZT_APPR_DEL'.               
    WHEN 'COMM03'.
      CALL TRANSACTION 'ZHCM_ZT_ZINTORD'.                
    WHEN 'COMM04'.
      CALL TRANSACTION 'ZHCM_IF_CHECK_OUT'.              
    WHEN 'COMM05'.
      CALL TRANSACTION 'ZHCM_APPR_IF_OUT'.               
    WHEN 'COMM06'.
      CALL TRANSACTION 'ZHCM_ZT_INTORD_E'.               
    WHEN 'COMM07'.
      CALL TRANSACTION 'ZHCM_INTERFACE_OUT'.             
    WHEN 'COMM08'.
      CALL TRANSACTION 'ZFBC_ESTR_FORN'.                 
    WHEN 'COMM09'.
      CALL TRANSACTION 'ZFBC_ESTR_CDC'.                  
    WHEN 'COMM11'.
      CALL TRANSACTION 'ZHCM_ZT_CHECK'.                  
  ENDCASE.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'ID1'.
      screen-intensified = 1.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

*----------------------------------------------------------------------*
* INIT                                                                 *
*----------------------------------------------------------------------*
INITIALIZATION.
  pb_uvet =
  pb_del =
  pb_del2 =
  pb_zint =
  pb_check =
  pb_appr =
  pb_exc =
  pb_inter =
  pb_forn  =
  pb_cdc =
  pb_descr = '@15@'.

*----------------------------------------------------------------------*
* PROGRAM BODY                                                         *
*----------------------------------------------------------------------*
START-OF-SELECTION.

END-OF-SELECTION.
  RETURN.

*----------------------------------------------------------------------*