http://wiki.signature.net/index.php?action=history&feed=atom&title=IB_Statements%2Fwrite 2026-04-07T11:43:29Z Revision history for this page on the wiki MediaWiki 1.16.0 http://wiki.signature.net/index.php?title=IB_Statements/write&diff=761&oldid=prev 2009-05-28T22:20:20Z

<p></p> <table style="background-color: white; color:black;"> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Older revision</td> <td colspan='2' style="background-color: white; color:black;">Revision as of 22:20, 28 May 2009</td> </tr><tr><td colspan="2" class="diff-lineno">Line 1:</td> <td colspan="2" class="diff-lineno">Line 1:</td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>'''WRITE statement'''</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>'''WRITE statement'''</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp; &nbsp;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>&nbsp; &nbsp;</div></td></tr> <tr><td class='diff-marker'>-</td><td style="background: #ffa; color:black; font-size: smaller;"><div>'''Syntax:'''&nbsp; WRITE (lun, format-statement-label) [KEY=index] [,EXCP=statement-label]&nbsp; &nbsp;</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>'''Syntax:'''&nbsp; WRITE (lun, format-statement-label) [KEY=index] [,EXCP=statement-label <ins class="diffchange diffchange-inline">| NOEXCP</ins>]&nbsp; &nbsp;</div></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>'''Discussion:'''&nbsp; The WRITE statement outputs data records to a keyed, sequential, or text data file. &nbsp;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>'''Discussion:'''&nbsp; The WRITE statement outputs data records to a keyed, sequential, or text data file. &nbsp;</div></td></tr> <!-- diff cache key wikidb:diff:version:1.11a:oldid:344:newid:761 --> </table>

Barb http://wiki.signature.net/index.php?title=IB_Statements/write&diff=344&oldid=prev 2009-05-20T10:24:45Z

<p>New page: &#39;&#39;&#39;WRITE statement&#39;&#39;&#39; &#39;&#39;&#39;Syntax:&#39;&#39;&#39; WRITE (lun, format-statement-label) [KEY=index] [,EXCP=statement-label] &#39;&#39;&#39;Discussion:&#39;&#39;&#39; The WRITE statement outputs data records to a keyed, se...</p> <p><b>New page</b></p><div>'''WRITE statement'''<br /> <br /> '''Syntax:''' WRITE (lun, format-statement-label) [KEY=index] [,EXCP=statement-label] <br /> <br /> '''Discussion:''' The WRITE statement outputs data records to a keyed, sequential, or text data file. <br /> For keyed files, the key index can be any string expression. If the key index is shorter than the file key size, it is padded with trailing blanks. If it is longer than the key size, excess trailing characters are truncated before the WRITE statement is executed. <br /> <br /> For sequential and text files, no key index is specified. In fact, doing so causes an exception branch. <br /> <br /> '''Example:''' 1000 FORMAT CUSTNUM$;NAME$;ADDRESS1$;ADDRESS2$<br /> <br /> .<br /> <br /> OPEN (1) &quot;CUSTFILE&quot;<br /> <br /> .<br /> <br /> WRITE (1,1000) KEY=CUSTNUM$,EXCP=9999<br /> <br /> In this example, the WRITE statement is used to write a data record to the CUSTFILE, a keyed file. The FORMAT statement determines the record layout of this data file and the KEY= parameter determines the key index being created.</div>

Badge