IFWRITE (HLI function) - Revision history

https://m204wiki.rocketsoftware.com/index.php?action=history&feed=atom&title=IFWRITE_%28HLI_function%29 IFWRITE (HLI function) - Revision history 2026-06-02T17:33:35Z Revision history for this page on the wiki MediaWiki 1.43.1 https://m204wiki.rocketsoftware.com/index.php?title=IFWRITE_(HLI_function)&diff=93230&oldid=prev ELowell at 19:42, 13 July 2016 2016-07-13T19:42:07Z

<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 19:42, 13 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=IFWRITE_(HLI_function)&diff=88857&oldid=prev ELowell at 23:05, 11 July 2016 2016-07-11T23:05:07Z

<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 23:05, 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=IFWRITE_(HLI_function)&diff=87616&oldid=prev ELowell: Created page with " ==Summary== <dl> <dt>Description</dt> <dd>The IFWRITE call (WRITE) sends a line of input to Model 204.</dd> <dt>Thread type</dt> <dd>IFDIAL</dd> <dt>IFCALL function number</d..." 2016-07-08T23:09:14Z

<p>Created page with " ==Summary== <dl> <dt>Description</dt> <dd>The IFWRITE call (WRITE) sends a line of input to Model 204.</dd> <dt>Thread type</dt> <dd>IFDIAL</dd> <dt>IFCALL function number</d..."</p> <p><b>New page</b></p><div><br /> ==Summary==<br /> <dl><br /> <dt>Description</dt><br /> <dd>The IFWRITE call (WRITE) sends a line of input to Model 204.</dd><br /> <dt>Thread type</dt><br /> <dd>IFDIAL</dd><br /> <dt>IFCALL function number</dt><br /> <dd>10</dd><br /> </dl><br /> <br /> ==Syntax==<br /> <p class="syntax">IFWRITE|IFWRIT(RETCODE,LINE_AREA,LINE_LEN)</p><br /> <br /> <dl><br /> <dt>Compile-only form</dt><br /> <dd>Not available</dd><br /> <dt>Execute-only form</dt><br /> <dd>Not available</dd><br /> </dl><br /> <br /> <p>Specify the parameters in the syntax order shown above.</p><br /> <table><br /> <tr class="head"><br /> <th>Parameter</th><br /> <th>Description</th><br /> </tr><br /> <tr><br /> <td>RETCODE</td><br /> <td>[O,i,r] The Model 204 return code is the required output parameter. The code is a binary integer value.</td><br /> </tr><br /> <tr><br /> <td>LINE_AREA</td><br /> <td>[I,c,r] The line area is a required input parameter that is the input line to be sent to Model 204.</td><br /> </tr><br /> <tr><br /> <td>LINE_LEN</td><br /> <td>[I,i,o] The line length is an optional input parameter that specifies the transfer length for IFWRITE.<br /> <p><br /> This parameter determines the maximum line length for the IFWRITE call. If this parameter is present, it overrides any value specified in IFDIAL or IFDIALN. For PL/1, the length is the minimum of this value plus the string length. </p><br /> <p><br /> See [[#Transfer length for input to Model 204|Transfer length for input to Model 204]] for more information about the input line length. </p><br /> </td><br /> </tr><br /> </table><br /> <br /> ==Usage notes==<br /> <p><br /> Use the IFWRITE call only with an IFDIAL thread to transmit data to Model 204. </p><br /> <p><br /> When using IFWRITE, note that %VAR must be a string equal to TERMINAL and either a PREPARE or IDENTIFY imagename is required prior to writing a new image. See [[HLI: IFDIAL processing]] for more information about coding IFDIAL applications. </p><br /> <p><br /> You can specify a different buffer length with each call by specifying the [[#Transfer length for input to Model 204|line length in IFWRITE]].</p><br /> <br /> ==Completion return code (RETCODE)==<br /> <p><br /> Code your IFDIAL application to check the return code for the following values: </p><br /> <table><br /> <tr class="head"><br /> <th>Code</th><br /> <th>Required action</th><br /> </tr><br /> <tr><br /> <td>1</td><br /> <td>Call IFWRITE next to provide Model 204 with input.</td><br /> </tr><br /> <tr><br /> <td>2</td><br /> <td>Call IFREAD next to get more output from Model 204.</td><br /> </tr><br /> </table><br /> <p><br /> See [[HLI: IFDIAL processing]] for more information about coding IFDIAL applications. </p><br /> <p><br /> If the IFWRITE call is unsuccessful, Model 204 returns an error code for either of the following error conditions: </p><br /> <table><br /> <tr class="head"><br /> <th>Code</th><br /> <th>Error condition</th><br /> </tr><br /> <tr><br /> <td>12</td><br /> <td>IFWRITE call not accepted (IFREAD call expected).</td><br /> </tr><br /> <tr><br /> <td>100</td><br /> <td>No current Model 204 connection exists or the connection is lost.</td><br /> </tr><br /> </table><br /> <br /> ==Transfer length for input to Model 204==<br /> <p><br /> The parameters in effect during the execution of the IFWRITE call determine the length of data transferred to Model 204. Several factors determine the length.</p><br /> <p><br /> The first factor is the PL/1 string length; for PL/1 compilers (F-level, Optimizer and Checkout) use a dope vector when passing character string arguments. This dope vector contains the maximum length of the string and its address. For strings declared as VARYING, it also contains the current length.</p><br /> <p><br /> The next factor is the transfer length for input to Model 204. This value is based on the following order of precedence, from highest to lowest: </p><br /> <ol><br /> <li>The optional length parameter in the IFWRITE call.<br /> <br /> <p>For PL/1, if this length is greater than the current string length, the current string length is used.</p><br /> <br /> <p class="note"><b>Note:</b> This value is in effect only for this specific IFWRITE call.</p><br /> </li><br /> <li><br /> The optional default length parameter in the IFDIAL call. This new default remains in effect until IFHNGUP is called.<br /> <br /> <p>For PL/1, if this length is greater than the current string length, the current string length is used.</p><br /> </li><br /> <li><br /> The standard default length is one of the following:<br /> <ul><br /> <li>252 for COBOL, FORTRAN, and Assembler</li><br /> <li>PL/1 current string length (dope vector)</li><br /> </ul><br /> </li><br /> </ol><br /> <p class="note"><b>Note:</b> The maximum length of a data area that can be transferred over an IFDIAL thread is 32763 bytes. For all languages, if the transfer length is greater than the CRAM buffer size, the data is truncated and the length adjusted. </p><br /> <p><br /> For more information about buffer size parameters, see [[Defining the runtime environment (CCAIN)]].</p><br /> <br /> ==Overview of IFWRITE data transfer==<br /> <p><br /> The following table, "IFWRITE data transfer length," summarizes the relationship between the parameters that determine the IFWRITE data transfer length. </p><br /> <p><br /> The table uses the following codes: </p><br /> <ul><br /> <li>Lang=<var class="term">n</var> is the language indicator specified in the IFDIAL or IFDIALN call. </li><br /> <li>LENGTH1 is the default length parameter in the IFDIAL call. </li><br /> <li>LENGTH2 is the length parameter in the IFREAD call. </li><br /> <li>FIXED is a PL/1 string argument that is declared as fixed. </li><br /> <li>VARYING is a PL/1 string argument that is declared as varying.</li><br /> <li>CURRLEN is the current length of the PL/1 string.</li><br /> <li>LENGTH<var class="term">n</var> signifies that the parameter was specified.</li><br /> <li>&#172;LENGTH<var class="term">n</var> signifies that the parameter was not specified.</li><br /> <li>min(<var class="term">l</var>,<var class="term">m</var>) is the transfer length, which is the minimum value of <var class="term">l</var> and <var class="term">m</var>.</li><br /> <br /> <table><br /> <caption>IFWRITE data transfer length</caption><br /> <tr class="head"><br /> <th rowspan="1" colspan="3">Parameters in effect</th><br /> <th rowspan="2" colspan="1">Transfer length</th><br /> </tr><br /> <tr class="head"><br /> <th rowpsan="1" colspan="2">IFDIAL</th><br /> <th>IFREAD</th><br /> </tr><br /> <tr><br /> <td>Lang=1</td><br /> <td>LENGTH1 <br /><br /> LENGTH1 <br /><br /> LENGTH1 <br /><br /> LENGTH1 </td><br /> <td>LENGTH2 <br /><br /> &#172;LENGTH2 <br /><br /> LENGTH2 <br /><br /> &#172;LENGTH2 </td><br /> <td><p>&nbsp;</p></td><br /> </tr><br /> <tr><br /> <td>Lang=2</td><br /> <td>LENGTH1 <br /><br /> LENGTH1 <br /><br /> &#172;LENGTH1 <br /><br /> &#172;LENGTH1 </td><br /> <td>LENGTH2 <br /><br /> &#172;LENGTH2 <br /><br /> LENGTH2 <br /><br /> &#172;LENGTH2<br /> </td><br /> <td>LENGTH2 <br /><br /> LENGTH1 <br /><br /> LENGTH2 <br /><br /> 252<br /> </td><br /> </tr><br /> <tr><br /> <td>Lang=3</td><br /> <td>LENGTH1 <br /><br /> LENGTH1 <br /><br /> &#172;LENGTH1 <br /><br /> &#172;LENGTH1</td><br /> <td>LENGTH2, FIXED <br /><br /> &#172;LENGTH2, FIXED <br /><br /> LENGTH2, FIXED <br /><br /> &#172;LENGTH2, FIXED</td><br /> <td>min(LENGTH2,MAXLEN) <br /><br /> min(LENGTH1,MAXLEN) <br /><br /> min(LENGTH2,MAXLEN) <br /><br /> CURRLEN</td><br /> </tr><br /> <tr><br /> <td>Lang=4</td><br /> <td>LENGTH1 <br /><br /> LENGTH1 <br /><br /> &#172;LENGTH1 <br /><br /> &#172;LENGTH1<br /> </td><br /> <td>LENGTH2, VARYING <br /><br /> &#172;LENGTH2, VARYING <br /><br /> LENGTH2, VARYING <br /><br /> &#172;LENGTH2, VARYING</td><br /> <td>min(LENGTH2,MAXLEN) <br /><br /> min(LENGTH1,MAXLEN) <br /><br /> min(LENGTH2,MAXLEN) <br /><br /> CURRLEN</td><br /> </tr><br /> <tr><br /> </table><br /> <br /> ==Coding example (Assembler)==<br /> <p class="code">.<br /> .<br /> .<br /> CALL IFDIAL...<br /> .<br /> .<br /> .<br /> <br /> CALL IFREAD...<br /> .<br /> .<br /> .<br /> MVC WLEN(4),=F'9'<br /> CALL IFWRITE,(RETCODE,LOGONMSG,WLEN),VL<br /> CLC RETCODE(4),=F'2'<br /> BNE END<br /> .<br /> .<br /> .<br /> END ABEND 999,DUMP<br /> .<br /> .<br /> .<br /> RETCODE DC F'0'<br /> LOGONMSG DC C'LOGON USR'<br /> WLEN DC F'0'<br /> END</p><br /> <br /> [[Category: HLI functions]]</div>

ELowell