フィールド画面を選択するために、F4ヘルプを設定します

参照データエレメント、ドメインが存在しない場合には、ヘルプを検索し、カスタムF4ヘルプ

パラメータ：p_bukrs（4）TYPE Cマッチコードオブジェクト・H_T001。
AT  SELECTION-SCREEN   ON  VALUE-REQUEST   FOR   p_bukrs。
        PERFORM frm_f4 CHANGING p_bukrsを。
FORM frm_f4 CHANGING p_valueのを。
   定数は cns_retfield TYPEのフィールド名の値を' BUKRS ' 。   
   DATA：BEGIN  OF lt_value OCCURS  0 、
            BUKRS LIKE、T001-BUKRSを」公司代码      
            butxt LIKE T001-butxtは、「公司名称       
            END  OF lt_value。 
    DATAは：lt_retuen LIKE  TABLE  OF   ddshretval WITH  HEADERの ライン。  
   SELECT BUKRSをbutxt FROM T001 INTO  表lt_value。    
 CALLの FUNCTION  ' F4IF_INT_TABLE_VALUE_REQUEST '  
    EXPORTING  
        retfield         = cns_retfield   
        value_org        = ' S '    
   TABLESを 
       value_tab        = lt_value      
      return_tab       = lt_retuen   
    EXCEPTIONS  
       parameter_error = 1      
   no_values_found = 2       
  OTHERS           = 3 。  
  IF SY-SUBRC = 0 。 
    READ  TABLEを INDEX lt_retuen 1 。    
    p_valueの   = lt_retuen- fieldval。 
  ELSE 。 
  ENDIF 。 
ENDFORM。                    「frm_f4_bukrs