<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="wordpress/2.3.3" -->
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	>

<channel>
	<title>System i &#124; iSeries &#124; AS/400 Online Users Group</title>
	<link>http://i-seriesusergroup.org</link>
	<description>... an Online AS/400 Community</description>
	<pubDate>Tue, 30 Sep 2008 06:45:44 +0000</pubDate>
	<generator>http://wordpress.org/?v=2.3.3</generator>
	<language>en</language>
			<item>
		<title>ISCSI TECHNOLOGIES FOR SYSTEM I</title>
		<link>http://i-seriesusergroup.org/2006/10/09/iscsi-technologies-for-system-i/</link>
		<comments>http://i-seriesusergroup.org/2006/10/09/iscsi-technologies-for-system-i/#comments</comments>
		<pubDate>Tue, 10 Oct 2006 01:00:05 +0000</pubDate>
		<dc:creator>Harish Keshwani</dc:creator>
		
		<category><![CDATA[Events]]></category>

		<category><![CDATA[Unix]]></category>

		<guid isPermaLink="false">http://i-seriesusergroup.org/2006/10/09/iscsi-technologies-for-system-i/</guid>
		<description><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
 Join the Midlands Midrange User Group, IBM and MSI Systems Integrators as we welcome Bob Schuster from IBM’s Rochester Executive Briefing Center to discuss iSCSI and Blade integration for System i. IBM has extended industry-standard iSCSI technology to attach selected BladeCenter and System x models to the System i platform so you can exploit [...]]]></description>
			<content:encoded><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
<p> Join the <strong>Midlands Midrange User Group</strong>, <strong>IBM</strong> and <strong>MSI Systems Integrators</strong> as we welcome <strong>Bob Schuster </strong>from IBM’s Rochester Executive Briefing Center to discuss iSCSI and Blade integration for System i. IBM has extended industry-standard iSCSI technology to attach selected BladeCenter and System x models to the System i platform so you can exploit System i virtual storage, networking, and tape resources to help simplify the operations of your Windows or Linux Server system infrastructure.</p>
<p>Download the <a id=p37 href="http://i-seriesusergroup.org/wp-content/uploads/2006/10/Omaha System i Blade Center.pdf">pdf file </a> for further details.</p>
<p><strong>When </strong>: Thursday, October 24, 2006<br />
<strong>Time</strong> : 11:00 a.m. to 1:00 0 p.m.<br />
<strong>Where</strong> : MSI Systems Integrators<br />
14301 First National Parkway, Ste 400<br />
Omaha, NE 68164<br />
NE corner of 144th &#038; Dodge</p>
<p><strong>Registration</strong> : Visit the MSI website to register at http://www.msiinet.com/events</p>
<p><strong>Agenda</strong><br />
10:45 a.m. Registration<br />
11:00 a.m. Welcome &#038; Introductions<br />
11:15 a.m. iSCSI Technologies by Bob Schuster, IBM and Patrick Bingham, MSI<br />
12:30 p.m. Question &#038; Answer Session<br />
01:00 p.m. Wrap-up</p>
<p><strong>Grand Prize Drawing </strong>: Attendees will be eligible for an Omaha Steaks prize package drawing complements of MSI</p>
]]></content:encoded>
			<wfw:commentRss>http://i-seriesusergroup.org/2006/10/09/iscsi-technologies-for-system-i/feed/</wfw:commentRss>
		</item>
		<item>
		<title>PHP on iSeries</title>
		<link>http://i-seriesusergroup.org/2006/09/18/php-on-iseries/</link>
		<comments>http://i-seriesusergroup.org/2006/09/18/php-on-iseries/#comments</comments>
		<pubDate>Tue, 19 Sep 2006 02:36:02 +0000</pubDate>
		<dc:creator>Harish Keshwani</dc:creator>
		
		<category><![CDATA[Events]]></category>

		<category><![CDATA[PHP]]></category>

		<guid isPermaLink="false">http://i-seriesusergroup.org/2006/09/18/php-on-iseries/</guid>
		<description><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
 After an excellent presentation on last Tuesday by Leonardo Llames on PHP on iSeries, we are pleased to share his presentation slides with our members. Just click here to download the file in PDF format.
If you cannot download the file, please contact us using this form:

]]></description>
			<content:encoded><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
<p> After an excellent presentation on last Tuesday by Leonardo Llames on PHP on iSeries, we are pleased to share his presentation slides with our members. Just click <a id=p35 href="http://i-seriesusergroup.org/wp-content/uploads/2006/09/PHP for i5OS NESDND.pdf">here</a> to download the file in PDF format.</p>
<p>If you cannot download the file, please contact us using this form:<br />
<!--contact form--></p>
]]></content:encoded>
			<wfw:commentRss>http://i-seriesusergroup.org/2006/09/18/php-on-iseries/feed/</wfw:commentRss>
		</item>
		<item>
		<title>PHP on the System i - Lunch and Learn</title>
		<link>http://i-seriesusergroup.org/2006/08/29/php-on-the-system-i-lunch-and-learn/</link>
		<comments>http://i-seriesusergroup.org/2006/08/29/php-on-the-system-i-lunch-and-learn/#comments</comments>
		<pubDate>Tue, 29 Aug 2006 05:43:22 +0000</pubDate>
		<dc:creator>Harish Keshwani</dc:creator>
		
		<category><![CDATA[Events]]></category>

		<category><![CDATA[MMUG Events]]></category>

		<guid isPermaLink="false">http://i-seriesusergroup.org/2006/08/29/php-on-the-system-i-lunch-and-learn/</guid>
		<description><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
 Join IBM and High Plains Technology to learn about the recent announcement that customers can now implement PHP on the System i and i5/OS. PHP is the leading scripting language deployed on the internet. See how this technology can be deployed on the System i and how it can be used to access i5/OS [...]]]></description>
			<content:encoded><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
