3GL 組み込み関数を配布用にパッケージ化
組み込み関数オフジェクトのオブジェクト複製を自身のライブラリからライブラリ QTEMP に作成します。 例：
CRTDUPOBJ OBJ(OV@Pnnn)
FROMLIB(<bif pgms>)
OBJTYPE(*PGM)
TOLIB(QTEMP)
説明 <bif pgms> = BIF オブジェクトが
保存される
ライブラリ
関係するレコードを DC@F47 および DC@F48 からコピーして、これらのファイルの一時的なバージョンを QTEMP に入れます。 例：
CPYF FROMFILE(<pgmlib>/DC@F47)
TOFILE(QTEMP/DC@F47)
MBROPT(*ADD)
CRTFILE(*YES)
INCREL((*IF F47BIF *EQ OV_XXXXXXXXXXXXX)
(*OR F47BIF *EQ OV_YYYYYYYYYYYYY))
CPYF FROMFILE(<pgmlib>/DC@F48)
TOFILE(QTEMP/DC@F48)
MBROPT(*ADD)
CRTFILE(*YES)
INCREL((*IF F47BIF *EQ OV_XXXXXXXXXXXXX)
(*OR F47BIF *EQ OV_YYYYYYYYYYYYY))
説明
<pgmlib> = LANSA プログラム・ライブラリ
BIFnnnXSPC のソースメンバーをすべて QBIFSRC ファイルから QTEMP の 1 つのソースファイルにコピーします。 例：
CPYF FROMFILE(QBIFSRC)
TOFILE(QTEMP/QBIFSRC)
FROMMBR(BIFnnn*)
TOMBR(*FROMMBR)
MBROPT(*ADD)
CRTFILE(*YES) FMT(*MAP *DROP)
QTEMP を保存用メディアに保存します。