Jeff, here's a script I wrote that does a generic search of the redo stack
for an argument value that you enter.  It's not real fancy (especially by
your standards), but it does work (most of the time), and it's a great time
saver for me.   For instance, you can find all the commands that you entered
that started with LIST or BUIL, etc..    :-)


ANYPARM LR_TO_FIND = ![" "]
COMMENT
COMMENT  This CMD file will parse the redo stack searching for
COMMENT  any commands that start with the value entered by the
COMMENT  user.  When a value is found, that command line is then
COMMENT  echoed to the user for a subsequent redo/do
COMMENT
COMMENT  Written by Ray N. Shahan 04/11/2001
COMMENT
IF "!LR_TO_FIND" = " "
  LISTREDO
  RETURN
ENDIF
SETVAR LR_TO_FIND_LIMIT 10
SETVAR LR_TO_FIND_LEN LEN("!LR_TO_FIND")
IF LR_TO_FIND_LEN > LR_TO_FIND_LIMIT
  ECHO
  ECHO String to find length cannot exceed !LR_TO_FIND_LIMIT characters
  ECHO Please shorten find string and try again
  ECHO
  DELETEVAR LR_@
  RETURN
ENDIF
FILE LRTMP=LRTMP,OLDTEMP
IF NOT FINFO ("*LRTMP","EXISTS")
  BUILD LRTMP;REC=-79,,F,ASCII;MSG;TEMP;DISC=!HPREDOSIZE
ENDIF
LISTREDO > *LRTMP
SETVAR LR_LRTMP_EOF FINFO("*LRTMP","EOF")
WHILE LR_LRTMP_EOF > 0
  SETVAR LR_LRTMP_EOF   LR_LRTMP_EOF - 1
  INPUT LR_REC < *LRTMP
  IF UPS(STR(LR_REC,9,!LR_TO_FIND_LEN)) = UPS("!LR_TO_FIND")
    ECHO !LR_REC
  ENDIF
ENDWHILE
DELETEVAR LR_@

Ray Shahan

"Life is what happens while you're busy making other plans", John Lennon

> -----Original Message-----
> From: VANCE,JEFF (HP-Cupertino,ex1) [SMTP:[log in to unmask]]
> Sent: Thursday, February 20, 2003 7:45 PM
> To:   [log in to unmask]
> Subject:      CI Programming tidbits or examples?
>
> Hi all,
>
> I will be doing another CI Programming talk at both Solution
> Symposia and I'd like to incorporate suggestions from you.
>
> So, if you have some script examples that you find really
> useful and are willing to share, or if you have a problem
> that you'd like to solve with a CI script, please let me know.
>
>  Thanks,
>  Jeff Vance, vCSY
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *