Re: Trigger program - open / close file question

Brown, Stephen GRNRC wrote:

<<SNIP>>

3. The DLTOVR is failing with CPF9841 - Override not found at
specified level. This looks to be happening because the OVRDBF is not being found at correct level but I don't know why. This only occurs when trigger is executed as a result of a change from a
program compiled with a specific ACTGRP

<<SNIP>>

Eval wCmd = %Trim('OVRDBF File(HSCTLL) ' +
'SHARE(*NO) Secure(*Yes) ' + 'OVRSCOPE(*CALLLVL) ')
CallP qCmdExc(wCmd : %Len(wCmd))
If not %Open(HSCTLL)
Open HSCTLL
Endif
Eval wCmd = %Trim('DLTOVR File(HSCTLL)')
CallP qCmdExc(wCmd : %Len(wCmd))

<<SNIP>>

Probably not the issue, but "at specified level" should be a hint worth follow-up. The failing request has the option to specify what level is being addressed, by that failing request. Whereas OVRDBF has an OVRSCOPE(), the DLTOVR has a corresponding LEVEL(). Failing to code all available parameters that might conflict [for changed defaults from the *assumed* defaults], opens the possibility of failed assumptions on the default for those parameters.

For example if the DLTOVR has the default of LEVEL(*JOB), then the assumed\expected default of LEVEL(*) would fail because the override scope was not *JOB, and thus the DLTOVR command invocation would fail.

Because *CALLLVL scope is used, the WRKJOB OPTION(*FILOVR) issued while the program is stopped at a breakpoint, issued within the job or against the job from another job, will show if the OVRDBF is in effect.

Regards, Chuck