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 を保存用メディアに保存します。