<p> Join <strong>IBM</strong> and <strong>High Plains Technology</strong> to learn about the recent announcement that customers can now implement PHP on the System i and i5/OS. PHP is the leading scripting language deployed on the internet. See how this technology can be deployed on the System i and how it can be used to access i5/OS resources. In this session, IBM’s Leonardo Llames from the Rochester Advanced Technical Support Team (ATS) will review:<br />
 Zend Studio for i5/OS<br />
 Zend Core<br />
 Access to i5/OS Resources<br />
 DB2 for i5/OS<br />
 Program Call<br />
 Data Area<br />
 Data Queue<br />
 Message Queue<br />
 Zend Platform<br />
 Support<br />
 System requirements<br />
 Installation</p>
<p>Each session will include a complimentary lunch and an opportunity to stay after to ask Leonardo your in-depth questions. Each session will begin promptly at 11:00 a.m. </p>
<p>Thank you to the <strong>Omaha (MMUG)</strong> and <strong>Fargo User Groups</strong> for co-sponsoring the sessions in Nebraska and North Dakota! We appreciate the close partnership with these organizations.</p>
<table>
<tr>
<td>When</td>
<td>Tuesday, September 12th, 2006</td>
</tr>
<tr>
<td>Where</td>
<td>Westside Conference Center<br />3534 South 108th Street</td>
</tr>
<tr>
<td>Check-in</td>
<td>10:30AM to 11:00AM</td>
</tr>
<tr>
<td>Session/<br />Complimentary<br />Lunch</td>
<td>11:00AM to 1:00AM</td>
</tr>
<tr>
<td>RSVP</td>
<td>Bo Gebbie :: gebbie @ us.ibm.com :: 402-399-4460<br />by Thursday, September 8th, 2006</td>
</tr>
</table>
]]></content:encoded>
			<wfw:commentRss>http://i-seriesusergroup.org/2006/08/29/php-on-the-system-i-lunch-and-learn/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Data Mapping Question</title>
		<link>http://i-seriesusergroup.org/2006/08/23/data-mapping-question/</link>
		<comments>http://i-seriesusergroup.org/2006/08/23/data-mapping-question/#comments</comments>
		<pubDate>Thu, 24 Aug 2006 04:53:54 +0000</pubDate>
		<dc:creator>Harish Keshwani</dc:creator>
		
		<category><![CDATA[Query]]></category>

		<category><![CDATA[SQL]]></category>

		<guid isPermaLink="false">http://i-seriesusergroup.org/2006/08/23/data-mapping-question/</guid>
		<description><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
 MMUG received an email from a iSeries user about data mapping. If some one has dealt with this problem before and can help this user, please contact us or post the solution by clicking on Comments.
We are looking to see if there are any tools available or maybe 3rd party software available that other [...]]]></description>
			<content:encoded><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
<p> MMUG received an email from a iSeries user about data mapping. If some one has dealt with this problem before and can help this user, please contact us or post the solution by clicking on Comments.</p>
<blockquote><p>We are looking to see if there are any tools available or maybe 3rd party software available that other iSeries users have used and have been successful in a data move.</p>
<p>We will be migrating to an &#8216;off the shelf&#8217; software package.  Prior to the move, we want to have as much as possible, &#8220;clean data&#8221; to migrate into the new software package.  We have currently been using queries and sql statements to identify the bad data, fix it, then use the CPYF command in a CL to copy the data into our staging files.  These staging files will then be used to migrate the data into the new software.  We are thinking there is a &#8220;better way&#8221; or a more efficient way.</p>
<p>What we have been running into is that if you run the CPYF CL first, it will stop on the first record that contains bad data (the staging file has been set up with more constraints than the file that we are copying from) and then not continue through the other records but end out.  It would be nice if it would write out the bad record to some type of log file (it does write out the record number in the QEZJOBLOG) and then continue on with copying over the other good records .  The type of error the CL throws is an unrecoverable read/write error and therefore won&#8217;t continue on.</p>
<p>Have you been through any kind of data moves that you may have used a third party tool or a way on the iSeries to accomplish this feat?  Any suggestions or advice is appreciated.</p></blockquote>
]]></content:encoded>
			<wfw:commentRss>http://i-seriesusergroup.org/2006/08/23/data-mapping-question/feed/</wfw:commentRss>
		</item>
		<item>
		<title>MMUG Meeting Survey</title>
		<link>http://i-seriesusergroup.org/2006/08/02/mmug-meeting-survey/</link>
		<comments>http://i-seriesusergroup.org/2006/08/02/mmug-meeting-survey/#comments</comments>
		<pubDate>Wed, 02 Aug 2006 12:30:01 +0000</pubDate>
		<dc:creator>Harish Keshwani</dc:creator>
		
		<category><![CDATA[MMUG Events]]></category>

		<category><![CDATA[iSeries News]]></category>

		<guid isPermaLink="false">http://i-seriesusergroup.org/2006/08/02/mmug-meeting-survey/</guid>
		<description><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
 
]]></description>
			<content:encoded><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
<p> </p>
]]></content:encoded>
			<wfw:commentRss>http://i-seriesusergroup.org/2006/08/02/mmug-meeting-survey/feed/</wfw:commentRss>
		</item>
		<item>
		<title>FOR SALE: IBM iSeries Model 825</title>
		<link>http://i-seriesusergroup.org/2006/07/29/for-sale-ibm-iseries-model-825/</link>
		<comments>http://i-seriesusergroup.org/2006/07/29/for-sale-ibm-iseries-model-825/#comments</comments>
		<pubDate>Sat, 29 Jul 2006 15:54:24 +0000</pubDate>
		<dc:creator>Harish Keshwani</dc:creator>
		
		<category><![CDATA[iSeries For Sale]]></category>

		<guid isPermaLink="false">http://i-seriesusergroup.org/2006/07/29/for-sale-ibm-iseries-model-825/</guid>
		<description><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
 We received a request from Jeff Willer from CSG Systems, which is as follows: 
