In the following example, assume that commands 1, 2, and 14 are entered interactively, at call level 1:
Program A (in user default activation group)
Command 1 OVRDBF FILE(DBA) TOFILE(DBB) SECURE(*YES)
Command 2 CALL PGM(B)
Program B (in activation group 4)
Command 3 OVRPRTF FILE(DBB) TOFILE(PRTC) LPI(6) OVRSCOPE(*CALLLVL)
Command 4 OVRDBF FILE(DBC) TOFILE(DBD) OVRSCOPE(*JOB)
Command 5 TFRCTL PGM(C)
Program C
Command 6 OVRDKTF FILE(DKTE) TOFILE(DKTF) OVRSCOPE(*CALLLVL)
Command 7 CALL PGM(QCMDEXC) +
PARM('OVRDSPF FILE(DSPG) TOFILE(DSPH)' 31)
Command 8 DLTOVR FILE(DBA DBB) LVL(*)
Command 9 MONMSG MSGID(CPF9841)
Command 10 CALL PGM(QCMDEXC) PARM('DLTOVR FILE(*ALL) LVL(*)' 24)
Command 11 DLTOVR FILE(DBC) OVRSCOPE(*JOB)
Command 12 DLTOVR FILE(DSPG)
Command 13 RETURN
Command 14 DLTOVR FILE(*ALL)
|
Command 1 causes an override at level 1 from file DBA to file DBB.
Command 2 calls program A and creates a new call level (call level 2).
Command 3 causes an override at level 2 from file DBB to file PRTC. Also, the LPI attribute of file PRTC is overridden to 6.
Command 4 causes an override at the job level from file DBC to file DBD.
Command 5 transfers control from program A to program B at the same call level (call level 2).
Command 6 causes an override at level 2 from file DKTE to file DKTF.
Command 7 causes an override at activation group level 4 from file DSPG to file DSPH. OVRSCOPE(*ACTGRPDFN) is the default.
Command 8 deletes any overrides of files DBA and DBB at level 2. The override specified by command 3 is deleted, but the override specified by command 1 is not deleted. Because an override for DBA cannot be found at level 2, the override-not-found escape message (CPF9841) is sent.
Command 9 monitors for a message to prevent a function check, but it specifies no action to be taken if the message is sent.
Command 10 deletes all remaining overrides at level 2. The override specified by command 6 is deleted, but the overrides specified by commands 1, 4, and 7 are not deleted.
Command 11 deletes overrides to file DBC that are scoped to the job level. The override specified by command 4 is deleted.
Command 12 deletes the override to file DSPG that was scoped to activation group level 4 by command 7.
Command 13 causes a return to level 1, and level 2 is deleted. If any overrides were specified at level 2 (scoped to the call level) between command 10 and command 12, they are deleted at this point. Also, if any overrides were specified at level 2 (scoped to the activation group level) between command 10 and 12, they are deleted assuming that activation group 4 is ended after the RETURN.
Command 14 causes all overrides specified at call level 1 to be deleted. The override specified by command 1 is deleted.
| Note: | Command 14 would not delete any overrides that were scoped to the job level. (However, there are none in this example at the time command 14 is issued). In general, to delete all overrides at the job level, you would have to specify DLTOVR FILE(*ALL) OVRSCOPE(*JOB). |