90 lines
5.6 KiB
HTML
90 lines
5.6 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="Optional: Write a user-defined installation program for the target systems" />
|
||
|
<meta name="DC.Relation" scheme="URI" content="rzai4prep.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="rzai4wrtqlpuser" />
|
||
|
<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>Optional: Write a user-defined installation program for the target
|
||
|
systems</title>
|
||
|
</head>
|
||
|
<body id="rzai4wrtqlpuser"><a name="rzai4wrtqlpuser"><!-- --></a>
|
||
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
||
|
<h1 class="topictitle1">Optional: Write a user-defined installation program for the target
|
||
|
systems</h1>
|
||
|
<div><div class="section"> <p><img src="./delta.gif" alt="Start of change" />The user-defined installation program performs tasks
|
||
|
and sends the appropriate instructions to the operators at the target systems.
|
||
|
It allows you to perform many installation tasks automatically and install
|
||
|
customer-written applications at the target systems. <img src="./deltaend.gif" alt="End of change" /></p>
|
||
|
<p>To write the user-defined
|
||
|
installation program, complete the following tasks:</p>
|
||
|
</div>
|
||
|
<ol><li class="stepexpand"><span>Include instructions in your program to restore objects on the
|
||
|
target system.</span> For a list of instructions you can include in the
|
||
|
user-defined installation program, refer to <a href="rzai4installtasks.htm#rzai4installtasks">Installation tasks for the target systems</a>.
|
||
|
You can include all of the instructions in your program or only those that
|
||
|
apply to your distribution.</li>
|
||
|
<li class="stepexpand"><span>Create and save your program in the QGPL library and call it QLPUSER.</span> If the QLPUSER program already exists in the QGPL library, the system
|
||
|
deletes the program during automatic installation before restoring the QGPL
|
||
|
library. This ensures that the distribution media will control additional
|
||
|
processing. </li>
|
||
|
<li class="stepexpand"><span>When you finish writing your program, perform the following tasks: </span> <ol type="a"><li>Test your user-defined installation program to ensure that it works as
|
||
|
expected.</li>
|
||
|
<li>Keep a copy of your program in one of your user libraries on the central
|
||
|
system.</li>
|
||
|
<li>If you have several target systems that need unique processing, create
|
||
|
a separate program for each.</li>
|
||
|
</ol>
|
||
|
</li>
|
||
|
</ol>
|
||
|
<div class="section"> <p><strong>Example: User-defined installation program</strong></p>
|
||
|
<p><img src="./delta.gif" alt="Start of change" />The
|
||
|
following control language (CL) program is an example of a user-defined installation
|
||
|
program. It sends an instruction to the operator at the target system. It
|
||
|
also restores a library that contains an application and copies the command
|
||
|
to start the application in the QGPL library. The <tt>&DEVICE</tt> parameter
|
||
|
in this example is the name of your media device. The <tt>&SUCCESS</tt> parameter
|
||
|
is used as an indication of whether all licensed programs installed successfully.<img src="./deltaend.gif" alt="End of change" /></p>
|
||
|
<div class="note"><span class="notetitle">Note:</span> <img src="./delta.gif" alt="Start of change" />By using the following code example, you agree to
|
||
|
the terms of the <a href="codedisclaimer.htm">Code license and disclaimer information</a>.<img src="./deltaend.gif" alt="End of change" /></div>
|
||
|
<pre> PGM PARM(&DEVICE &SUCCESS)
|
||
|
DCL VAR(&DEVICE) TYPE(*CHAR) LEN(10)
|
||
|
DCL VAR(&SUCCESS) TYPE(*CHAR) LEN(1)
|
||
|
IF COND(&SUCCESS *EQ '1') THEN(DO)
|
||
|
SNDUSRMSG MSG('Load the tape in ' *CAT &DEVICE *CAT +
|
||
|
'and press the Enter key.')
|
||
|
RSTLIB SAVLIB(APP1) DEV(&DEVICE)
|
||
|
CRTDUPOBJ OBJ(STRAPP1) FROMLIB(APP1) +
|
||
|
OBJTYPE(*CMD) TOLIB(QGPL)
|
||
|
ENDDO
|
||
|
ELSE
|
||
|
SNDUSRMSG MSG('One or more licensed programs failed to +
|
||
|
install.')
|
||
|
ENDPGM</pre>
|
||
|
<p><img src="./delta.gif" alt="Start of change" /><strong>Next topic:</strong> Continue with the tasks
|
||
|
in the checklist (step <a href="rzai4prep.htm#rzai4prep__compressing">6</a>).<img src="./deltaend.gif" alt="End of change" /></p>
|
||
|
</div>
|
||
|
</div>
|
||
|
<div>
|
||
|
<div class="familylinks">
|
||
|
<div class="parentlink"><strong>Parent topic:</strong> <a href="rzai4prep.htm" title="To distribute software from a central system, complete the steps in this checklist.">Checklist: Prepare to distribute software using central site distribution</a></div>
|
||
|
</div>
|
||
|
</div>
|
||
|
</body>
|
||
|
</html>
|