关于文件的ShareODP和USROPN 

　　使用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的文件。