Page History
...
Create duplicate objects of any Built-In Function objects from your library to library QTEMP.
For example:
...
CRTDUPOBJ OBJ(OV@Pnnn)
FROMLIB(<bif pgms>)
...
FROMLIB(<bif pgms>)
OBJTYPE(*PGM)
...
TOLIB(QTEMP)
where <bif pgms> = the library where
the BIF objects
...
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 LibraryCopy 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.