I'm looking for a VMS command procedure where I can store data and
where I can find this
data using a search command (like a help desk database).
Is there any procedure already made ?
Thanks.
|
|
0
|
|
|
|
Reply
|
contracer11 (156)
|
9/13/2006 5:16:06 AM |
|
contracer11@gmail.com wrote:
>
> I'm looking for a VMS command procedure where I can store data and
> where I can find this
> data using a search command (like a help desk database).
> Is there any procedure already made ?
You might wish to look into VAX Notes (or is it DEC Notes, Compaq Notes,
HP Notes ?)
|
|
0
|
|
|
|
Reply
|
jfmezei.spamnot4 (5184)
|
9/13/2006 5:43:34 AM
|
|
contracer11@gmail.com wrote:
> I'm looking for a VMS command procedure where I can store data and
> where I can find this
> data using a search command (like a help desk database).
> Is there any procedure already made ?
>
> Thanks.
>
Sure is. Use a help library format, and use the HELP utility.
To use a different library, use HELP /LIBRARY=??? to invoke your custom
library. Such also has a programming interface.
--
David Froble Tel: 724-529-0450
Dave Froble Enterprises, Inc. E-Mail: davef@tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA 15486
|
|
0
|
|
|
|
Reply
|
davef3 (3419)
|
9/13/2006 6:04:42 AM
|
|
On 9/12/06 10:16 PM, in article
1158124566.792611.47050@e3g2000cwe.googlegroups.com, "contracer11@gmail.com"
<contracer11@gmail.com> wrote:
> I'm looking for a VMS command procedure where I can store data and
> where I can find this
> data using a search command (like a help desk database).
> Is there any procedure already made ?
>
> Thanks.
>
I developed a set of command procedures that composed, emailed, saved and
searched SPR's (Software Problem Reports) for a software call desk. If you
are interested it will take a few days to dig up and send to you. I even
have a Word document on how to use it.
Jeff Cameron
|
|
0
|
|
|
|
Reply
|
roktsci (205)
|
9/13/2006 1:42:57 PM
|
|
Jeff Cameron wrote:
> On 9/12/06 10:16 PM, in article
> 1158124566.792611.47050@e3g2000cwe.googlegroups.com, "contracer11@gmail.com"
> <contracer11@gmail.com> wrote:
>
> > I'm looking for a VMS command procedure where I can store data and
> > where I can find this
> > data using a search command (like a help desk database).
> > Is there any procedure already made ?
> >
> > Thanks.
> >
> I developed a set of command procedures that composed, emailed, saved and
> searched SPR's (Software Problem Reports) for a software call desk. If you
> are interested it will take a few days to dig up and send to you. I even
> have a Word document on how to use it.
>
> Jeff Cameron
I made a DCL command procedure where when I put a string to find
it show me all string ocurrences, like this:
$ search/win=(8,8) help.txt "``string`"
but how could I make a procedure to show me all "string" ocurrences
separated by a "====================" line ? Like this:
$ @find sarbanes
==================================================
To see Sarbanes laws read dka2:[documents]sarbanes.txt
==================================================
Sarbanes-Oxley provides a complete cross-referenced index of SEC
filers,
audit firms, offices, CPAs, services, fees, compliance/enforcement
actions
and other critical disclosure information.
==================================================
$
Thanks !
|
|
0
|
|
|
|
Reply
|
contracer11 (156)
|
9/13/2006 4:05:24 PM
|
|
On Wed, 13 Sep 2006 contracer11@gmail.com wrote:
> I made a DCL command procedure where when I put a string to find
>
> it show me all string ocurrences, like this:
>
> $ search/win=(8,8) help.txt "``string`"
>
> but how could I make a procedure to show me all "string" ocurrences
>
> separated by a "====================" line ? Like this:
>
> $ @find sarbanes
>
>
> ==================================================
>
> To see Sarbanes laws read dka2:[documents]sarbanes.txt
>
> ==================================================
>
> Sarbanes-Oxley provides a complete cross-referenced index of SEC
What is wrong with the asterisks that search prints for you now?
$ search/win=(1,1) [.temp]help.txt over
jumps
over
the
***************
ljsdf
over
***************
where
over
the
If you need a header and trailer line of asterisks, your command file
could print them with WRITE SYS$OUTPUT.
--
Rob Brown b r o w n a t g m c l d o t c o m
G. Michaels Consulting Ltd. (780)438-9343 (voice)
Edmonton (780)437-3367 (FAX)
http://gmcl.com/
|
|
0
|
|
|
|
Reply
|
mylastname3 (505)
|
9/13/2006 4:46:26 PM
|
|
Rob Brown wrote:
> On Wed, 13 Sep 2006 contracer11@gmail.com wrote:
>
> > I made a DCL command procedure where when I put a string to find
> >
> > it show me all string ocurrences, like this:
> >
> > $ search/win=(8,8) help.txt "``string`"
> >
> > but how could I make a procedure to show me all "string" ocurrences
> >
> > separated by a "====================" line ? Like this:
> >
> > $ @find sarbanes
> >
> >
> > ==================================================
> >
> > To see Sarbanes laws read dka2:[documents]sarbanes.txt
> >
> > ==================================================
> >
> > Sarbanes-Oxley provides a complete cross-referenced index of SEC
>
>
> What is wrong with the asterisks that search prints for you now?
>
> $ search/win=(1,1) [.temp]help.txt over
> jumps
> over
> the
> ***************
> ljsdf
> over
>
> ***************
> where
> over
> the
>
> If you need a header and trailer line of asterisks, your command file
> could print them with WRITE SYS$OUTPUT.
>
>
> --
>
> Rob Brown b r o w n a t g m c l d o t c o m
> G. Michaels Consulting Ltd. (780)438-9343 (voice)
> Edmonton (780)437-3367 (FAX)
> http://gmcl.com/
Actually, when I issue @find sarbanes I get:
to see netbackup line command help read dka2:[documents]netbackup.txt
==================================================
To see Sarbanes laws read dka2:[documents]sarbanes.txt
==================================================
Sarbanes-Oxley provides a complete cross-referenced index of SEC
filers,
audit firms, offices, CPAs, services, fees, compliance/enforcement
actions
and other critical disclosure information.
==================================================
to see all system process in VAX issue:
$ show system
$
running the procedure I find what I want and another informations
that I don't want...
Is there any way to put a invisible sequence to control start and
finish ?
Thanks !
|
|
0
|
|
|
|
Reply
|
contracer11 (156)
|
9/13/2006 5:15:47 PM
|
|
contracer11@gmail.com wrote:
> > On Wed, 13 Sep 2006 contracer11@gmail.com wrote:
> >
> > > I made a DCL command procedure where when I put a string to find
> > >
> > > it show me all string ocurrences, like this:
> > >
> > > $ search/win=(8,8) help.txt "``string`"
> > >
> > > but how could I make a procedure to show me all "string" ocurrences
> > >
> > > separated by a "====================" line ? Like this:
> > >
> > > $ @find sarbanes
> > >
> > >
> > > ==================================================
> > >
> > > To see Sarbanes laws read dka2:[documents]sarbanes.txt
> > >
> > > ==================================================
> > >
> > > Sarbanes-Oxley provides a complete cross-referenced index of SEC filers
> > > audit firms, offices, CPAs, services, fees, compliance/enforcement
> > > actionsand other critical disclosure information.
> > >
> > >==================================================
<snip>
>
> running the procedure I find what I want and another informations
> that I don't want...
>
> Is there any way to put a invisible sequence to control start and
> finish ?
>
>
Search alone won't work the way you suggest because the desired text is
not within a fixed number of lines. To do what you want using search,
instead of using one help.txt file you need to create different files
(documents) within a [help] directory. Using search, you could find the
names of the documents that contain the desired key words, then type or
display the selected documents formatting the output however you want.
To use a single text file (or multiple larger files with multiple
subjects), you would need to build your own keyword index with pointers
to tags/markers within the text. It seems to me that this would be more
easily and efficiently done at a higher level rather than with just
DCL. It's likely that there is already software developed that does
this. I haven't looked. Maybe one of the freeware search engines could
be adapted?
BTW, is this really for a "help desk" where someone is providing
support to "clients", or is it actually more just a reference tool?
|
|
0
|
|
|
|
Reply
|
dphill46 (609)
|
9/13/2006 5:42:36 PM
|
|
contracer11@gmail.com wrote:
> I'm looking for a VMS command procedure where I can store data and
> where I can find this data using a search command (like a help desk
> database). Is there any procedure already made ?
Hello Shiva,
Please: Terse questions beget terse answers.
Please back up about 500 to 1000 meters, and tell us what specific problem(s)
you are trying to (re)solve here, what software you already have access to (eg:
databases, OpenVMS version(s) and platform(s), whether this is to be a windowing
system application or character cell or web-based servers, etc), what scale of
storage is likely involved and what scale of information might be included, who
the intended clients might be, and what the budget might be.
On zero information and as a first and potentially wild guess, my first
suggestions would be Bugzilla and/or a Wiki.
Perl and PHP services and support tools -- stuff built on these languages and
tools -- should arrive quite easily on OpenVMS, for instance, if there are not
already packages available.
At another interpretation of your (unfortunately terse) question, assuming
it's just you maintaining that's looking to maintain information for yourself, a
text file and the SEARCH command can be pressed into service -- I've certainly
used this solution for myself, as have many other folks. The extreme and quaint
and massively low-tech solution of a paper-based notebook also works. :-)
And with some details and some background, I and others might well be able to
tailor the answer.
Thanks,
Hoff
|
|
0
|
|
|
|
Reply
|
hoff-remove-this (566)
|
9/13/2006 6:23:04 PM
|
|
Doug Phillips wrote:
> contracer11@gmail.com wrote:
> > > On Wed, 13 Sep 2006 contracer11@gmail.com wrote:
> > >
> > > > I made a DCL command procedure where when I put a string to find
> > > >
> > > > it show me all string ocurrences, like this:
> > > >
> > > > $ search/win=3D(8,8) help.txt "``string`"
> > > >
> > > > but how could I make a procedure to show me all "string" ocurrences
> > > >
> > > > separated by a "=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D" line ? Like this:
> > > >
> > > > $ @find sarbanes
> > > >
> > > >
> > > > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
> > > >
> > > > To see Sarbanes laws read dka2:[documents]sarbanes.txt
> > > >
> > > > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
> > > >
> > > > Sarbanes-Oxley provides a complete cross-referenced index of SEC fi=
lers
> > > > audit firms, offices, CPAs, services, fees, compliance/enforcement
> > > > actionsand other critical disclosure information.
> > > >
> > > >=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
> <snip>
> >
> > running the procedure I find what I want and another informations
> > that I don't want...
> >
> > Is there any way to put a invisible sequence to control start and
> > finish ?
> >
> >
>
> Search alone won't work the way you suggest because the desired text is
> not within a fixed number of lines. To do what you want using search,
> instead of using one help.txt file you need to create different files
> (documents) within a [help] directory. Using search, you could find the
> names of the documents that contain the desired key words, then type or
> display the selected documents formatting the output however you want.
>
> To use a single text file (or multiple larger files with multiple
> subjects), you would need to build your own keyword index with pointers
> to tags/markers within the text. It seems to me that this would be more
> easily and efficiently done at a higher level rather than with just
> DCL. It's likely that there is already software developed that does
> this. I haven't looked. Maybe one of the freeware search engines could
> be adapted?
>
> BTW, is this really for a "help desk" where someone is providing
> support to "clients", or is it actually more just a reference tool?
It=B4s just a reference tool, and I =B4d like use DCL procedure.
thanks
|
|
0
|
|
|
|
Reply
|
contracer11 (156)
|
9/13/2006 9:09:19 PM
|
|
contracer11@gmail.com wrote:
> It�s just a reference tool, and I �d like use DCL procedure.
In that case, you might wish to dump all your documents in some
directory(ies) and use a web indexing tool to parse through those
documents and build an index for you. You could then fairly easily use a
DCL procedure to access the indexed file to look up the list of
documents that contain the word/words you are looking for.
I don't recall off hand the name, but the OSU web server has/had some
"add on" indexing tool you could download from some place.
|
|
0
|
|
|
|
Reply
|
jfmezei.spamnot4 (5184)
|
9/13/2006 9:23:29 PM
|
|
In article <1158163524.224042.99970@e3g2000cwe.googlegroups.com>, contracer11@gmail.com writes:
> it show me all string ocurrences, like this:
> $ search/win=(8,8) help.txt "``string`"
>
> but how could I make a procedure to show me all "string" ocurrences
> separated by a "====================" line ? Like this:
If you're allowed to load freeware then:
$ grab help.txt "''string'"/cut="===================="
GRAB is a freeware search utility available here:
http://vms.process.com/scripts/fileserv/fileserv.com?GRAB
And also on the V8 OpenVMS Freeware V8.0 CD.
|
|
0
|
|
|
|
Reply
|
burley.not-this (87)
|
9/13/2006 11:34:25 PM
|
|
Doug Phillips wrote:
> contracer11@gmail.com wrote:
>>> On Wed, 13 Sep 2006 contracer11@gmail.com wrote:
>>>
>>>> I made a DCL command procedure where when I put a string to find
>>>>
>>>> it show me all string ocurrences, like this:
>>>>
>>>> $ search/win=(8,8) help.txt "``string`"
>>>>
>>>> but how could I make a procedure to show me all "string" ocurrences
>>>>
>>>> separated by a "====================" line ? Like this:
>>>>
>>>> $ @find sarbanes
>>>>
>>>>
>>>> ==================================================
>>>>
>>>> To see Sarbanes laws read dka2:[documents]sarbanes.txt
>>>>
>>>> ==================================================
>>>>
>>>> Sarbanes-Oxley provides a complete cross-referenced index of SEC filers
>>>> audit firms, offices, CPAs, services, fees, compliance/enforcement
>>>> actionsand other critical disclosure information.
>>>>
>>>> ==================================================
> <snip>
>> running the procedure I find what I want and another informations
>> that I don't want...
>>
>> Is there any way to put a invisible sequence to control start and
>> finish ?
>>
>>
>
> Search alone won't work the way you suggest because the desired text is
> not within a fixed number of lines. To do what you want using search,
> instead of using one help.txt file you need to create different files
> (documents) within a [help] directory. Using search, you could find the
> names of the documents that contain the desired key words, then type or
> display the selected documents formatting the output however you want.
>
> To use a single text file (or multiple larger files with multiple
> subjects), you would need to build your own keyword index with pointers
> to tags/markers within the text. It seems to me that this would be more
> easily and efficiently done at a higher level rather than with just
> DCL. It's likely that there is already software developed that does
> this. I haven't looked.
Yes, it's called HELP, and it's on every VMS system.
> Maybe one of the freeware search engines could
> be adapted?
>
> BTW, is this really for a "help desk" where someone is providing
> support to "clients", or is it actually more just a reference tool?
>
--
David Froble Tel: 724-529-0450
Dave Froble Enterprises, Inc. E-Mail: davef@tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA 15486
|
|
0
|
|
|
|
Reply
|
davef3 (3419)
|
9/13/2006 11:45:22 PM
|
|
contracer11@gmail.com wrote:
>
> Jeff Cameron wrote:
> > On 9/12/06 10:16 PM, in article
> > 1158124566.792611.47050@e3g2000cwe.googlegroups.com, "contracer11@gmail.com"
> > <contracer11@gmail.com> wrote:
> >
> > > I'm looking for a VMS command procedure where I can store data and
> > > where I can find this
> > > data using a search command (like a help desk database).
> > > Is there any procedure already made ?
> > >
> > > Thanks.
> > >
> > I developed a set of command procedures that composed, emailed, saved and
> > searched SPR's (Software Problem Reports) for a software call desk. If you
> > are interested it will take a few days to dig up and send to you. I even
> > have a Word document on how to use it.
> >
> > Jeff Cameron
>
> I made a DCL command procedure where when I put a string to find
>
> it show me all string ocurrences, like this:
>
> $ search/win=(8,8) help.txt "``string`"
>
> but how could I make a procedure to show me all "string" ocurrences
>
> separated by a "====================" line ? Like this:
>
> $ @find sarbanes
>
> ==================================================
>
> To see Sarbanes laws read dka2:[documents]sarbanes.txt
>
> ==================================================
>
> Sarbanes-Oxley provides a complete cross-referenced index of SEC
> filers,
> audit firms, offices, CPAs, services, fees, compliance/enforcement
> actions
> and other critical disclosure information.
>
> ==================================================
>
> $
>
> Thanks !
following (rather dirty) code works for me:
Looks in one of two text files with paragraphs separated by blank lines.
-------------->start code>-----------------
$ ! L O O K U P . C O M
$ !-------------------------
$ ! Command procedure to run a (fairly) intelligent search
$ ! of text data files.
$ !
$ lookup_ver = f$verif(0)
$ line_len = f$getdvi( "SYS$OUTPUT:","DEVBUFSIZ" )
$ if line_len .gt. 132 then line_len = 132
$ if line_len .lt. 80
$ then
$ write sys$output ""
$ write sys$output "Terminal width is ''line_len' -"
$ write sys$output " Must be at least 80. Aborting."
$ write sys$output ""
$ exit (1 .or. f$verif(lookup_ver))
$ endif
$ line_len = line_len - 4
$!
$ quote_replace = "~~"
$ !
$ mess_stat = f$envir("MESSAGE")
$ if f$getdvi( "SYS$OUTPUT", "TRM" )
$ then
$ wrap_stat = f$getdvi("SYS$OUTPUT","TT_WRAP")
$ else
$ wrap_stat = "FALSE"
$ endif
$! if p2 .eqs. "DEBUG" then set verif
$ say := write sys$output
$ proc = f$envir("PROCEDURE")
$ proc = proc - f$parse(proc,,,"VERSION")
$ where = f$parse(proc,,,"DEVICE") + f$parse(proc,,,"DIRECTORY")
$ !
$ file = "''where'LOOKUP.DAT"
$ usr = f$edit( f$getjpi("","USERNAME"),"UPCASE,TRIM" )
$ file1 = "''where'''usr'_LOOKUP.DAT"
$ file_count = 0
$ brack = " )"
$ !
$ !
$! BOLD = "<B>"
$! NORMAL = "</B>"
$ ESC[0,8] = 27
$ BOLD = "''ESC'[1m"
$ if ( f$getdvi( "SYS$OUTPUT", "TRM" ) .and. -
f$getdvi("SYS$OUTPUT","TT_REGIS") ) -
then BOLD = "''ESC'[31m"
$ NORMAL = "''ESC'[0m"
$ !
$ check_file:
$ !
$ if f$sear("''file'") .eqs. ""
$ then
$ say "No ''file' found!"
$ if file_count .eq. 0
$ then
$ file = file1
$ file_count = file_count + 1
$ goto check_file
$ else
$ goto endit
$ endif
$ endif
$ !
$ on Control_Y then goto cont_Y
$ subj = p1
$ !
$ask:
$ !
$ if subj .eqs. ""
$ then
$ read/prompt="Lookup what >"/end=endit sys$command subj
$ goto ask
$ endif
$ !
$ if subj .eqs. "*"
$ then
$ def/user sys$input sys$command
$ cdt = f$file_attrib( "''file';","CDT" )
$ edt 'file'
$ new_cdt = f$file_attrib( "''file';","CDT" )
$ if (new_cdt .eqs. cdt) then exit
$ copy/contig 'file' 'file';
$ purge/keep=3 'file'
$ set messag'mess_stat'
$ if wrap_stat then set terminal/wrap
$ f_nam = f$parse(file,,,"NAME") + f$parse(file,,,"TYPE")
$ exit
$ endif
$ !
$ if subj .eqs. "+"
$ then
$ cdt = f$file_attrib( "''file1';","CDT" )
$ def/user sys$input sys$command
$ edt 'file1'
$ new_cdt = f$file_attrib( "''file';","CDT" )
$ if (new_cdt .nes. cdt) then -
copy/contig 'file1' 'file1';
$ purge/keep=2 'file1'
$ set messag'mess_stat'
$ if wrap_stat then set terminal/wrap
$! now = f$time()
$! now = f$element( 0,".",now )
$ exit
$ endif
$ !
$ !
$ if subj .eqs. ""
$ then
$ if wrap_stat then set terminal/wrap
$ exit
$ endif
$ !
$ count = 0
$ subj1 = f$edit(subj,"UPCASE")
$ !
$ start:
$ set terminal/nowrap
$ !
$ close/nolog lookup_data
$! say "Opening ''file'"
$ open/read/error=endit lookup_data 'file'
$! write sys$output "<PRE>"
$ !
$loop1:
$ line_count = 0
$ check_count = 0
$! quote_flag = "F"
$ !
$ loop2:
$ !
$ read/end=endit lookup_data line
$ UQ_test1 = ""
$ !
$ UQ_loop:
$ !
$ t = f$locate( """", line )
$ l = f$length(line)
$ if (t .ge. l) .or. (l .lt. 1)
$ then
$ ret_line = UQ_test1 + line
$ goto UQ_end_loop
$ endif
$ !
$! quote_flag = "T"
$ UQ_test1 = UQ_test1 + f$extra(0,t,line) + quote_replace
$ line = f$extra(t+1,99,line)
$ goto UQ_loop
$ !
$ UQ_end_loop:
$ line_count = line_count + 1
$ line_'line_count' = ret_line
$ if f$edit(ret_line,"COLLAPSE") .eqs. "" then goto check
$ !
$ goto loop2
$ !
$ check:
$ check_count = check_count + 1
$ test = line_'check_count'
$ if f$edit(test,"COLLAPSE") .eqs. "" then goto loop1
$ !
$ if f$locate("''subj1'",f$edit( "''test'","UPCASE" )) .lt.
f$length("''test'")
$ then
$ goto printit
$ endif
$ goto check
$ !
$ printit:
$ !
$ count = count + 1
$ add_len == 0
$ call bold_it "''line_1'" "''subj'"
$ x = line_len + add_len
$ pattern = "!2SL''brack'!''x'AS''NORMAL'"
$ call Fix3
$ write sys$output f$fao("''pattern'",count,r3)
$ print_count = 1
$ !
$ printit_loop:
$ !
$ add_len == 0
$ print_count = print_count + 1
$ if f$edit(line_'print_count',"COLLAPSE") .nes. ""
$ then
$ tmp = line_'print_count'
$ call bold_it "''tmp'" "''subj'"
$ x = line_len + add_len
$ pattern = " !''x'AS''NORMAL'"
$ call Fix3
$ write sys$output f$fao("''pattern'",r3)
$ goto printit_loop
$ endif
$ write sys$output " "
$ write sys$output " "
$! write sys$output "</PRE>"
$! write sys$output "<HR><BR>"
$! write sys$output "<PRE>"
$ goto loop1
$ !
$endit:
$ !
$ !
$ close/nolog lookup_data
$ if file_count .eq. 0
$ then
$ file_count = file_count + 1
$ file = file1
$ brack = "+)"
$ if f$sear("''file'") .nes. "" then goto start
$ endif
$ if count .eq. 0 then write sys$output "...''subj' not found...
$ set messag'mess_stat'
$ if wrap_stat then set terminal/wrap
$ set noon
$ add_len = 0
$ add_len == 0
$ dele/sym add_len
$ dele/sym/global add_len
$! if f$type(ret_line) .nes. "" then dele/sym/global ret_line
$! write sys$output "</PRE>"
$ exit (1 .or. f$verif(lookup_ver))
$cont_Y:
$ file_count = 99
$ goto endit
$!--------------------------------
$ !
$Bold_it: Subroutine
$ b_test1 = ""
$ b_test = "''p1'"
$ !
$ elem = f$edit(p2,"UPCASE")
$ elem1 = "''p2'"
$ l1 = f$leng(elem)
$ !
$ b_loop4:
$ !
$ if (f$locate(elem,f$edit(b_test,"UPCASE")) .ge. f$length(b_test)) -
.or. (f$length(b_test) .lt. 1)
$ then
$ b_test = b_test1 + b_test
$ goto b_end_loop4
$ endif
$ t = f$locate(elem,f$edit(b_test,"UPCASE"))
$ b_test1 = b_test1 + f$extra(0,t,b_test) + BOLD + -
f$extract(t,l1,b_test) + NORMAL
$ b_test = f$extra(t+l1,99,b_test)
$ add_len == add_len + f$len(BOLD) + f$len(NORMAL)
$ goto b_loop4
$ !
$ b_end_loop4:
$ !
$ r3 == "''b_test'"
$ exit
$ endSubroutine
$ !
$ !
$!
$Fix3: Subroutine
$ RQ_line = "''r3'"
$ RQ_1 = ""
$ RQ_2 = ""
$ RQ_3 = ""
$ RQ_4 = ""
$ RQ_5 = ""
$ i = 1
$ !
$ RQ_loop:
$ !
$ t = f$locate( "''quote_replace'", "''RQ_line'" )
$ l = f$length("''RQ_line'")
$ if (t .ge. l) .or. (l .lt. 1)
$ then
$ goto RQ_end_loop
$ endif
$ !
$ RQ_'i = f$extract( 0,t, "''RQ_line'" ) + """"
$ i = i+1
$ RQ_line = f$extract(t+2,99,"''RQ_line'" )
$!! sho sym RQ_*
$ goto RQ_loop
$ !
$ RQ_end_loop:
$!! sho sym RQ_*
$ r3 == RQ_1 + RQ_2 + RQ_3 + RQ_4 + RQ_5 + RQ_line
$ exit
$ endSubroutine
$!
-----------------<end code>--------------0
--
---------------------------------------------------------------------
Usual disclaimer: All opinions are mine alone, perhaps not even that.
Mike Rechtman *rechtman@tzora.co.il*
Kibbutz Tzor'a. Voice (home): 972-2-9908337
"20% of a job takes 80% of the time, the rest takes another 80%"
---------------------------------------------------------------------
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCM/CS d(-)pu s:+>:- a++ C++ U-- L-- W++ N++ K? w--- V+++$
PS+ PE-- t 5? X- tv-- b+ DI+ D-- G e++ h--- r+++ y+++@
------END GEEK CODE BLOCK------
|
|
0
|
|
|
|
Reply
|
michael.rechtman.nospam (102)
|
9/14/2006 8:31:26 AM
|
|
Hoff Hoffman escreveu:
> contracer11@gmail.com wrote:
> > I'm looking for a VMS command procedure where I can store data and
> > where I can find this data using a search command (like a help desk
> > database). Is there any procedure already made ?
>
> Hello Shiva,
>
> Please: Terse questions beget terse answers.
>
> Please back up about 500 to 1000 meters, and tell us what specific pro=
blem(s)
> you are trying to (re)solve here, what software you already have access t=
o (eg:
> databases, OpenVMS version(s) and platform(s), whether this is to be a wi=
ndowing
> system application or character cell or web-based servers, etc), what sca=
le of
> storage is likely involved and what scale of information might be include=
d, who
> the intended clients might be, and what the budget might be.
>
> On zero information and as a first and potentially wild guess, my first
> suggestions would be Bugzilla and/or a Wiki.
>
> Perl and PHP services and support tools -- stuff built on these langua=
ges and
> tools -- should arrive quite easily on OpenVMS, for instance, if there ar=
e not
> already packages available.
>
> At another interpretation of your (unfortunately terse) question, assu=
ming
> it's just you maintaining that's looking to maintain information for your=
self, a
> text file and the SEARCH command can be pressed into service -- I've cert=
ainly
> used this solution for myself, as have many other folks. The extreme and=
quaint
> and massively low-tech solution of a paper-based notebook also works. :-)
>
> And with some details and some background, I and others might well be =
able to
> tailor the answer.
>
> Thanks,
> Hoff
Thanks to all folks that answered my question.
Reading Mr. Doug Phillips answer gave me an insight,
and I create a procedure to search for documents (files), and
now I have what I want.
Thank you Mr. Mike Rechtman for your procedure.
I=B4ll study it.
Mr. Hoffman, please don=B4t answer my questions.
I don=B4t like your arrogance and prepotency.
I know that you are a Master from VMS, but you don=B4t
share your knowledgement, you only joke me.
I don=B4t need your comments.
Thanks.
|
|
0
|
|
|
|
Reply
|
contracer11 (156)
|
9/14/2006 1:14:39 PM
|
|
contracer11@gmail.com wrote:
> Mr. Hoffman, please don�t answer my questions.
> I don�t like your arrogance and prepotency.
That is not my intent.
> I know that you are a Master from VMS, but you don�t
> share your knowledgement, you only joke me.
Eh? No jokes were intended. (I try to highlight those that I do make, and I
generally only get myself in trouble with my humor.)
> I don�t need your comments.
Wikis work quite well for this sort of help desk support, and I would find
that a Wiki would be very useful for a help desk task -- particularly if there
are folks of varying experience and knowledge expertise areas, where folks can
search for, update, and collaborate on the contents. http://www.wikipedia.org/
being the benchmark site for this approach. And wikis (and wikimedia) almost
certainly can be gotten to work on OpenVMS, given that the underlying pieces are
available.
For various requirements, yes, SEARCH and some text files can and do work
just fine. Or Notes and a notes conference. And there are help desk packages
around.
(But if you intend to turn either help-desk folks or end-user folks loose in
a help desk environment, a number of the folks will most certainly already be
able to get up to speed quickly within a web interface and a Wiki, regardless of
the particular host system(s) and client(s). And the information in the Wiki
can move forward and can evolve and extend as needed -- very easily, and will
little or potentially no involvement of a central maintainer. And it can be
searched. Yes, it's a far "heavier-weight" solution than text files and SEARCH,
but not one without its own advantages.)
What you may not realize here and what you are seeing here is that it is
extremely difficult for me to understand your question sufficiently to (try to)
answer your question -- that's why I ask invariably for the background here, and
why I (try to) provide some suggestions and approaches. What is most certainly
entirely obvious to you here can be one of many potential questions that I could
foresee being asked and intended -- you might (incorrectly) seem to think your
questions are simple ones or ones with easy answers, but (likely entirely
unintentionally) you've had the uncanny ability of asking some of the most
difficult questions I've encountered.
But OK, I'll not post any (further) replies.
|
|
0
|
|
|
|
Reply
|
hoff-remove-this (566)
|
9/14/2006 3:58:41 PM
|
|
I think there may be a language barrier at work here. It appears that
contacer11's native language is Portuguese. When he says that you
"joke" him, I believe that he means to say that you "mock" him.
I know that this is not your intent, Hoff. You are just looking for
some background to the problem. However, it may that contacer11
interpreted your post as, "Your question is too short for me to answer,
so why don't you just create the Wikipedia, or maybe just write it down
in a book? Anybody can do that."
That is just my guess as to what may be going on here. I hope I do not
get burned by walking into a flame war. ;)
Hoff Hoffman wrote:
> contracer11@gmail.com wrote:
>
>> Mr. Hoffman, please don�t answer my questions.
>> I don�t like your arrogance and prepotency.
>
> That is not my intent.
>
>> I know that you are a Master from VMS, but you don�t
>> share your knowledgement, you only joke me.
>
> Eh? No jokes were intended. (I try to highlight those that I do
> make, and I generally only get myself in trouble with my humor.)
>
>> I don�t need your comments.
>
> Wikis work quite well for this sort of help desk support, and I would
> find that a Wiki would be very useful for a help desk task --
> particularly if there are folks of varying experience and knowledge
> expertise areas, where folks can search for, update, and collaborate on
> the contents. http://www.wikipedia.org/ being the benchmark site for
> this approach. And wikis (and wikimedia) almost certainly can be gotten
> to work on OpenVMS, given that the underlying pieces are available.
>
> For various requirements, yes, SEARCH and some text files can and do
> work just fine. Or Notes and a notes conference. And there are help
> desk packages around.
>
> (But if you intend to turn either help-desk folks or end-user folks
> loose in a help desk environment, a number of the folks will most
> certainly already be able to get up to speed quickly within a web
> interface and a Wiki, regardless of the particular host system(s) and
> client(s). And the information in the Wiki can move forward and can
> evolve and extend as needed -- very easily, and will little or
> potentially no involvement of a central maintainer. And it can be
> searched. Yes, it's a far "heavier-weight" solution than text files and
> SEARCH, but not one without its own advantages.)
>
> What you may not realize here and what you are seeing here is that it
> is extremely difficult for me to understand your question sufficiently
> to (try to) answer your question -- that's why I ask invariably for the
> background here, and why I (try to) provide some suggestions and
> approaches. What is most certainly entirely obvious to you here can be
> one of many potential questions that I could foresee being asked and
> intended -- you might (incorrectly) seem to think your questions are
> simple ones or ones with easy answers, but (likely entirely
> unintentionally) you've had the uncanny ability of asking some of the
> most difficult questions I've encountered.
>
> But OK, I'll not post any (further) replies.
>
>
>
>
>
|
|
0
|
|
|
|
Reply
|
apz (18)
|
9/14/2006 7:17:41 PM
|
|
Hoff Hoffman wrote:
> contracer11@gmail.com wrote:
>
>> Mr. Hoffman, please don�t answer my questions.
>> I don�t like your arrogance and prepotency.
>
> That is not my intent.
Regardless of anyone's intent, I just had to look-up that word. Now my
vocabulary has been enriched. :-)
--
David Froble Tel: 724-529-0450
Dave Froble Enterprises, Inc. E-Mail: davef@tsoft-inc.com
DFE Ultralights, Inc.
170 Grimplin Road
Vanderbilt, PA 15486
|
|
0
|
|
|
|
Reply
|
davef3 (3419)
|
9/14/2006 8:57:23 PM
|
|
contracer11@gmail.com wrote:
> Hoff Hoffman escreveu:
>
> > contracer11@gmail.com wrote:
> > > I'm looking for a VMS command procedure where I can store data and
> > > where I can find this data using a search command (like a help desk
> > > database). Is there any procedure already made ?
> >
> > Hello Shiva,
> >
> > Please: Terse questions beget terse answers.
> >
> > Please back up about 500 to 1000 meters, and tell us what specific p=
roblem(s)
> > you are trying to (re)solve here, what software you already have access=
to (eg:
> > databases, OpenVMS version(s) and platform(s), whether this is to be a =
windowing
> > system application or character cell or web-based servers, etc), what s=
cale of
> > storage is likely involved and what scale of information might be inclu=
ded, who
> > the intended clients might be, and what the budget might be.
> >
> > On zero information and as a first and potentially wild guess, my fi=
rst
> > suggestions would be Bugzilla and/or a Wiki.
> >
> > Perl and PHP services and support tools -- stuff built on these lang=
uages and
> > tools -- should arrive quite easily on OpenVMS, for instance, if there =
are not
> > already packages available.
> >
> > At another interpretation of your (unfortunately terse) question, as=
suming
> > it's just you maintaining that's looking to maintain information for yo=
urself, a
> > text file and the SEARCH command can be pressed into service -- I've ce=
rtainly
> > used this solution for myself, as have many other folks. The extreme a=
nd quaint
> > and massively low-tech solution of a paper-based notebook also works. =
:-)
> >
> > And with some details and some background, I and others might well b=
e able to
> > tailor the answer.
> >
> > Thanks,
> > Hoff
>
> Thanks to all folks that answered my question.
>
> Reading Mr. Doug Phillips answer gave me an insight,
> and I create a procedure to search for documents (files), and
> now I have what I want.
>
> Thank you Mr. Mike Rechtman for your procedure.
> I=B4ll study it.
>
> Mr. Hoffman, please don=B4t answer my questions.
> I don=B4t like your arrogance and prepotency.
> I know that you are a Master from VMS, but you don=B4t
> share your knowledgement, you only joke me.
> I don=B4t need your comments.
> Thanks.
Wow. "Prepotency" and "knowledgement" in adjacent sentences. I almost
didn't look up "prepotency", but it really is a word. (!!!)
I think Mr. Hoffman was actually quite politely saying, "Could you be a
little more vague?" &-)
|
|
0
|
|
|
|
Reply
|
spamsink2001 (3065)
|
9/14/2006 11:51:55 PM
|
|
Sarbanes-Oxley Tutorial.
What is Sarbanes-Oxley Act ?, Sarbanes Oxley Training, Sarbanes-Oxley
Overview, Sarbanes Oxley Sections 302,906,404, SOX Compliance 404
ineffective?
http://flying-rugs.com/sarbanes-oxley-compliance/
|
|
0
|
|
|
|
Reply
|
soatutorial (11)
|
9/18/2006 1:07:26 PM
|
|
|
19 Replies
40 Views
(page loaded in 0.275 seconds)
|