RE: QTEMP cleanup

That was an older version of BPCS.
See what the newer version of their initial program does:

/* MR68207D CHGVAR VAR(&CMD) VALUE('CHGLIBL LIBL(' *CAT &INLIBL +
*BCAT 'QGPL QTEMP' *TCAT ')') */
/* MR68207E CALL PGM(QCMDEXC) PARM(&CMD &LEN) */
/* MR68207A*/
CHGVAR VAR(&CMD) VALUE('CHGLIBL LIBL(' *CAT '&INLIBL)')
CALL PGM(QCMDEXC) PARM(&CMD &LEN)
/* File overrides should be used to control files in BPCS - This
*/
/* prevents loading trojans or making mistakes with BPCS objects
*/
/* in these libraries. */
RMVLIBLE LIB(QGPL)
MONMSG MSGID(CPF0000)
ADDLIBLE LIB(QGPL) POSITION(*LAST)
RMVLIBLE LIB(QTEMP)
MONMSG MSGID(CPF0000)
ADDLIBLE LIB(QTEMP) POSITION(*LAST)

Then their applications, once again, try to force QTEMP to the top and to
hell with overrides.

RMVLIBLE LIB(QTEMP)
ADDLIBLE LIB(QTEMP)
CHKOBJ OBJ(QTEMP/FRT) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(DO)
CRTDUPOBJ OBJ(FRT) FROMLIB(&DFTLIB) OBJTYPE(*FILE) +
TOLIB(QTEMP)
ENDDO

CHKOBJ OBJ(QTEMP/FRTL01) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(DO)
CRTDUPOBJ OBJ(FRTL01) FROMLIB(&DFTLIB) OBJTYPE(*FILE) +
TOLIB(QTEMP)
ENDDO


CALL PGM(*LIBL/CAP620B) PARM(&RTPARM &XFAC +
&XDATE)
DLTF FILE(QTEMP/FRTL01)
DLTF FILE(QTEMP/FRT)

Sounds like one big pi$$ing contest going on between the developers and a
supposed shop standard, eh?


Rob Berendt