topic Re: Edit/TPU question in Operating System - OpenVMS

Edit/TPU question

Ian Derringer — Tue, 19 Jul 2005 12:17:49 GMT

I'm trying to edit a flat file, which I brought down from the Wintel environment. And I am trying to add a CR at the beginning of the line and for all of the lines. Would any know on how to do this within edit/tpu on the VMS environment??

Thanks,
Ian

Re: Edit/TPU question

Uwe Zessin — Tue, 19 Jul 2005 12:35:48 GMT

I am a bit rusty on TPU programming, so I would use a learn sequence. Trying without a keypad, but cursor keys (else, use the 'move down' command):
$ edit/tpu file

learn

what

this tells the number of lines as I have forgotten them since when I invoked the editor ;-)

repeat #-1

-1, because the first line was changed by the LEARN sequence. Well that should do it.

Re: Edit/TPU question

Dale A. Marcy — Tue, 19 Jul 2005 12:51:03 GMT

Uwe's method will work well, but if you know where your DO key is, you can replace the

with just pressing the DO key ( if you are using the EDT emulation). The recalls the last entered command and the deletes everything from the cursor (which is at the end of the line) to the beginning of the line.

Re: Edit/TPU question

Jan van den Ende — Tue, 19 Jul 2005 12:55:31 GMT

Ian,
as so often, what problem are you trying to solve?

Are you getting all your text without linebreaks and want to carrect that?
- how did you transfer the file from the Wintel box?
if FTP, try transfer with TYPE ASCI, and you are home.

If something else, please supply more info.

Proost.

Have one on me.

jpe

Re: Edit/TPU question

Dale A. Marcy — Tue, 19 Jul 2005 12:56:43 GMT

If you are trying to make the file readable on VMS (i.e., turn it into a standard text file), then I would try the following:

$ analyze/rms/fdl/output=c.fdl login.com
$ convert/fdl=c.fdl flat.file readable.file

I selected login.com because it should be just a standard ascii text file and the above does assume that you are in your default login directory and the file you are converting is in your default login directory. flat.file should be replaced with your filename and readable.file should be replaced with the resulting filename you desire.

Re: Edit/TPU question

Jan van den Ende — Tue, 19 Jul 2005 12:58:28 GMT

Ian,

From your Forum Profile:

I have assigned points to 36 of 117 responses to my questions.

Maybe you can find some time to do some assigning?

Mind, I do NOT say you necessarily need to give lots of points. It is fully up to _YOU_ to decide how many. If you consider an answer is not deserving any points, you can also assign 0 ( = zero ) points, and then that answer will no longer be counted as unassigned.
Consider, that every poster took at least the trouble of posting for you!

To easily find your streams with unassigned points, click your own name somewhere.
This will bring up your profile.
Near the bottom of that page, under the caption â My Question(s)â you will find â questions or topics with unassigned points â Clicking that will give all, and only, your questions that still have unassigned postings.

Thanks on behalf of your Forum colleagues.

PS. â nothing personal in this. I try to post it to everyone with this kind of assignment ratio in this forum. If you have received a posting like this before â please do not take offence â none is intended!

Proost.

Have one on me.

Jan

Re: Edit/TPU question

Ian Derringer — Tue, 19 Jul 2005 13:16:02 GMT

Guys,
Thanks for bringing to my attention on the points. I have always submit my points. However, I am not sure why I'm showing as ungrateful for not assigning points. Okay, I've just assigned those points. And no, I am not offended.

Regards,
Ian

Re: Edit/TPU question

Hein van den Heuvel — Tue, 19 Jul 2005 13:48:13 GMT

Dale wrote: "$ analyze/rms/fdl/output=c.fdl login.com
$ convert/fdl=c.fdl flat.file readable.file"

Just fwiw... even simpler:

CONV/FDL=NL: bad good :-)

This works because the FDL defaults have all the right stuff, so no actual fdl need to be provided, but the converts needs to be done.

Hein.

Re: Edit/TPU question

Ian Derringer — Tue, 19 Jul 2005 20:46:08 GMT

Hein - I don't understand the command you've posted "CONV/FDL=NL: bad good" - Do I just do CONV/FDL=NL: bad_file good_file???

As you can see, I am a newbie to the OpenVMS world.

Thanks for your time.

Ian

Re: Edit/TPU question

John Gillings — Tue, 19 Jul 2005 20:56:15 GMT

Ian,

TPU has a wildcard support which can be asked to find the beginning of a line. You could add a CR at the beginning of each line like this (comments after "!"):

$ EDIT/TPU yourfile
SET WILD VMS !could be "VMS" or "UNIX"
WILD FIND \< !match beginning of line
TOP ! back to start of file
LEARN ! initiate learn sequence
<^V><^R> ! program to key F14
REPEAT 200 ! replace 200 by required count

See SHOW WILD to see what wildcards are supported. The "UNIX" set are a bit like regular expressions.

Unfortunately there is no WILD REPLACE command. That would make this exercise much simpler.

Re: Edit/TPU question

