Screen F1幫助

 PERFORM MONITOR_INPUTHELP_F16  USING   FUN1.   "是screen上定義的listbox 

 

FORM MONITOR_INPUTHELP_F16 USING P_MONITOR TYPE C.
  DATA H_FIELDS_TAB LIKE HELP_VALUE OCCURS 1 WITH HEADER LINE.
  DATA H_TABIX LIKE SY-TABIX.
  H_FIELDS_TAB-TABNAME    = 'RIHEA'.
  H_FIELDS_TAB-FIELDNAME  = 'SLKNZ'.
  H_FIELDS_TAB-SELECTFLAG = G_X.
  APPEND H_FIELDS_TAB.
  H_FIELDS_TAB-TABNAME    = 'RIHEA'.
  H_FIELDS_TAB-FIELDNAME  = 'PM_REFFIELD'.
  H_FIELDS_TAB-SELECTFLAG = SPACE.
  APPEND H_FIELDS_TAB.

  CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
    EXPORTING
      SELECTFIELD                  = 'SLKNZ'
      TITEL                        = TEXT-F05
      WRITE_SELECTFIELD_IN_COLOURS = G_X
    IMPORTING
      IND                          = H_TABIX
    TABLES
      FIELDS                       = H_FIELDS_TAB
      FULL_TABLE                   = G_MONITOR_TAB
    EXCEPTIONS
      FULL_TABLE_EMPTY             = 1
      NO_TABLESTRUCTURE_GIVEN      = 2
      NO_TABLEFIELDS_IN_DICTIONARY = 3
      MORE_THEN_ONE_SELECTFIELD    = 4
      NO_SELECTFIELD               = 5
      OTHERS                       = 6.
  IF SY-SUBRC IS INITIAL.
    IF NOT H_TABIX IS INITIAL.
      READ TABLE G_MONITOR_TAB INDEX H_TABIX.
      P_MONITOR = G_MONITOR_TAB-COUNTER.
    ENDIF.
  ENDIF.
  REFRESH G_MONITOR_TAB.
ENDFORM.                    "MONITOR_INPUTHELP_F16