GYSGT RILEY,STAFF PROGRAMMER,DSN 288-2356 wrote:
>
> I need help trying to get a UDC to work...

<SNIP>

> ...your help will be very much appreciated.
>
Hi Michael,

Here's the command file I created on my system.  Note that it will
search spoolfiles as well, if you give it a number.

:HELP SEARCH
USER DEFINED COMMAND FILE:  SEARCH.XEQ.SYS

PARM FILESET, FOR
IF ( NUMERIC("!FILESET") ) &
OR ( LFT("!FILESET",1)="O" AND &
     NUMERIC(RHT("!FILESET",LEN("!FILESET")-1)) ) THEN
  RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;PRI=ES;&
    INFO="PRINT O!FILESET.OUT.HPSPOOL;SEARCH=CASELESS '!FOR';NUM"
  RETURN
ENDIF
RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;PRI=ES;&
  INFO="PRINT !FILESET;SEARCH=CASELESS '!FOR';KEEPAMDATES;NUM"
:

Some additional notes:  Your UDC would work just fine if you substituted
the 'run' command from my example above in place of the
'mpex.pub.vesoft' command in your UDC and inserted your MPEX 'print'
commands into it.  You could also use my command file as written, and
when you call it, enter your fileset(s) in quotes as the first argument,
like this:

:SEARCH "@[log in to unmask]@.prod.myact" searchstring

Hope this helps!

  +------------------------------------------------------------------+
    My mind is my own, as are my ideas and opinions.
    My heart, body, and soul, however, all belong to others.    Tim.
  +------------------------------------------------------------------+
    Tim Ericson            tericson   (503) 526-4440 (direct number)
    Sr. Programmer/Analyst  @denkor   DenKor Dental Management Corp.
      (& Systems Manager)    .com      (aka Willamette Dental Group)
                                      http://www.teleport.com/~dental
  +------------------------------------------------------------------+