赛跑网-计算透明表条目数的一段程序

SAPOK_ABAP

一段源代码，计算透明表条目数，可以批量计算！
REPORT  ztest002 NO STANDARD PAGE HEADING.

TABLES info_tabl.

**存放透明表名和开发类
DATA: BEGIN OF it_tablename OCCURS 0 ,
        tabname  LIKE dd02l-tabname ,     "透明表名称
        devclass LIKE info_tabl-devclass ,"透明表开发类
      END OF it_tablename.

*透明表条目数
DATA: line_num TYPE i .

**选择屏幕
SELECT-OPTIONS: s_table FOR it_tablename-tabname OBLIGATORY .

START-OF-SELECTION.

游客，如果您要查看本帖隐藏内容请回复

  LOOP AT it_tablename.
    CLEAR line_num.
    SELECT COUNT(*) INTO line_num FROM (it_tablename-tabname) .
    WRITE: / it_tablename-tabname,it_tablename-devclass, line_num.
  ENDLOOP.
  IF it_tablename[] IS INITIAL.
    MESSAGE '请检查数据表是否存在，若存在请确定其是否为透明表!' TYPE 'S'.
  ENDIF.

TOP-OF-PAGE.
  WRITE :  (30) '表名',
           (35) '开发类' ,
                '记录条件数'.
  ULINE.

xingfan234

先学习学习。。。。。

无言草

进行中。。。

semokim

计算透明表条目数的一段程序

lovedaxiang

xuexixuexi

leanne

学习

dorian110

学习

412768150

cx楼主辛苦啦，这个问题对我很重要

小强

谢谢

dlfxwan

人事大事