77 lines
5.4 KiB
HTML
77 lines
5.4 KiB
HTML
<?xml version="1.0" encoding="UTF-8"?>
|
||
<!DOCTYPE html
|
||
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
||
<html lang="en-us" xml:lang="en-us">
|
||
<head>
|
||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
||
<meta name="copyright" content="(C) Copyright IBM Corporation 2005" />
|
||
<meta name="DC.rights.owner" content="(C) Copyright IBM Corporation 2005" />
|
||
<meta name="security" content="public" />
|
||
<meta name="Robots" content="index,follow" />
|
||
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
|
||
<meta name="DC.Type" content="concept" />
|
||
<meta name="DC.Title" content="Effect of exits on overrides: scenario" />
|
||
<meta name="abstract" content="Exits (ENDPGM, RETURN, or abnormal exits) from a call operation delete overrides that are scoped to that call level. However, they do not delete overrides that are issued in that call level that are scoped to the activation group level or the job level." />
|
||
<meta name="description" content="Exits (ENDPGM, RETURN, or abnormal exits) from a call operation delete overrides that are scoped to that call level. However, they do not delete overrides that are issued in that call level that are scoped to the activation group level or the job level." />
|
||
<meta name="DC.subject" content="command, CL, RETURN, example, RETURN command and override, overriding, using OVRSCOPE(*JOB), job level override" />
|
||
<meta name="keywords" content="command, CL, RETURN, example, RETURN command and override, overriding, using OVRSCOPE(*JOB), job level override" />
|
||
<meta name="DC.Relation" scheme="URI" content="rbal3applyovr.htm" />
|
||
<meta name="DC.Format" content="XHTML" />
|
||
<meta name="DC.Identifier" content="rbal3exits" />
|
||
<meta name="DC.Language" content="en-us" />
|
||
<!-- All rights reserved. Licensed Materials Property of IBM -->
|
||
<!-- US Government Users Restricted Rights -->
|
||
<!-- Use, duplication or disclosure restricted by -->
|
||
<!-- GSA ADP Schedule Contract with IBM Corp. -->
|
||
<link rel="stylesheet" type="text/css" href="./ibmdita.css" />
|
||
<link rel="stylesheet" type="text/css" href="./ic.css" />
|
||
<title>Effect of exits on overrides: scenario</title>
|
||
</head>
|
||
<body id="rbal3exits"><a name="rbal3exits"><!-- --></a>
|
||
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
||
<h1 class="topictitle1">Effect of exits on overrides: scenario</h1>
|
||
<div><p>Exits (ENDPGM, RETURN, or abnormal exits) from a call operation
|
||
delete overrides that are scoped to that call level. However, they do not
|
||
delete overrides that are issued in that call level that are scoped to the
|
||
activation group level or the job level.</p>
|
||
<p>For example, a <a href="../cl/return.htm">RETURN</a> command
|
||
deletes all overrides scoped to that call level. Thus, overrides that are
|
||
scoped to the call level in called programs that end with a RETURN or <a href="../cl/endpgm.htm">ENDPGM</a> command do not apply to
|
||
the calling program. This is not true for programs that use the <a href="../cl/tfrctl.htm">Transfer Control (TFRCTL)</a> command.</p>
|
||
<p>In <a href="#rbal3exits__rbal3jobovr">Figure 1</a>,
|
||
the RETURN command deletes the first override in program B, and FILE X is
|
||
opened in program A. However, the RETURN command does not delete the second
|
||
override because it is scoped to the job level. FILE B is opened in program
|
||
A when program A processes the Open FILE A command.</p>
|
||
<div class="note"><span class="notetitle">Note:</span> By using the code examples, you agree to the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.</div>
|
||
<div class="fignone" id="rbal3exits__rbal3jobovr"><a name="rbal3exits__rbal3jobovr"><!-- --></a><span class="figcap">Figure 1. Example of effect of exits on overrides</span>. <span class="figdesc">An example that outlines the effects of exits on overrides.</span><p> Program A<br />
|
||
.<br />
|
||
.<br />
|
||
.<br />
|
||
<br />
|
||
<span><samp class="codeph">CALL PGM(B)</samp></span><br />
|
||
<br />
|
||
Program B<br />
|
||
Override 1 <span><samp class="codeph">OVRDBF FILE(X) FILE(Y)</samp></span><br />
|
||
Override 2 <span><samp class="codeph">OVRDBF FILE(A) TOFILE(B) +</samp></span><br />
|
||
<span><samp class="codeph">OVRSCOPE(*JOB)</samp></span><br />
|
||
.<br />
|
||
.<br />
|
||
.<br />
|
||
<br />
|
||
<span><samp class="codeph">RETURN</samp></span><br />
|
||
<br />
|
||
<span><samp class="codeph">OPEN FILE X</samp></span><br />
|
||
.<br />
|
||
.<br />
|
||
.<br />
|
||
<span><samp class="codeph">OPEN FILE A</samp></span></p>
|
||
</div>
|
||
</div>
|
||
<div>
|
||
<div class="familylinks">
|
||
<div class="parentlink"><strong>Parent topic:</strong> <a href="rbal3applyovr.htm" title="You can perform two general types of overrides, which are file overrides and overrides for program device entries.">Apply overrides</a></div>
|
||
</div>
|
||
</div>
|
||
</body>
|
||
</html> |