19.1.6 Package 3GL Built-In Functions for Distribution

Create duplicate objects of any Built-In Function objects from your library to library QTEMP.
For example:

CRTDUPOBJ OBJ(OV@Pnnn)

          FROMLIB(<bif pgms>)

          OBJTYPE(*PGM)

          TOLIB(QTEMP)

where                   <bif pgms> = the library where

                                     the BIF objects

                                     are stored

Copy relevant records from DC@F47 and DC@F48 to temporary versions of these files in QTEMP.
For example:

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))

where

                  <pgmlib> = LANSA Program Library

Copy any BIFnnnXSPC source members from QBIFSRC file to a source file in QTEMP.
For example:

CPYF    FROMFILE(QBIFSRC)

        TOFILE(QTEMP/QBIFSRC)

        FROMMBR(BIFnnn*)

        TOMBR(*FROMMBR)

        MBROPT(*ADD)

        CRTFILE(*YES) FMT(*MAP *DROP)

Save QTEMP to save media.