1010 lines
47 KiB
HTML
1010 lines
47 KiB
HTML
|
|
<!doctype html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
|
<html>
|
|
<head><META http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<title>Create COBOL Program (CRTCBLPGM)</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="CRTCBLPGM.Top_Of_Page"></a>
|
|
<h2>Create COBOL Program (CRTCBLPGM)</h2>
|
|
<table width="100%">
|
|
<tr>
|
|
<td valign="top" align="left"><b>Where allowed to run: </b>All environments (*ALL)<br>
|
|
<b>Threadsafe: </b>No
|
|
</td>
|
|
<td valign="top" align="right">
|
|
<a href="#CRTCBLPGM.PARAMETERS.TABLE">Parameters</a><br>
|
|
<a href="#CRTCBLPGM.COMMAND.EXAMPLES">Examples</a><br>
|
|
<a href="#CRTCBLPGM.ERROR.MESSAGES">Error messages</a></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<div> <a name="CRTCBLPGM"></a>
|
|
<p>The CRTCBLPGM command compiles a COBOL source program into a program object for use on the server system. You can use this command interactively, in batch mode, or in a CL program.
|
|
</p>
|
|
<p>All object names specified for the CRTCBLPGM command must be composed of alphanumeric characters, the first of which must be alphabetic. The names cannot exceed 10 characters in length.
|
|
</p>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<hr size="2" width="100%">
|
|
|
|
<div>
|
|
<h3><a name="CRTCBLPGM.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" rowspan="3"><a href="#CRTCBLPGM.PGM"><b>PGM</b></a></td>
|
|
<td valign="top">Program</td>
|
|
<td valign="top"><i>Qualified object name</i></td>
|
|
<td valign="top" rowspan="3">Optional, Positional 1</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Qualifier 1: Program</td>
|
|
<td valign="top"><i>Name</i>, <b><u>*PGMID</u></b></td>
|
|
</tr><tr>
|
|
<td valign="top">Qualifier 2: Library</td>
|
|
<td valign="top"><i>Name</i>, <b><u>*CURLIB</u></b></td>
|
|
</tr><tr>
|
|
<td valign="top" rowspan="3"><a href="#CRTCBLPGM.SRCFILE"><b>SRCFILE</b></a></td>
|
|
<td valign="top">Source file</td>
|
|
<td valign="top"><i>Qualified object name</i></td>
|
|
<td valign="top" rowspan="3">Optional, Positional 2</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Qualifier 1: Source file</td>
|
|
<td valign="top"><i>Name</i>, <b><u>QLBLSRC</u></b></td>
|
|
</tr><tr>
|
|
<td valign="top">Qualifier 2: Library</td>
|
|
<td valign="top"><i>Name</i>, <b><u>*LIBL</u></b>, *CURLIB</td>
|
|
</tr><tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.SRCMBR"><b>SRCMBR</b></a></td>
|
|
<td valign="top">Source member</td>
|
|
<td valign="top"><i>Name</i>, <b><u>*PGM</u></b></td>
|
|
<td valign="top">Optional, Positional 3</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.GENLVL"><b>GENLVL</b></a></td>
|
|
<td valign="top">Generation severity level</td>
|
|
<td valign="top">0-29, <b><u>29</u></b></td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.TEXT"><b>TEXT</b></a></td>
|
|
<td valign="top">Text 'description'</td>
|
|
<td valign="top"><i>Character value</i>, <b><u>*SRCMBRTXT</u></b>, *BLANK</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.OPTION"><b>OPTION</b></a></td>
|
|
<td valign="top">Source listing options</td>
|
|
<td valign="top">Values (up to 50 repetitions): *SOURCE, *NOSOURCE, *SRC, *NOSRC, *NOXREF, *XREF, *GEN, *NOGEN, *NOSEQUENCE, *SEQUENCE, *NOVBSUM, *VBSUM, *NONUMBER, *NUMBER, *LINENUMBER, *NOMAP, *MAP, *NOOPTIONS, *OPTIONS, *QUOTE, *APOST, *SECLVL, *NOSECLVL, *PRTCORR, *NOPRTCORR, *NOSRCDBG, *SRCDBG, *NOLSTDBG, *LSTDBG, *PRINT, *NOPRINT</td>
|
|
<td valign="top">Optional, Positional 4</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.GENOPT"><b>GENOPT</b></a></td>
|
|
<td valign="top">Generation options</td>
|
|
<td valign="top">Values (up to 50 repetitions): *NOLIST, *LIST, *NOXREF, *XREF, *NOPATCH, *PATCH, *NODUMP, *DUMP, *NOATR, *ATR, *RANGE, *NORANGE, *UNREF, *NOUNREF, *NOOPTIMIZE, *OPTIMIZE, *NODDSFILLER, *DDSFILLER, *NOSYNC, *SYNC, *NOCRTF, *CRTF, *NODUPKEYCHK, *DUPKEYCHK, *STDERR, *NOSTDERR, *NOEXTACCDSP, *EXTACCDSP, *NOINZDLT, *INZDLT, *NOBLK, *BLK, *STDINZ, *NOSTDINZ, *FS21DUPKY, *NOFS21DUPKY</td>
|
|
<td valign="top">Optional, Positional 5</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.CVTOPT"><b>CVTOPT</b></a></td>
|
|
<td valign="top">Conversion options</td>
|
|
<td valign="top">Values (up to 50 repetitions): *NOVARCHAR, *VARCHAR, *NODATETIME, *DATETIME, *NOGRAPHIC, *GRAPHIC</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top" rowspan="3"><a href="#CRTCBLPGM.SRTSEQ"><b>SRTSEQ</b></a></td>
|
|
<td valign="top">Sort sequence</td>
|
|
<td valign="top">Single values: <b><u>*HEX</u></b>, *JOB, *JOBRUN, *LANGIDUNQ, *LANGIDSHR<br>Other values: <i>Qualified object name</i></td>
|
|
<td valign="top" rowspan="3">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Qualifier 1: Sort sequence</td>
|
|
<td valign="top"><i>Name</i></td>
|
|
</tr><tr>
|
|
<td valign="top">Qualifier 2: Library</td>
|
|
<td valign="top"><i>Name</i>, <b><u>*LIBL</u></b>, *CURLIB</td>
|
|
</tr><tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.LANGID"><b>LANGID</b></a></td>
|
|
<td valign="top">Language identifier</td>
|
|
<td valign="top"><i>Character value</i>, <b><u>*JOBRUN</u></b>, *JOB</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top" rowspan="3"><a href="#CRTCBLPGM.MSGLMT"><b>MSGLMT</b></a></td>
|
|
<td valign="top">Message limit</td>
|
|
<td valign="top"><i>Element list</i></td>
|
|
<td valign="top" rowspan="3">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Element 1: Number of messages</td>
|
|
<td valign="top">
|
|
1-9999, <b><u>*NOMAX</u></b></td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Element 2: Message limit severity</td>
|
|
<td valign="top">
|
|
0-29, <b><u>29</u></b></td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top" rowspan="3"><a href="#CRTCBLPGM.PRTFILE"><b>PRTFILE</b></a></td>
|
|
<td valign="top">Print file</td>
|
|
<td valign="top"><i>Qualified object name</i></td>
|
|
<td valign="top" rowspan="3">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Qualifier 1: Print file</td>
|
|
<td valign="top"><i>Name</i>, <b><u>QSYSPRT</u></b></td>
|
|
</tr><tr>
|
|
<td valign="top">Qualifier 2: Library</td>
|
|
<td valign="top"><i>Name</i>, <b><u>*LIBL</u></b>, *CURLIB</td>
|
|
</tr><tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.FLAGSTD"><b>FLAGSTD</b></a></td>
|
|
<td valign="top">FIPS flagging</td>
|
|
<td valign="top">Values (up to 24 repetitions): *NOFIPS, *MINIMUM, *INTERMEDIATE, *HIGH, *NOSEG, *SEG1, *SEG2, *NODEB, *DEB1, *DEB2, *NOOBSOLETE, *OBSOLETE</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.SAAFLAG"><b>SAAFLAG</b></a></td>
|
|
<td valign="top">SAA flagging</td>
|
|
<td valign="top"><b><u>*NOFLAG</u></b>, *FLAG</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.EXTDSPOPT"><b>EXTDSPOPT</b></a></td>
|
|
<td valign="top">Extended display options</td>
|
|
<td valign="top">Values (up to 3 repetitions): *DFRWRT, *NODFRWRT, *UNDSPCHR, *NOUNDSPCHR, *ACCUPDALL, *ACCUPDNE</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.FLAG"><b>FLAG</b></a></td>
|
|
<td valign="top">Flagging severity</td>
|
|
<td valign="top">0-99, <b><u>0</u></b></td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.REPLACE"><b>REPLACE</b></a></td>
|
|
<td valign="top">Replace program</td>
|
|
<td valign="top">*NO, <b><u>*YES</u></b></td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.TGTRLS"><b>TGTRLS</b></a></td>
|
|
<td valign="top">Target release</td>
|
|
<td valign="top"><i>Simple name</i>, <b><u>*CURRENT</u></b>, *PRV</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.USRPRF"><b>USRPRF</b></a></td>
|
|
<td valign="top">User profile</td>
|
|
<td valign="top"><b><u>*USER</u></b>, *OWNER</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.AUT"><b>AUT</b></a></td>
|
|
<td valign="top">Authority</td>
|
|
<td valign="top"><i>Name</i>, <b><u>*LIBCRTAUT</u></b>, *ALL, *CHANGE, *USE, *EXCLUDE</td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top" rowspan="3"><a href="#CRTCBLPGM.DUMP"><b>DUMP</b></a></td>
|
|
<td valign="top">Compiler debugging dump</td>
|
|
<td valign="top"><i>Element list</i></td>
|
|
<td valign="top" rowspan="3">Optional</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Element 1: </td>
|
|
<td valign="top">
|
|
1-65535, *</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top">Element 2: </td>
|
|
<td valign="top">
|
|
1-65535</td>
|
|
</tr>
|
|
<tr>
|
|
<td valign="top"><a href="#CRTCBLPGM.ITDUMP"><b>ITDUMP</b></a></td>
|
|
<td valign="top">Intermediate text dump</td>
|
|
<td valign="top">0-31, <b><u>0</u></b></td>
|
|
<td valign="top">Optional</td>
|
|
</tr>
|
|
</table>
|
|
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
</div>
|
|
<div> <a name="CRTCBLPGM.PGM"></a>
|
|
<h3>Program (PGM)</h3>
|
|
<p>Specifies the program name and library name for the COBOL program object you are creating. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*PGMID</u></b></dt>
|
|
<dd>The name for the program object is taken from the PROGRAM-ID paragraph in the COBOL source program.
|
|
</dd>
|
|
<dt><b><i>program-name</i></b></dt>
|
|
<dd>Enter a name to identify the compiled COBOL program. If you specify a program name for this parameter, and run the compilation in batch mode, the first program in the batch job uses this name; any other programs use the name specified in the PROGRAM-ID paragraph in the source program.
|
|
</dd>
|
|
</dl>
|
|
<p>The possible library values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*CURLIB</u></b></dt>
|
|
<dd>If you do not specify a library name, the current library is used. If you have not assigned a library as the current library, QGPL is used.
|
|
</dd>
|
|
<dt><b><i>library-name</i></b></dt>
|
|
<dd>Enter the name of the library to contain the created program object.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.SRCFILE"></a>
|
|
<h3>Source file (SRCFILE)</h3>
|
|
<p>Specifies the name of the source file that contains the COBOL source to be compiled. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>QLBLSRC</u></b></dt>
|
|
<dd>The IBM-supplied source file, QLBLSRC, contains the COBOL source to be compiled.
|
|
</dd>
|
|
<dt><b><i>source-file-name</i></b></dt>
|
|
<dd>Enter the name of the source file that contains the COBOL source to be compiled. This source file should have a record length of 92.
|
|
</dd>
|
|
</dl>
|
|
<p>The possible library values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*LIBL</u></b></dt>
|
|
<dd>If you do not specify a library name, the system searches the library list to find the library where the source file is located.
|
|
</dd>
|
|
<dt><b>*CURLIB</b></dt>
|
|
<dd>The current library is used. If you have not assigned a library as the current library, QGPL is used.
|
|
</dd>
|
|
<dt><b><i>library-name</i></b></dt>
|
|
<dd>Enter the name of the library where the source file is located.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.SRCMBR"></a>
|
|
<h3>Source member (SRCMBR)</h3>
|
|
<p>Specifies the name of the member that contains the COBOL source to be compiled. You can specify this parameter only if the source file referred to in the SRCFILE parameter is a database file. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*PGM</u></b></dt>
|
|
<dd>If you specified a program name for the PGM parameter, the compiler looks for the source program in a member having the same name as the program, and creates an object program with the same name as the program and member.
|
|
<p>If you did not specify a program name for the PGM parameter, the compiler looks for the program source in the first member of the database source file, and creates an object program using the name specified in the PROGRAM-ID paragraph.
|
|
</p>
|
|
</dd>
|
|
<dt><b><i>source-file-member-name</i></b></dt>
|
|
<dd>Enter the name of the member that contains the COBOL source.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.GENLVL"></a>
|
|
<h3>Generation severity level (GENLVL)</h3>
|
|
<p>Specifies the severity level that determines if a program object is created. The severity level corresponds to the severity level of the messages produced during compilation of the program. If the severity level of error messages is greater than the value you specify, a program object is not created. For example, if you specify 19 for this parameter, a program object is not created if the severity level of any of the messages is 20 or greater.
|
|
</p>
|
|
<p>The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>29</u></b></dt>
|
|
<dd>If errors occur with a severity level greater than 29, no program object is created.
|
|
</dd>
|
|
<dt><b><i>severity-level</i></b></dt>
|
|
<dd>Specify a one or two-digit number, 0 through 29. If errors occur with a severity level greater than this level, no program object is created.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.TEXT"></a>
|
|
<h3>Text 'description' (TEXT)</h3>
|
|
<p>A brief description of the program and its function. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*SRCMBRTXT</u></b></dt>
|
|
<dd>Use the same text for the program object as that which describes the database file member containing the COBOL source. If the source comes from a device or in-line file, specifying *SRCMBRTXT has the same effect as specifying *BLANK.
|
|
</dd>
|
|
<dt><b>*BLANK</b></dt>
|
|
<dd>No text is specified.
|
|
</dd>
|
|
<dt><b><i>text-description</i></b></dt>
|
|
<dd>Enter the text that briefly describes the program and its function. The text can be a maximum of 50 characters in length and must be enclosed in apostrophes. The apostrophes are not part of the 50-character string.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.OPTION"></a>
|
|
<h3>Source listing options (OPTION)</h3>
|
|
<p>Specifies the options to use when the COBOL source is compiled. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*SOURCE</u> or <u>*SRC</u></b></dt>
|
|
<dd>The compiler produces a source listing, consisting of the COBOL source code and all compilation-time error messages.
|
|
</dd>
|
|
<dt><b>*NOSOURCE or *NOSRC</b></dt>
|
|
<dd>The compiler does not produce the source part of the listing. If you do not require a source listing, you should use this option because compilation may take less time.
|
|
</dd>
|
|
<dt><b><u>*NOXREF</u></b></dt>
|
|
<dd>The compiler does not produce a cross-reference listing for the source program.
|
|
</dd>
|
|
<dt><b>*XREF</b></dt>
|
|
<dd>The compiler produces a cross-reference listing for the source program.
|
|
</dd>
|
|
<dt><b><u>*GEN</u></b></dt>
|
|
<dd>The compiler creates a program object after the source program is compiled.
|
|
</dd>
|
|
<dt><b>*NOGEN</b></dt>
|
|
<dd>The compiler does not create a program object after the source program is compiled. You might specify this option if you want only error listings at this time.
|
|
</dd>
|
|
<dt><b><u>*NOSEQUENCE</u></b></dt>
|
|
<dd>The reference numbers are not checked for sequence errors.
|
|
</dd>
|
|
<dt><b>*SEQUENCE</b></dt>
|
|
<dd>The reference numbers are checked for sequence errors. Sequence errors do not occur if the *LINENUMBER option is specified.
|
|
</dd>
|
|
<dt><b><u>*NOVBSUM</u></b></dt>
|
|
<dd>Verb-usage counts are not printed.
|
|
</dd>
|
|
<dt><b>*VBSUM</b></dt>
|
|
<dd>Verb-usage counts are printed.
|
|
</dd>
|
|
<dt><b><u>*NONUMBER</u></b></dt>
|
|
<dd>The source-file sequence numbers are used for reference numbers.
|
|
</dd>
|
|
<dt><b>*NUMBER</b></dt>
|
|
<dd>The user-supplied sequence numbers (columns 1 through 6) are used for reference numbers.
|
|
</dd>
|
|
<dt><b>*LINENUMBER</b></dt>
|
|
<dd>The sequence numbers created by the compiler are used for reference numbers. This option combines program source code and source code introduced by COPY statements into one consecutively numbered sequence. Use this option if you specify FIPS (Federal Information Processing Standards) flagging or SAA* flagging.
|
|
</dd>
|
|
<dt><b><u>*NOMAP</u></b></dt>
|
|
<dd>The compiler does not list the Data Division map.
|
|
</dd>
|
|
<dt><b>*MAP</b></dt>
|
|
<dd>The compiler lists the Data Division map.
|
|
</dd>
|
|
<dt><b><u>*NOOPTIONS</u></b></dt>
|
|
<dd>Options in effect are not listed for this compilation.
|
|
</dd>
|
|
<dt><b>*OPTIONS</b></dt>
|
|
<dd>Options in effect are listed for this compilation.
|
|
</dd>
|
|
<dt><b><u>*QUOTE</u></b></dt>
|
|
<dd>Specifies that the delimiter quotation mark (") is used for nonnumeric literals and Boolean literals. This also specifies that the value of the figurative constant QUOTE has the EBCDIC value of a quotation mark.
|
|
</dd>
|
|
<dt><b>*APOST</b></dt>
|
|
<dd>Specifies that the delimiter apostrophe (') is used for nonnumeric literals and Boolean literals. This also specifies that the value of the figurative constant QUOTE has the EBCDIC value of an apostrophe.
|
|
</dd>
|
|
<dt><b><u>*NOSECLVL</u></b></dt>
|
|
<dd>Second level message text is not listed for this compilation.
|
|
</dd>
|
|
<dt><b>*SECLVL</b></dt>
|
|
<dd>Second level message text is listed for this compilation.
|
|
</dd>
|
|
<dt><b><u>*PRTCORR</u></b></dt>
|
|
<dd>The compiler inserts comment lines in the compiler listing indicating which elementary items were included as a result of the use of the CORRESPONDING phrase.
|
|
</dd>
|
|
<dt><b>*NOPRTCORR</b></dt>
|
|
<dd>The compiler does not insert comment lines in the compiler listing when the CORRESPONDING phrase is used.
|
|
</dd>
|
|
<dt><b><u>*NOSRCDBG</u></b></dt>
|
|
<dd>This option determines the kind of information you see on your programmable work station when using the IBM CoOperative Development Environment/400 product to compile your COBOL programs.
|
|
<p>The compiler does not produce source-level debugging information. If *NOLSTDBG is also in effect, the compiler does not produce source-level error information either.
|
|
</p>
|
|
</dd>
|
|
<dt><b>*SRCDBG</b></dt>
|
|
<dd>This option determines the kind of information you see on your programmable work station when using the IBM CoOperative Development Environment/400 (CODE/400) product to compile your COBOL programs.
|
|
<p>The compiler produces source-level error information and source-level debugging information.
|
|
</p>
|
|
<p>You cannot specify *SRCDBG and *LSTDBG together. Specify one or the other.
|
|
</p>
|
|
<p>
|
|
<b>Note: </b>You can only use the *SRCDBG option if you are using the IBM CODE/400 product to compile your program. If you specify this option but do not have the IBM CODE/400 product installed, the COBOL/400 compiler continues processing, but an error message is issued. For more information on this option, see the CODE/400 Debug Tool and Reference, SC09-1622.
|
|
</p>
|
|
</dd>
|
|
<dt><b><u>*NOLSTDBG</u></b></dt>
|
|
<dd>This option determines the kind of information you see on your programmable work station when using the IBM CoOperative Development Environment/400 product to compile your COBOL programs.
|
|
<p>The compiler does not produce a listing view, or listing-level debugging information. If *NOSRCDBG is also in effect, the compiler does not produce source-level error information either.
|
|
</p>
|
|
</dd>
|
|
<dt><b>*LSTDBG</b></dt>
|
|
<dd>This option determines the kind of information you see on your programmable work station when using the IBM CoOperative Development Environment/400 product to compile your COBOL programs.
|
|
<p>The compiler produces a listing view, source-level error information, and listing-level debugging information.
|
|
</p>
|
|
<p>You cannot specify *SRCDBG and *LSTDBG together. Specify one or the other.
|
|
</p>
|
|
<p>
|
|
<b>Note: </b>You can only use the *SRCDBG option if you are using the IBM CODE/400 product to compile your program. If you specify this option but do not have the IBM CODE/400 product installed, the COBOL/400 compiler continues processing, but an error message is issued. For more information on this option, see the CODE/400 Debug Tool User's Guide and Reference, SC09-1622.
|
|
</p>
|
|
</dd>
|
|
<dt><b><u>*PRINT</u></b></dt>
|
|
<dd>The compiler produces a spool listing.
|
|
</dd>
|
|
<dt><b>*NOPRINT</b></dt>
|
|
<dd>The compiler does not produce a spool listing.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.GENOPT"></a>
|
|
<h3>Generation options (GENOPT)</h3>
|
|
<p>Specifies the options to use when the program object is created. The listings could be required if a problem occurs in COBOL. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*NOLIST</u></b></dt>
|
|
<dd>No IRP (intermediate representation of program), associated hexadecimal code, or error messages are listed.
|
|
</dd>
|
|
<dt><b>*LIST</b></dt>
|
|
<dd>The IRP, its associated hexadecimal code, and any error messages are listed.
|
|
</dd>
|
|
<dt><b><u>*NOXREF</u></b></dt>
|
|
<dd>Does not produce a cross-reference listing of the objects defined in the IRP.
|
|
</dd>
|
|
<dt><b>*XREF</b></dt>
|
|
<dd>Produces a cross-reference listing of all objects defined in the IRP.
|
|
</dd>
|
|
<dt><b><u>*NOPATCH</u></b></dt>
|
|
<dd>Does not reserve space in the compiled program for a program patch area.
|
|
</dd>
|
|
<dt><b>*PATCH</b></dt>
|
|
<dd>Reserves space in the compiled program for a program patch area. The program patch area can be used for debugging purposes.
|
|
</dd>
|
|
<dt><b><u>*NODUMP</u></b></dt>
|
|
<dd>Does not list the program template.
|
|
</dd>
|
|
<dt><b>*DUMP</b></dt>
|
|
<dd>Lists the program template.
|
|
</dd>
|
|
<dt><b><u>*NOATR</u></b></dt>
|
|
<dd>Does not list the attributes for the IRP source.
|
|
</dd>
|
|
<dt><b>*ATR</b></dt>
|
|
<dd>Lists the attributes for the IRP source.
|
|
</dd>
|
|
<dt><b><u>*RANGE</u></b></dt>
|
|
<dd>At run-time, the system verifies that subscripts are within the correct ranges, but does not verify index ranges. It also checks for reference modification and compiler-generated substring operations.
|
|
</dd>
|
|
<dt><b>*NORANGE</b></dt>
|
|
<dd>Does not verify ranges at run-time.
|
|
</dd>
|
|
<dt><b><u>*UNREF</u></b></dt>
|
|
<dd>Includes unreferenced data items in the compiled program.
|
|
</dd>
|
|
<dt><b>*NOUNREF</b></dt>
|
|
<dd>Does not include unreferenced data items in the compiled program. This reduces the number of ODT (object definition table) entries used, allowing a larger program to be compiled. The unreferenced data items still appear in the cross-reference listings produced through the *XREF option.
|
|
</dd>
|
|
<dt><b><u>*NOOPTIMIZE</u></b></dt>
|
|
<dd>The compiler performs only standard optimizations for the program.
|
|
</dd>
|
|
<dt><b>*OPTIMIZE</b></dt>
|
|
<dd>The program object created may run more efficiently, and may require less storage. However, specifying *OPTIMIZE can substantially increase the time required to compile a program.
|
|
</dd>
|
|
<dt><b><u>*NODDSFILLER</u></b></dt>
|
|
<dd>If no matching fields are found by a COPY DDS statement, no field descriptions are created.
|
|
</dd>
|
|
<dt><b>*DDSFILLER</b></dt>
|
|
<dd>When no matching fields are found by a COPY DDS statement, a single character FILLER field description, "07 FILLER PIC X", is always created.
|
|
</dd>
|
|
<dt><b><u>*NOSYNC</u></b></dt>
|
|
<dd>The SYNCHRONIZED clause is syntax checked.
|
|
</dd>
|
|
<dt><b>*SYNC</b></dt>
|
|
<dd>The SYNCHRONIZED clause causes the alignment of an elementary item on a natural boundary in storage.
|
|
</dd>
|
|
<dt><b><u>*NOCRTF</u></b></dt>
|
|
<dd>Files that are unavailable at the time of an OPEN operation are not created dynamically.
|
|
</dd>
|
|
<dt><b>*CRTF</b></dt>
|
|
<dd>Files that are unavailable at the time of an OPEN operation are created dynamically.
|
|
</dd>
|
|
<dt><b><u>*NODUPKEYCHK</u></b></dt>
|
|
<dd>Does not check for duplicate keys for INDEXED files.
|
|
</dd>
|
|
<dt><b>*DUPKEYCHK</b></dt>
|
|
<dd>Checks for duplicate keys for INDEXED files.
|
|
</dd>
|
|
<dt><b><u>*STDERR</u></b></dt>
|
|
<dd>Standard error handling is used. See the chapter on error handling in the COBOL/400 User's Guide for more information about error handling.
|
|
</dd>
|
|
<dt><b>*NOSTDERR</b></dt>
|
|
<dd>The error handling method of Version 1, Releases 1 and 2, is used. See the chapter on error handling in the COBOL/400 User's Guide for more information about error handling.
|
|
</dd>
|
|
<dt><b><u>*NOEXTACCDSP</u></b></dt>
|
|
<dd>The compiler does not allow extended ACCEPT or extended DISPLAY statements.
|
|
</dd>
|
|
<dt><b>*EXTACCDSP</b></dt>
|
|
<dd>The compiler allows extended ACCEPT and extended DISPLAY statements.
|
|
</dd>
|
|
<dt><b><u>*NOINZDLT</u></b></dt>
|
|
<dd>Relative files with sequential access are not initialized with deleted records during the CLOSE operation if the files were opened for OUTPUT. That is, the record boundary is determined by the number of records written at OPEN OUTPUT time. Subsequent OPEN operations allow access only up to the record boundary.
|
|
</dd>
|
|
<dt><b>*INZDLT</b></dt>
|
|
<dd>Relative files with sequential access are initialized with deleted records during the CLOSE operation if the files were opened for OUTPUT. Active records in the files are not affected. That is, the record boundary is defined as the file size for subsequent OPEN operations.
|
|
</dd>
|
|
<dt><b><u>*NOBLK</u></b></dt>
|
|
<dd>The compiler allows blocking only of SEQUENTIAL access files with no START statement.
|
|
<p>If a BLOCK CONTAINS clause is specified, the BLOCK CONTAINS clause is ignored, except for tape files.
|
|
</p>
|
|
</dd>
|
|
<dt><b>*BLK</b></dt>
|
|
<dd>When used with BLOCK CONTAINS, the compiler allows blocking from DYNAMIC access files and SEQUENTIAL access files with a START statement. Blocking is not allowed for RELATIVE files opened for output operations.
|
|
<p>The BLOCK CONTAINS clause controls the number of records to be blocked.
|
|
</p>
|
|
<p>When no BLOCK CONTAINS clause is specified, the compiler allows blocking only of SEQUENTIAL access files with no START statement. The operating system determines the number of records to be blocked.
|
|
</p>
|
|
</dd>
|
|
<dt><b><u>*STDINZ</u></b></dt>
|
|
<dd>The compiler initializes data items to system defaults, provided that the items are not subject to a VALUE clause.
|
|
</dd>
|
|
<dt><b>*NOSTDINZ</b></dt>
|
|
<dd>For those items with no VALUE clause, the compiler does not initialize data items to system defaults.
|
|
</dd>
|
|
<dt><b><u>*FS21DUPKY</u></b></dt>
|
|
<dd>The compiler reports a file status of 21 when processing an indexed file with duplicate keys in random or dynamic access mode, if the value of the key is changed between the mandatory READ statement and a following REWRITE or DELETE statement.
|
|
</dd>
|
|
<dt><b>*NOFS21DUPKY</b></dt>
|
|
<dd>The compiler does not report a file status of 21 when processing an indexed file with duplicate keys in random or dynamic access mode. A REWRITE statement can change the key of a record.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.CVTOPT"></a>
|
|
<h3>Conversion options (CVTOPT)</h3>
|
|
<p>Specifies how the compiler handles SAA date, time, and timestamp data types, DBCS-graphic data types, and variable-length character fields passed from externally-described files to your program through COPY DDS. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*NOVARCHAR</u></b></dt>
|
|
<dd>Variable-length fields are ignored, and are declared as FILLER fields.
|
|
</dd>
|
|
<dt><b>*VARCHAR</b></dt>
|
|
<dd>Variable-length fields are declared as fixed-length group items, and are accessible to the program.
|
|
</dd>
|
|
<dt><b><u>*NODATETIME</u></b></dt>
|
|
<dd>Date, time, and timestamp data types are ignored, and are declared as FILLER fields.
|
|
</dd>
|
|
<dt><b>*DATETIME</b></dt>
|
|
<dd>Date, time, and timestamp data types are declared as fixed-length character fields, and are accessible to the program.
|
|
</dd>
|
|
<dt><b><u>*NOGRAPHIC</u></b></dt>
|
|
<dd>Graphic data types are ignored, and are declared as FILLER fields.
|
|
</dd>
|
|
<dt><b>*GRAPHIC</b></dt>
|
|
<dd>Fixed-length graphic data types are declared as fixed-length alphanumeric fields, and are accessible to the program.
|
|
<p>When the *VARCHAR option is also in use, variable-length DBCS-graphic data types are declared as fixed-length group items, and are accessible to the program.
|
|
</p>
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.SRTSEQ"></a>
|
|
<h3>Sort sequence (SRTSEQ)</h3>
|
|
<p>Specifies the sort sequence used when NLSSORT is associated with an alphabet-name in the ALPHABET clause. The SRTSEQ parameter is used in conjunction with the LANGID parameter to determine which system-defined or user-defined sort sequence table the program will use. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*HEX</u></b></dt>
|
|
<dd>No sort sequence table will be used, and the hexadecimal values of the characters will be used to determine the sort sequence.
|
|
</dd>
|
|
<dt><b>*JOB</b></dt>
|
|
<dd>The sort sequence of the program will be resolved and associated with the program at compile time. The sort sequence table must exist in the system at compile time.
|
|
</dd>
|
|
<dt><b>*JOBRUN</b></dt>
|
|
<dd>The sort sequence of the program will be resolved and associated with the program at run time. At compile time, the compiler will associate the sort sequence of the compile job with the program. At run time, this sort sequence will be replaced by the sort sequence associated with the job at run time.
|
|
</dd>
|
|
<dt><b>*LANGIDUNQ</b></dt>
|
|
<dd>Specifies that the sort sequence table being used must contain a unique weight for each character in the code page. The sort sequence table used will be the unique weighted table associated with the language specified in the LANGID parameter.
|
|
</dd>
|
|
<dt><b>*LANGIDSHR</b></dt>
|
|
<dd>Specifies that the sort sequence table being used can contain the same weight for multiple characters in the code page. The sort sequence table used will be the shared weighted table associated with the language specified in the LANGID parameter.
|
|
</dd>
|
|
<dt><b><i>table-name</i></b></dt>
|
|
<dd>Enter the name of the sort sequence table to be used. The table contains weights for all characters in a given code page. A weight is associated with the character that is defined at the code point. When using a sort sequence table name, the library in which the table resides can be specified. The valid values are:
|
|
<dl>
|
|
<dt><b><u>*LIBL</u></b></dt>
|
|
<dd>The library list is searched to find the library where the sort sequence table is located.
|
|
</dd>
|
|
<dt><b>*CURLIB</b></dt>
|
|
<dd>The current library is searched. If you have not assigned a library as the current library, QGPL is used.
|
|
</dd>
|
|
<dt><b><i>library-name</i></b></dt>
|
|
<dd>Enter the name of the library where the sort sequence table is found.
|
|
</dd>
|
|
</dl>
|
|
</dd>
|
|
</dl>
|
|
<p>
|
|
<b>Note: </b>The valid PROCESS statement options for SRTSEQ are SRTSEQ(HEX), SRTSEQ(JOB), SRTSEQ(JOBRUN), SRTSEQ(LANGIDUNQ), SRTSEQ(LANGIDSHR), SRTSEQ("table-name"), SRTSEQ("library-name/table-name"), SRTSEQ("LIBL/table-name"), and SRTSEQ("CURLIB/table-name").
|
|
</p>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.LANGID"></a>
|
|
<h3>Language identifier (LANGID)</h3>
|
|
<p>Specifies the language identifier which is used in conjunction with the sort sequence. The LANGID parameter is used only when the SRTSEQ value in effect is *LANGIDUNQ or *LANGIDSHR. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*JOBRUN</u></b></dt>
|
|
<dd>The language identifier of the program will be resolved at run time. When the compiled program is run, the language identifier of the job is used. This value allows a program to be compiled once and used with different language identifiers at run time.
|
|
</dd>
|
|
<dt><b>*JOB</b></dt>
|
|
<dd>The language identifier of the program will be resolved at compile time.
|
|
</dd>
|
|
<dt><b><i>language-identifier</i></b></dt>
|
|
<dd>Enter a valid 3 character language identifier.
|
|
</dd>
|
|
</dl>
|
|
<p>
|
|
<b>Note: </b>The valid PROCESS statement options for LANGID are LANGID(JOBRUN), LANGID(JOB), and LANGID("language-identifier").
|
|
</p>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.MSGLMT"></a>
|
|
<h3>Message limit (MSGLMT)</h3>
|
|
<p>Controls compilation by indicating the maximum number of error messages of a given error severity level that can occur before compilation stops.
|
|
</p>
|
|
<p>For example, you can stop compilation if more than three errors with a severity level of 20 or higher occur. In this example, you would specify 3 for the maximum number of error messages, and 20 for the maximum error severity level. If three errors of severity level 20 or higher occur, compilation continues, but when a fourth is encountered, compilation stops. If no messages equal or exceed the maximum severity level, compilation continues regardless of the number of errors encountered.
|
|
</p>
|
|
<dl>
|
|
<dt><b><i>message-limit</i></b></dt>
|
|
<dd>The possible values for the maximum number of error messages are:
|
|
<dl>
|
|
<dt><b><u>*NOMAX</u></b></dt>
|
|
<dd>Compilation continues until normal completion regardless of the number of errors encountered.
|
|
</dd>
|
|
<dt><b><i>1-9999</i></b></dt>
|
|
<dd>Compilation stops if the number of errors of the specified severity level or higher exceeds the number you specify. If no messages equal or exceed the maximum severity level, compilation continues regardless of the number of errors encountered.
|
|
</dd>
|
|
</dl>
|
|
</dd>
|
|
<dt><b><i>message-severity</i></b></dt>
|
|
<dd>The possible values for the maximum error severity level are:
|
|
<dl>
|
|
<dt><b><u>29</u></b></dt>
|
|
<dd>Compilation stops if the number of errors with severity level 29 or higher exceeds the maximum number of error messages specified.
|
|
</dd>
|
|
<dt><b><i>maximum-severity-level</i></b></dt>
|
|
<dd>Specify a one or two-digit number, 0 through 29. Compilation stops if the number of errors with the specified severity level or higher exceeds the maximum number of error messages you specify.
|
|
</dd>
|
|
</dl>
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.PRTFILE"></a>
|
|
<h3>Print file (PRTFILE)</h3>
|
|
<p>Specifies the name of the file to which the compiler listing is directed and the library where the file is located. The file should have a minimum record length of 132. If a file with a record length less than 132 is specified, information is lost.
|
|
</p>
|
|
<p>The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>QSYSPRT</u></b></dt>
|
|
<dd>If you do not specify a file name, the compiler listing is directed to QSYSPRT, an IBM-supplied file.
|
|
</dd>
|
|
<dt><b><i>file-name</i></b></dt>
|
|
<dd>Enter the name of the file to which the compiler listing is directed.
|
|
</dd>
|
|
</dl>
|
|
<p>The possible library values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*LIBL</u></b></dt>
|
|
<dd>The system searches the library list to find the library where the file is located.
|
|
</dd>
|
|
<dt><b>*CURLIB</b></dt>
|
|
<dd>The current library is used. If you have not assigned a library as the current library, QGPL is used.
|
|
</dd>
|
|
<dt><b><i>library-name</i></b></dt>
|
|
<dd>Enter the name of the library in which the file is located.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.FLAGSTD"></a>
|
|
<h3>FIPS flagging (FLAGSTD)</h3>
|
|
<p>Specifies the options for FIPS flagging. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*NOFIPS</u></b></dt>
|
|
<dd>The source program is not FIPS flagged.
|
|
</dd>
|
|
<dt><b>*MINIMUM</b></dt>
|
|
<dd>FIPS flag for minimum subset and higher.
|
|
</dd>
|
|
<dt><b>*INTERMEDIATE</b></dt>
|
|
<dd>FIPS flag for intermediate subset and higher.
|
|
</dd>
|
|
<dt><b>*HIGH</b></dt>
|
|
<dd>FIPS flag for high subset.
|
|
</dd>
|
|
<dt><b><u>*NOSEG</u></b></dt>
|
|
<dd>Optional module SEGMENTATION is not FIPS flagged.
|
|
</dd>
|
|
<dt><b>*SEG1</b></dt>
|
|
<dd>FIPS Flag for optional module SEGMENTATION level 1 and higher.
|
|
</dd>
|
|
<dt><b>*SEG2</b></dt>
|
|
<dd>FIPS Flag for optional module SEGMENTATION level 2.
|
|
</dd>
|
|
<dt><b><u>*NODEB</u></b></dt>
|
|
<dd>Optional module DEBUG is not FIPS flagged.
|
|
</dd>
|
|
<dt><b>*DEB1</b></dt>
|
|
<dd>FIPS Flag for optional module DEBUG level 1 and higher.
|
|
</dd>
|
|
<dt><b>*DEB2</b></dt>
|
|
<dd>FIPS Flag for optional module DEBUG level 2.
|
|
</dd>
|
|
<dt><b><u>*NOOBSOLETE</u></b></dt>
|
|
<dd>Obsolete language elements are not flagged.
|
|
</dd>
|
|
<dt><b>*OBSOLETE</b></dt>
|
|
<dd>Obsolete language elements are flagged.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.SAAFLAG"></a>
|
|
<h3>SAA flagging (SAAFLAG)</h3>
|
|
<p>Specifies if you want flagging of COBOL/400* functions that are not supported by SAA COBOL. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*NOFLAG</u></b></dt>
|
|
<dd>SAA COBOL flagging is not performed.
|
|
</dd>
|
|
<dt><b>*FLAG</b></dt>
|
|
<dd>SAA COBOL flagging is performed.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.EXTDSPOPT"></a>
|
|
<h3>Extended display options (EXTDSPOPT)</h3>
|
|
<p>Specifies the options to use for extended ACCEPT and extended DISPLAY statements for workstation I/O. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*DFRWRT</u></b></dt>
|
|
<dd>Extended DISPLAY statements are held in a buffer until an extended ACCEPT statement is encountered, or until the buffer is filled.
|
|
<p>If an extended ACCEPT statement is not encountered before the buffer is filled, the contents of the buffer are written to the display. When an extended ACCEPT statement is encountered, the current contents of the buffer are written to the display.
|
|
</p>
|
|
</dd>
|
|
<dt><b>*NODFRWRT</b></dt>
|
|
<dd>Each extended DISPLAY statement is performed as it is encountered.
|
|
</dd>
|
|
<dt><b><u>*UNDSPCHR</u></b></dt>
|
|
<dd>Displayable and undisplayable characters are handled by extended ACCEPT and extended DISPLAY statements.
|
|
</dd>
|
|
<dt><b>*NOUNDSPCHR</b></dt>
|
|
<dd>Only displayable characters are handled by extended ACCEPT and extended DISPLAY statements.
|
|
<p>Although you must use this option for display stations attached to remote 3174 and 3274 controllers, you can also use it for local work stations. If you do use this option, your data must contain displayable characters. If the data contains values less than hexadecimal 20, the results are unpredictable, and can range from unexpected display formats to severe errors.
|
|
</p>
|
|
</dd>
|
|
<dt><b><u>*ACCUPDALL</u></b></dt>
|
|
<dd>All types of data are predisplayed in the extended ACCEPT statements regardless of the existence of the UPDATE phrase.
|
|
</dd>
|
|
<dt><b>*ACCUPDNE</b></dt>
|
|
<dd>Only numeric edited data are predisplayed in the extended ACCEPT statements that do not contain the UPDATE phrase.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.FLAG"></a>
|
|
<h3>Flagging severity (FLAG)</h3>
|
|
<p>Specifies the minimum severity level of messages to be printed. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>0 </u></b></dt>
|
|
<dd>All messages are printed.
|
|
</dd>
|
|
<dt><b><i>severity-level</i></b></dt>
|
|
<dd>Enter a one or two-digit number that specifies the minimum severity level of messages that are printed. Messages that have severity levels of the specified value or higher are listed.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.REPLACE"></a>
|
|
<h3>Replace program (REPLACE)</h3>
|
|
<p>Specifies if a new program object is created when a program object of the same name in the same library already exists. The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*YES</u></b></dt>
|
|
<dd>A new program object is created and any existing program object of the same name in the specified library is moved to library QRPLOBJ.
|
|
</dd>
|
|
<dt><b>*NO</b></dt>
|
|
<dd>A new program object is not created if a program object of the same name already exists in the specified library.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.TGTRLS"></a>
|
|
<h3>Target release (TGTRLS)</h3>
|
|
<p>Specifies the release level of the operating system on which you intend to use the object being created.
|
|
</p>
|
|
<p>You can specify an exact release level in the format VxRxMx, where Vx is the version, Rx is the release, and Mx is the modification level. For example, V3R1M0 is Version 3, Release 1, Modification level 0.
|
|
</p>
|
|
<p>
|
|
<b>Note: </b>To use the object on the target system, you must save the object to the target release level specified on the create command and then restore it on the target system.
|
|
</p>
|
|
<p>For example, if your system is running V3R1M0 and you want to create a program object for distribution to a V2R3M0 system, you must create the program with TGTRLS(V2R3M0) or TGTRLS(*PRV), save the program with TGTRLS(V2R3M0) or TGTRLS(*PRV), and restore the program on the V2R3M0 system. The program object can also be restored on a V3R1M0 system.
|
|
</p>
|
|
<p>
|
|
<b>Note: </b>The program may be able to be restored on a release level earlier than the one you specified on the create command. Use DSPPGM to determine the earliest release the program can run.
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*CURRENT</u></b></dt>
|
|
<dd>The object is to be used on the release of the operating system currently running on your system. For example, if V3R1M0 is running on the system, *CURRENT means you intend to use the object on a system with V3R1M0 installed. You can also use the object on a system with any subsequent release of the operating system installed.
|
|
</dd>
|
|
<dt><b>*PRV</b></dt>
|
|
<dd>The object is to be used on the previous release with modification level 0 of the operating system. For example, if V3R1M0 is running on your system, *PRV means you intend to use the object on a system with V2R3M0 installed. You can also use the object on a system with any subsequent release of the operating system installed.
|
|
</dd>
|
|
<dt><b><i>release-level</i></b></dt>
|
|
<dd>Specify the release in the format VxRxMx. The object can be used on a system with the specified release or with any subsequent release of the operating system installed.
|
|
<p>Valid values depend on the current version, release, and modification level, and they change with each new release. To see the list of valid values, press F4=Prompt on the TGTRLS parameter of the command.
|
|
</p>
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.USRPRF"></a>
|
|
<h3>User profile (USRPRF)</h3>
|
|
<p>Specifies the user profile that will run the compiled COBOL program. The profile of the program owner or the program user is used to run the program and control which objects can be used by the program (including the authority the program has for each object).
|
|
</p>
|
|
<p>The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*USER</u></b></dt>
|
|
<dd>The user profile of the program user is to be used when the program is run.
|
|
</dd>
|
|
<dt><b>*OWNER</b></dt>
|
|
<dd>The user profiles of both the program's owner and user are to be used when the program is run. The collective sets of object authority in both user profiles are to be used to find and access objects during the running of the program. Any objects that are created during the program are owned by the program's user.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.AUT"></a>
|
|
<h3>Authority (AUT)</h3>
|
|
<p>Specifies the authority given to users who do not have specific authority to the program object, who are not on the authorization list, or whose group has no specific authority to the program object. You can alter the authority for all users, or for specific users after the program object is created by using the GRTOBJAUT (Grant Object Authority) or RVKOBJAUT (Revoke Object Authority) commands.
|
|
</p>
|
|
<p>The possible values are:
|
|
</p>
|
|
<dl>
|
|
<dt><b><u>*LIBCRTAUT</u></b></dt>
|
|
<dd>The public authority for the object is taken from the CRTAUT keyword of the target library (the library that is to contain the created program object). This value is determined when the program object is created. If the CRTAUT value for the library changes after the program object is created, the new value does NOT affect any existing objects.
|
|
</dd>
|
|
<dt><b>*ALL</b></dt>
|
|
<dd>Provides authority for all operations on the program object except those limited to the owner or controlled by authorization list management authority. The user can control the program object's existence, specify security for it, change it, and perform basic functions on it, but cannot transfer its ownership.
|
|
</dd>
|
|
<dt><b>*CHANGE</b></dt>
|
|
<dd>Provides all data authority and the authority for performing all operations on the program object except those limited to the owner or controlled by object authority and object management authority. The user can change the object and perform basic functions on it, such as running and debugging the program object.
|
|
</dd>
|
|
<dt><b>*USE</b></dt>
|
|
<dd>Provides object operational authority and read authority; authority for basic operations on the program object such as running the program. The user is prevented from changing the object.
|
|
<p>
|
|
<b>Note: </b>A user must have *USE authority to a program to obtain a formatted dump of the variables of the program. To dump variables, the program must also have observable information.
|
|
</p>
|
|
<p>If you do not want some users to be able to dump the variables, then give them only *OBJOPR plus *EXECUTE authority to the program. This will allow them to call the program but not dump its variables.
|
|
</p>
|
|
<p>If you do not want any users to be able to dump the variables, then use Change Program (CHGPGM) to remove the program's observable information.
|
|
</p>
|
|
</dd>
|
|
<dt><b>*EXCLUDE</b></dt>
|
|
<dd>The user cannot access the program object.
|
|
</dd>
|
|
<dt><b><i>authorization-list-name</i></b></dt>
|
|
<dd>Enter the name of an authorization list of users and authorities to which the program is added. The program object is secured by this authorization list, and the public authority for the program object is set to *AUTL. The authorization list must exist on the system when the CRTCBLPGM command is issued.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.DUMP"></a>
|
|
<h3>Compiler debugging dump (DUMP)</h3>
|
|
<p>An IBM COBOL debugging aid. (For IBM service personnel.)
|
|
</p>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<div> <a name="CRTCBLPGM.ITDUMP"></a>
|
|
<h3>Intermediate text dump (ITDUMP)</h3>
|
|
<p>An IBM debugging aid which causes the compiler to dump the internal text at certain times during the compilation. (For IBM service personnel.)
|
|
</p>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<hr size="2" width="100%">
|
|
<div><h3><a name="CRTCBLPGM.COMMAND.EXAMPLES">Examples</a> </h3>
|
|
<p><b>Example 1: Compiling a Source Program into a Program Object </b>
|
|
</p>
|
|
<p>
|
|
<pre>
|
|
CRTCBLPGM PGM(MYLIB/XMPLE1) SRCFILE(MYLIB/QLBLSRC)
|
|
SRCMBR(XMPLE1) OPTION(*SOURCE)
|
|
TEXT('My COBOL program')
|
|
</pre>
|
|
</p>
|
|
<p>This command calls the COBOL compiler to create a program named XMPLE1. The source program is in member XMPLE1 of source file QLBLSRC in library MYLIB. A compiler listing is created.
|
|
</p>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
<hr size="2" width="100%">
|
|
<div><h3><a name="CRTCBLPGM.ERROR.MESSAGES">Error messages</a> </h3>
|
|
<p><b><u>*ESCAPE Messages</u></b>
|
|
</p>
|
|
<dl>
|
|
<dt><b>LBL9001</b></dt>
|
|
<dd>Compile failed. Program not created.
|
|
</dd>
|
|
<dt><b>LBL9004</b></dt>
|
|
<dd>Program already exists. Compile failed.
|
|
</dd>
|
|
<dt><b>LBL9006</b></dt>
|
|
<dd>TGTRLS(&1) specified, but previous compiler is not installed.
|
|
</dd>
|
|
<dt><b>LBL9007</b></dt>
|
|
<dd>The product library is damaged, or the user is not allowed to use it.
|
|
</dd>
|
|
<dt><b>SQL9002</b></dt>
|
|
<dd>Conflict in TGTRLS parameters for SQL precompile and &7 compile.
|
|
</dd>
|
|
<dt><b>SQL9003</b></dt>
|
|
<dd>&7 Compile at wrong level for SQL source.
|
|
</dd>
|
|
</dl>
|
|
</div>
|
|
<table width="100%">
|
|
<tr><td align="right"><a href="#CRTCBLPGM.Top_Of_Page">Top</a></td></tr>
|
|
</table>
|
|
</body>
|
|
</html>
|