<br><font size=2 face="sans-serif">I am not sure I remember the syntax
on HP3000 but the idea would be the following to use an intermediate program
pgm3 (a cobol program or quick screen in the example) like:</font>
<br>
<br><font size=2 face="sans-serif">qdesign</font>
<br>
<br><font size=2 face="sans-serif">screen pgm3 menu</font>
<br>
<br><font size=2 face="sans-serif">file msg1 designer</font>
<br><font size=2 face="sans-serif">file msg2 designer</font>
<br><font size=2 face="sans-serif">file msg1copy designer</font>
<br>
<br><font size=2 face="sans-serif">procedure initialize</font>
<br><font size=2 face="sans-serif">begin</font>
<br><font size=2 face="sans-serif"> while retrieving msg1 sequential
; --> destructive read</font>
<br><font size=2 face="sans-serif"> begin</font>
<br><font size=2 face="sans-serif"> if msg1 = "stop"</font>
<br><font size=2 face="sans-serif"> then return</font>
<br><font size=2 face="sans-serif"> else begin</font>
<br><font size=2 face="sans-serif"> put msg2</font>
<br><font size=2 face="sans-serif"> put msg1copy ;
here you could write into database or any other structure to keep the copy</font>
<br><font size=2 face="sans-serif"> end</font>
<br><font size=2 face="sans-serif"> end</font>
<br><font size=2 face="sans-serif">end</font>
<br>
<br><font size=2 face="sans-serif">build</font>
<br>
<br>
<br><font size=2 face="sans-serif">Run the pgm3 program in background mode
with the following file equations:</font>
<br>
<br><font size=2 face="sans-serif">FILE msg1=msg1.group.account</font>
<br><font size=2 face="sans-serif">FILE msg2= msg2.group.account</font>
<br><font size=2 face="sans-serif">FILE msg1copy= msg1copy.group.account</font>
<br>
<br>
<br><font size=2 face="sans-serif">FILE msg1=msg1.group.account</font>
<br><font size=2 face="sans-serif">Run cbl1 with this file equation</font>
<br>
<br><font size=2 face="sans-serif">FILE msg1= msg2.group.account</font>
<br><font size=2 face="sans-serif">Run cbl2 with this file equation</font>
<br>
<br>
<br><font size=2 face="sans-serif">Hope this helps</font>
<br><font size=2 face="sans-serif">Regards,</font>
<br><font size=2 face="sans-serif">Marc</font>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td width=33%><font size=4 face="helv"><b>Internet </b></font>
<br><font size=1 face="sans-serif"><b>anne.quirke@uturn.ie</b></font>
<p><font size=1 face="sans-serif"><b>Sent by: powerh-l-bounces+marc.gonzales=bnpparibas.com@lists.sowder.com</b></font>
<p><font size=1 face="sans-serif">20/10/2008 16:50</font>
<td width=66%>
<table width=100%>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">To</font></div>
<td><font size=1 face="sans-serif">powerh-l@lists.sowder.com</font>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">cc</font></div>
<td>
<tr valign=top>
<td>
<div align=right><font size=1 face="sans-serif">Subject</font></div>
<td><font size=1 face="sans-serif">capture message file</font></table>
<br>
<table>
<tr valign=top>
<td>
<td></table>
<br></table>
<br>
<br>
<br>
<br>
<br><font size=1 face="sans-serif">Hi,</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif">Not sure where this question lies (HP
or Powerhouse) but someone out there might point me in a direction</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif">HP3000 MPE/iX cognos 7.29 c.9</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif">We have a Cobol program (prog1) that
creates a message file (msg1), this message file is read by another Cobol
program (prog2) (destructive reads) and is processed. I was wondering if
anybody had come across a way to get a copy of this message file (msg1)
while leaving it to carry out its normal process and be read by Cobol program
2 (prog2).</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif">Here’s the catch</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif"> We cannot change either of the
Cobol programs</font>
<br>
<br><font size=1 face="sans-serif"> We have to capture msg1 in real
time</font>
<br>
<br><font size=1 face="sans-serif"> We have to leave the data undisturbed
so it is processed as normal.</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif">Appreciate any thoughts</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif">Anne</font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif"> </font>
<br>
<br><font size=1 face="sans-serif">Anne Quirke</font>
<br>
<br><font size=2 face="sans-serif"><b>Uturn Ltd</b></font>
<br><font size=2 face="sans-serif"><b>Reshaping Technology</b></font>
<br><font size=2 face="sans-serif"><i>.. turning creative ideas into realistic
solutions...</i></font>
<br>
<br>
<br>
<br><font size=2 face="sans-serif"> </font>
<br><font size=2 face="sans-serif">--<br>
= = = = = = = = = = = = = = = = = = = = = = = = = = = =<br>
Mailing list: powerh-l@lists.sowder.com<br>
Subscribe: 'subscribe' in message body to powerh-l-request@lists.sowder.com<br>
Unsubscribe: 'unsubscribe &lt;password&gt;' in message body to
powerh-l-request@lists.sowder.com<br>
http://lists.sowder.com/mailman/listinfo/powerh-l</font>
<br><font size=2 face="sans-serif">This list is closed, thus to post to
the list you must be a subscriber.</font>
<br><font size=2 face="sans-serif">Add 'site:lists.sowder.com powerh-l'
to your search terms to search the list archive at Google.</font>
<br>
<pre>
This message and any attachments (the "message") is
intended solely for the addressees and is confidential.
If you receive this message in error, please delete it and
immediately notify the sender. Any use not in accord with
its purpose, any dissemination or disclosure, either whole
or partial, is prohibited except formal approval. The internet
can not guarantee the integrity of this message.
BNP PARIBAS (and its subsidiaries) shall (will) not
therefore be liable for the message if modified.
Do not print this message unless it is necessary,
consider the environment.
---------------------------------------------
Ce message et toutes les pieces jointes (ci-apres le
"message") sont etablis a l'intention exclusive de ses
destinataires et sont confidentiels. Si vous recevez ce
message par erreur, merci de le detruire et d'en avertir
immediatement l'expediteur. Toute utilisation de ce
message non conforme a sa destination, toute diffusion
ou toute publication, totale ou partielle, est interdite, sauf
autorisation expresse. L'internet ne permettant pas
d'assurer l'integrite de ce message, BNP PARIBAS (et ses
filiales) decline(nt) toute responsabilite au titre de ce
message, dans l'hypothese ou il aurait ete modifie.
N'imprimez ce message que si necessaire,
pensez a l'environnement.
</pre>