capture message file

[marc.gonzales at bnpparibas.com]

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:

qdesign

screen pgm3 menu

file msg1 designer
file msg2 designer
file msg1copy designer

procedure initialize
begin
  while retrieving msg1 sequential ; --> destructive read
  begin
    if msg1 = "stop"
    then return
    else begin
      put msg2
      put msg1copy ; here you could write into database or any other 
structure to keep the copy
    end
  end
end

build


Run the pgm3 program in background mode with the following file equations:

FILE msg1=msg1.group.account
FILE msg2= msg2.group.account
FILE msg1copy= msg1copy.group.account


FILE msg1=msg1.group.account
Run cbl1 with this file equation

FILE msg1= msg2.group.account
Run cbl2 with this file equation


Hope this helps
Regards,
Marc




Internet 
anne.quirke at uturn.ie
Sent by: powerh-l-bounces+marc.gonzales=bnpparibas.com at lists.sowder.com
20/10/2008 16:50

To
powerh-l at lists.sowder.com
cc

Subject
capture message file








Hi,

 

Not sure where this question lies (HP or Powerhouse) but someone out there 
might point me in a direction

 

HP3000 MPE/iX cognos 7.29 c.9

 

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).

 

Here’s the catch

 

 We cannot change either of the Cobol programs

 We have to capture msg1 in real time

 We have to leave the data undisturbed so it is processed as normal.

 

Appreciate any thoughts

 

Anne

 

 

 

 

 

 

Anne Quirke

Uturn Ltd
Reshaping Technology
.. turning creative ideas into realistic solutions...



 
--
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l at lists.sowder.com
Subscribe: 'subscribe' in message body to 
powerh-l-request at lists.sowder.com
Unsubscribe: 'unsubscribe <password>' in message body to 
powerh-l-request at lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the 
list archive at Google.





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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20081020/439f1c03/attachment.htm