1 INFO-VAX	Tue, 02 Sep 2003	Volume 2003 : Issue 485       Contents:M Re: ??==Delete key only backspaces w/o delete from Telnet in Mac OSX Terminal P Re: ??==Delete key only backspaces w/o delete from Telnet in Mac OSX Terminal Te  Re: Cleaning up license database Re: Compaq BASIC's optimizer Re: Compaq BASIC's optimizer Re: Compaq BASIC's optimizer Datatrieve Manuals Re: HSZTERM  Re: OpenVMS Security Re: OpenVMS Security Re: OpenVMS Security Re: Serial console Re: Serial console  Re: Shadowing question: NOMASTER Re: Stop swimming upstream" Re: Switch Frm DECNet+ to Phase IV Re: The vmsnet hierarchy  F ----------------------------------------------------------------------  # Date: Mon, 01 Sep 2003 18:20:32 GMT % From: Bob Harris <harris@zk3.dec.com> V Subject: Re: ??==Delete key only backspaces w/o delete from Telnet in Mac OSX Terminal= Message-ID: <harris-58DB75.14203801092003@juggl7.zk3.dec.com>   B In article <aus-C0022C.09401001092003@wrzx08.rz.uni-wuerzburg.de>,0  "Hans M. Aus" <aus@vim.uni-wuerzburg.de> wrote:  4 > In article <300820031509409880%elliott@yrl.co.uk>,+ >  Elliott Roper <elliott@yrl.co.uk> wrote:  > ... I > > If you (original poster) are using terminal on Mac OS X, to telnet or J > > ssh to VMS, simply choose Window Settings..-> Emulation and make  sureK > > 'delete sends backspace' is unchecked. It then sends an octal 177, like ! > > a proper terminal should. [1]  > >  > K > Elliott, I tried your suggestion this (Monday) morning using the MacOS X  4 > Terminal with 'delete sends backspace' unchecked.  > < > With "telnet vmsbox-ip" the delete key works as it should. > H > HOWEVER, in order to have the German Umlauts display correctly on the # > terminal, I have to connect with:  >  > "telnet -8 vmsbox-ip"  > ; > Then the delete key apparently sends end of command line.  > :(  . I do not know if it will help, but try iTerm.  <http://iterm.sourceforge.net/>   2                                         Bob Harris   ------------------------------  # Date: Mon, 01 Sep 2003 18:19:34 GMT 1 From: Forrest Kenney <Forrest.Kenney@hp.com.doom> Y Subject: Re: ??==Delete key only backspaces w/o delete from Telnet in Mac OSX Terminal Te + Message-ID: <3F538D8D.DFB5F633@hp.com.doom>   M      On VMS the character that needs to be sent to delete a character is 0x7f  (DEL) .  Command line M recall and editing was added 0x8 (BS) was selected as the return to the start  of a line character.G Why CTRL-H I don't know its choice predates my involvement with the VMS  terminal driver.  L      I recently added a new attribute definition to the VMS terminal driver. The bit name is TT3$M_BSM when this attribute is set the terminal driver when it seed 0x8 changes it to  0x7f.  There are a couple ofM exceptions to this.  If the line is set to passall or pasthru, or a read with  IO$M_NOFILTR is set weJ do not remap it.  Additionally, if a user enters CTRL-V followed by CTRL-H twice we will treat N go to the start of the line.  We also do not remap the ESCAPE sequence sent by the F12 key.  G     Yes this will show up in a show terminal command and there is a set  terminal command to changeF it.  We are not going to enable this new behavior as the default.  But customers can make a site K policy decision to enable it by setting the bit in the new sysgen parameter 
 TTY_DEFCHAR3.   K      This work was not done for V7.3-2, at the point where the decision was  made to do this it wasM to late to check this into that release.  We will not be back porting this to  V7.3-2 or V7.3-1.    Forrest Kenney OpenVMS    ------------------------------  # Date: Tue, 02 Sep 2003 03:40:42 GMT 2 From: rdeininger@mindspring.com (Robert Deininger)) Subject: Re: Cleaning up license database L Message-ID: <rdeininger-0109032348390001@user-105n834.dialup.mindspring.com>  E In article <3f507e6b$0$250$cc9e4d1f@news.dial.pipex.com>, Tony Arnold  <tony.arnold@man.ac.uk> wrote:  K >I'm currently making use of the educational license programme from HP. The N >programme issues licenses that expire each year and so every year I request aJ >new set of licenses. The licenses come as a command procedure that I justO >execute which adds all the new license to the license database and, of course, L >leaves the old licenses their but they are terminated, so never get loaded.N >This is the third year I've done this, so I now currently have 3 licenses per% >product, 2 of which have terminated.  > L >What I would like to do is clean up the database, i.e., delete all licenses >that have terminated.    O Here is a command file I have used for several years.  It builds a command file E to DISABLE each terminated license.  Then you can DELETE the disabled I licences if you want.  I've used it successfully with Hobbyist, CSLG, and $ educational licenses over the years.   Hopefully this won't wrap...    DISABLE_TERMINATED_LICENSES.COM:  ' $! Title:   Disable Terminated Licenses  $ E $! Synopsis:   This command file disables all the terminated licenses 9 $!    in the active license database, which is defined by ' $!    the current value of LMF$LICENSE.  $  $! Parameters: None  $  $! Author:  Robert Deininger $! Created: January, 2001  $ # $! Version:     V2.1 (generation 3)  $ # $! Define some simple status codes.  $  $ lic__status  = %x10000000 % $ lic__success = lic__status + %x0001 % $ lic__ctrly   = lic__status + %x000C  $ ' $! Set up interrupt and error handlers.  $  $ status = lic__success " $ on control_y then goto control_y $ on warning then goto error $  $! Find subroutine library.  $ gosub jrddcl_init  $  $! Define some useful symbols. $ say = "write sys$output" $  $! The real work starts here.  $  $ tempfile1 = "terminated.lis;" ' $ tempfile2 = "disable_terminated.com;"  $ 1 $ current_ldb = f$search(f$trnlnm("lmf$license"))  $  $ type sys$input  =  Utility to DISABLE all the terminated licenses in the active   license database...    The active database is: $ say "   ",current_ldb  $ type sys$input  A  This utility makes many changes to the license database.  Do you =  want a backup copy of the database file saved before changes 
  are made? $10: $ on warning then goto 10 ; $ jrdcall ask lic__answer b "Save a backup copy?" "YES" U,S  $ on warning then goto error $  $ if lic__answer $ thenA $    current_ldb = current_ldb - f$parse(current_ldb,,,"version")  $    say "" ) $    copy/log 'current_ldb' 'current_ldb' 4 $    current_ldb = f$search(f$trnlnm("lmf$license")) $    say "" 5 $    say " The new highest version will be modified."  $ endif  $ ' $ say " Finding terminated licenses..."  $ % $! Get a list of terminated licenses. 8 $ license list/before/terminated/full/output='tempfile1' $ 5 $ say " Making a command file to disable licenses..."  $ # $! Open the input and output files. " $ open/read  tempfile1 'tempfile1'" $ open/write tempfile2 'tempfile2' $ + $ target_string = "-----------------------"  $main_loop:  $ gosub find_string  $ if input_string .nes. "" $ then9 $!   We have read the "header" line for a single license. H $!   Look for expected beginnings on the next 4 lines, and save the good $!   parts.  $  $    get_string = "Issuer:"  $    gosub get_string  $    if result_string .nes. ""	 $    then  $       issuer = result_string	 $    else  $       goto main_loop
 $    endif $ " $    get_string = "Authorization:" $    gosub get_string  $    if result_string .nes. ""	 $    then % $       authorization = result_string 	 $    else  $       goto main_loop
 $    endif $ ! $    get_string = "Product Name:"  $    gosub get_string  $    if result_string .nes. ""	 $    then $ $       product_name = result_string	 $    else  $       goto main_loop
 $    endif $  $    get_string = "Producer:"  $    gosub get_string  $    if result_string .nes. ""	 $    then   $       producer = result_string	 $    else  $       goto main_loop
 $    endif $ I $    ! We have the 4 important pieces of information we wanted.  Generate ! $    ! a LICENSE DISABLE command.  $    gosub write_command $  $    goto main_loop  $ endif  $ * $! We have processed the whole input file. $ close tempfile1  $ write tempfile2 "$ exit" $ close tempfile2  $  $20: $ on warning then goto 20 E $ jrdcall ask lic__answer b "Do you want to view the command file?" -               "YES" U,S $ on warning then goto error $  $ if lic__answer $ then $    type/page 'tempfile2' $ endif  $  $30: $ on warning then goto 30  $ jrdcall ask lic__answer b - N      "Do you want to execute these commands to modify the license database?" -      "" U,S  $ on warning then goto error $  $ if lic__answer $ then $    @'tempfile2'       type sys$input     Disabling is complete.     You may want to execute)    $ LICENSE DELETE */STATUS=DISABLED/LOG >  to completely remove all disabled licenses from the database. $  $ else $    say "" $ $    say " Modifications cancelled." $ endif  $  $ goto cleanup $  $CONTROL_Y:  $ status = lic__ctrly  $ goto cleanup $  $ERROR:  $ status = $status $ goto cleanup $ 	 $CLEANUP: J $ if f$search(tempfile1) .nes. "" then delete/nolog/noconfirm 'tempfile1'*J $ if f$search(tempfile2) .nes. "" then delete/nolog/noconfirm 'tempfile2'* $ M $ if f$type(lic__answer) .nes. "" then delete/symbol/global/nolog lic__answer  $  $ exit status .or. %x10000000  $ 
 $FIND_STRING: J $! This subroutine reads lines from tempfile1 until it obtains a line thatH $! begins with target_string.  It returns with input_string equal to theK $! entire input line, or the null string if the end of the file was reached  $! without finding the target. $  $find_loop: 5 $ read/end_of_file=end_of_file tempfile1 input_string 0 $ if f$locate(target_string,input_string) .eq. 0 $ then1 $    ! The current string begins with the target.  $    return ! (FIND_STRING)  $ else $    goto find_loop  $ endif  $ 
 $end_of_file:  $ input_string = ""  $ return ! (FIND_STRING) $  $GET_STRING:E $! This subroutine reads a line from tempfile1, checks that it starts E $! with get_string, and returns in result_string the last part of the C $! string.  The "last part" is the second element delimited by " ", 1 $! after the part matching get_string is removed.  $  $ read tempfile1 input_string - $ if f$locate(get_string,input_string) .eq. 0  $ then1 $    ! The current string begins with the target. : $    temp = f$edit((input_string - get_string),"compress")* $    result_string = f$element(1," ",temp) $  $ else; $    say "Unexpected line.  Expected ''get_string', found:" 
 $    say line  $    say ""  $  $    result_string = ""  $ endif  $  $ return ! (GET_STRING)  $  $WRITE_COMMAND: J $! This subroutine writes a single "license disable" command to tempfile2,H $! using the information in symbols PRODUCT_NAME, AUTHORIZATION, ISSUER, $! and PRODUCER. $ ; $ write tempfile2 "$ license disable/log ''product_name' -" 9 $ write tempfile2 "    /authorization=''authorization' -" + $ write tempfile2 "    /issuer=''issuer' -" - $ write tempfile2 "    /producer=''producer'"  $ write tempfile2 "$"  $  $ return ! (WRITE_COMMAND)) $!---------------------------------------  $ ? $! Title:   Initialize symbol pointing to main DCL library file  $  $! Synopsis:C $!   This routine attempts to define the symbol JRDCALL to point to E $!   my library of DCL routines.  The library is either in a standard J $!   file located via logical name JRD_JRDDCL (on my own systems/accounts)D $!   or appended to this file (for DCL utilities that I distribute).J $!   This routine rarely changes; it is convenient to append it to any DCL $!   file that uses JRDDCL.COM.  $! V1.0 (generation 1) $  $ 
 $JRDDCL_INIT:  $  $! Try the logical name first.& $ jrddcl_file = f$search("jrd_jrddcl")6 $ if jrddcl_file .eqs. "" then goto jrddcl_init_nofile $  $ jrdcall := @'jrddcl_file'  $ jrddcl_subroutine := $ call jrddcl_init_try $ if $status then return $  $JRDDCL_INIT_NOFILE: $ ) $! Look for JRDDCL routines in this file. # $ jrdcall := call jrddcl_call_entry ! $ jrddcl_subroutine := subroutine  $ call jrddcl_init_try $ if $status then return $  $JRDDCL_INIT_NOTFOUND: $ " $! Neither method worked, give up. $ delete/symbol jrdcall ! $ delete/symbol jrddcl_subroutine : $ write sys$output "Can't find JRDDCL subroutine library.": $ write sys$output "... define logical name JRD_JRDDCL or"5 $ write sys$output "... append library to this file."  $ exit $  $JRDDCL_INIT_TRY:  $ subroutine! $    on warning then exit $status  $    jrdcall test  $ endsubroutine  $  $ exit) $!---------------------------------------  $!   DCL subroutine library H $!      Modelled after the example in "Writing Real Programs in DCL, 2nd $!      Edition."  $!   V2.2 (generation 4) $  $ goto jrddcl_atsign_entry $ K $! CALL entry point used when this library is appended to another DCL file.  $JRDDCL_CALL_ENTRY: K $  jrddcl_subroutine  ! For CALL entry only, symbol substitution makes this / $                     ! a SUBROUTINE statement.  $ = $! @-sign entry used when this library is in a separate file.  $JRDDCL_ATSIGN_ENTRY:  $  $  jrddcl__status = %x10000000, $  jrddcl__success = jrddcl__status + %x00011 $  on control_y then exit jrddcl__status + %x0004 / $  on warning then exit $status .or. %x10000000  $  $  display = "write sys$output" $ $  if f$type(jrdcall) .nes. "STRING" $  then 0 $     jrdcall = "@" + f$environment("PROCEDURE") $  endif $  goto jrddcl_'p1'  $ 1 $! Title:   Test accessibility of the DCL library  $ F $! Synopsis:   This subroutine just returns a success status code.  ItD $!    is intended to allow calling routines to verify that they know $!    how to find the library. $  $! Parameters: $!    None.  $ 
 $JRDDCL_TEST:  $  $  exit jrddcl__success  $  $! Title:   Ask a Question $ C $! Synopsis:   This subroutine asks the user a question and returns : $!    the answer.  The prompt for the question is composed8 $!    of a query string and optionally a default answer. $  $! Parameters:0 $!    P2: A global symbol to receive the answer.5 $!    P3: The data type of the answer.  B for boolean 0 $!        (yes,no); I for integer; S for string.9 $!    P4: The query string for the question.  It must end 4 $!        with a punctuation character and no space.8 $!    P5: The default answer (optional; if not specified* $!        then an answer must be entered)., $!    P6: A comma-separated list of options:0 $!       H: Display help before asking question./ $!       S: Skip a line before asking question. $ $!       U: Upcase the input string.% $!       Z: Allow Ctrl/Z as an nswer. 7 $!    P7: The help specifier (optional).  It must be in 6 $!        in the form "procedure [parameter...]".  The7 $!        procedure is invoked with the @-sign command.  $  $JRDDCL_ASK: $ # $  signal = jrdcall + " signal ask" E $  if p3 .eqs. "B" .and. p5 .nes. "" .and. f$type(p5) .eqs. "INTEGER"  $       then% $     p5 = f$element(p5,"/","NO/YES")  $  endif $  if p5 .nes. ""  $  then * $     p4 = f$extract(0,f$len(p4)-1,p4) + -8            " [" + p5 + "]" + f$extract(f$len(p4)-1,1,p4) $  endif8 $  if f$locate("S",p6) .ne. f$length(p6) then display ""3 $  if f$locate("H",p6) .ne. f$length(p6) then @'p7'  $  $jrddcl_a10:; $  read sys$command/prompt="''p4' " input/end_of_file=a_eof $ $  if input .eqs. "" then input = p5! $  input = f$edit(input,"TRIM")    $  if input .eqs. "" $  then D $     signal w inputreq "Please enter a value; there is no default." $  else if input .eqs. "?" $  then  $     if p7 .nes. "" then @'p7' G $     if p7 .eqs. "" then display "There is no help for this question."  $  else  $     goto jrddcl_a_'p3' $jrddcl_a_B:$ $     input = f$edit(input,"UPCASE"), $     if f$locate(input,"YES") .eq. 0 .or. -$          f$locate(input,"NO") .eq. 0
 $     then $        input = input .and. 1 $        goto jrddcl_a19
 $     else5 $        signal w yesnoreq "Please answer YES or NO."  $     endif  $     goto jrddcl_a15  $  $jrddcl_a_I:& $     if f$type(input) .eqs. "INTEGER"
 $     then! $        input = f$integer(input)  $        goto jrddcl_a19
 $     else8 $        signal w intreq "The input must be an integer." $     endif  $     goto jrddcl_a15  $  $jrddcl_a_S:+ $     if f$locate("U",p6) .ne. f$length(p6) 
 $     then' $        input = f$edit(input,"UPCASE")  $     endif  $     goto jrddcl_a19  $jrddcl_a15: $  endif $  endif $  goto jrddcl_a10 $jrddcl_a_eof: $  input = "^Z" = $  if f$locate("Z",p6) .ne. f$length(p6) then goto jrddcl_a19 ; $  signal i invctrlz "End-of-file is not a valid response."  $  goto jrddcl_a10 $jrddcl_a19: $  'p2' == input $  exit jrddcl__success  $ 4 $! Title:   Signal an Informational or Error Message $ A $! Synopsis:   This subroutine "signals" a message, producing one ; $!    or more message lines in the standard OpenVMS format. 8 $!    It also exits with a status whose severity matches $!    that of the message. $  $! Parameters:$ $!    P2: The message facility code.3 $!    P3: The message serverity (S, I, W, E, or F). % $!    P4: The message identification.  $!    P5: The message text. 6 $!    Pn: Optional message lines or status codes whose9 $!        corresponding message lines are to me included.  $ ; $! Status:  The severity of the exit status is equal to the 7 $!    message severity, except in the case of warnings. 4 $!    If the message severity is W, an informational4 $!    severity is included in the status so that the, $!    caller's error handler is not invoked. $  $JRDDCL_SIGNAL:  $ , $  prefix = f$fao("%!AS-!AS-!AS, ",p2,p3,p4) $  i = 4 $jrddcl_s10: $     i = i + 1 & $     if i .gt. 8 then goto jrddcl_s19+ $     if p'i' .eqs. "" then goto jrddcl_s19  $     text = p'i' % $     if f$type(text) .eqs. "INTEGER" 
 $     then $        text = f$message(text)  $     endif < $     if f$ext(0,1,text) .nes. "%" then text = prefix + text( $     if i .gt. 5 then text [0,1] := "-" $     display text $     goto jrddcl_s10  $jrddcl_s19:  $  if p3 .eqs. "W" then p3 = "I"- $  exit jrddcl__status + f$locate(p3,"WSEIF")  $  $! Title:   Display a Message  $ ? $! Synopsis:   This subroutine outputs a message, producing one ; $!    or more message lines in the standard OpenVMS format. ; $!    It exits with an informational status so the caller's # $!    error handler is not invoked.  $  $! Parameters:$ $!    P2: The message facility code.3 $!    P3: The message serverity (S, I, W, E, or F). % $!    P4: The message identification.  $!    P5: The message text. 6 $!    Pn: Optional message lines or status codes whose9 $!        corresponding message lines are to me included.  $ > $! Status:  Always success.  The caller's error handler is not $!    invoked. $  $JRDDCL_MESSAGE: $ , $  prefix = f$fao("%!AS-!AS-!AS, ",p2,p3,p4) $  i = 4 $jrddcl_m10: $     i = i + 1 & $     if i .gt. 8 then goto jrddcl_m19+ $     if p'i' .eqs. "" then goto jrddcl_m19  $     text = p'i' % $     if f$type(text) .eqs. "INTEGER" 
 $     then $        text = f$message(text)  $     endif < $     if f$ext(0,1,text) .nes. "%" then text = prefix + text( $     if i .gt. 5 then text [0,1] := "-" $     display text $     goto jrddcl_m10  $jrddcl_m19: $  p3 = "I" - $  exit jrddcl__status + f$locate(p3,"WSEIF")    ------------------------------  # Date: Mon, 01 Sep 2003 18:37:09 GMT 0 From: Randy Park <rjpark@mindspring.nospaam.com>% Subject: Re: Compaq BASIC's optimizer 8 Message-ID: <q937lvc8q9ephkh10hja63m52pugr5vl3v@4ax.com>  ; In reading the Dec Basic 1.1 reference manual regarding the : select statement, remark number 8, I don't think that what@ was coded will generate an error.  It says:  "If ranges overlap,6 the first match causes BASIC to execute the statements in the CASE block."   8 I would conclude that what the original programmer wrote8 was probably a coding error, it was not a error from the6 viewpoint of the compiler.  When you consider that the3 CASE value can be an expression, rather than just a 8 literal, you will readily see that the compiler will not. check to make sure that each CASE value is not" overlapping or mutually exclusive.  F On Mon, 1 Sep 2003 12:38:30 -0400, "Neil Rieck" <n.rieck@sympatico.ca> wrote:   >Folks,  > G >While renovating some older programs written by a colleague I stumbled G >onto some strange case statements (line 2000) that didn't generate any F >complier warnings. I rewrote the case statements into equivalent codeG >using if-then statements (line 3000) which didn't produce any complier  >warnings either.  > ; >(ps. the code at line 4000 does produce compiler warnings)  > E >Did Compaq's BASIC optimizer ever detect these coding errors or am I  >imagining that it once did? >  >Neil Rieck  >Kitchener/Waterloo/Cambridge, >Ontario, Canada. " >http://www3.sympatico.ca/n.rieck/ >  >  >1000 ) >        ! complier: Alpha BASIC V1.5-000 9 >        ! switches: /warn=all/optim=level=4/list/machine  >        option type=explicit  >        set no prompt >        declare long a%2 >        input "enter a number? (range: 1-3) "; a%
 >        ! >2000  >        print "case test" >        select a% >            case >=2% >                print ">=2" >            case <=2% >                print "<=2" >            case =2%  >                print "=2(a)" >            case =2%  >                print "=2(b)" >        end select 
 >        ! >3000  >        print "if test" >        if a% >=2% then >                print ">=2") >                goto simulate_end_select  >        end if  >        if a% <=2% then >                print "<=2") >                goto simulate_end_select  >        end if  >        if a% = 2% then >                print "=2(a)") >                goto simulate_end_select  >        end if  >        if a% = 2% then >                print "=2(b)" >        end if  >        simulate_end_select: 
 >        ! >4000  >        if 1=0 then# >                print "do nothing"  >        end if 
 >        ! >        end >  >  >  >  >    ------------------------------  $ Date: Mon, 1 Sep 2003 17:44:59 -0400) From: "Neil Rieck" <n.rieck@sympatico.ca> % Subject: Re: Compaq BASIC's optimizer 9 Message-ID: <u5P4b.3429$Sq5.110080@news20.bellglobal.com>   = "Randy Park" <rjpark@mindspring.nospaam.com> wrote in message 2 news:q937lvc8q9ephkh10hja63m52pugr5vl3v@4ax.com...= > In reading the Dec Basic 1.1 reference manual regarding the < > select statement, remark number 8, I don't think that whatB > was coded will generate an error.  It says:  "If ranges overlap,8 > the first match causes BASIC to execute the statements > in the CASE block."  > : > I would conclude that what the original programmer wrote: > was probably a coding error, it was not a error from the8 > viewpoint of the compiler.  When you consider that the5 > CASE value can be an expression, rather than just a : > literal, you will readily see that the compiler will not0 > check to make sure that each CASE value is not$ > overlapping or mutually exclusive. >   L When we moved from VAX to Alpha I saw interesting things appear in the AlphaM version of the complier (like the warning that is generated when the complier N encounters line 4000) and I was some how under the impression that setting theI optimization level to 4 would detect certain programmer errors like those K encounter at lines 2000 and 3000. On the other hand I may be confusing this - complier with a product from another company.   L Also, for a while there I was under the impression that Compaq was trying toH improve the efficiency of their compilers to make their Alphas look moreG desirable than machines sold by the competition (this is not a bad idea 0 anyway). Why build code that will never be used?    
 Neil Rieck Kitchener/Waterloo/Cambridge,  Ontario, Canada.! http://www3.sympatico.ca/n.rieck/    ------------------------------  # Date: Tue, 02 Sep 2003 05:05:47 GMT 0 From: Randy Park <rjpark@mindspring.nospaam.com>% Subject: Re: Compaq BASIC's optimizer 8 Message-ID: <oi88lv4n3ihsrf32089fv7mcnejsv93gh3@4ax.com>  F On Mon, 1 Sep 2003 17:44:59 -0400, "Neil Rieck" <n.rieck@sympatico.ca> wrote:   > > >"Randy Park" <rjpark@mindspring.nospaam.com> wrote in message3 >news:q937lvc8q9ephkh10hja63m52pugr5vl3v@4ax.com... > >> In reading the Dec Basic 1.1 reference manual regarding the= >> select statement, remark number 8, I don't think that what C >> was coded will generate an error.  It says:  "If ranges overlap, 9 >> the first match causes BASIC to execute the statements  >> in the CASE block." >>; >> I would conclude that what the original programmer wrote ; >> was probably a coding error, it was not a error from the 9 >> viewpoint of the compiler.  When you consider that the 6 >> CASE value can be an expression, rather than just a; >> literal, you will readily see that the compiler will not 1 >> check to make sure that each CASE value is not % >> overlapping or mutually exclusive.  >> > M >When we moved from VAX to Alpha I saw interesting things appear in the Alpha N >version of the complier (like the warning that is generated when the complierO >encounters line 4000) and I was some how under the impression that setting the J >optimization level to 4 would detect certain programmer errors like thoseL >encounter at lines 2000 and 3000. On the other hand I may be confusing this. >complier with a product from another company. > M >Also, for a while there I was under the impression that Compaq was trying to I >improve the efficiency of their compilers to make their Alphas look more H >desirable than machines sold by the competition (this is not a bad idea1 >anyway). Why build code that will never be used?  >  >  >Neil Rieck  >Kitchener/Waterloo/Cambridge, >Ontario, Canada. " >http://www3.sympatico.ca/n.rieck/ >   ; Some of the differences between the Vax Basic and Dec Basic 9 compilers are due to the fact that many/most of the Alpha 7 compilers use the same code generator.  This Alpha code > generator is more highly engineered than the typical one foundD on the Vax. Therefore some programming logic errors will get caught < on Alpha that won't get caught on Vax, particularly like the/ one caught on line 4000 of your sample program.   > Is it possible that in your original piece of code, that while4 the code was being developed or modified that in the: text editor the programmer accidently hit the paste button twice?    = I think that optimization levels primarily concern themselves 7 with final execution time.  In my software I found that 9 early versions of the compiler with optimize = 4 produced 8 code that didn't run correctly.  Later versions produced5 better code, but the difference in performance wasn't 6 worth the potential for wrong results.  That's just my opinion.  @ I agree that it would be nice if all compilers could detect, and6 warn, all cases where a section of code could never be: executed. I suppose it's a bit difficult to anticipate all possible situations.   ------------------------------  % Date: Mon, 01 Sep 2003 19:11:02 -0500 " From: MikeWJ <mjenkins//mfire.com> Subject: Datatrieve Manuals 8 Message-ID: <tvn7lvoq3k2i1iqlpvt72cjgsdjsbiv34c@4ax.com>  5 I'm looking for a complete set of datatrieve manuals.   G I had a set but it was misplaced or borrowed and now have need of them.   ( Anyone needing to lighten their library?   I'm in the St. Louis, MO area.   Mike Jenkins VMS System Manager   ------------------------------  % Date: Mon, 01 Sep 2003 15:11:06 -0500 1 From: "David J. Dachtera" <djesys.nospam@fsi.net>  Subject: Re: HSZTERM' Message-ID: <3F53A7DA.B36544AB@fsi.net>    Dirk Munk wrote: >  > David J. Dachtera wrote: > > Jan-Erik Sderholm wrote:  > >  > >>Hi. ? > >>I'v been looking around the HP/VMS site to locate a copy of - > >>HSZTERM (aka SCSIPAD), but can't find it.  > >>H > >>(The kit that enables the SET HOST/SCSI interface to HSZ controlers) > >>/ > >>Anybody know what has happend to this kit ?  > >>Or where I can find it ? > >  > > J > > Look for hszterm.zip at http://www.djesys.com/freeware/vms/hszterm.zip > > - > > DJAS01::DDACHTERA$ unzip/test hszterm.zip + > > Archive:  DKA0:[DDACHTERA]HSZTERM.ZIP;1 , > >     testing: hszterm010.a             OK, > >     testing: hszterm010.b             OK, > >     testing: hszterm010.c             OK, > >     testing: vms71_hszterm.com        OKK > > No errors detected in compressed data of DKA0:[DDACHTERA]HSZTERM.ZIP;1.  > > , > > (Hoff: Can this go on the freeware CDs?) > >  > Q > Hoff can answer for himself of course, but it would be a bit odd if it would go H > on the freeware CDs. VMS engineering has warned that it may cause data$ > corruption (and we have seen that)  % Were you also using SWCC at the time?   G SWCC is not recommended, IMO. It doesn't do anything that can't be done @ better using the CLI. Using HSZTERM and SWCC at the same time is definitely not recommendable.   - >, and distributing software that is known to 2 > cause data corruption is hardly sensible policy.   Depends upon the circumstances.   P > And let's not forget that HP has Storageworks Command Scripter as replacement.' > (obviously it is not for free ......)   0 ...but does not provide identical functionality.   --   David J. Dachtera  dba DJE Systems  http://www.djesys.com/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/    ------------------------------  % Date: Mon, 01 Sep 2003 18:22:54 +0100 O From: Andrew Harrison SUNUK Consultancy <Andrew_No.Harrison_No@nospamn.sun.com>  Subject: Re: OpenVMS Security 0 Message-ID: <bivv9e$7lc$1@new-usenet.uk.sun.com>   Larry Kilgallen wrote: > In article <bincje$97r$1@new-usenet.uk.sun.com>, Andrew Harrison SUNUK Consultancy <Andrew_No.Harrison_No@nospamn.sun.com> writes: >  > ? >>Having the ability to connect to the network is a rather more E >>fundamental for most customers than being able to develop software.  >  > L > So will Solaris out-of-the-box be able to connect to my internal network ? > * > Using which of the two protocol suites ? >  > Hint: Beware of assumptions.  @ I don't know you could be running IP you could be running DECnet) you could be using kermit for all I know.   : Does it matter ? Well I guess it does to you but 99.99% of: the time the protocol suite that anyone else will be using& or at least will have available is IP.   Regards  Andrew Harrison    ------------------------------   Date: 1 Sep 2003 11:31:20 -0700 ( From: bob@instantwhip.com (Bob Ceculski) Subject: Re: OpenVMS Security < Message-ID: <d7791aa1.0309011031.f481a78@posting.google.com>  h Kilgallen@SpamCop.net (Larry Kilgallen) wrote in message news:<+TWTwkoIMjjU@eisner.encompasserve.org>... > In article <biv6eh$rnn$1@new-usenet.uk.sun.com>, Andrew Harrison SUNUK Consultancy <Andrew_No.Harrison_No@nospamn.sun.com> writes: > G > > UCX was Digitals IP stack for OpenVMS. UCX was vunerable to various D > > CERT exploits, so where would you expect OpenVMS admins managingE > > systems using UCX go to get reliable responses to CERT advisories  > > for UCX on OpenVMS ? > D > At the time, those IP-connected systems using UCX may have been in/ > the minority.  Multinet was _very_ prominent.    and TCPware also ...   ------------------------------  % Date: Mon, 01 Sep 2003 23:08:02 +0200  From: Dirk Munk <munk@home.nl> Subject: Re: OpenVMS Security 2 Message-ID: <bj0cjh$vip$1@news2.tilbu1.nb.home.nl>  ( Andrew Harrison SUNUK Consultancy wrote: > Dirk Munk wrote: >    >>> Hardly.  >>> A >>> Having the ability to connect to the network is a rather more G >>> fundamental for most customers than being able to develop software.  >>> D >>> Almost all customers need networking a smaller subset need to be >>> able to develop software.  >> >> >>J >> You are absolutely right Andrew, however it seems you define 'network' H >> as TCP/IP (like many others who have never seen or heard of anything 	 >> else).  >> >  > F > There are apparently 400,000 installed VMS/OpenVMS systems worldwideF > Including mobile phones supporting IP there are probably 200 million > plus devices that support IP.  > D > What ever you may think about the technical merits of IP it is theA > defacto network standard and to suggest as you go on to do that = > DECnet would at this point be a better option is laughable.   N That depends which kind of networking we are talking about. Within a pure VMS P surrounding you can happily live without IP, as we did for a long time.  Within O a IBM surrounding you can live with just SNA. I only use IP to talk to non-VMS  K systems, or I use the IP stack for DECnet over IP to copy sofware over the  8 Internet from one of the contributors of this newsgroup.   > A > I don't think IP when I think networking SNA, DECnet, OSLAN etc > > are all network protocols. But if you want to connect almost1 > anything to almost anything else then it is IP.e >  >  > I >> I had been using DECnet for many years before I first used TCP/IP. At zB >> the time I was shocked to find how primitive TCP/IP looked and ! >> functioned compared to DECnet.  >> > C > This may or may not be true but isn't relevant to the discussion.  > E >> DECnet is native to VMS, in fact a full file specification in VMS h >> looks like this: E >> decnet-node::disk:[directory]file-name.file-extension;file-versiono >>2 >> example: myhost::$1$DKA300:[mydir]file.dat;2354 >>F >> A VMS system can in principle use (read/write/update) files on any J >> other VMS system, like it is a file on the system itself, without (!!) H >> any special network programming. In fact it can do that with certain C >> other operating systems as well using DECnet. Try that with IP !t >>C >> Or those default gateway problems. DECnet was always capable of r? >> finding its own routers, and only lately IP can do that too.t >>A >> I used DECnet on my VMS workstation to do background software wJ >> distributions between McIntosh workstations long before Apple could do  >> that with Appletalk.c >> >> How you may ask?p >>) >> Simple: copy MAC001::file MAC002::fileI >> >  > Also not relevant.  P The point I'm trying to make is that IP never was that important for VMS users. M They had more and better functionality with their native protocol(s). IP was OP just another add-on to their network stacks, just like Appletalk, SNA and other , protocols we could and still can run on VMS.  K So VMS users had a very rich networking environment without IP, and "their (Q fundamental ability to connect to a network" could be fulfilled without the need   for TCP/IP as you claim.   > G >> If you want to try DECnet yourself, please do so. There is a DECnet  E >> phase IV and  OSI stack for Solaris, please look in your software m
 >> catalogue.: >> > 9 > I have, I used to install it for customers who requirede > DECnet connectivity. > ? > A decade ago this was quite common now its almost unheard of.e > 5 > Almost all customers have standardised on IP mainlya> > because for the last decade all the systems they have bought= > with the possible exception of OpenVMS have included IP andn= > it doesn't make any sense to force the vast majority to payn; > to be able to talk to a tiny minory (OpenVMS) of systems.n  M I did not claim that either. And in case you are interested, VMS is now sold tP with a TCP/IP license included as well. But you don't have to install or run it  if you have no need for it.    > A > In fact it would ensure that the tiny minority becomes a tiniere9 > minority something that I am sure you don't want thougho= > it would be the inevitable consequence of the direction youl > appear to be advocating.  P Well I'm sure that in 25 years or so the TCP/IP community will have found a way O to get the functionality that OSI or its Digital implementation DECnet Phase V nK set out to reach more then 10 years ago. Small unimportant subjects like a  N sufficient addressing range (160 bits of DECnet/OSI versus 32 bits for IPv4), Q automatic conversion of data up to the application layer etc. And I do know that cL sometime in the future IPv6 will be widely implemented, and that it has 128 4 addressing. It is also included in the VMS IP stack.    ( Oh yes, and to end with this nice story.N Last week one of my collegues had a meeting with SUN reps about nice subjects O like SUN clustering, and what the next versions of Soloris would have to offer gQ on this subject. She had a hard time not to burst out in laughing when she heard eO of all the beautifull prospects on features in future versions of Solaris that .5 were implemented in VMS some 15? or 20? years ago....n   Regards,	 Dirk Munko   ------------------------------  # Date: Mon, 01 Sep 2003 17:52:52 GMT 1 From: Forrest Kenney <Forrest.Kenney@hp.com.doom>s Subject: Re: Serial consolet+ Message-ID: <3F53874B.7420F3CD@hp.com.doom>i  #     A couple of items covered here.o  G 1) For the serial console VMS does not pay any attention to the consolet environment variables.G     You can set any way you want and VMS will do what it wants with thet line.w  F 2) On most but not all the Alpha work stations the port labled COM1 is either OPA0: or TTB0:.H     The port is OPA0 if the system has a serial console and TTB0 if not. The port COM2 is alwayssL     TTA0.  The platform support code goes to great pain to make it that way.      H     So for your example you want to do set host/dte TTA0 from the V7.3-1 system.d       Forrest Kenney OpenVMSr   ------------------------------  * Date: Mon, 1 Sep 2003 22:22:51 +0000 (UTC)7 From: moroney@world.std.spaamtrap.com (Michael Moroney)i Subject: Re: Serial consoleh( Message-ID: <bj0grr$dr6$1@pcls4.std.com>  3 Forrest Kenney <Forrest.Kenney@hp.com.doom> writes:r    G >2) On most but not all the Alpha work stations the port labled COM1 isD >either OPA0: or TTB0:.uI >    The port is OPA0 if the system has a serial console and TTB0 if not.m >The port COM2 is alwaysM >    TTA0.  The platform support code goes to great pain to make it that way.y  > And I still managed to confuse it.  I put in a PCI modem in myJ alphastation and *it* showed up as TTA0: (the other ports TTB0: and TTC0:,H don't know which was which)  Even now with the PCI modem removed and itsF entry still present but disabled, the other ports are TTB0: and TTC0:, no TTA0: at all.   $ sh dev _tt  . Device                  Device           Error.  Name                   Status           Count. TTB0:                   Online               0. TTC0:                   Online               0 $n   -- c -Miken   ------------------------------  # Date: Tue, 02 Sep 2003 00:26:04 GMT  From: Rob.Buxton@wcc.govt.nz) Subject: Re: Shadowing question: NOMASTERh$ Message-ID: <3f53e166.79789171@news>  F On Mon, 01 Sep 2003 12:34:51 -0000, Z  <zarlenga@conan.ids.net> wrote:  3 >Keith Parris <keithparris_NOSPAM@yahoo.com> wrote: H >: It might be helpful if you describe what you're trying to accomplish,I >: the exact sequence of operations you're doing, what you're expecing to"$ >: happen, and what happens instead. >c= >There are two servers in the cluster. The shadow set is madem> >up of two members: let's call them 1 and 2.  The disks in the) >shadow reside in a disk array enclosure.  >iD >Server 1 can only see member 1 of the shadow when server 2 is down. > D >Server 2 can only see member 2 of the shadow when server 1 is down. >a? >I want to be able to boot the servers in either order and onlyuE >one at a time, and still have access to the shadow set, even it it'st+ >created with only one member at boot time.- >-D >When I boot server 2 (while server 1 is down), I get what I expect:B >a 1-member shadow with just the member that it sees when server 1	 >is down.e > B >When I boot server 1 (while server 2 is down), I get the NOMASTERC >error on the Mount/Cluster/Shadow command and all the files on thesB >shadow are inaccessible, including the UAF, disabling all logins.  F As others have posted this is nothing to do with what files are on theF disk. And from your additional posting it is clear it is nothing to do with shadow merges or copying.  @ From what I can determine from the description you cannot safely achieve what you want to do.  A For Volume Shadowing to work seemlessly the individual shadow set E volumes need to be available to both Servers. This is usually done by ; connecting HS Type Storage Controllers to multiple Servers.o  ? In your case the Disk is effectively locally attached. When you A shutdown Server 1 you are dissolving the Shadow Set. Server 2 canoD continue to update the now single volume Shadow Set. This is now theF Master Volume. If you shutdown Server 2 and then boot Server 1 it onlyF has access to the older volume. Volume Shadowing knows this volume wasD dismounted from the Shadow Set. It knows the data is possibly out of date.e  E You can force it to mount the new shadow set, but any updates done by * Server 2 to the other member will be lost.   ------------------------------  # Date: Tue, 02 Sep 2003 03:41:47 GMT 2 From: rdeininger@mindspring.com (Robert Deininger)# Subject: Re: Stop swimming upstreamtL Message-ID: <rdeininger-0109032349480001@user-105n834.dialup.mindspring.com>  G In article <biq5qc$c4p5b$2@ID-152801.news.uni-berlin.de>, Michael Ungert <unger@decus.de> wrote:l  . >On 30-Aug-2003 14:02, Robert Deininger wrote: >$ >> [...] >> bL >> The controller in the LK463 knows both USB and PS2.  It detects what kindK >> of port it's connected to and send the right signals.  The cable is USB, @ >> but it comes with a dongle that converts the USB plug to PS2. >>  L >> I've used the LK463 on a DS10 alphastation running VMS and DECwindows and9 >                      ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^EM >> everything just worked.  Tried it briefly on an Apple Powerbook running OS1J >> X.something.  The system recognized the keyboard, but I didn't take theM >> time to figure out the keyboard-definition stuff in OS X.  The LK463 worksaL >> on PeeCees too, but applications often assume the keyboard is the regular) >> PC layout and ignore any "extra" keys.t >sA >VMS supports the USB port(s) on a DS10? I can't find USB supportsF >mentioned in the latest DS10 "QuickSpecs" (DA-10908, Version 23, July >31), not even for Tru64.!   Most certainly NOT!r  - I use the LK463 with the dongle, in PS2 mode._   ------------------------------  $ Date: Mon, 1 Sep 2003 21:03:08 -0400) From: "Neil Rieck" <n.rieck@sympatico.ca>i+ Subject: Re: Switch Frm DECNet+ to Phase IVI8 Message-ID: <h%R4b.6800$Kj.409876@news20.bellglobal.com>  D "Michael Moroney" <moroney@world.std.spaamtrpa.com> wrote in message" news:biqgok$are$1@pcls4.std.com...) > Bart.Zorn@xs4all.nl (Bart Zorn) writes:t >e [...snip...] >uG > DECnet IV is routable just fine, HOWEVER, I do not think Alphas couldsE > ever be anything other than end nodes.  So you'll need either a VAXsH > of some sort, or one of the Cisco/modified DECserver/whatever boxes to > actually do so.) > -- > -Miken  K As the TYPE parameter below indicates, I've got an AlphaServer-DS20 running_N DECnet IV as a ROUTER. Is there some strange routing feature that you couldn'tF get working on an Alpha that would cause you to make such a statement?  
 Neil Rieck Kitchener/Waterloo/Cambridge,_ Ontario, Canada.! http://www3.sympatico.ca/n.rieck/ 8 http://www3.sympatico.ca/n.rieck/links/cool_openvms.html  	 * * * * *l   NCP>sho exec chare  8 Node Volatile Characteristics as of  1-SEP-2003 20:57:38   Executor node = 14.950 (KAWC15)   6 Identification           = DECnet for OpenVMS AXP V7.3! Management version       = V4.0.0h Incoming timer           = 45  Outgoing timer           = 60'" Incoming Proxy           = Enabled" Outgoing Proxy           = Enabled! NSP version              = V4.1.0_ Maximum links            = 32- Delay factor             = 80t Delay weight             = 5 Inactivity timer         = 60  Retransmit factor        = 10n! Routing version          = V2.0.0C1 Type                     = routing IV   <<<---***  Routing timer            = 600 Broadcast routing timer  = 180 Maximum address          = 1023s Maximum circuits         = 16d Maximum cost             = 1022t Maximum hops             = 30o Maximum visits           = 63v Maximum area             = 63  Max broadcast nonrouters = 64  Max broadcast routers    = 32  Maximum path splits      = 1 Area maximum cost        = 1022f Area maximum hops        = 30  Maximum buffers          = 100 Buffer size              = 576! Nonprivileged user id    = DECNETb$ Nonprivileged password   = BERVILTED0 Default access           = incoming and outgoing Pipeline quota           = 4032n Alias maximum links      = 32 ! Path split policy        = Normalt Maximum Declared Objects = 31c   NCP>   ------------------------------  % Date: Mon, 01 Sep 2003 15:25:37 -0500t1 From: "David J. Dachtera" <djesys.nospam@fsi.net>e! Subject: Re: The vmsnet hierarchyr' Message-ID: <3F53AB41.EF70C0C2@fsi.net>i   Javier Henderson wrote:u > - > Tony Arnold <tony.arnold@man.ac.uk> writes:t > S > > If they are not being used for their intended purpose, there is little point inuR > > having them, IMHO. IS there a way to remove them all together, i.e., from news > > servers? > = > [snip] so I'll at least start by not propagating the vmsnet 	 > groups.e  E Any chance you can filter the multinet group out and ignore the rest?t  , The multinet group is still somewhat active.   -- i David J. DachteraL dba DJE Systemsd http://www.djesys.com/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/o   ------------------------------   End of INFO-VAX 2003.485 ************************tatement.  $ = $! @-sign entry used when this library is in a separate file.  $JRDDCL_ATSIGN_ENTRY:  $  $  jrddcl__status = %x10000000, $  jrddcl__success = jrddcl__status + %x00011 $  on control_y then exit jrddcl__status + %x0004 / $  on warnJ
:#fuUf8=$V5ޝap44`3Xj~%D+6O>oj|zGȇۂfk7*voH=#NӝUݜtv2[MycڷW"!?@^sV+Gt
?p}xWM][NG߄h
GTփ4<itSo:(o1Uyyy6<<X
.G:\[[>wey%TGomܦ<VpfM've׺#S?fwLܯk5sir ?ӥMjN
KO	ȧ%*jmwk]7
FjP>Xb_	;m}&unF}.SnU(Wŭ#+a[Qe+ҝT6t;<塽r|zMҵm8ukslc"XG,<t=Mqxt7{3>Dm!dwqVrH~sY zE!&jZшIojF̨V2W+=7_!ܨIJ읗4pvNTKxˑ*)Xd[	-*
*7ܡwwY%oK؊g"v=^kdЊъ5kEm:|lU;tnHw[!+.;ɦy67Z7Za^V SszXvc|M+<=1a'32}d9lK7vw𻅧醤ܝ4qo?74m*ͱ3KNa{q7&ʢch݀"+S;?U^OS`
kAW2ݪ͂+ԾrWvG{.)Bo0m'R>U-RNw/m;I^'UN\?Ծ4CGN6wԝVYC:]\^+(dKocԄ}݄VTtt%,9FJ:=̿R^QS~,kyGٍQs!};vk'p}S/ާ#Nȣ̹pjvrf:qRB-{n`2Y`vj~/qJm~:H,
7}f=>m7i7563wt6O<m49{c)F5JEYJQoAՠTD? 
D_>͐6j7S4ntAw;,!m
h^`sqC3ыhCUYEN!ő=ym=4dÚaa}ecHl-N[1Y4oCYgNF\SD 68F!^E]]E(׷nVtXvЎPDG̓-}q<>'2, ͠ iƇ"Mt@ʟ]M_%9
Yoi^ׄvXǎ36;ʟ]tKW}{i5^wL|C'= %Z{sݴ<\ͳ7p=$;8R_V<U
7I̗FI^Vnf;OĳNS?l$ϑ\φ5q=őawaևMo~7ŜHl̫:{|0Q@Ƥ[A>y,
{>v]ZPihPashϸoC?ve)0h1g|7Xh[u/lcr>Pu߿k,Sԁn0!~Ahu07	Y^<Y
mfy`2rXx$;Y0!]bW_+Ŭ̸H>*b7X2F[1KJWzW.]`udjF7X=/젉hwKmzan`ik<ƅp孋yV7+6VO׌f=sz6^Kz79'XZM~p%DzU	eM|8L">mqN_[-uo*]j6;+3,Ɨ4㰉%[ejl%9l4#,ԵJč>s,=6[Z-Mw2[9s4-KOǬ9lgY:p	4%TRb1ƻe.7+ӟE̠2:&VsخtZ՞G&ʜ`sD|[W8ld=QSV^qrC	9>6̠ONMć-`e9bYfaSX6̠&cַb[5K'ҷ%la1[5[ ["}a1[9	}{:&cַV[(	}}ఉW,uCj,nΪ*/k>jwyu5k%7y&-c0t"/MD^	a{yXoIYYi	+tlXQ6̠YyZ,BzզUxeyӧd4-ձtr<	0,9<]3>qO׌К Ca钮ngy[9Y:V<u9VM/3ha1p [~t&Cֲ2a<=Z恒%tl5̸[LAMć1ؼ,=Ӑ+`K5'_fa1m=$E-8l">4nfe簵ݨgMu5E+^[X٭&֩GYVqm--Y]ZRVZRLkYـ 젉o?y*ce8aN1Uڐ@+sB/3hs(ӯ9l5Obl&