91 lines
4.5 KiB
HTML
91 lines
4.5 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="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="User exit program example for DDM" />
|
|
<meta name="abstract" content="This user exit program represents the source code for a program that is created by a security officer on a remote system in Chicago." />
|
|
<meta name="description" content="This user exit program represents the source code for a program that is created by a security officer on a remote system in Chicago." />
|
|
<meta name="DC.subject" content="user exit program, example" />
|
|
<meta name="keywords" content="user exit program, example" />
|
|
<meta name="DC.Relation" scheme="URI" content="rbae5exitpgm.htm" />
|
|
<meta name="copyright" content="(C) Copyright IBM Corporation 1999, 2006" />
|
|
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 1999, 2006" />
|
|
<meta name="DC.Format" content="XHTML" />
|
|
<meta name="DC.Identifier" content="rbae5userexitpgmex" />
|
|
<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>User exit program example for DDM</title>
|
|
</head>
|
|
<body id="rbae5userexitpgmex"><a name="rbae5userexitpgmex"><!-- --></a>
|
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
|
<h1 class="topictitle1">User exit program example for DDM</h1>
|
|
<div><p>This user exit program represents the source code for a program
|
|
that is created by a security officer on a remote system in Chicago.</p>
|
|
<p>To define this user exit program to the server, the security
|
|
officer specifies the following statement:</p>
|
|
<pre>CHGNETA DDMACC(DJWLIB/$UEPGM)</pre>
|
|
<p>where DJWLIB/$UEPGM is the qualified name of the user exit program.</p>
|
|
<p>Because the security officer wants to specifically prevent user KAREN from
|
|
opening file RMTFILEX, the user exit program returns a 0 in the return code
|
|
field when she attempts to open file RMTFILEX; the user exit program returns
|
|
a 1 in the return code field in all other cases indicating that requests by
|
|
other users are permitted.</p>
|
|
<div class="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>
|
|
<pre>$UEPGM: PROCEDURE (RTNCODE,CHARFLD);
|
|
DECLARE
|
|
RTNCODE CHAR(1);
|
|
DECLARE
|
|
1 CHARFLD,
|
|
2 USER CHAR(10),
|
|
2 APP CHAR(10),
|
|
2 FUNC CHAR(10),
|
|
2 OBJECT CHAR(10),
|
|
2 DIRECT CHAR(10),
|
|
2 MEMBER CHAR(10),
|
|
2 RESERVED CHAR(10),
|
|
2 LNGTH PIC '99999',
|
|
2 LUNAME CHAR(10),
|
|
2 SRVNAME CHAR(10),
|
|
2 OTHER,
|
|
3 INRQS CHAR(1),
|
|
3 OUTRQS CHAR(1),
|
|
3 UPDRQS CHAR(1),
|
|
3 DELRQS CHAR(1),
|
|
3 ALTOBJ CHAR(12),
|
|
3 ALTDIR CHAR(63),
|
|
3 REMAING CHAR(1921);
|
|
DECLARE
|
|
OPEN CHAR(10) STATIC INIT('OPEN'),
|
|
KAREN CHAR(10) STATIC INIT('KAREN'),
|
|
RMTFILEX CHAR(10) STATIC INIT('RMTFILEX');
|
|
DECLARE
|
|
ZERO CHAR(1) STATIC INIT('0'),
|
|
ONE CHAR(1) STATIC INIT('1');
|
|
IF (FUNC = OPEN ) &
|
|
(USER = KAREN ) &
|
|
(OBJECT = RMTFILEX)
|
|
THEN
|
|
RTNCODE = ZERO;
|
|
ELSE
|
|
RTNCODE = ONE;
|
|
END $UEPGM;</pre>
|
|
</div>
|
|
</div>
|
|
<div>
|
|
<div class="familylinks">
|
|
<div class="parentlink"><strong>Parent topic:</strong> <a href="rbae5exitpgm.htm" title="Customers who use menu-level security, which is accomplished by restricting the user's access to functions on the server, are likely to have a large number of public files. Public files are those files to which the public has some or all authority. A user exit program allows you to restrict each DDM user's access to public files and to private files.">DDM server access control exit program for additional security</a></div>
|
|
</div>
|
|
</div>
|
|
</body>
|
|
</html> |