97 lines
5.4 KiB
HTML
97 lines
5.4 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="Example: Simple CL procedure" />
|
|
<meta name="abstract" content="This example is a procedure that calls several programs." />
|
|
<meta name="description" content="This example is a procedure that calls several programs." />
|
|
<meta name="DC.subject" content="CL procedure, example, control language (CL), program, simple, display, programmer menu, creating, CL procedure" />
|
|
<meta name="keywords" content="CL procedure, example, control language (CL), program, simple, display, programmer menu, creating, CL procedure" />
|
|
<meta name="DC.Relation" scheme="URI" content="creat.htm" />
|
|
<meta name="DC.Relation" scheme="URI" content="../cl/call.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="clsimpleproc" />
|
|
<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> Example: Simple CL procedure</title>
|
|
</head>
|
|
<body id="clsimpleproc"><a name="clsimpleproc"><!-- --></a>
|
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
|
<h1 class="topictitle1"> Example: Simple CL procedure</h1>
|
|
<div><p>This example is a procedure that calls several programs.</p>
|
|
<div class="section"><p>A CL program can be as simple or as complex as you want. To consolidate
|
|
several activities normally done by the system operator at the beginning of
|
|
the day (to call programs A, B, and C, for example), you can create a CL procedure
|
|
STARTUP with the following code: </p>
|
|
<pre>PGM /* STARTUP */
|
|
CALL PGM(A)
|
|
CALL PGM(B)
|
|
CALL PGM(C)
|
|
ENDPGM</pre>
|
|
</div>
|
|
<div class="section"><p>In this example, the Programmer Menu is used to create the program.
|
|
You could also use the programming development manager (PDM), which is part
|
|
of the WebSphere<sup>®</sup> Development
|
|
Studio.</p>
|
|
</div>
|
|
<div class="section"><p>To enter, create, and use this program, follow these steps:</p>
|
|
</div>
|
|
<div class="section"><br /><img src="rbafn529.gif" alt="In this example, the Programmer Menu is used to create the program. You could also use the programming development manager (PDM), which is part of the WebSphere Deveopment Stuido. To enter, create, and use this program, follow these steps" /><br /></div>
|
|
<div class="section"><p>To enter CL source: </p>
|
|
<ul><li>Select option 8 (Edit source) on the Programmer Menu and specify STARTUP
|
|
in the Parm field. (This option creates a source member named STARTUP that
|
|
will also be the name of the program.)</li>
|
|
<li>Specify <samp class="codeph">CLLE</samp> in the Type field and press the Enter key.</li>
|
|
<li>On the SEU display, use the <samp class="codeph">I</samp> (insert) line command to
|
|
enter the CL commands (CALL is a CL command).</li>
|
|
</ul>
|
|
<pre class="screen"> Columns........: 1 71 Edit QGPL/QCLSRC
|
|
Find......: _____________________________________________ STARTUP
|
|
FMT A* .....A*. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
|
|
************** Beginning of data ***********************************
|
|
.......
|
|
.......
|
|
.......
|
|
.......
|
|
.......
|
|
.......</pre>
|
|
</div>
|
|
<div class="section"><p>When you have finished entering the source statements:</p>
|
|
<ul><li>Press F3 to exit from SEU.</li>
|
|
<li>Accept the default on the exit display (option 2, Exit and update member)
|
|
and press the Enter key to return to the Programmer Menu.</li>
|
|
<li>Select option 3 (Create object) to create a program from the source statements
|
|
you entered. You do not have to change any other information on the display.</li>
|
|
</ul>
|
|
<div class="note"><span class="notetitle">Note:</span> The referenced programs (A, B, and C) do not have to exist when
|
|
the program STARTUP is created.</div>
|
|
</div>
|
|
<div class="section"><p>When the program is created, you can call it from the Programmer
|
|
Menu by selecting option 4 (Call program) and specifying STARTUP in the Parm
|
|
field. If you attempt to run this sample program, however, the referenced
|
|
programs must exist by the time the CALL commands are run.</p>
|
|
</div>
|
|
</div>
|
|
<div>
|
|
<div class="familylinks">
|
|
<div class="parentlink"><strong>Parent topic:</strong> <a href="creat.htm" title="All programs are created in steps.">Create a CL procedure</a></div>
|
|
</div>
|
|
<div class="relinfo"><strong>Related information</strong><br />
|
|
<div><a href="../cl/call.htm">Call (CALL) command</a></div>
|
|
</div>
|
|
</div>
|
|
</body>
|
|
</html> |