ibm-information-center/dist/eclipse/plugins/i5OS.ic.rzalu_5.4.0.1/rzalucexamp.htm

51 lines
2.3 KiB
HTML
Raw Normal View History

2024-04-02 14:02:31 +00:00
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-us">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="dc.language" scheme="rfc1766" content="en-us" />
<!-- All rights reserved. Licensed Materials Property of IBM -->
<!-- US Government Users Restricted Rights -->
<!-- Use, duplication or disclosure restricted by -->
<!-- GSA ADP Schedule Contract with IBM Corp. -->
<meta name="dc.date" scheme="iso8601" content="2005-09-06" />
<meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" />
<meta name="security" content="public" />
<meta name="Robots" content="index,follow"/>
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
<title>C source code</title>
<link rel="stylesheet" type="text/css" href="ibmidwb.css" />
<link rel="stylesheet" type="text/css" href="ic.css" />
</head>
<body>
<a id="Top_Of_Page" name="Top_Of_Page"></a><!-- Java sync-link -->
<script language = "Javascript" src = "../rzahg/synch.js" type="text/javascript"></script>
<a name="rzalucexamp"></a>
<h4 id="rzalucexamp">C source code</h4>
<a name="wq258"></a>
<div class="notetitle" id="wq258">Note:</div>
<div class="notebody">Read the <a href="rzalucodedisclaimer.htm#rzalucodedisclaimer">Code disclaimer information</a> for important
legal information.</div>
<pre class="xmp">5738PW1 V2R2M0 920615 SEU SOURCE LISTING
SOURCE FILE . . . . . . . FONTSAMPLE/SOURCE
MEMBER . . . . . . . . . CCODE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
...+... 8 ...+... 9 ...+... 0
100 #include &lt;stdio.h>
200 #include &lt;xxasio.h>
300 main()
400 {
500 FILE *outfile;
600
700 outfile = fopen("font","wb type=record");
800 QXXFORMAT(outfile, "REC1 ");
900 fwrite("",0,0,outfile);
1000 }
* * * * E N D O F S O U R C E * * * *</pre>
<a id="Bot_Of_Page" name="Bot_Of_Page"></a>
</body>
</html>