Inserting a carriage return into file

[Jim Frame_1]

I regularly recieve a file on an openVMS system that is made up of multiple records, with each record having multiple segments. Attached is an example. I have a new line after each segment, but no end of record terminator. Each record begins with a MSH segment and ends with a CD3 segment. I want to create a script that I can run to insert a carriage return before each "MSH" combination. I have a global search and replace procedure which works well for strings. I am attaching a version of the script which is setup to replace a "~" with an "*". I have tested it by placing this script in a tpu file in the root directory and then moving to a directory with a test file. I run the script by entering this:
$edit/tpu/command=sys$login:gsr.tpu
I have been trying to modify this procedure to search for the new line MSH combination and replace it with a MSH but, I have not been able to do it. I am hoping that someone on this site will be able to point me in the right direction. Thanks in advance for any assistance you can offer me.

[Jim Frame_1]

Me again. Here is the script. I could only attach one document to the posting.

[Antoniov.]

Jim,
welcome to VMS forum.

I'm not an TPU expert but if I remember you can:
- Edit file with TPU
- Enter in command mode with PF4
- User REPL
- Old string: you can type MSH
- New String: Press Ctrl + V for quote, press RETURN key and MSH again
This should work.

Antonio Vigliotti

[Antoniov.]

Again,
in HELP QUOTE there is your answer:
o To insert a special character from within an EVE initialization file
(such as in batch editing), use the TPU command and the EVE$INSERT_TEXT
procedure. For example, the following command line inserts an escape
character:

TPU EVE$INSERT_TEXT (ASCII (27));

Antonio Vigliotti

[Dale A. Marcy]

Jim,

Antonio is correct. However, be careful with the PF4. It can be the "DO" key depending on several factors, but it can also be the delete line key. You should be able to take Antonio's advice and apply it to your script file changing the ~ with MSH and the * with VV@MSH.

Hope this helps.

[Bojan Nemec]

Jim,

Tell me if I am correct. You have a file which in dump looks like this:
MSH||MSH||MSH

And you want to get each MSH in one record.
Maybe this command will help you (try it on a copy of the file!):

$ SET FILE filename /ATTR=(RFM:STMLF)

If this does not help, can you attach a dump and DIR/FULL of the file.

Bojan

[Hein van den Heuvel]

Jim,

What do you mean with ?
At first I though it was a NULL byte, but looking at the file it appears to be a LINEFEED (%x0A) so perhaps 'New-Line'?

I downloaded your attachment to my PC,
Then FTP'ed in BINARY mode, and I see a relatively neat file with LF seperators.

Using SET FILE/ATTR=RFM=STMLF it turns into a more or less normal VMS file, but with each segment in an RMS record.

I can then readily make a single RMS record with all the segments using the following perl one-liner:

perl -e "while(<>){chop; if (/^MSH/ && $rec){print ""$rec\n"";$rec=""""}$rec.=$_} print ""$rec\n""" x.tmp > xx.tm
p

In a perl script that would be:
-----------------tmp.p---------------
while (<>) {
chop;
if (/^MSH/ && $rec) {
print "$rec\n";
$rec="";
}
$rec.=$_;
}
print "$rec\n"
-----------------------
perl tmp.p x.tmp > xx.tmp

Both produce 6 record files.
Each record starting with MSH and ending in (some multiple) CD3 segments.

fwiw,
Hein.

[Jim Frame_1]

Wow.... Great response on this forum and thanks for the welcome.

In answer to Bojan's question, you are nearly correct. I have a after each segment. Several segments to a record. So it would look like this:

MSH|||MFI|||CD3|||MSH||| and so on. In other words, my interface has no way to parse the inbound file into the individual records and the same terminator is used between all the segments with nothing as an end or record terminator. I am trying to add the in front of each MSH (except the first one) as the end of record terminator for the previous record in this batch file. Let me catch up on all the suggestions (after a meeting) and then I will attach the requested information. Thanks again all for the timely responses.

[Doug Phillips]

>>
my interface has no way to parse the inbound file into the individual records and the same terminator is used between all the segments with nothing as an end or record terminator.
<<

This looks like an EDI file, and it looks perfectly fine on the VMS side after telling RMS what it really is:

$SET FILE/ATTR=RFM=STMLF ! as Hein has said.

I'm surprised that an unchangeable "interface" would require segment terminators and terminating the last segment of a record set. Doesn't sound right.

What is your interface? Normally, rather than try to change the file, it's better to make your code process the file.

Each "segment" is an RMS record. Each is prefixed with a segment identifier. A set of segments make a record set.

In this case, MSH is the beginning of each record set and encountering the next MSH segment identifier or the end-of-file should trigger your end-of-record-set routine. Then either loop back to process the MSH, or finish up the end-of-job.

Forget about the "paper control" characters. Set the file's attributes correctly and you won't even see them. Let RMS do its job.

[Jim Frame_1]

I will start at the top. I have tried to use Antonio's advice, but it seems to be geared toward manually modifing the file. I am attempting to automate this with the scripting. Dale applied Antionio's thinking to my scripting, however I can not get this to work. I am getting this:

***Error symbol replaced by "-"*** when I run the script.

Bojan's idea would work if each segment was a record, but that is not the case. I am attaching the dir/full and dump of the testfile.

Hein's idea looks promising, but I don't know what to do with perl. I tried entering the one liner and the perl command wasn't recognised. Could you tell me how to use this on VMS?

Finally to Doug, this is HL7 (health level 7) and in our system a carriage return, line feed is used to seperate records in a batch file. I need to modify the file.


Thanks to all for the replies, I really appreciate the help. Please keep them coming.