HP3000-L Archives

May 2000, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Erik Vistica <[log in to unmask]>
Reply To:
Erik Vistica <[log in to unmask]>
Date:
Wed, 3 May 2000 11:34:10 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (29 lines)
How about this command file? (with the concept blatantly plagarized from
MPEX :-)

ANYPARM PARMS
#MANY.CMD
SETVAR MANY_PARMS ANYPARM(!PARMS)
SETVAR MANY_DELIM LFT(MANY_PARMS,1)
SETVAR MANY_START 2
WHILE MANY_START <= LEN(MANY_PARMS)  DO
  SETVAR MANY_CMD WORD(MANY_PARMS,MANY_DELIM,1,MANY_END,MANY_START)
  !MANY_CMD
  SETVAR MANY_START  MANY_END + 1
ENDWHILE
DELETEVAR MANY_@
#END MANY.CMD

Keep it as MANY in your path.

:many |showtime|reset @|listeq|file x,old;dev=disc|listeq|showtime
WED, MAY  3, 2000, 11:32 AM
  listeq
No file equations exist. (CIWARN 3282)

 FILE EQUATIONS

 FILE X,OLD;DEV=DISC

WED, MAY  3, 2000, 11:32 AM

ATOM RSS1 RSS2