https://m204wiki.rocketsoftware.com/index.php?action=history&feed=atom&title=IFDECL_%28HLI_function%29
IFDECL (HLI function) - Revision history
2026-06-15T06:16:44Z
Revision history for this page on the wiki
MediaWiki 1.43.1
https://m204wiki.rocketsoftware.com/index.php?title=IFDECL_(HLI_function)&diff=89145&oldid=prev
ELowell at 22:09, 12 July 2016
2016-07-12T22:09:17Z
<p></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 22:09, 12 July 2016</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1">Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>The conventions used on this page are described in [[HLI: Function <del style="font-weight: bold; text-decoration: none;">call list</del>#Function call notation conventions|Function call notation conventions]].</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>The conventions used on this page are described in [[HLI: Function <ins style="font-weight: bold; text-decoration: none;">summary</ins>#Function call notation conventions|Function call notation conventions]].</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Summary==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Summary==</div></td></tr>
</table>
ELowell
https://m204wiki.rocketsoftware.com/index.php?title=IFDECL_(HLI_function)&diff=88457&oldid=prev
ELowell at 21:12, 11 July 2016
2016-07-11T21:12:41Z
<p></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 21:12, 11 July 2016</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1">Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">The conventions used on this page are described in [[HLI: Function call list#Function call notation conventions|Function call notation conventions]].</ins></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Summary==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Summary==</div></td></tr>
</table>
ELowell
https://m204wiki.rocketsoftware.com/index.php?title=IFDECL_(HLI_function)&diff=84748&oldid=prev
ELowell: /* Syntax */
2016-07-06T16:42:28Z
<p><span class="autocomment">Syntax</span></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 16:42, 6 July 2016</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l12">Line 12:</td>
<td colspan="2" class="diff-lineno">Line 12:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Syntax==</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>==Syntax==</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p class="syntax">IFDECL %variable [IS] [EBCDIC | MIXED {DBCS | KANJI} | DBCS | KANJI] [<var class="term">options</var>]</p></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p class="syntax">IFDECL %variable [IS] [EBCDIC | MIXED {DBCS | KANJI} | DBCS | KANJI] [<var class="term">options</var>]</p></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><dl></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><dt>Compile-only form</dt></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><dd>Not available</dd></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><dt>Execute-only form</dt></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><dd>Not available</dd></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></dl></ins></div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p>The parameters for IFDECL are the same as for the Model 204 <var>[[SOUL_syntax#DECLARE|DECLARE]]</var> statement.</p></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><p>The parameters for IFDECL are the same as for the Model 204 <var>[[SOUL_syntax#DECLARE|DECLARE]]</var> statement.</p></div></td></tr>
</table>
ELowell
https://m204wiki.rocketsoftware.com/index.php?title=IFDECL_(HLI_function)&diff=84747&oldid=prev
ELowell: Created page with " ==Summary== <dl> <dt>Description</dt> <dd>The IFDECL call lets you declare STRING %variables to support the use and display of double-byte character set (DBCS) characters.</d..."
2016-07-06T16:36:56Z
<p>Created page with " ==Summary== <dl> <dt>Description</dt> <dd>The IFDECL call lets you declare STRING %variables to support the use and display of double-byte character set (DBCS) characters.</d..."</p>
<p><b>New page</b></p><div><br />
==Summary==<br />
<dl><br />
<dt>Description</dt><br />
<dd>The IFDECL call lets you declare STRING %variables to support the use and display of double-byte character set (DBCS) characters.</dd><br />
<dt>Thread type</dt><br />
<dd>Multi-cursor IFAM</dd><br />
<dt>IFCALL function number</dt><br />
<dd>Not applicable</dd><br />
</dl><br />
<br />
==Syntax==<br />
<p class="syntax">IFDECL %variable [IS] [EBCDIC | MIXED {DBCS | KANJI} | DBCS | KANJI] [<var class="term">options</var>]</p><br />
<br />
<p>The parameters for IFDECL are the same as for the Model 204 <var>[[SOUL_syntax#DECLARE|DECLARE]]</var> statement.</p><br />
<br />
==Usage notes==<br />
<p><br />
To support the use and display of Kanji characters, which require two bytes each, the IFDECL call declares STRING %variables as one of three types for use in an IFFIND: </p><br />
<ul><br />
<li><br />
<b>STRING EBCDIC:</b> the default type, contains single byte characters, in the EBCDIC collating sequence </li><br />
<li><br />
<b>STRING DBCS:</b> can contain only pure DBCS characters (double-byte data only, with no shift sequences)</li><br />
<li><br />
<b>STRING MIXED DBCS:</b> Model 204 assumes the field contains both DBCS and EBCDIC data and that all DBCS characters are contained within balanced shift sequence pairs. (The shift sequences define whether a series of bytes is interpreted as DBCS or EBCDIC.)</li><br />
</ul><br />
<p><br />
When you use a pure or mixed DBCS %variable in an IFFIND statement, Model 204:</p><br />
<ol><br />
<li><br />
Performs the appropriate data type conversions, following the conversion rules for assignment types.</li><br />
<li><br />
Compares the pure and mixed DBCS fields.</li><br />
</ol><br />
<p><br />
IFDECL declares only simple string variables. You cannot use IFDECL for arrays, ASCII, FLOAT, or BINARY strings, or for lists, labels, or subroutines.</p><br />
<p><br />
IFDECL is allowed only on Multi-Cursor IFAM threads.</p><br />
<br />
==Coding example (COBOL)==<br />
<p class="code">WORKING-STORAGE SECTION.<br />
01 CALL-ARGS.<br />
77 DECLARE-MIXED PIC X(35) VALUE '%MIXED IS STRING MIXED DBCS LEN 20;'.<br />
77 DECLARE-PURE PIC X(28) VALUE '%PURE IS STRING DBCS LEN 20;'.<br />
77 FIND-DBCS PIC X(31) VALUE 'PURE.DBCS = '<var class="term">Kanji-data</var>';END;'.<br />
77 FIND-NAME PIC X(08) VALUE 'FIND.DBCS;' <br />
.<br />
.<br />
.<br />
PROCEDURE DIVISION.<br />
.<br />
.<br />
.<br />
CALL IFDECL WITH DECLARE-MIXED.<br />
CALL IFDECL WITH DECLARE-PURE.<br />
CALL IFFIND WITH RETCODE, FIND-DBCS, FIND</p><br />
<br />
[[Category: HLI functions]]</div>
ELowell