嗨，

引用：-

 类型库：VRM。

 类型：电影开始，
         YR像YTG_MOVIE-YR，
         类似于YTG_MOVIE-CATEGORY的类别，
         WINNER LIKE YTG_MOVIE-WINNER，
         像YTG_MOVIE-NOTES一样的注释
         电影结束。

 数据：NAME TYPE VRM_ID，
       LIST TYPE VRM_VALUES，
       像清单上的值一样
       带有标题行的MOVIETAB类型电影标准尺寸表10。

 参数：CATEGORY（10）作为列表框的可见长度10。

 在选择屏幕上。
   如果是类别EQ''。
     讯息E006。
   万一。

 选择屏幕输出时。

   NAME =" CATEGORY"。

   VALUE-KEY ='PIC'。
   VALUE-TEXT ='PIC'。
   将值追加到列表。

   VALUE-KEY ='MAL'。
   VALUE-TEXT ='MAL'。
   将值追加到列表。

   VALUE-KEY ='FEM'。
   VALUE-TEXT ='FEM'。
   将值追加到列表。

   通话功能" VRM_SET_VALUES"
     出口
       ID = NAME
       值=清单。

 选择开始。

   WRITE：/'Category Selected：'，CATEGORY。

   ULINE。

   选择 *
   从YTG_MOVIE到表MOVIETAB的对应字段
   WATEE CATEGORY = CATEGORY。

 选择结束。

   写：/1'Year'，6'Category'，16'Winner'，50'Notes'。
   ULINE。

   环游越南。

     写：/1个MOVIETAB-YR，8个MOVIETAB-类别，16个MOVIETAB-WINNER，50个MOVIETAB-NOTES。
     ULINE。

   结局。

   如果SY-SUBRC <> 0。
     讯息I005。
   万一。
 

希望这对您有所帮助。

此致

Tarun