From: Jim Agnew [agnew@hsc.vcu.edu]
Sent: Tuesday, August 29, 2000 4:36 PM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: August 2000 edition of the OpenVMS FAQ

Way cool!!!! thanks!!!!

jim

Peter Weaver wrote:
> 
> Hoff Hoffman wrote in message
> <8oe2ck$93b$1@mailint03.im.hou.compaq.com>...
> >...
> >  I don't presently provide the HTML version of the FAQ -- the
> conversion
> >  work is underway.  After my next delivery of copious spare time, I
> will
> >  probably end up reformatting the FAQ into a document that can
> provide
> >  output in any of various formats -- though the "pagination" used
> for
> >...
> 
> I'm sure I've seen it done before, but I was a bit bored and looking
> for something to do (^%#$^& VMS systems keep running and running and
> running). Here is a little .COM that will read in the FAQ and create a
> HELP library. It assumes that the FAQ is in text files named
> PART1.TXT -> PART5.TXT. It does no error checking but it does run if
> everything is OK.
> 
> $! FAQ_TO_HELP.COM
> $!
> $ open output faq.hlp/write
> $!
> $ write output "1 VMS_FAQ"
> $ have_first = 0
> $!
> $ write sys$output "Processing Part 1"
> $ open input part1.txt/read
> $ gosub process_it
> $ write sys$output "Processing Part 2"
> $ open input part2.txt/read
> $ gosub process_it
> $ write sys$output "Processing Part 3"
> $ open input part3.txt/read
> $ gosub process_it
> $ write sys$output "Processing Part 4"
> $ open input part4.txt/read
> $ gosub process_it
> $ write sys$output "Processing Part 5"
> $ open input part5.txt/read
> $ gosub process_it
> $ goto finish
> $!
> $process_it:
> $!
> $ next_line = "  "
> $!
> $loop:
> $!
> $ read input inline/end=end_of_input
> $!
> $ if inline .eqs. -
>    "------------------------------------------------------------"
> $       then
> $               if have_first .eq. 0
> $                       then
> $                               write output "2 Topics"
> $                               have_first = 1
> $                       endif
> $!
> $               read input inline
> $               first_word = f$element(0,".",inline)
> $               length = f$length(first_word)
> $               if f$extract(length-1,1,first_word) .eqs. "1" then -
>                         if f$extract(length-2,1,first_word) .ges.
> "A" -
>                         then write output -
>                 "3 "+f$extract(0,length-1,first_word)
> $!
> $               write output "4 "+inline
> $       else
> $               if f$edit(inline,"COMPRESS,UPCASE") .eqs. -
>     "CHANGES SINCE LAST EDITION"
> $                       then
> $                               write output "2
> Changes_Since_Last_Edition"
> $                       else
> $                               if inline .eqs. "Overview"
> $                                       then
> $                                               write output "2
> Overview"
> $                                       else
> $                                               write output "
> "+inline
> $                                       endif
> $                       endif
> $       endif
> $!
> $ goto loop
> $!
> $end_of_input:
> $ close input
> $ return
> $!
> $finish:
> $ close output
> $!
> $ library/create/help faq faq
> $!
> 
> Here is what you get
> 
> $ help/libra=DKA100:[TEST.FAQ]FAQ vms
> 
> VMS_FAQ
> 
>     Archive-name: dec-faq/vms/part1
>     Posting-Frequency: monthly
>     Last-modified: 17 Aug 2000
>     Version: VMS-FAQ-1.TXT(4)
> 
>   Additional information available:
> 
>   Changes_Since_Last_Edition       Overview   Topics
> 
> VMS_FAQ Subtopic?