Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Program A (in user default activation group)<br />
Command 1 OVRDBF FILE(DBA) TOFILE(DBB) SECURE(*YES)<br />
Command 2 CALL PGM(B)<br />
Program B (in activation group 4)<br />
Command 3 OVRPRTF FILE(DBB) TOFILE(PRTC) LPI(6) OVRSCOPE(*CALLLVL)<br />
Command 4 OVRDBF FILE(DBC) TOFILE(DBD) OVRSCOPE(*JOB)<br />
Command 5 TFRCTLPGM(C)<br />
Program C<br />
Command 6 OVRDKTF FILE(DKTE) TOFILE(DKTF) OVRSCOPE(*CALLLVL)<br />
Command 7 CALL PGM(QCMDEXC) +<br />
PARM('OVRDSPF FILE(DSPG) TOFILE(DSPH)' 31)<br />
Command 8 DLTOVR FILE(DBA DBB) LVL(*)<br />
Command 9 MONMSG MSGID(CPF9841)<br />
Command 10 CALL PGM(QCMDEXC) PARM('DLTOVR FILE(*ALL) LVL(*)' 24)<br />
Command 11 DLTOVR FILE(DBC) OVRSCOPE(*JOB)<br />
Command 12 DLTOVR FILE(DSPG)<br />
Command 13 RETURN<br />
Command 14 DLTOVR FILE(*ALL)<br />
56 <strong>File</strong> <strong>Management</strong> V4R5<br />
Command 1 causes an override at level 1 from file DBA to file DBB.<br />
Command 2 calls program A and creates a new call level (call level 2).<br />
Command 3 causes an override at level 2 from file DBB to file PRTC. Also, the LPI<br />
attribute of file PRTC is overridden to 6.<br />
Command 4 causes an override at the job level from file DBC to file DBD.<br />
Command 5 transfers control from program A to program B at the same call level<br />
(call level 2).<br />
Command 6 causes an override at level 2 from file DKTE to file DKTF.<br />
Command 7 causes an override at activation group level 4 from file DSPG to file<br />
DSPH. OVRSCOPE(*ACTGRPDFN) is the default.<br />
Command 8 deletes any overrides of files DBA and DBB at level 2. The override<br />
specified by command 3 is deleted, but the override specified by command 1 is not<br />
deleted. Because an override for DBA cannot be found at level 2, the<br />
override-not-found escape message (CPF9841) is sent.<br />
Command 9 monitors for a message to prevent a function check, but it specifies no<br />
action to be taken if the message is sent.<br />
Command 10 deletes all remaining overrides at level 2. The override specified by<br />
command 6 is deleted, but the overrides specified by commands 1, 4, and 7 are not<br />
deleted.<br />
Command 11 deletes overrides to file DBC that are scoped to the job level. The<br />
override specified by command 4 is deleted.<br />
Command 12 deletes the override to file DSPG that was scoped to activation group<br />
level 4 by command 7.<br />
Command 13 causes a return to level 1, and level 2 is deleted. If any overrides<br />
were specified at level 2 (scoped to the call level) between command 10 and