Uwe Zessin — Tue, 19 Jul 2005 21:59:25 GMT

If the file is a simple one and in case you need to do this more often than once - attached is a small, simple minded DCL procedure (name it CR.COM):

$ @CR inputfile outputfile

Re: Edit/TPU question

Hein van den Heuvel — Tue, 19 Jul 2005 22:43:35 GMT

>> Hein - I don't understand the command you've posted
>> Do I just do CONV/FDL=NL: bad_file good_file???

Yes. The NL: is the device (+ missing file) where you tell teh system to look for the fdl file. It is the NULL device (like /dev/null in unix) and just returns nothing (it returns End Of File to e precise). The result is that the FDL code uses 'nothing' plus its build in defaults which are probably all you needed.

I suspect, but can not be entirely sure given the problem description, that the data in the file is just fine, but the attributes were wrong. Thus, you may also have been able to 'add a CR' by a command like:
SET FILE/ATTR=(RFM=STM,RAT=CR) bad_file
To understand that, check:
DIR/FULL (or ANAL/RMS) bad_file;
DIR/FULL goof_file
HELP SET FILE /ATTR

Also, how did the fle get there? Maybe all you needed was to transfer in FTP ASCI mode like Jan suggested.

Finally I doubt you really wanted to 'add a CR'. The CR character (ASCII(13)) is rarely used as a stand-alone character. I have only seen it used decades ago in the era of dot-matrix printers and those loud 'chain saw' line printers to achieve overprint and bold print.
What you probably meant was to add a new line break, or change to attribute to print a carriage return after each record seperator break.

If it is still a problem then you can help us help you with a reply attaching a text file with the output from the mentioned DIR/FULL and also a DUMP/BLOCK=COUNT=1 bad_file.

Welcome to VMS and RMS
Hein.

Re: Edit/TPU question

Ian Derringer — Wed, 20 Jul 2005 07:48:28 GMT

"What you probably meant was to add a new line break, or change to attribute to print a carriage return after each record seperator break."
Hein - You're correct on the statement. I need to add an Attribute "Carriage return Carriage control" to a RMS file. I did tried the online help but got lost in translation. How do I set the file attribute with a carriage return and carriage control?

Thanks for all your help!!

Ian

Re: Edit/TPU question

Ian Derringer — Wed, 20 Jul 2005 08:14:17 GMT

Uwe Zessin - The CR.com procedure works wonder for what I am trying to use. However, I have a file with a length of 210 characters long and I want to put a CR right after the end of the line. How do I modify your CR.COM procedure to do just that??

Thanks so much for your help on this.

Ian

Re: Edit/TPU question

Antoniov. — Wed, 20 Jul 2005 08:23:27 GMT

Ian,
change in Uwe's procedure write statement as follow:
$LOOP:
$ read /end_of_file=DONE FI LINE
$ write FO LINE+CR
$ goto LOOP

Antonio Vigliotti

Re: Edit/TPU question

Ian Derringer — Wed, 20 Jul 2005 09:20:08 GMT

Antonio Vigliotti,
Still not doing what I wanted to do. I think the position is off some how. Would you know what's $ CR[0,8]=13 in Uwe's com procedure? I think I need to modify that (??).

Thanks for your help.

Ian

Re: Edit/TPU question

Dale A. Marcy — Wed, 20 Jul 2005 09:23:40 GMT

"Still not doing what I wanted to do. I think the position is off some how. Would you know what's $ CR[0,8]=13 in Uwe's com procedure? I think I need to modify that (??)."

That line is define the variable CR as ASCII 13 the value for a carriage return.

Re: Edit/TPU question

Uwe Zessin — Wed, 20 Jul 2005 09:32:28 GMT

Hello Ian,

$ CR[0,8]=13

"13" is the decimal value of the carriage return control character

"CR" is the name of the symbol, could have been "XYZ" or "ABC" as well.

"[0,8]" makes an assignment to bits 0..8.
The online help says:
>> symbol-name[bit-position,size] =[=] replacement-expression

This line just creates a symbol named "CR", length=1, containing the carriage return control character.

$ CR[0,8]=13
$ show symbol CH
CR = "."
$ write sys$output f$length(CR)
1
$

-----

Following your request, I would have changed the procedure the same way like Antonio.

For better debugging your problem I'd like to repeat Hein's request:
""If it is still a problem then you can help us help you with a reply attaching a text file with the output from the mentioned DIR/FULL and also a DUMP/BLOCK=COUNT=1 bad_file.""

Re: Edit/TPU question

Ian Derringer — Wed, 20 Jul 2005 09:33:42 GMT

I see. How do I put a Carriage return at the end of my line. As I've indicated ealier, the line is 210 chars long. Any ideas?

Please help!

Thanks so much!!

Ian

Re: Edit/TPU question

Dale A. Marcy — Wed, 20 Jul 2005 09:37:12 GMT

I believe what you want to do is change the line:

$ write FO CR+LINE

to

$ write FO LINE+CR

This changes from adding the carriage return at the beginning of the line to adding it to the end of the line.