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

SAPOK_ABAP · 发表于 2012-6-9 11:18:48

一段源代码，计算透明表条目数，可以批量计算！
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 · 发表于 2012-6-9 15:20:03

先学习学习。。。。。

无言草 · 发表于 2012-6-27 13:51:58

进行中。。。

semokim · 发表于 2012-6-27 20:13:38

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

lovedaxiang · 发表于 2013-1-15 10:23:34

xuexixuexi

leanne · 发表于 2013-1-18 11:44:17

学习

dorian110 · 发表于 2013-3-3 19:56:38

学习

412768150 · 发表于 2013-4-28 01:44:02

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

小强 · 发表于 2013-9-3 10:03:12

谢谢

dlfxwan · 发表于 2015-1-21 09:01:28

人事大事

		自动登录	找回密码
密码			注册

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

最近访客

thanks