(Please note: Any questions about this system must be directed to Jeff Willer of CSG Systems.  Midlands Midrange Users Group and it&#8217;s officers are not responsible and are not involved in any transaction related to this sale. This information [...]]]></description>
			<content:encoded><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
<p> We received a request from Jeff Willer from CSG Systems, which is as follows: </p>
<p><em>(<strong>Please note</strong>: Any questions about this system must be directed to Jeff Willer of CSG Systems.  Midlands Midrange Users Group and it&#8217;s officers are not responsible and are not involved in any transaction related to this sale. This information is provided as a service to our members.)</em></p>
<blockquote><p>Attached here is spec sheet on the machine we will have available for sale.  The machine is three years old and is located in Omaha.  It will be available in mid-September. I can appreciate the policy of guarding the names and contacts of your membership, and therefore will ask that you share this information with your membership and ask them to contact us if they have any interest.  Contact information is included in the spec sheet.  We will consider any reasonable offer.</p></blockquote>
<p>Spec-Sheet is as follows:</p>
<blockquote><p>IBM iSeries Model 825</p>
<p><strong>Hardware</strong><br />
Basic Machine:	iSeries 9406 Model 825 Enterprise Edition 7418<br />
Serial Number:	10-2695C<br />
Purchase Date:	August, 2003<br />
Processors:		3/6 way (3300/6600 CPW); 5 processors activated<br />
Operating Systems:	Version 5 Release 2<br />
Configuration:		3 Partitions: Primary, Production, Test<br />
Memory:		22.5 GB<br />
	0.7	Primary<br />
	10.2	Production<br />
	11.6	Test<br />
Disk:			2.1 TB<br />
	0.00	Primary (2 – 35.16 disks, mirrored)<br />
	1.06	Production (16 – 35.16 and 9 – 70.56 disks, RAID 5)<br />
	1.09	Test (22 – 35.16 and 8 – 70.56 disks, RAID 5)</p>
<p>Tape Drive:		IBM Model 3590-H11Enterprise (10 cartridge)</p>
<p><strong>Software</strong><br />
5722BR1	IBM Backup Recovery and Media Services for iSeries<br />
5722PT1	IBM Performance Tools for iSeries<br />
5722QU1	IBM Query for iSeries<br />
5722SS1	Operating System/400<br />
5722ST1	IBM DB2 Query Manager and SQL Development Kit<br />
5722WDS	IBM Websphere Studio Development Suite<br />
5722XW1	IBM eServer iSeries Access Family (40 licenses)</p>
<p>Original Purchase Price (reference only): $680,000</p>
<p>If interested, please contact:<br />
Jeff Willer       402-964-1519   Jeff_Willer -at- csgsystems.com<br />
      -or-<br />
Dennis Smid    402-963-8600   Dennis_Smid -at- csgsystems.com</p></blockquote>
]]></content:encoded>
			<wfw:commentRss>http://i-seriesusergroup.org/2006/07/29/for-sale-ibm-iseries-model-825/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Convert any iSeries database file to CSV format</title>
		<link>http://i-seriesusergroup.org/2006/07/02/convert-any-iseries-database-file-to-csv-format/</link>
		<comments>http://i-seriesusergroup.org/2006/07/02/convert-any-iseries-database-file-to-csv-format/#comments</comments>
		<pubDate>Sun, 02 Jul 2006 21:03:59 +0000</pubDate>
		<dc:creator>kafoland</dc:creator>
		
		<category><![CDATA[Programming Languages]]></category>

		<category><![CDATA[RPG ILE]]></category>

		<guid isPermaLink="false">http://i-seriesusergroup.org/2006/07/02/convert-any-iseries-database-file-to-csv-format/</guid>
		<description><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
