注意: 9.1 組み込み関数の規則 利用オプション
プロセスおよび選択されたすべてのファンクションをコンパイルします。
この BIF は、9.2 開発環境のみで使用される組み込み関数です。
Visual LANSAの引数
|
LANSA/ADの引数
|
戻り値
|
LANSA/ADの引数に関する注意事項
番号 |
|
9 |
RPG & DDSソース・リストを作成するかどうかを指定 |
10 |
コンパイルしたプログラムを最適化するかどうかを指定 |
11 |
10 進データ・エラーを無視するかどうかを指定 |
例
ユーザーが自身のバージョンの「プロセスのコンパイル/再コンパイル」の機能を使用して、プロセスおよびファンクションのコンパイルを制御したい場合は、次のように行います。
********* Define arguments and lists
DEFINE FIELD(#PROCES) TYPE(*CHAR) LENGTH(10)
DEFINE FIELD(#FUNCTN) TYPE(*CHAR) LENGTH(7)
DEFINE FIELD(#RETCOD) TYPE(*CHAR) LENGTH(2)
DEF_LIST NAME(#WKFUNL) FIELDS((#FUNCTN)) TYPE(*WORKING)
DEF_LIST NAME(#BWFUNL) FIELDS((#FUNCTN))
********* Clear working and browse lists
BEGIN_LOOP
CLR_LIST NAMED(#WKFUNL)
INZ_LIST NAMED(#BWFUNL) NUM_ENTRYS(10) WITH_MODE(*CHANGE)
********* Request Process and Functions
REQUEST FIELDS(#PROCES) BROWSELIST(#BWFUNL)
********* Move Functions from the browselist to the working list
SELECTLIST NAMED(#BWFUNL)
ADD_ENTRY TO_LIST(#WKFUNL)
ENDSELECT
********* Execute built-in-function - COMPILE_PROCESS
USE BUILTIN(COMPILE_PROCESS) WITH_ARGS(#PROCES #WKFUNL) TO_GET(#RETCOD)
********* Check if submission was successful
IF COND('#RETCOD *EQ ''OK''')
MESSAGE MSGTXT('Compile Process submitted successfully')
CHANGE FIELD(#PROCES) TO(*BLANK)
ELSE
MESSAGE MSGTXT('Compile Process submit failed with errors, refer to additional messages')
ENDIF
END_LOOP