topic Re: wildcard expressions in DCL script in Operating System - OpenVMS

wildcard expressions in DCL script

Tim Nelson — Thu, 29 Jan 2004 10:27:25 GMT

Having trouble finding this easy one.
if var .eqs. "bob*" then goto A

Looking to use wildcard in an if statement.

Thanks in advance.

Re: wildcard expressions in DCL script

Antoniov. — Thu, 29 Jan 2004 10:31:48 GMT

Hi Tim,
wildcard works only with files (command DIR or lex F$SEARCH).
I wrote a C routine to manage LIKE operator; if you have a C compiler I can send you source code.

Bye
Antoniov

Re: wildcard expressions in DCL script

labadie_1 — Thu, 29 Jan 2004 10:41:57 GMT

if you want to do that, I think you have better options than the Dcl
- Perl for Vms
http://www.sidhe.org/vmsperl/
- awk (in Tcpip examples, snmp subdirectory, you have gawk)
- Python for Vms
vmspython.dyndns.org

all have regular expression matching, in python
import re
re.compile...

Re: wildcard expressions in DCL script

Tim Nelson — Thu, 29 Jan 2004 10:52:09 GMT

Thanks for the tips.. I was hoping I would not have to install / use another application.
I did the following to get what I wanted.

if f$extract(0,3,VAR) .eqs. "BOB" then goto

better than nothing and works..

Much appreciative.

Re: wildcard expressions in DCL script

Antoniov. — Thu, 29 Jan 2004 11:25:31 GMT

Tim,
load this simple like routine written in DCL. It's very simple but can help you.

Bye
Antoniov

Re: wildcard expressions in DCL script

Hein van den Heuvel — Thu, 29 Jan 2004 11:26:33 GMT

Your extract and compare is the classic solution, but the most rigid as the string must be in an exact location.

Most folks will use F$LOCATE comparing the result with F$LENGTH to get at the "*string" leading wildcard effect.

There are also creative usages of F$ELEMENT for stirng locating.

And there is yet an other, not too well known, method to check for string matches in DCL through string subtraction (reduction)!

$ test = "xxxxABCyyyy"
$ if test .eqs. (test - "ABC") then write sys$output "Not found"
$ if test .eqs. (test - "ABCD") then write sys$output "Not found"
Not found
$ x = test - "ABC"
$ show symb x
X = "xxxxyyyy"
$

Here is an other (a bit more widespread used)string subtract example:

$ write sys$output f$cvt() -
-" "-"-"-"-"-":"-":"-":"-"."
2004012911245313

Enjoy!
Hein.

Re: wildcard expressions in DCL script

Antoniov. — Thu, 29 Jan 2004 11:27:37 GMT

...and if you need somthing better I can compile the prior example for you.

Bye
Antoniov

Re: wildcard expressions in DCL script

Tim Nelson — Thu, 29 Jan 2004 11:47:07 GMT

All excellent options !!!

Thanks to everyone.

Re: wildcard expressions in DCL script

John Eerenberg — Mon, 02 Feb 2004 17:06:58 GMT

fwiw
a variation on
$ if f$extract(0,3,VAR) .eqs. "BOB" then goto A
would be
$ var=f$edit(var,"trim,compress,upcase")
$ if f$extract(0,3,VAR) .eqs. "BOB" then goto A
this gives me a level of predictability when it comes to leading spaces, multiple space/tabs, and upper/lower case.
hope it helps.
john

Re: wildcard expressions in DCL script

Jan van den Ende — Tue, 03 Feb 2004 04:49:12 GMT

And if you favour to compact it into "one" function, use:

$ if f$extract(0,3,f$edit(var,"trim,compress,upcase") .eqs. "BOB" then goto A

Re: wildcard expressions in DCL script

Simon French — Sun, 04 Apr 2004 20:40:00 GMT

Hi,

Another thought. How about using f$locate..

$ aa = "****BOB###"
$ bb = f$locate("BOB",aa)
$ sh symb bb
BB = 4 Hex = 00000004 Octal = 00000000004
$ bb = f$locate("BILL",aa)
$ sh symb bb
BB = 10 Hex = 0000000A Octal = 00000000012
$

The result being the string location if found, else its length if not found.

Regards
Simon

Re: wildcard expressions in DCL script

Ian Miller. — Mon, 05 Apr 2004 03:38:39 GMT