本文共 623 字，大约阅读时间需要 2 分钟。

REPOSRC ：Report Source Code

DATA SUM TYPE I.

PARAMETERS P_NAME TYPE STRING.

    SELECT COUNT(*)

     FROM E070

     INNER JOIN E071 ON E071~TRKORR = E070~TRKORR

     INTO SUM

     WHERE E071~OBJ_NAME = P_NAME

       AND E071~LOCKFLAG <> ''

       AND E070~TRSTATUS  = 'R'.

REPOSRC 这个表很有意思，它包含任何一个程序的激活次数，即字段VERN(版本)

其中的字段R3STATE 如果是A则表明是激活的版本。如果是I 表明是被修改的状态，如果最新的版本没有被激活，则会出现R3STATE字段有A 和 I 的两组数据。其中I为最新的保存数据的记录，VERN记录修改的次数。R3STATE字段为A的则是记录前一次被激活的版本数据，VERN对应的版本号。

表REPOSRC对应一个视图这个视图是 PROGDIR.

使用这个视图对我们的控制会更有帮助，其中这个视图标签SELECITONS CONDITIONS中进行限制如下：

TABLE   FIELDNAME  操作  COMPARISON VALUE   AND/OR

REPOSRC R3STATE     EQ         'A'            OR

REPOSRC R3STATE     EQ         'I'

存放变式的表 VARI 这是一张数据簇表。

转载地址：http://somaf.baihongyu.com/