77 lines
2.8 KiB
HTML
77 lines
2.8 KiB
HTML
<?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>COBOL 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="rzalucobolexamp"></a>
|
|
<h4 id="rzalucobolexamp">COBOL source code</h4>
|
|
<a name="wq259"></a>
|
|
<div class="notetitle" id="wq259">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 . . . . . . . . . COBOLCODE
|
|
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
|
|
...+... 8 ...+... 9 ...+... 0
|
|
100 100010 IDENTIFICATION DIVISION.
|
|
200
|
|
300 100020 PROGRAM-ID. PRINTLBL.
|
|
400
|
|
500 100030 ENVIRONMENT DIVISION.
|
|
600
|
|
700 100040 INPUT-OUTPUT SECTION.
|
|
800
|
|
900 100050 FILE-CONTROL.
|
|
1000
|
|
1100 100060 SELECT PRINTER-FILE
|
|
1200
|
|
1300 100070 ASSIGN TO FORMATFILE-FONT.
|
|
1400
|
|
1500 100080 DATA DIVISION.
|
|
1600
|
|
1700 100090 FILE SECTION.
|
|
1800
|
|
1900 100100 FD PRINTER-FILE
|
|
2000
|
|
2100 100110 DATA RECORD IS REC1.
|
|
2200
|
|
2300 100120 01 REC1.
|
|
2400
|
|
2500 100130 COPY DDS-ALL-FORMATS OF FONT.
|
|
2600
|
|
2700 100140 PROCEDURE DIVISION.
|
|
2800
|
|
2900 100150 MAIN-PARA.
|
|
3000
|
|
3100 100160 OPEN OUTPUT PRINTER-FILE.
|
|
3200
|
|
3300 100170 WRITE REC1 FORMAT IS "REC1".
|
|
3400
|
|
3500 100180 CLOSE PRINTER-FILE.
|
|
3600
|
|
* * * * E N D O F S O U R C E * * * *</pre>
|
|
<a id="Bot_Of_Page" name="Bot_Of_Page"></a>
|
|
</body>
|
|
</html>
|