107 lines
4.3 KiB
HTML
107 lines
4.3 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="reference" />
|
|
<meta name="DC.Title" content="Source for CL startup program" />
|
|
<meta name="abstract" content="Here you can check the detailed source information for the CL Startup program." />
|
|
<meta name="description" content="Here you can check the detailed source information for the CL Startup program." />
|
|
<meta name="DC.Relation" scheme="URI" content="rzal2chgiplstartup.htm" />
|
|
<meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" />
|
|
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 1998, 2006" />
|
|
<meta name="DC.Format" content="XHTML" />
|
|
<meta name="DC.Identifier" content="rzal2sourceclstartupprog" />
|
|
<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>Source for CL startup program</title>
|
|
</head>
|
|
<body id="rzal2sourceclstartupprog"><a name="rzal2sourceclstartupprog"><!-- --></a>
|
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
|
<h1 class="topictitle1">Source for CL startup program</h1>
|
|
<div><p>Here you can check the detailed source information for the CL Startup
|
|
program.</p>
|
|
<div class="section"><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="tablenoborder"><table cellpadding="4" cellspacing="0" summary="" frame="border" border="1" rules="all"><caption>Table 1. Source information
|
|
for CL startup program</caption><thead align="left"><tr valign="bottom"><th valign="bottom" width="12.5%" id="d0e27">Object</th>
|
|
<th valign="bottom" width="12.5%" id="d0e29">Command</th>
|
|
<th valign="bottom" width="75%" id="d0e31">CL program source</th>
|
|
</tr>
|
|
</thead>
|
|
<tbody><tr><td valign="top" width="12.5%" headers="d0e27 ">QSTRUP</td>
|
|
<td valign="top" width="12.5%" headers="d0e29 ">CRTCLPGM</td>
|
|
<td valign="top" width="75%" headers="d0e31 "><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="familylinks">
|
|
<div class="parentlink"><strong>Parent topic:</strong> <a href="rzal2chgiplstartup.htm" title="Create a startup program that will change the system resources, and the resources and attributes assigned to them, that are started during an initial program load (IPL). Typically, subsystems, writers, and the Operational Assistant are launched by this program.">Change the IPL startup program</a></div>
|
|
</div>
|
|
</div>
|
|
</body>
|
|
</html> |