关于文件的ShareODP和USROPN

 1．ShareODP:
在PF或者LF编译的时候，有个SHARE（Share Open Data Path）的参数，控制该文件是否共享其打开路径。
如果指定SHARE为*NO的话，程序在每次打开一个文件的时候，都会为该文件建立一次访问路径；如果指定SHARE为*YES的话，程序在第一次打开该文件的时候，系统建立该文件的访问路径，在同一个ActiveGroup中再打开该文件时，就不再重新建立该文件的访问路径，而是共享使用之前建立的路径，从而提高了程序运行的速度。
一般在编译的时候该参数设置为*NO，即不是共享打开。在需要共享打开的时候，使用OVRDBF对该参数进行更改。

使用ShareODP需要注意的一些东西：
1）.由于在不同的ActiveGroup之间不能ShareODP，所以如果几个程序在编译的时候没有加入到同一个ActivationGroup中，ShareODP就不会有什么效果。
2）. 如果PGMA打开FILEA并定位到了第一条记录，然后PGMA调用PGMB；PGMB也打开了FILEA并直接读FILEA，将读到第二条记录； PGMB运行完后PGMA又继续读FILEA下一条记录，此时它读到的将是第三条记录。而如果没有ShareODP的话，PGMA两次读到的会是第一条和第二条记录，PGMB读到的会是第一条记录。

ActiveGroup:
在CRTPGM 的时候，有个参数ACTGRP(ActivationGroup)，控制该PGM在运行的时候属于哪个ActiveGroup。如果指定*NEW，则该 PGM会重新建立一个ActiveGroup；如果指定为*CALLER，则该PGM会与调用它的PGM使用同一个ActiveGroup。

2．UserOpen:
RPG程序在使用F表引用外部文件的时候，有一个KeyWords是USROPN。
在没有使用USROPN的时候：系统会在每次运行该程序的时候自动打开所引用的文件；一般可以通过设置*LR为*ON来自动关闭文件，但是如果是SubProcedure，系统不会自动关闭所打开的文件。
如果指定了USROPN：则系统不再控制文件的打开与关闭，由用户手工进行文件的OPEN与CLOSE；如果一个模块已经打开还没有关闭文件的情况下，该模块将不能再对该文件做打开的操作。
USROPN比系统自动打开文件要慢一些。在打开同一个文件5000次的情况下，USROPN使用了400毫秒，系统自动打开只用了4毫秒。

使用UserOpen需要注意的一些东西：
1）.在OPEN之前最好使用 %OPEN(FileName) 检查要打开的文件是否已经打开，如果没有打开再执行OPEN的操作。
2）. CLOSE *ALL的命令可以关闭本模块打开的所有文件。如果一个文件没有指定为USROPN，Close *ALL也将关闭该文件。并且如果该模块是不参与RPG Cycle的程序，如一个SubProcedure，则在第二次运行本模块的时候，该文件将不会再自动打开，此时如果再对该文件做操作，就会出错。所以最好指定文件名来CLOSE，并注意只关闭USROPN的文件。

转载于:https://www.cnblogs.com/wildfish/archive/2008/01/09/1032056.html