<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf-8">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
tt
{mso-style-priority:99;
font-family:"Courier New";}
span.EmailStyle19
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>This worked PERFECTLY……<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Of course I had to embellish it a little…<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>I will test the UNIX version later.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Thanks<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>PROCEDURE INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>BEGIN<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>@if WINDOWS<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> IF " " EQ T-AuditLine<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> THEN LET T-AuditCommand &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = "echo. >> " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + DOWNSHIFT(TRUNCATE(T-ProgramId)) &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ".log"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> ELSE LET T-AuditCommand &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = "echo " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + TRUNCATE(T-AuditLine) &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + " >> " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + DOWNSHIFT(TRUNCATE(T-ProgramId)) &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ".log"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>@else<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-AuditCommand &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = "echo " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + TRUNCATE(T-AuditLine) &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + " >> " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + DOWNSHIFT(TRUNCATE(T-ProgramId)) &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ".log"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>@endif<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>@if QKC<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> RUN COMMAND T-AuditCommand ON ERROR CONTINUE CLEAR ALL NOWARN <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>@else<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> RUN COMMAND T-AuditCommand ON ERROR CONTINUE NOCONSOLE<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>@endif<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>END<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'>PROCEDURE INITIALIZE <br>
BEGIN <br>
LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = "Starting at " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSDATE,8)[5:2] + "/" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSDATE,8)[7:2] + "/" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSDATE,8)[1:4] + " " & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[1:2] + ":" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[3:2] + ":" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[5:2] + ":" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[7:2] <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> WHILE RETRIEVING ecb100da & ; detail records <br>
SEQUENTIAL <br>
BEGIN <br>
LET T-RecordsRead = T-RecordsRead + 1<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> IF " " NE MyField OF ecb100da<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> THEN BEGIN<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-RecordsProcessed = T-RecordsProcessed + 1<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = " " ; blank line<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = "Read " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + CIPNo OF ecb100da + " " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ServiceLine OF ecb100da &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + " Transform " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + Transform OF ecb100da <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile
DO INTERNAL Process-This-Record <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> END <br>
END <br>
LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = " " ; blank line<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = "Completed at " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSDATE,8)[5:2] + "/" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSDATE,8)[7:2] + "/" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSDATE,8)[1:4] + " " & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[1:2] + ":" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[3:2] + ":" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[5:2] + ":" & <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(SYSTIME,8)[7:2] <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = " Records Read " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(T-RecordsRead)<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = " Records Processed " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(T-RecordsProcessed)<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> LET T-AuditLine &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> = " Records Updated " &<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> + ASCII(T-RecordsUpdated)<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> DO INTERNAL Update-Logfile<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:black'> RETURN <br>
END<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> Michael Cousins
[mailto:Michael.Cousins@ca.ibm.com] <br>
<b>Sent:</b> January 13, 2010 9:49 AM<br>
<b>To:</b> Ken@Langendock.com<br>
<b>Subject:</b> [Bulk] Re: Quick in Batch directing info statements to a log
file<o:p></o:p></span></p>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal style='margin-bottom:12.0pt'><br>
<span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>APPEND on the
DESIGNER file. I think the default access does not move the record pointer on a
DESIGNER file. Been too long to be sure.</span> <br>
<br>
<span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>You could also
use a DEFINE to build a string to be executed from a RUN COMMAND statement.</span>
<br>
<br>
<span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>DEFINE AUDITREC
CHAR SIZE 80 = "ECHO Read " </span><span style='font-size:10.0pt;
font-family:"Courier New"'>
&</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
+ RecordNo OF
ecb100da + "/" &</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
+ LineNo OF
ecb100da &</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
+ "
>> myauditfile"</span> <br>
<br>
<br>
<span style='font-size:10.0pt;font-family:"Courier New"'>PROCEDURE INITIALIZE</span>
<br>
<span style='font-size:10.0pt;font-family:"Courier New"'>BEGIN</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'> WHILE RETRIEVING
ecb100da & ; detail records</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
SEQUENTIAL</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
BEGIN</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
RUN COMMAND AUDITREC</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
DO INTERNAL Process-This-Record</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
END</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'> RETURN</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>END</span> <br>
<br>
<br>
<br>
<br>
<span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>/mc<br>
Michael Cousins<br>
Global Response Team<br>
IBM Software Group, Information Management<br>
michael.cousins@ca.ibm.com<br>
613.356.5811<br>
<br>
<br>
<br>
</span><br>
<br>
<o:p></o:p></p>
<table class=MsoNormalTable border=0 cellpadding=0 width="100%"
style='width:100.0%'>
<tr>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif";
color:#5F5F5F'>From:</span> <o:p></o:p></p>
</td>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif"'>"Ken
Langendock" <ken.langendock@rogers.com></span> <o:p></o:p></p>
</td>
</tr>
<tr>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif";
color:#5F5F5F'>To:</span> <o:p></o:p></p>
</td>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif"'>"'PowerHouse
List'" <powerh-l@lists.sowder.com></span> <o:p></o:p></p>
</td>
</tr>
<tr>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif";
color:#5F5F5F'>Date:</span> <o:p></o:p></p>
</td>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif"'>01/13/2010
09:31 AM</span> <o:p></o:p></p>
</td>
</tr>
<tr>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif";
color:#5F5F5F'>Subject:</span> <o:p></o:p></p>
</td>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif"'>Quick
in Batch directing info statements to a log file</span> <o:p></o:p></p>
</td>
</tr>
<tr>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif";
color:#5F5F5F'>Sent by:</span> <o:p></o:p></p>
</td>
<td valign=top style='padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><span style='font-size:7.5pt;font-family:"Arial","sans-serif"'>powerh-l-bounces+michael.cousins=ca.ibm.com@lists.sowder.com</span><o:p></o:p></p>
</td>
</tr>
</table>
<p class=MsoNormal><o:p> </o:p></p>
<div class=MsoNormal align=center style='text-align:center'>
<hr size=2 width="100%" noshade style='color:#ACA899' align=center>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'><br>
<br>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>Hello
everyone</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>I am running
PH841F (on windows) and am running a quick program in batch.</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>I want to
spit out some info messages into a log file to be able to track this
“black-box” program during a job run.</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>Basically the
screen looks like this</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Courier New"'>SCREEN ecb100e &</span>
<br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
MENU</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'> </span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>FILE *ecb100da
DESIGNER</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'> </span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>PROCEDURE INITIALIZE</span>
<br>
<span style='font-size:10.0pt;font-family:"Courier New"'>BEGIN</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'> WHILE
RETRIEVING ecb100da & ; detail records</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
SEQUENTIAL</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
BEGIN</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
INFO = "Read " &</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
+ RecordNo OF ecb100da + "/" &</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
+ LineNo OF ecb100da </span><br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
DO INTERNAL Process-This-Record</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>
END</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'> RETURN</span> <br>
<span style='font-size:10.0pt;font-family:"Courier New"'>END</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>The program works,
but unfortunately the output only contains the last line sent to the screen (if
there was one) with a bunch of control characters. I would prefer to see all
the info statements as an audit.</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>[H[J)0[m[37m[40m[;f[JQUICK
session completed.[2;f</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>Anyone got
any ideas?</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>I could
create another subfile/permanent file and write to it as if it was a log file,
but I thought this would be simpler and would not require any additional
coding.</span> <br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'> </span>
<br>
<span style='font-size:10.0pt;font-family:"Calibri","sans-serif"'>Ken</span><tt><span
style='font-size:10.0pt'>-- </span></tt><span style='font-size:10.0pt;
font-family:"Courier New"'><br>
<tt>= = = = = = = = = = = = = = = = = = = = = = = = = = = =</tt><br>
<tt>Mailing list: powerh-l@lists.sowder.com</tt><br>
<tt>Subscribe: 'subscribe' in message body to powerh-l-request@lists.sowder.com</tt><br>
<tt>Unsubscribe: 'unsubscribe &lt;password&gt;' in message body to
powerh-l-request@lists.sowder.com</tt><br>
</span><a href="http://lists.sowder.com/mailman/listinfo/powerh-l"><tt><span
style='font-size:10.0pt'>http://lists.sowder.com/mailman/listinfo/powerh-l</span></tt></a><span
style='font-size:10.0pt;font-family:"Courier New"'><br>
<tt>This list is closed, thus to post to the list you must be a subscriber.</tt><br>
<tt>Add 'site:lists.sowder.com powerh-l' to your search terms to search the
list archive at Google.</tt></span> <o:p></o:p></p>
<p><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>No virus
found in this incoming message.<br>
Checked by AVG - www.avg.com<br>
Version: 9.0.725 / Virus Database: 270.14.138/2618 - Release Date: 01/13/10
02:35:00</span><o:p></o:p></p>
</div>
</body>
</html>