IFRNUM (HLI function) - Revision history

https://m204wiki.rocketsoftware.com/index.php?action=history&feed=atom&title=IFRNUM_%28HLI_function%29 IFRNUM (HLI function) - Revision history 2026-05-07T13:13:21Z Revision history for this page on the wiki MediaWiki 1.43.1 https://m204wiki.rocketsoftware.com/index.php?title=IFRNUM_(HLI_function)&diff=93214&oldid=prev ELowell at 19:35, 13 July 2016 2016-07-13T19:35:59Z

<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:35, 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=IFRNUM_(HLI_function)&diff=88841&oldid=prev ELowell at 22:54, 11 July 2016 2016-07-11T22:54:03Z

<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:54, 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=IFRNUM_(HLI_function)&diff=87596&oldid=prev ELowell: Created page with " ==Summary== <dl> <dt>Description</dt> <dd>The IFRNUM call (EXTRACT RECORD NUMBER) returns the number of the current record in the specified cursor in an output parameter.</dd..." 2016-07-08T19:01:58Z

<p>Created page with " ==Summary== <dl> <dt>Description</dt> <dd>The IFRNUM call (EXTRACT RECORD NUMBER) returns the number of the current record in the specified cursor in an output parameter.</dd..."</p> <p><b>New page</b></p><div><br /> ==Summary==<br /> <dl><br /> <dt>Description</dt><br /> <dd>The IFRNUM call (EXTRACT RECORD NUMBER) returns the number of the current record in the specified cursor in an output parameter.</dd><br /> <dt>Thread type</dt><br /> <dd>multiple cursor IFSTRT</dd><br /> <dt>IFCALL function number</dt><br /> <dd>121</dd><br /> </dl><br /> <br /> ==Syntax==<br /> <p class="syntax">IFRNUM(RETCODE,CURSOR_NAME,RECNUM)</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 first parameter. The code is a binary integer value.</td><br /> </tr><br /> <tr><br /> <td>CURSOR_NAME</td><br /> <td>[I,s,r] Is a required input parameter that specifies the name of the cursor whose record number is to be returned. This is a short character string, the name previously assigned to the cursor in a corresponding IFOCUR call.<br /> <p><br /> See the description of [[IFOCUR (HLI function)#CURSOR_NAME|CURSOR_NAME for the IFOCUR call]].</p><br /> </td><br /> </tr><br /> <tr><br /> <td>RECNUM</td><br /> <td>[O,c,r] Is a required output parameter that returns the number of the current record for the specified cursor. Specify a character string variable. Model 204 returns a number in display format, up to eleven characters in length.</td><br /> </tr><br /> </table><br /> <br /> ==Usage notes==<br /> <p><br /> Use the IFRNUM call to access the internal number of the record, that is, the database record number, at the location where the specified cursor is currently positioned. </p><br /> <p><br /> The IFRNUM call is the equivalent of the [[$Currec]] function in SOUL in the multiple cursor environment. </p><br /> <p><br /> IFRNUM returns a -1 for the current record number (RECNUM) to indicate that there is no current record for the specified cursor. This result occurs if no fetch is issued or if an IFRELA call was issued to release the record set.</p><br /> <br /> <p class="note"><b>Note:</b> To successfully issue the IFRNUM call, you must specify a cursor that meets both of the following requirements:</p><br /> <ul><br /> <li>The cursor was declared in a previously compiled IFOCUR call on the thread. See the IFOCUR (open cursor) call.</li><br /> <li>The cursor is open. </li><br /> </ul><br /> <br /> ==Coding example (COBOL)==<br /> <p class="code">WORKING-STORAGE SECTION.<br /> 01 CALL-ARGS.<br /> 05 RETCODE PIC 9(5) COMP SYNC.<br /> 05 RECNUM PIC X(11).<br /> 05 CURNAME PIC X(4) VALUE "CR1;".<br /> .<br /> .<br /> .<br /> PROCEDURE DIVISION.<br /> .<br /> .<br /> .<br /> CALL "IFRNUM" USING RETCODE, CURNAME, RECNUM.</p><br /> <br /> [[Category: HLI functions]]</div>

ELowell