190 lines
9.2 KiB
HTML
190 lines
9.2 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="task" />
|
||
|
|
<meta name="DC.Title" content="Change the IPL start-up program" />
|
||
|
|
<meta name="abstract" content="Create a startup program that will change the system resources, and the resources and attributes assigned to them, that are started during an IPL. Typically, subsystems, writers, and the Operational Assistant are launched by this program." />
|
||
|
|
<meta name="description" content="Create a startup program that will change the system resources, and the resources and attributes assigned to them, that are started during an IPL. Typically, subsystems, writers, and the Operational Assistant are launched by this program." />
|
||
|
|
<meta name="DC.Relation" scheme="URI" content="rzaksdailyworkmanage.htm" />
|
||
|
|
<meta name="copyright" content="(C) Copyright IBM Corporation 2004-2006" />
|
||
|
|
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 2004-2006" />
|
||
|
|
<meta name="DC.Format" content="XHTML" />
|
||
|
|
<meta name="DC.Identifier" content="rzal2chgiplstartup" />
|
||
|
|
<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>Change the IPL start-up program</title>
|
||
|
|
</head>
|
||
|
|
<body id="rzal2chgiplstartup"><a name="rzal2chgiplstartup"><!-- --></a>
|
||
|
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
||
|
|
<h1 class="topictitle1">Change the IPL start-up program</h1>
|
||
|
|
<div><p>Create a startup program that will change the system resources,
|
||
|
|
and the resources and attributes assigned to them, that are started during
|
||
|
|
an IPL. Typically, subsystems, writers, and the Operational Assistant are
|
||
|
|
launched by this program.</p>
|
||
|
|
<div class="section"><p>The autostart job in the controlling subsystem transfers control
|
||
|
|
to the program that is specified in the start-up program to set up system
|
||
|
|
(QSTRUPPGM) system value. You can tailor this program.</p>
|
||
|
|
<p>You can create
|
||
|
|
your own program and change the Start-up program to set up system (QSTRUPPGM)
|
||
|
|
system value to that program name. Or, you can use the shipped program QSTRUP
|
||
|
|
in QSYS as a base to create your own program. To do this:</p>
|
||
|
|
</div>
|
||
|
|
<ol><li><span>Retrieve the source of the shipped program by using the RTVCLSRC
|
||
|
|
command (for example, <span class="uicontrol">RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE(YOURLIB/YOURFILE)</span>).</span></li>
|
||
|
|
<li><span>Change the program.</span></li>
|
||
|
|
<li><span>Create the program by using the CRTCLPGM command, putting it into
|
||
|
|
your own library.</span></li>
|
||
|
|
<li><span>Test the program to ensure that it works.</span></li>
|
||
|
|
<li><span>Change the Start-up program to set up system (QSTRUPPGM) system
|
||
|
|
value to the program name and library you specified on the CRTCLPGM command.</span></li>
|
||
|
|
</ol>
|
||
|
|
</div>
|
||
|
|
<div>
|
||
|
|
<div class="familylinks">
|
||
|
|
<div class="parentlink"><strong>Parent topic:</strong> <a href="rzaksdailyworkmanage.htm" title="As a system operator or administrator, one of your tasks is to keep your server running smoothly. This means you monitor, manage, and ensure that your jobs, job queues, subsystems, memory pools, job logs, and output queues function properly.">Manage work</a></div>
|
||
|
|
</div>
|
||
|
|
</div><div class="nested1" xml:lang="en-us" id="codeexampledisclaimer"><a name="codeexampledisclaimer"><!-- --></a><h2 class="topictitle2">Code example disclaimer</h2>
|
||
|
|
<div><div class="section"><p>IBM grants you a nonexclusive copyright license to use all programming
|
||
|
|
code examples from which you can generate similar function tailored to your
|
||
|
|
own specific needs.</p>
|
||
|
|
<p><img src="./delta.gif" alt="Start of change" />SUBJECT TO ANY STATUTORY WARRANTIES WHICH
|
||
|
|
CANNOT BE EXCLUDED, IBM, ITS PROGRAM DEVELOPERS AND SUPPLIERS MAKE NO WARRANTIES
|
||
|
|
OR CONDITIONS EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO, THE
|
||
|
|
IMPLIED WARRANTIES OR CONDITIONS OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
|
||
|
|
PURPOSE, AND NON-INFRINGEMENT, REGARDING THE PROGRAM OR TECHNICAL SUPPORT,
|
||
|
|
IF ANY. <img src="./deltaend.gif" alt="End of change" /></p>
|
||
|
|
<p><img src="./delta.gif" alt="Start of change" />UNDER NO CIRCUMSTANCES IS IBM, ITS PROGRAM DEVELOPERS
|
||
|
|
OR SUPPLIERS LIABLE FOR ANY OF THE FOLLOWING, EVEN IF INFORMED OF THEIR POSSIBILITY: <img src="./deltaend.gif" alt="End of change" /></p>
|
||
|
|
<img src="./delta.gif" alt="Start of change" /><ol><li>LOSS OF, OR DAMAGE TO, DATA;</li>
|
||
|
|
<li>DIRECT, SPECIAL, INCIDENTAL, OR INDIRECT DAMAGES, OR FOR ANY ECONOMIC
|
||
|
|
CONSEQUENTIAL DAMAGES; OR </li>
|
||
|
|
<li>LOST PROFITS, BUSINESS, REVENUE, GOODWILL, OR ANTICIPATED SAVINGS.</li>
|
||
|
|
</ol><img src="./deltaend.gif" alt="End of change" />
|
||
|
|
<p><img src="./delta.gif" alt="Start of change" />SOME JURISDICTIONS DO NOT ALLOW THE EXCLUSION OR LIMITATION
|
||
|
|
OF DIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, SO SOME OR ALL
|
||
|
|
OF THE ABOVE LIMITATIONS OR EXCLUSIONS MAY NOT APPLY TO YOU.<img src="./deltaend.gif" alt="End of change" /></p>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="nested1" xml:lang="en-us" id="sourceclstartupprog"><a name="sourceclstartupprog"><!-- --></a><h2 class="topictitle2">Source for CL Start-up Program</h2>
|
||
|
|
<div><div class="section">
|
||
|
|
<div class="tablenoborder"><table cellpadding="4" cellspacing="0" summary="" frame="border" border="1" rules="all"><tbody><tr><td valign="top" width="12.5%">Object</td>
|
||
|
|
<td valign="top" width="12.5%">Command</td>
|
||
|
|
<td valign="top" width="75%">CL Program Source</td>
|
||
|
|
</tr>
|
||
|
|
<tr><td valign="top" width="12.5%">QSTRUP</td>
|
||
|
|
<td valign="top" width="12.5%">CRTCLPGM</td>
|
||
|
|
<td valign="top" width="75%"><pre>PGM
|
||
|
|
DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
|
||
|
|
DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
|
||
|
|
DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('+
|
||
|
|
5722-SS1 (C) COPYRIGHT IBM CORP 1980, 2000. +
|
||
|
|
LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')
|
||
|
|
|
||
|
|
QSYS/STRSBS SBSD(QSERVER)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/STRSBS SBSD(QUSRWRK)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/STRCLNUP
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD)
|
||
|
|
IF ((&CTLSBSD *NE 'QCTL QSYS ') +
|
||
|
|
*AND (&CTLSBSD *NE 'QCTL QGPL ')) GOTO DONE
|
||
|
|
|
||
|
|
QSYS/STRSBS SBSD(QINTER)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/STRSBS SBSD(QBATCH)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/STRSBS SBSD(QCMN)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
DONE:
|
||
|
|
|
||
|
|
QSYS/STRSBS SBSD(QSPL)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS)
|
||
|
|
IF (&STRWTRS = '0') GOTO NOWTRS
|
||
|
|
|
||
|
|
CALL PGM(QSYS/QWCSWTRS)
|
||
|
|
MONMSG MSGID(CPF0000)
|
||
|
|
|
||
|
|
NOWTRS:
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
CHGVAR VAR(&CPYR) VALUE(&CPYR)
|
||
|
|
ENDPGM</pre>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
</tbody>
|
||
|
|
</table>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
<div class="nested1" xml:lang="en-us" id="startupprogsetupsysvalue"><a name="startupprogsetupsysvalue"><!-- --></a><h2 class="topictitle2">Start-up program to set up system (QSTRUPPGM) system value</h2>
|
||
|
|
<div><div class="section"><p>Start-up program to set up system (QSTRUPPGM) is the start-up
|
||
|
|
program. This value specifies the name of the program that is called from
|
||
|
|
an autostart job when the controlling subsystem is started. This program performs
|
||
|
|
setup functions, such as starting subsystems and printers. This system value
|
||
|
|
can only be changed by the security officer or by someone with security officer
|
||
|
|
authority. A change to this system value takes effect the next time an IPL
|
||
|
|
is performed. QSTRUPPGM can have the values:</p>
|
||
|
|
<ul><li>'QSTRUP QSYS': The program that is specified is run as a result of a transfer
|
||
|
|
of control to it from the autostart job in the controlling subsystem.</li>
|
||
|
|
<li>'*NONE': The autostart job ends normally without calling a program.</li>
|
||
|
|
</ul>
|
||
|
|
<p>The default start up program QSYS/QSTRUP does the following:</p>
|
||
|
|
<ul><li>Starts the QSPL subsystem for spooled work</li>
|
||
|
|
<li>Starts the QSERVER subsystem for file server work</li>
|
||
|
|
<li>Starts the QUSRWRK subsystem for user work</li>
|
||
|
|
<li>Releases the QS36MRT and QS36EVOKE job queues if they were held (these
|
||
|
|
are used by the System/36™ environment)</li>
|
||
|
|
<li>Starts Operational Assistant cleanup, if allowed</li>
|
||
|
|
<li>Starts all printer writers unless user specified not to on the IPL Options
|
||
|
|
display</li>
|
||
|
|
<li>If the controlling subsystem is QCTL, it starts the QINTER, QBATCH, and
|
||
|
|
QCMN subsystems</li>
|
||
|
|
</ul>
|
||
|
|
|
||
|
|
<div class="tablenoborder"><table cellpadding="4" cellspacing="0" summary="" frame="border" border="1" rules="all"><tbody><tr><td valign="top">Type</td>
|
||
|
|
<td valign="top">Length</td>
|
||
|
|
<td valign="top">Shipped Value CL</td>
|
||
|
|
</tr>
|
||
|
|
<tr><td valign="top">Character</td>
|
||
|
|
<td valign="top">20</td>
|
||
|
|
<td valign="top">'QSTRUP QSYS'</td>
|
||
|
|
</tr>
|
||
|
|
</tbody>
|
||
|
|
</table>
|
||
|
|
</div>
|
||
|
|
<p>See the Start-up program to set up system (QSTRUPPGM) system value
|
||
|
|
for more detailed information.</p>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
</body>
|
||
|
|
</html>
|