点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

一个ALV显示屏，显示文件状态，如果已处理[OK，NOK ...]或未处理； 基于服务器上可用的"文件名"以及数据库表中相应的已处理文件名/记录。



 表格：/wsv/abdxvvofile。

 参数：p_fdir类型pfeflnamel。

 类型：开始于ty_itab2，

          filename TYPE/wsv/abdxvvofile-filename，

          状态类型/wsv/abdxvvofile-file_status_cd，

        ty_itab2结束。

 数据：ls_struc TYPE dd07v。

 数据：lv_domain TYPE域名，

       带有默认密钥的dd07v的lt_values类型标准表。

 字段符号：类型ty_itab2。

 数据：it_filedir salfldir的类型表。

 数据：wa_it_filedir TYPE salfldir。


 数据：ty_itab2的it_itab2类型表，

       wa_itab2类型ty_itab2。

 选择开始。

   通话功能'RZL_READ_DIR_LOCAL'
     出口
       名称= p_fdir
     桌子
       file_tbl = it_filedir。

   循环至it_filedir INTO wa_it_filedir。

     清除wa_itab2。

     wa_itab2-filename = wa_it_filedir-name。

     将wa_itab2附加到it_itab2。

   结局。

   按文件名排序it_itab2。

   从it_itab2 COMPARING文件名中删除相邻的重复项。

   lv_domain ='/WSV/ABX_FILE_STATUS_CD'。
   通话功能" DDUT_DOMVALUES_GET"
     出口
       名称= lv_domain
       langu = sy-langu
     桌子
       dd07v_tab = lt_values。

   循环至it_itab2 ASSIGNING 。

     使用键DOMVALUE_L =  -status INTO ls_struc读取表lt_values。

     如果sy-subrc <> 0。

 * MESSAGE"未处理" TYPE" E"。
 写入：/ -FILENAME，"未进行处理"。

     否则。

 写入：/ -FILENAME，ls_struc-DDTEXT。
 *消息"已处理"类型" S"。

     万一。

   ENDLOOP。