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.