Here is a utility that will convert any iSeries database file to CSV (Comma Seperated Values) format with a delimiter of your choice. You can choose the delimiter
because it is very possible to have a comma in a description. So choose wisely.
I was forced to write this utility and here is why. I had a [...]]]></description>
			<content:encoded><![CDATA[<br />
<b>Warning</b>:  array_merge() [<a href='function.array-merge'>function.array-merge</a>]: Argument #2 is not an array in <b>/homepages/26/d120742039/htdocs/Norm/iseries/wordpress/wp-content/plugins/technotag.php</b> on line <b>30</b><br />
<p>Here is a utility that will convert any <b>iSeries database file</b> to <b>CSV</b> (Comma Seperated Values) format with a delimiter of your choice. You can choose the delimiter<br />
because it is very possible to have a comma in a description. So choose wisely.</p>
<p>I was forced to write this utility and here is why. I had a project to transfer data files from the iSeries 400 to a server that was running <b>California Software Baby 400</b> system.</p>
<p>Seems simple enough just use the CPYFRMSTMF command or the <b>CPYFRMIMPF</b> right?<br />
Yeah I thought so too. Well as I tried to use these commands as I have used them before and they work just fine if you have a good database file. But IBM did not think of everything<br />
that programmers can do to a database file. </p>
<p>In my case I ran across (and not in just one file) packed numeric data. So what is the problem you ask? The data length of these packed fields were 1 bytes and 2 bytes. Why would you pack a 1 byte numeric field or even a 2 byte numeric field? The above mentioned command did not stop but they did not work either. Can you guess what they did? ……. Ok times up, they took those fields and extended them by 1 byte so the 1 byte packed became 2 bytes and the 2 bytes became 3 bytes. No matter what I did I could not get the file converted correctly on iSeries. </p>
<p>So either I can write a 100 or so programs (which I decided not to do) or write a utility to do all the work for me. Which is what I did and I am sharing  this with whoever wants to use it. Feel free to use it and to make what ever changes you need for your use. </p>
<p>All the work is done in QTEMP. The process creates a work file call <b>CVFILEO</b> and a<br />
temporary library with <b>QRPGLESRC</b> and a temporary program called <b>CVPGM</b>. The temp library is the use name with a &#8216;@&#8217; in front of it. Example: if the user name is kfoland<br />
the library name will be @kfoland.</p>
<p>So we have one work file called <b>CVFILEO</b>.<br />
One command called <b>CVF2CSV</b>. Compiled to call <b>CV0CL</b>.<br />
Two CL programs <b>CV0CL</b> and <b>CV1CL</b>.<br />
Two RPGLE programs <b>CV1</b> and <b>CV2</b>.</p>
<p>The simple process is as follows:</p>
<p>1. Delete temp files<br />
2. Create duplicate object CVFILEO into  QTEMP<br />
3. Display field description on the incoming file into a file called CVFILE<br />
4. Call CV1 to get the record length and call CV1CL to build the flat file with the given<br />
record length.<br />
5. Create the temp library.<br />
6. Create QRPGLESRC in the temp library<br />
7. Add the physical file member CVPGM to QRPGLESRC in the temp library<br />
8. Call CV2 to read the incoming file and to create the temp program CVPGM.<br />
9. Compile CVPGM<br />
10. Call CVPGM<br />
11. Copy the flat file from QTEMP to the out going file.</p>
<p>To get started, compile the file, command and the programs.</p>
<p>Prompt up the command and fill out the parms or just call CV0VL with the following parms.</p>
<p>PARM(&#038;FILE &#038;LIBR &#038;TFILE &#038;TLIBR &#038;DEM)   </p>
<p>where </p>
<p>&#038;FILE = database file to be converted<br />
&#038;LIBR = library were the database file is located<br />
&#038;TFILE = name you want for the converted file<br />
&#038;TLIBR = library where the converted file will be<br />
&#038;DEM = the delimiter you want to use. Choose wisely</p>
<p>After the process runs you can check out the temp library and the program that was created in QSYS as the library will get deleted at the beginning of the process. You can change this if you want to delete the library at the end of the process. The process will delete any files or libraries in QTEMP as it runs.</p>
<p>This has help me so I hope it can help others as well.<br />
<font="courier"</p>
<hr />
<div class="codesnip-container" >
<div class="codesnip">
<ol>
<li class="li1">
<div class="de1"><span class="coMULTI">/********************************************/</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* COMMAND NAME IS CVF2CSV&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;*/</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* This command will call CV0CL to convert a database file*/</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* to CSV format with your choice of delimiter&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;*/</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/********************************************/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CMD&nbsp; &nbsp; &nbsp; &nbsp; PROMPT<span class="br0">&#40;</span><span class="st0">&#8216;Convert File to CSV Format&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;PARM&nbsp; &nbsp; &nbsp; &nbsp;KWD<span class="br0">&#40;</span>FROMFILE<span class="br0">&#41;</span> TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PROMPT<span class="br0">&#40;</span><span class="st0">&#8216;Enter File to Convert&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;PARM&nbsp; &nbsp; &nbsp; &nbsp;KWD<span class="br0">&#40;</span>FROMLIBR<span class="br0">&#41;</span> TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PROMPT<span class="br0">&#40;</span><span class="st0">&#8216;Enter Library for Input File&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;PARM&nbsp; &nbsp; &nbsp; &nbsp;KWD<span class="br0">&#40;</span>TOFILE<span class="br0">&#41;</span> TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PROMPT<span class="br0">&#40;</span><span class="st0">&#8216;Converted File Name&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;PARM&nbsp; &nbsp; &nbsp; &nbsp;KWD<span class="br0">&#40;</span>TOLIBR<span class="br0">&#41;</span> TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PROMPT<span class="br0">&#40;</span><span class="st0">&#8216;Library for Converted File&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;PARM&nbsp; &nbsp; &nbsp; &nbsp;KWD<span class="br0">&#40;</span>DELIMITER<span class="br0">&#41;</span> TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">1</span><span class="br0">&#41;</span> DFT<span class="br0">&#40;</span><span class="st0">&#8216;~&#8217;</span><span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PROMPT<span class="br0">&#40;</span><span class="st0">&#8216;Delimiter&#8217;</span><span class="br0">&#41;</span> </div>
</li>
</ol>
</div>
</div>
<hr />
<div class="codesnip-container" >
<div class="codesnip">
<ol>
<li class="li1">
<div class="de1"><span class="coMULTI">/******************************************/</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* CL name is cv0cl&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* CL to run the process to convert a file passed to csv */</span> </div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* file format&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/******************************************/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;PGM&nbsp; &nbsp; &nbsp; &nbsp; PARM<span class="br0">&#40;</span>&amp;FILE &amp;LIBR &amp;TFILE &amp;TLIBR &amp;DEM<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;LIBR<span class="br0">&#41;</span>&nbsp; &nbsp;TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;FILE<span class="br0">&#41;</span>&nbsp; &nbsp;TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;TLIBR<span class="br0">&#41;</span>&nbsp; TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;TFILE<span class="br0">&#41;</span>&nbsp; TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;USER<span class="br0">&#41;</span>&nbsp; &nbsp;TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;WLIBR<span class="br0">&#41;</span>&nbsp; TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;DEM<span class="br0">&#41;</span>&nbsp; &nbsp; TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">1</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;LENGTH<span class="br0">&#41;</span> TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">5</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;MSGID<span class="br0">&#41;</span>&nbsp; TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">7</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;MSG<span class="br0">&#41;</span>&nbsp; &nbsp; TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">100</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;MSGF<span class="br0">&#41;</span>&nbsp; &nbsp;TYPE<span class="br0">&#40;</span>*CHAR<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span> EXEC<span class="br0">&#40;</span>GOTO CMDLBL<span class="br0">&#40;</span>ERROR<span class="br0">&#41;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;RTVJOBA&nbsp; &nbsp; USER<span class="br0">&#40;</span>&amp;USER<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CHKOBJ&nbsp; &nbsp; &nbsp;OBJ<span class="br0">&#40;</span>&amp;LIBR/&amp;FILE<span class="br0">&#41;</span> OBJTYPE<span class="br0">&#40;</span>*FILE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DLTF&nbsp; &nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>QTEMP/CVFILE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DLTF&nbsp; &nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>QTEMP/CVFLAT<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DLTF&nbsp; &nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>QTEMP/CVFILEO<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CRTDUPOBJ&nbsp; OBJ<span class="br0">&#40;</span>CVFILEO<span class="br0">&#41;</span> FROMLIB<span class="br0">&#40;</span>KFOLAND<span class="br0">&#41;</span> OBJTYPE<span class="br0">&#40;</span>*FILE<span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TOLIB<span class="br0">&#40;</span>QTEMP<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DSPFFD&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>&amp;LIBR/&amp;FILE<span class="br0">&#41;</span> OUTPUT<span class="br0">&#40;</span>*<span class="kw1">OUTFILE</span><span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">OUTFILE</span><span class="br0">&#40;</span>QTEMP/CVFILE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;OVRDBF&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>CVFILE<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>QTEMP/CVFILE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;OVRDBF&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>CVFILEO<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>QTEMP/CVFILEO<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CALL&nbsp; &nbsp; &nbsp; &nbsp;PGM<span class="br0">&#40;</span>CV1<span class="br0">&#41;</span> PARM<span class="br0">&#40;</span>&amp;LENGTH<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;COND<span class="br0">&#40;</span>&amp;LENGTH *NE <span class="st0">&#8216;00000&#8242;</span><span class="br0">&#41;</span> THEN<span class="br0">&#40;</span>DO<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CHGVAR&nbsp; &nbsp; &nbsp;VAR<span class="br0">&#40;</span>&amp;WLIBR<span class="br0">&#41;</span> VALUE<span class="br0">&#40;</span><span class="st0">&#8216;@&#8217;</span> *TCAT %SUBSTRING<span class="br0">&#40;</span>&amp;USER +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">1</span> <span class="nu0">9</span><span class="br0">&#41;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* create the temp library for the temp program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;*/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DLTLIB&nbsp; &nbsp; &nbsp;LIB<span class="br0">&#40;</span>&amp;WLIBR<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CRTLIB&nbsp; &nbsp; &nbsp;LIB<span class="br0">&#40;</span>&amp;WLIBR<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CRTSRCPF&nbsp; &nbsp;FILE<span class="br0">&#40;</span>&amp;WLIBR/QRPGLESRC<span class="br0">&#41;</span> RCDLEN<span class="br0">&#40;</span><span class="nu0">112</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;ADDPFM&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>&amp;WLIBR/QRPGLESRC<span class="br0">&#41;</span> MBR<span class="br0">&#40;</span>cvpgm<span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TEXT<span class="br0">&#40;</span><span class="st0">&#8216;Convert program&#8217;</span><span class="br0">&#41;</span> SRCTYPE<span class="br0">&#40;</span>RPGLE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;OVRDBF&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>cvpgm<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>&amp;WLIBR/QRPGLESRC<span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MBR<span class="br0">&#40;</span>cvpgm<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;OVRDBF&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>CVFLAT<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>QTEMP/CVFLAT<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CALL&nbsp; &nbsp; &nbsp; &nbsp;PGM<span class="br0">&#40;</span>CV2<span class="br0">&#41;</span> PARM<span class="br0">&#40;</span>&amp;FILE &amp;LENGTH &amp;DEM<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DLTOVR&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>*<span class="kw1">ALL</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;OVRDBF&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>&amp;FILE<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>&amp;LIBR/&amp;FILE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CRTBNDRPG&nbsp; PGM<span class="br0">&#40;</span>&amp;WLIBR/CVPGM<span class="br0">&#41;</span> SRCFILE<span class="br0">&#40;</span>&amp;WLIBR/QRPGLESRC<span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; OUTPUT<span class="br0">&#40;</span>*PRINT<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;OVRDBF&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>&amp;FILE<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>&amp;LIBR/&amp;FILE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;OVRDBF&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>CVFLAT<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>QTEMP/CVFLAT<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CALL&nbsp; &nbsp; &nbsp; &nbsp;PGM<span class="br0">&#40;</span>&amp;WLIBR/cvpgm<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DLTOVR&nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>*<span class="kw1">ALL</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CPYF&nbsp; &nbsp; &nbsp; &nbsp;FROMFILE<span class="br0">&#40;</span>QTEMP/CVFLAT<span class="br0">&#41;</span> TOFILE<span class="br0">&#40;</span>&amp;TLIBR/&amp;TFILE<span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MBROPT<span class="br0">&#40;</span>*<span class="kw1">REPLACE</span><span class="br0">&#41;</span> CRTFILE<span class="br0">&#40;</span>*YES<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;ENDDO</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;GOTO&nbsp; &nbsp; &nbsp; &nbsp;CMDLBL<span class="br0">&#40;</span>ENDPGM<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;*/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/* NORMAL PROGRAM EXIT&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;*/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp;EXIT:&nbsp; &nbsp; &nbsp; &nbsp;GOTO&nbsp; &nbsp; &nbsp; &nbsp;CMDLBL<span class="br0">&#40;</span>ENDPGM<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;*/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&nbsp; ERROR HANDLING ROUTINE&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;*/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;*/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp;ERROR:&nbsp; &nbsp; &nbsp; RCVMSG&nbsp; &nbsp; &nbsp;MSGDTA<span class="br0">&#40;</span>&amp;MSG<span class="br0">&#41;</span> MSGID<span class="br0">&#40;</span>&amp;MSGID<span class="br0">&#41;</span> MSGF<span class="br0">&#40;</span>&amp;MSGF<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;SNDPGMMSG&nbsp; MSGID<span class="br0">&#40;</span>&amp;MSGID<span class="br0">&#41;</span> MSGF<span class="br0">&#40;</span>&amp;MSGF<span class="br0">&#41;</span> MSGDTA<span class="br0">&#40;</span>&amp;MSG<span class="br0">&#41;</span> +</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MSGTYPE<span class="br0">&#40;</span>*ESCAPE<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;GOTO&nbsp; &nbsp; &nbsp; &nbsp;CMDLBL<span class="br0">&#40;</span>ENDPGM<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="coMULTI">/*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp;ENDPGM:&nbsp; &nbsp; &nbsp;ENDPGM </div>
</li>
</ol>
</div>
</div>
<hr />
<div class="codesnip-container" >
<div class="codesnip">
<ol>
<li class="li1">
<div class="de1">H <span class="kw1">OPTION</span><span class="br0">&#40;</span>*Srcstmt : *Nodebugio<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A********************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* program name <span class="kw1">IS</span> cv1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* figure the record length of the file being converted&nbsp; &nbsp; &nbsp; &nbsp; *&nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A********************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;fCvfile&nbsp; &nbsp; <span class="kw1">IF</span>&nbsp; &nbsp;e&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Disk&nbsp; &nbsp; Usropn</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;fCvfileo&nbsp; &nbsp;o&nbsp; &nbsp; e&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Disk</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Total&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">5</span>&nbsp; <span class="nu0">0</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @<span class="kw1">FIELDS</span>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">5</span>&nbsp; <span class="nu0">0</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Start&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">5</span>&nbsp; <span class="nu0">0</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Length&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">5</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp;*Entry&nbsp; &nbsp; &nbsp; &nbsp; Plist</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Parm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; @Length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* Open <span class="kw1">AND</span> <span class="kw1">READ</span> the file <span class="kw1">AND</span> figure the new length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* after <span class="kw1">ALL</span> the packed <span class="kw1">FIELDS</span> are unpacked</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Open&nbsp; &nbsp; &nbsp; Cvfile</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DoU&nbsp; &nbsp; &nbsp; &nbsp;%Eof<span class="br0">&#40;</span>Cvfile<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">READ</span>&nbsp; &nbsp; &nbsp; Cvfile</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">NOT</span> %Eof<span class="br0">&#40;</span>Cvfile<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @<span class="kw1">FIELDS</span> = Whnfld</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">IF</span> packed then <span class="kw1">USE</span> the unpacked length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; Whfldt = <span class="st0">&#8216;P&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Whfldb = Whfldd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; Whfldt = <span class="st0">&#8216;A&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @Total = @Total + <span class="nu0">2</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; Whfldp &lt;&gt; *Zeros</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @Total = @Total + <span class="nu0">2</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">ADD</span> <span class="kw1">TO</span> get the new total record length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @Total = @Total + Whfldb</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndDo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Close&nbsp; &nbsp; &nbsp;Cvfile</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @Total = @Total + @<span class="kw1">FIELDS</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Move&nbsp; &nbsp; &nbsp; @Total&nbsp; &nbsp; &nbsp; &nbsp; @Length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; @Total &lt;&gt; *Zeros</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">CREATE</span> the flat file</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Call&nbsp; &nbsp; &nbsp; <span class="st0">&#8216;CV1CL&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;C&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Parm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; @Total</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @Start = <span class="nu0">0</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* Open <span class="kw1">AND</span> <span class="kw1">READ</span> the file <span class="kw1">AND</span> output info <span class="kw1">TO</span> work file</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Open&nbsp; &nbsp; &nbsp; Cvfile</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DoU&nbsp; &nbsp; &nbsp; &nbsp;%Eof<span class="br0">&#40;</span>Cvfile<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">READ</span>&nbsp; &nbsp; &nbsp; Cvfile</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">NOT</span> %Eof<span class="br0">&#40;</span>Cvfile<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">IF</span> packed then <span class="kw1">USE</span> the unpacked length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; Whfldt = <span class="st0">&#8216;P&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Whfldb = Whfldd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Whfldt = <span class="st0">&#8216;S&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; @Start = *Zeros</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @Start&nbsp; = <span class="nu0">1</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvstart = <span class="nu0">1</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvend&nbsp; &nbsp;= Whfldb</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Else</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvstart = Cvend + <span class="nu0">1</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvend&nbsp; &nbsp;= Cvend + Whfldb</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvfname&nbsp; = Whfile</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvfield&nbsp; = Whfldi</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvtype&nbsp; &nbsp;= Whfldt</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvlength = Whfldb</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvdec&nbsp; &nbsp; = Whfldp</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; Cvformat = Whname</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">WRITE</span>&nbsp; &nbsp; &nbsp;Cvrec</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndDo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Close&nbsp; &nbsp; &nbsp;Cvfile</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; *Inlr = *<span class="kw1">ON</span> </div>
</li>
</ol>
</div>
</div>
<hr />
<div class="codesnip-container" >
<div class="codesnip">
<ol>
<li class="li1">
<div class="de1"><span class="coMULTI">/*****************************************************/</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* cl name is cv1cl&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* cl to build a temp flat file based on parms sent&nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/* into the program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; */</span></div>
</li>
<li class="li1">
<div class="de1"><span class="coMULTI">/*****************************************************/</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;PGM&nbsp; &nbsp; &nbsp; &nbsp; PARM<span class="br0">&#40;</span>&amp;LENGTH<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DCL&nbsp; &nbsp; &nbsp; &nbsp; VAR<span class="br0">&#40;</span>&amp;LENGTH<span class="br0">&#41;</span> TYPE<span class="br0">&#40;</span>*DEC<span class="br0">&#41;</span> LEN<span class="br0">&#40;</span><span class="nu0">5</span> <span class="nu0">0</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DLTF&nbsp; &nbsp; &nbsp; &nbsp;FILE<span class="br0">&#40;</span>QTEMP/CVFLAT<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;MONMSG&nbsp; &nbsp; &nbsp;MSGID<span class="br0">&#40;</span>CPF0000<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;CRTPF&nbsp; &nbsp; &nbsp; FILE<span class="br0">&#40;</span>QTEMP/CVFLAT<span class="br0">&#41;</span> RCDLEN<span class="br0">&#40;</span>&amp;LENGTH<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp;END:&nbsp; &nbsp; &nbsp; &nbsp; ENDPGM </div>
</li>
</ol>
</div>
</div>
<hr />
<div class="codesnip-container" >
<div class="codesnip">
<ol>
<li class="li1">
<div class="de1">H <span class="kw1">OPTION</span><span class="br0">&#40;</span>*Srcstmt : *Nodebugio<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A**********************************************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* program name <span class="kw1">IS</span> cv2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* this program will <span class="kw1">WRITE</span> the program needed <span class="kw1">TO</span> convert the file&nbsp; &nbsp; &nbsp;*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">TO</span> CSV format&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; *</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A**********************************************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;fCvfileo&nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp;e&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Disk&nbsp; &nbsp; &nbsp; Prefix<span class="br0">&#40;</span>x_<span class="br0">&#41;</span> Usropn</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;fCvpgm&nbsp; &nbsp; &nbsp;uf a f&nbsp; <span class="nu0">114</span>&nbsp; &nbsp; &nbsp; &nbsp; Disk</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d Rspec&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Ds</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d&nbsp; Rrec&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">112</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @File&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="nu0">10</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Length&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">5</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Dem&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">1</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Char5&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">5</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Char2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="nu0">2</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;d @Cvfield&nbsp; &nbsp; &nbsp; &nbsp; s&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">LIKE</span><span class="br0">&#40;</span>x_Cvfield<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the first d spec record</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">18</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;d&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">20</span>:<span class="nu0">18</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Key&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;S &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">50</span>:<span class="nu0">2</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;10&#8242;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Drecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the first d spec record</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">20</span>:<span class="nu0">18</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;FlatDs&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Ds&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Drecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* open the file <span class="kw1">AND</span> output the rest of the d spec</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Open&nbsp; &nbsp; &nbsp; Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DoU&nbsp; &nbsp; &nbsp; &nbsp;%Eof<span class="br0">&#40;</span>Cvfileo<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">READ</span>&nbsp; &nbsp; &nbsp; Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">NOT</span> %Eof<span class="br0">&#40;</span>Cvfileo<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvtype = <span class="st0">&#8216;A&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">51</span>:<span class="nu0">13</span><span class="br0">&#41;</span> = <span class="st0">&#8216;1a&nbsp; &nbsp;Inz(&#8217;</span><span class="st0">&#8216;&quot;&#8217;</span><span class="st0">&#8216;)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Drecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">IF</span> there <span class="kw1">IS</span> a decimal then increase the length <span class="kw1">BY</span> <span class="nu0">2</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* this <span class="kw1">IS</span> <span class="kw1">TO</span> allow <span class="kw1">FOR</span> the decimal <span class="kw1">IN</span> the flat file</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">AND</span> <span class="kw1">FOR</span> the sign</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvdec &gt; *Zeros</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; x_Cvlength = x_Cvlength + <span class="nu0">2</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c**&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">56</span>:<span class="nu0">9</span><span class="br0">&#41;</span> = <span class="st0">&#8216;Inz&nbsp; &nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* the <span class="kw1">FIELD</span> name <span class="kw1">IN</span> the program can <span class="kw1">NOT</span> be the same</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">AS</span> the file name.</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvfield = x_Cvformat</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; x_Cvfield = <span class="st0">&#8216;xx&nbsp; &nbsp; &nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Move&nbsp; &nbsp; &nbsp; x_Cvlength&nbsp; &nbsp; @Char5</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">18</span><span class="br0">&#41;</span>&nbsp; = x_Cvfield</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">47</span>:<span class="nu0">5</span><span class="br0">&#41;</span>&nbsp; = @Char5</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">52</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; = x_Cvtype</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">52</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;a&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp; *&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvtype = <span class="st0">&#8216;S&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Move&nbsp; &nbsp; &nbsp; x_Cvdec&nbsp; &nbsp; &nbsp; &nbsp;@Char2</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">53</span>:<span class="nu0">2</span><span class="br0">&#41;</span>&nbsp; = @Char2</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">53</span>:<span class="nu0">2</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;&nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Drecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvtype = <span class="st0">&#8216;A&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">51</span>:<span class="nu0">13</span><span class="br0">&#41;</span> = <span class="st0">&#8216;1a&nbsp; &nbsp;Inz(&#8217;</span><span class="st0">&#8216;&quot;&#8217;</span><span class="st0">&#8216;)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Drecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">SET</span> the delimiter</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">51</span>:<span class="nu0">13</span><span class="br0">&#41;</span> = <span class="st0">&#8216;1a&nbsp; &nbsp;Inz(&#8217;</span><span class="st0">&#8216; &#8216;</span><span class="st0">&#8216;)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">61</span>:<span class="nu0">1</span><span class="br0">&#41;</span> = @Dem</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Drecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndDo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* close the file <span class="kw1">FOR</span> the c spce</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Close&nbsp; &nbsp; &nbsp;Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A****************************************************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the first c spec record</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">18</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;c&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">3</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;DoU&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">16</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;%Eof(&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">53</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = @File</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">18</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">4</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Read&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = @File</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">18</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">3</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;If &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">20</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Not %Eof(&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">57</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = @File</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* open the file <span class="kw1">AND</span> output the rest of the c specs</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Open&nbsp; &nbsp; &nbsp; Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;DoU&nbsp; &nbsp; &nbsp; &nbsp;%Eof<span class="br0">&#40;</span>Cvfileo<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">READ</span>&nbsp; &nbsp; &nbsp; Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; <span class="kw1">NOT</span> %Eof<span class="br0">&#40;</span>Cvfileo<span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* save <span class="kw1">FIELD</span> name</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; @Cvfield = x_Cvfield</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* the <span class="kw1">FIELD</span> name <span class="kw1">IN</span> the program can <span class="kw1">NOT</span> be the same</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">AS</span> the file name.</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvfield = x_Cvfname</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; x_Cvfield = <span class="st0">&#8216;xx&nbsp; &nbsp; &nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* <span class="kw1">SET</span> up the <span class="kw1">KEY</span> <span class="kw1">AND</span> the chain <span class="kw1">TO</span> <span class="kw1">CHECK</span> <span class="kw1">FOR</span> decimals</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvdec &gt; *Zeros</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Clear &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">62</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Key&nbsp; &nbsp; &nbsp; &nbsp;&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;MoveL &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8221;</span><span class="st0">&#8221;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">49</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = %subst<span class="br0">&#40;</span>x_Cvfield:<span class="nu0">1</span>:<span class="nu0">10</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">59</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8221;</span><span class="st0">&#8221;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">62</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Key&nbsp; &nbsp; &nbsp; &nbsp;&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* do the chain</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">24</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Key&nbsp; &nbsp; &nbsp; &nbsp;&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Chain &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">7</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Cvfileo&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;If&nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">17</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Z_Cvdec &lt;&gt; *Zeros&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Eval&nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c***************&nbsp; &nbsp; Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">2</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;x_&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = x_Cvfield</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">60</span>:<span class="nu0">9</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;= %Editc(&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">69</span>:<span class="nu0">2</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;x_&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">71</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = x_Cvfield</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">81</span>:<span class="nu0">5</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;:&#8217;</span><span class="st0">&#8216;P&#8217;</span><span class="st0">&#8216;)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Else&nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Move&nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">2</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;x_&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">50</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = @Cvfield</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">62</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = x_Cvfield</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvdec &gt; *Zeros</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;EndIf &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndDo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* close the file</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Close&nbsp; &nbsp; &nbsp;Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">6</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Except&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">7</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Flatout&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">5</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;EndIf&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">5</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;EndDo&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">38</span>:<span class="nu0">4</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;Eval&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">11</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;*Inlr = *On&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A****************************************************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the o specs</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">18</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; &nbsp;= <span class="st0">&#8216;o&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Cvflat&nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">29</span>:<span class="nu0">4</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;eadd&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">42</span>:<span class="nu0">7</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Flatout&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Orecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">10</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">29</span>:<span class="nu0">4</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;&nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">42</span>:<span class="nu0">7</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Flatds &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Orecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*&nbsp; &nbsp; </div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; *Inlr = *<span class="kw1">ON</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*******************************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* first time processing&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*******************************************************</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp;*Inzsr&nbsp; &nbsp; &nbsp; &nbsp; Begsr</div>
</li>
<li class="li1">
<div class="de1">&nbsp;</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp;*Entry&nbsp; &nbsp; &nbsp; &nbsp; Plist</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Parm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; @File</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Parm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; @Length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Parm&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; @Dem</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the h spec record</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">18</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;h&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">20</span>:<span class="nu0">29</span><span class="br0">&#41;</span> =</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c*&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span class="st0">&#8216;Option(*Srcstmt : *Nodebugio)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Hrecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* open the file <span class="kw1">AND</span> <span class="kw1">CHECK</span> <span class="kw1">FOR</span> formant name</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Open&nbsp; &nbsp; &nbsp; Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">READ</span>&nbsp; &nbsp; &nbsp; Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Close&nbsp; &nbsp; &nbsp;Cvfileo</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the f spec record</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">18</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;f&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">10</span><span class="br0">&#41;</span> = @File</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">29</span>:<span class="nu0">6</span><span class="br0">&#41;</span> = <span class="st0">&#8216;if&nbsp; &nbsp;e&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">4</span><span class="br0">&#41;</span> = <span class="st0">&#8216;Disk&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">56</span>:<span class="nu0">10</span><span class="br0">&#41;</span> = <span class="st0">&#8216;Prefix(x_)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Frecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span class="kw1">IF</span>&nbsp; &nbsp; &nbsp; &nbsp; x_Cvfname = x_Cvformat</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">56</span>:<span class="nu0">7</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;Rename(&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">63</span>:<span class="nu0">10</span><span class="br0">&#41;</span> = x_Cvformat</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">73</span>:<span class="nu0">3</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;:x)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Frecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;EndIf</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the f spec record</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">18</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;f&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">10</span><span class="br0">&#41;</span> = <span class="st0">&#8216;Cvflat&nbsp; &nbsp; &#8216;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">29</span>:<span class="nu0">6</span><span class="br0">&#41;</span> = <span class="st0">&#8216;uf a f&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">35</span>:<span class="nu0">5</span><span class="br0">&#41;</span> = @Length</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">48</span>:<span class="nu0">4</span><span class="br0">&#41;</span> = <span class="st0">&#8216;Disk&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Frecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* output the last&nbsp; f spec record</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">18</span>:<span class="nu0">1</span><span class="br0">&#41;</span>&nbsp; = <span class="st0">&#8216;f&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">10</span><span class="br0">&#41;</span> = <span class="st0">&#8216;Cvfileo&nbsp; &nbsp;&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">29</span>:<span class="nu0">6</span><span class="br0">&#41;</span> = <span class="st0">&#8216;if&nbsp; &nbsp;e&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">46</span>:<span class="nu0">6</span><span class="br0">&#41;</span> = <span class="st0">&#8216;k Disk&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">56</span>:<span class="nu0">10</span><span class="br0">&#41;</span> = <span class="st0">&#8216;Prefix(z_)&#8217;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Except&nbsp; &nbsp; Frecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Eval&nbsp; &nbsp; &nbsp; %Subst<span class="br0">&#40;</span>Rrec:<span class="nu0">19</span>:<span class="nu0">93</span><span class="br0">&#41;</span> = *Blanks</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;c&nbsp; &nbsp; &nbsp;<span class="co2">#Inzsr&nbsp; &nbsp; &nbsp; &nbsp; Endsr</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;oCvpgm&nbsp; &nbsp; &nbsp;eadd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Hrecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Rrec</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; eadd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Frecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Rrec</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; eadd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Drecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Rrec</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; eadd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Crecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Rrec</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; eadd&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Orecadd</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;o&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Rrec </div>
</li>
</ol>
</div>
</div>
<hr />
<div class="codesnip-container" >
<div class="codesnip">
<ol>
<li class="li1">
<div class="de1">A* FILE NAME CVFILEO</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A* CONVERSION WORK FILE</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; R CVREC</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A*</div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVFNAME&nbsp; &nbsp; &nbsp; &nbsp;10A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FILE&nbsp; NAME&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVFIELD&nbsp; &nbsp; &nbsp; &nbsp;10A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FIELD NAME&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVTYPE&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;1A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FIELD TYPE&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVSTART&nbsp; &nbsp; &nbsp; &nbsp; 5S <span class="nu0">0</span>&nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FIELD START&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVEND&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 5S <span class="nu0">0</span>&nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FIELD END&nbsp; &#8216;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVLENGTH&nbsp; &nbsp; &nbsp; &nbsp;5S <span class="nu0">0</span>&nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FIELD LENGTH&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVDEC&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 2S <span class="nu0">0</span>&nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FIELD DEC&nbsp; &nbsp;&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="li1">
<div class="de1">&nbsp; &nbsp; &nbsp;A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CVFORMAT&nbsp; &nbsp; &nbsp; 10A&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;TEXT<span class="br0">&#40;</span><span class="st0">&#8216;FIELD FORMAT&#8217;</span><span class="br0">&#41;</span></div>
</li>
<li class="