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.

  • No labels