topic Re: Challenge in Operating System - OpenVMS

Challenge

Jan van den Ende — Tue, 07 Jun 2005 21:15:58 GMT

Ok,

this just as an exercise.

Follow this stream from top down, and try to find a better solution!

http://forums1.itrc.hp.com/service/forums/questionanswer.do?threadId=898993

I am curious!

Proost.

Have one on me.

jpe

Re: Challenge

Peter Quodling — Tue, 07 Jun 2005 21:39:25 GMT

Jan, 100 pts for showing up the Eunuchs weenies...

q

Re: Challenge

Jan van den Ende — Tue, 07 Jun 2005 22:17:59 GMT

Well,

I must admit,
I HAVE been boasting a little, and I only CAN, because of... Guy Peleg.

In my solution, I used some of the qualifiers that Guy only recently introduced, and presented here in Nashua with his usual enthousiasm. You WILL need the last 732 or 82 DCL kit.

Never mind older versions (AFAIK).

Proost.

Have one on me.

jpe

Re: Challenge

labadie_1 — Wed, 08 Jun 2005 01:05:24 GMT

install Perl on Vms, and use the Perl option ?

gawk :== disk:gawk
(in tcpip$examples.snmp, if memory serves me), and use awk ?

Dcl is not a good tool here IMHO

Re: Challenge

Bojan Nemec — Wed, 08 Jun 2005 01:52:24 GMT

Jan,

You give the response in the link.
But how to do this on an older VMS version without the new qualifiers?
Need more than one command ;)

$ DIR /COL=1/NOHEAD/NOTRAIL/OUT=ALL.TMP
$ SEA /WIN=0/OUT=FND.TMP
$ DIFF FND.TMP ALL.TMP/SEP=REVISION/MATCH=1

Some more work it will be needed to clean the result from the header and footer.

Bojan

Re: Challenge

Bojan Nemec — Wed, 08 Jun 2005 01:59:48 GMT

PS,

Maybe a hint for Guy. Why not add two qualifiers to DIFFERENCES: /HEAD and /STATISTICS and respective /NOHEAD and /NOSTATISTICS which will give you only the different records (of course with /NONUMBER).

Bojan

Re: Challenge

Jan van den Ende — Wed, 08 Jun 2005 05:54:40 GMT

hey,

the whole thing is about HOW to get these results IN UNIX, remember?

I normally only read those threads in an attempt to get a feeling for the Unix way of looking at things, and solving issues.

And ONLY because so many different people came to different constructs, which turned out no solutions, I came to do the excersize about how I would solve it.

AFAIK perl is there on *X as well, and more widely spread as on VMS, so I think any pearl solution would not even need the detour via VMS.

And as a practical solution the infrastructure will indeed not very often be there..

Proost.

Have one on me.

jpe

Re: Challenge

Galen Tackett — Wed, 08 Jun 2005 06:11:26 GMT

One approach to doing this on Yeew-Nix! would be to install a simh VAX and run VMS on it, then do it on VMS.

:-D

(Do I need to explain Yeew-Nix! ??? :-)

Re: Challenge

Garry Fruth — Wed, 08 Jun 2005 10:48:25 GMT

Jan, I am speaking from memory, and did not try this on a VMS machine yet. But I suspect your solution is incorrect:
$ SEARCH [...]*.*
"

File ABC.TXT contains:
a
b
c

SEARCH abc.txt a,c/MATCH=NOR/LIMIT=1/SILENT
will indicate ABC.TXT as a solution, even
though it contains "A". The question as I
interpreted it stated that they wanted files that did not contain ANY of the search strings. I think Bojan's solution (for which you awarded only 1 point) hits the mark; although I have not tested it.

Re: Challenge

Jan van den Ende — Wed, 08 Jun 2005 11:59:42 GMT

Anyone able to verify GarryÂ´s statement?
If he is right, that would pull the whole basement from under this stream :-(

I defer giving points till after verification.

Proost.

Have one on me.

j

Re: Challenge

Doug Phillips — Wed, 08 Jun 2005 12:16:45 GMT

Well, /match looks at lines, so in the NOR example, if any *line* doesn't match it will be cosidered a success.

If a command file is permitted, may I offer:

$loop:
$ filename = f$search("[...]*.*")
$ if filename .eqs. "" then exit
$ search/noout/nowarn 'filename' -

$ if $status .ne. %X00000001 then -
write sys$output "''filename'"
$ goto loop

That works on older and newer systems, but I'll let someone else do the pipe command.

-Doug

Re: Challenge

Jan van den Ende — Wed, 08 Jun 2005 17:16:05 GMT

Yes, a DCL proc would of course be an easy one, but it was just the idea of the single command that made me get in to start with.

Regrettably you blew that, and as a penance I paid each 10 points.

Bojan, the first time(s) I can assign points to you there are 7 still in stock for you.

Proost.

Have one on me.
(I ll get one now to wash away the foul taste of screwing up)

jpe