代码语言：javascript复制
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 这是一张数据簇表。
