ibm-information-center/dist/eclipse/plugins/i5OS.ic.cl_5.4.0.1/rtvpdgprf.htm

195 lines
6.4 KiB
HTML
Raw Normal View History

2024-04-02 14:02:31 +00:00
<!doctype html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><META http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Retrieve PDG Profile (RTVPDGPRF)</title>
<link rel="stylesheet" type="text/css" href="../rzahg/ic.css">
</head>
<body bgcolor="white">
<script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
<a name="RTVPDGPRF.Top_Of_Page"></a>
<h2>Retrieve PDG Profile (RTVPDGPRF)</h2>
<table width="100%">
<tr>
<td valign="top" align="left"><b>Where allowed to run: </b>Compiled CL program or interpreted REXX (*BPGM *IPGM *BREXX *IREXX)<br>
<b>Threadsafe: </b>No
</td>
<td valign="top" align="right">
<a href="#RTVPDGPRF.PARAMETERS.TABLE">Parameters</a><br>
<a href="#RTVPDGPRF.COMMAND.EXAMPLES">Examples</a><br>
<a href="#RTVPDGPRF.ERROR.MESSAGES">Error messages</a></td>
</tr>
</table>
<div> <a name="RTVPDGPRF"></a>
<p>The Retrieve Print Descriptor Group Profile (RTVPDGPRF) command is used in a CL program or REXX procedure to retrieve one or more of the print descriptor group profile values associated with a user profile. The values are returned in the specified CL variables for the desired user.
</p>
<p><b>Restrictions:</b>
</p>
<ol>
<li>The program must have *OBJOPR authority to the command.
</li>
<li>The program must have *READ authority to the user's profile.
</li>
</ol>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
<hr size="2" width="100%">
<div>
<h3><a name="RTVPDGPRF.PARAMETERS.TABLE">Parameters</a></h3>
<table border="1" cellpadding="4" cellspacing="0">
<!-- col1="10" col2="15" col3="30" col4="10" -->
<tr>
<th bgcolor="aqua" valign="bottom" align="left">Keyword</th>
<th bgcolor="aqua" valign="bottom" align="left">Description</th>
<th bgcolor="aqua" valign="bottom" align="left">Choices</th>
<th bgcolor="aqua" valign="bottom" align="left">Notes</th>
</tr>
<tr>
<td valign="top"><a href="#RTVPDGPRF.USER"><b>USER</b></a></td>
<td valign="top">User profile</td>
<td valign="top"><i>Name</i>, *CURRENT</td>
<td valign="top">Required, Positional 1</td>
</tr>
<tr>
<td valign="top"><a href="#RTVPDGPRF.RTNUSER"><b>RTNUSER</b></a></td>
<td valign="top">CL var for RTNUSER</td>
<td valign="top"><i>Character value</i></td>
<td valign="top">Optional</td>
</tr>
<tr>
<td valign="top"><a href="#RTVPDGPRF.PDG"><b>PDG</b></a></td>
<td valign="top">CL var for PDG</td>
<td valign="top"><i>Character value</i></td>
<td valign="top">Optional</td>
</tr>
<tr>
<td valign="top"><a href="#RTVPDGPRF.PDGLIB"><b>PDGLIB</b></a></td>
<td valign="top">CL var for PDGLIB</td>
<td valign="top"><i>Character value</i></td>
<td valign="top">Optional</td>
</tr>
<tr>
<td valign="top"><a href="#RTVPDGPRF.PRTD"><b>PRTD</b></a></td>
<td valign="top">CL var for PRTD</td>
<td valign="top"><i>Character value</i></td>
<td valign="top">Optional</td>
</tr>
</table>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
</div>
<div> <a name="RTVPDGPRF.USER"></a>
<h3>User profile (USER)</h3>
<p>Specifies the user profile name to be checked for its print descriptor group (PDG) profile.
</p>
<p>The possible values are:
</p>
<dl>
<dt><b><u>*CURRENT</u></b></dt>
<dd>Checks the user profile of the user of the current job.
</dd>
<dt><b><i>user-name</i></b></dt>
<dd>Specify the user profile to check.
</dd>
</dl>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
<div> <a name="RTVPDGPRF.RTNUSER"></a>
<h3>CL var for RTNUSER (RTNUSER)</h3>
<p>In control language (CL) programs, specifies the name of the 10-character variable used to get the name of the user profile for which information is requested.
</p>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
<div> <a name="RTVPDGPRF.PDG"></a>
<h3>CL var for PDG (PDG)</h3>
<p>In control language (CL) programs, specifies the name of the 10-character variable used to get the PDG profile of the user for which information is requested.
</p>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
<div> <a name="RTVPDGPRF.PDGLIB"></a>
<h3>CL var for PDGLIB (PDGLIB)</h3>
<p>In control language (CL) programs, specifies the name of the 10-character variable used to get the library of the PDG profile of the user for which information is requested.
</p>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
<div> <a name="RTVPDGPRF.PRTD"></a>
<h3>CL var for PRTD (PRTD)</h3>
<p>In control language (CL) programs, specifies the name of the 256-character variable used to get the print descriptor name from the PDG profile of the user for which information is requested.
</p>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
<hr size="2" width="100%">
<div><h3><a name="RTVPDGPRF.COMMAND.EXAMPLES">Examples</a> </h3>
<p>Assume a user with *OBJMGT authority entered the following command:
</p>
<p>
<pre>
CHGUSRPRF USER(JWONG) PDG(*LIBL/TAXFORMS) PRTD(FORM_C1)
</pre>
</p>
<p>Also assume the program with *OBJMGT authority contains the following commands and declarations:
</p>
<p>
<pre>
DCL VAR(&amp;USER) TYPE(*CHAR) LEN(10)
DCL VAR(&amp;GROUP) TYPE(*CHAR) LEN(10)
DCL VAR(&amp;LIBRARY) TYPE(*CHAR) LEN(10)
DCL VAR(&amp;DESCRIPT) TYPE(*CHAR) LEN(256)
RTVPDGPRF USER(JWONG) RTNUSER(&amp;USER) PDG(&amp;GROUP) PDGLIB(&amp;LIBRARY)
PRTD(&amp;DESCRIPT)
</pre>
</p>
<p>When the above program is called, the following values are returned:
</p>
<p>
<pre>
&amp;USER 'JWONG '
&amp;GROUP 'TAXFORMS '
&amp;LIBRARY 'TAXLIB '
&amp;DESCRIPT 'FORM_C1 ... '
</pre>
</p>
<p><b>Note:</b> The value returned in variable &amp;DESCRIPT is FORM_C1 followed by 249 blanks.
</p>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
<hr size="2" width="100%">
<div><h3><a name="RTVPDGPRF.ERROR.MESSAGES">Error messages</a> </h3>
<p><b><u>*ESCAPE Messages</u></b>
</p>
<dl>
<dt><b>CPF2204</b></dt>
<dd>User profile &amp;1 not found.
</dd>
<dt><b>CPF2217</b></dt>
<dd>Not authorized to user profile &amp;1.
</dd>
<dt><b>CPF2247</b></dt>
<dd>Internal security object not available. Reason code &amp;1.
</dd>
</dl>
</div>
<table width="100%">
<tr><td align="right"><a href="#RTVPDGPRF.Top_Of_Page">Top</a></td></tr>
</table>
</body>
</html>