Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/dsnbi_0050.htm]
現在地:

...

3GL 組み込み関数を配布用にパッケージ化

組み込み関数オフジェクトのオブジェクト複製を自身のライブラリからライブラリ QTEMP に作成します。

例: CRTDUPOBJ OBJ

     CRTDUPOBJ OBJ(OV@Pnnn)

...

               FROMLIB(<bif pgms>)
         OBJTYPE(*PGM)

...

               TOLIB(QTEMP)

説明                   <bif pgms> = BIF オブジェクトが
                                     保存される
                                     ライブラリ説明:                  <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 を保存用メディアに保存します。
[ Image Removed |../../index.htm#lansa/dsnbi_0050.htm]