1 INFO-VAX	Fri, 23 Nov 2001	Volume 2001 : Issue 651       Contents:P Bin Laden was Special IPF-Inside Issue of Shannon Knows Compaq at www.tru64.org ' DCL minute of the day: DCL$SMG routines + Re: DCL minute of the day: DCL$SMG routines + Re: DCL minute of the day: DCL$SMG routines + Re: DCL minute of the day: DCL$SMG routines + Re: DCL minute of the day: DCL$SMG routines  Re: DEC Supplied user account?( DSSI VAXcluster manual on line anywhere? Re: Emulex QD32  Re: F$GETQUI wildcard bug?? 4 Re: Gartner and IDC say HP will effectively kill DLT4 Re: Gartner and IDC say HP will effectively kill DLT4 Re: Gartner and IDC say HP will effectively kill DLT) Re: Gartner hints VMS to be dropped by HP ) Re: Gartner hints VMS to be dropped by HP ) Re: Gartner hints VMS to be dropped by HP ) Re: Gartner hints VMS to be dropped by HP ) Re: Gartner hints VMS to be dropped by HP ) Re: Gartner hints VMS to be dropped by HP ) Re: Gartner hints VMS to be dropped by HP ) Re: Gartner hints VMS to be dropped by HP  Re: Life After Alpha Re: Life After Alpha Re: Life After Alpha NTP under TCPIP V5.1@ Re: Of Bogusity and Benchmarketeering (was Re: Life After Alpha)@ Re: Of Bogusity and Benchmarketeering (was Re: Life After Alpha)@ Re: Of Bogusity and Benchmarketeering (was Re: Life After Alpha)
 Re: Pathworks A Re: RMS file structure internals documentation freely available ? E Re: Special IPF-Inside Issue of Shannon Knows Compaq at www.tru64.org  Re: SYSTEM-F-NOLINKS Re: You are invited to this   F ----------------------------------------------------------------------  % Date: Thu, 22 Nov 2001 19:38:41 +0000 4 From: Andrew Swallow <andrew.swallow@baesystems.com>Y Subject: Bin Laden was Special IPF-Inside Issue of Shannon Knows Compaq at www.tru64.org  . Message-ID: <3BFD5441.330A9430@baesystems.com>   Shane Smith wrote: >  [snip] > F > Ok, try to convince me that the founder and head of an internationalE > terrorist group even deserves the courtesy of a trial.  Show me the = > trial that condemned all the victums on September 11, 2001.  > 0 To stop Bin Laden becoming a martyr he has to be5 discredited.  Over thousands of years one of the most 5 effective methods of doing this is a fair and public  6 trial.  The judge listens to the evidence and what the defendant says and decides.   5 A martyr will become a symbol used to raise armies of 6 suicide bombers.  They will ensure that this war lasts% 50 years and kill a lot of Americans.   0 Think of a public trial as the first part of his7 punishment.  The second part is watching his supporters 3 desert him.  The execution will simply the release   from his hell on Earth.   2 Islamic Courts hand down death sentences where the$ executions take place within a week.  - The trial is for our benefit not Bin Laden's.  --  7 _______________________________________________________ + Andrew Swallow (7605) 2225   Cowes site, UK  andrew.swallow@baesystems.com    ------------------------------  % Date: Thu, 22 Nov 2001 23:18:32 +0100 , From: Didier Morandi <Didier.Morandi@gmx.ch>0 Subject: DCL minute of the day: DCL$SMG routines& Message-ID: <3BFD79B8.C1161076@gmx.ch>   $ v=f$v('v') $!+ . $! DCL_ROUTINES.COM		(c) Didier.Morandi@gmx.ch $!' $! X0.1 12-feb-1986   DTL create, paste * $! X0.2 22-mar-1986   DTL unpaste,put_lineK $! X0.3 29-mar-1986   DTL rewrite unpaste code to restore automatically any < $! 			          part of other display which could be behind.I $! V1.0-0 21-aug-2001 DMo slightly rewritten and first public release :-) M $! In all this below, we assume for the moment that all windows are bordered.  $!
 $! Dictionary 
 $! ==========  $!P $! abs_l   : physical line number on terminal for direct addressing with "ESC ["/ $! abs_c   : physical column number on terminal  $!N $! lin     : relative line number within display (1=border,2=line one, etc...)2 $! col     : relative column number within display $!O $! lin_nr  : line number within a display text area (1=line 1, 2=line 2 etc...) H $! col_nr  : column number within a display text area (unused up to now) $!N $! nrows   : number of lines (rows) in a display, *including* two border linesK $! ncols   : number of columns in a display, *including* two border columns  $!B $! rlin    : line number of line to be repainted during an UNPASTEP $! rcol    : starting column position for line to be repainted during an UNPASTE $!J $! i       : transfer variable to add a trailing "0" for one digit numbers7 $!	        (typically: if 'i' .lt. 10 then i = "0''i'")  $! $!-  $ set on $ on control_y then goto EXIT  $ on warning then stop $ dbg = "!"  $ smg$debug = "''smg$debug'" $ if smg$debug $ then $    dbg = "write smg_debug_ch" + $    debug_file = "sys$login:smg_debug.dat" > $    if f$search(debug_file) .eqs. "" then create 'debug_file' $    gosub INIT_DEBUG_SESSION  $ endif  $ esc[0,8] = %O33  $ gr_on = esc + "(0" $ gr_off = esc + "(B" 
 $ gr_line = - O "qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"  $ blanks = -R "                                                                                " $ say = "write sys$output" $ dbg "-START-"  $ dbg "p1: ''p1'"  $ dbg "p2: ''p2'"  $ dbg "p3: ''p3'"  $ dbg "p4: ''p4'"  $ dbg "p5: ''p5'"  $ dbg "p6: ''p6'"  $ dbg "p7: ''p7'"  $ dbg "p8: ''p8'" 7 $ if f$type(smg$$display_stack_pointer) .eqs. "" then - 0   smg$$display_stack_pointer == 0				!init stack@ $ 	dbg "SMG$$DISPLAY_STACK_POINTER: ",smg$$display_stack_pointer( $ service = "''p1'"							!what is asked $ 	dbg "service: ",service5 $ if service .eqs. "" then goto CALL_ERROR			!nothing I $ if f$locate("DCL$",service) .ne. 0 then goto SYNTAX_ERROR	!syntax error E $ if f$extract(4,4,service) .eqs. "SMG_" then goto SMG		!SMG routines * $ goto UNKNOWN_SERVICE						!not yet impl. $!+  $! window management ala SMG$  $!-  $SMG: 5 $ on error then goto UNKNOWN_ROUTINE				!syntax error 4 $ routine = f$extract(8,99,service)				!extract name! $ 	dbg "called routine: ",routine  $ goto 'routine'							!branch $! $HELP: $ type sys$input $DECK   ) Currently implemented SMG$ functions are:      DCL$SMG_HELP  # DCL$SMG_CLEAR_SCREEN [display_name]   N DCL$SMG_CREATE_VIRTUAL_DISPLAY nr_of_rows nr_of_cols display_name border label  A DCL$SMG_PASTE_VIRTUAL_DISPLAY display_name (line column)|(center)   F DCL$SMG_PASTE_PARTIAL_VIRTUAL_DISPLAY display_name line column line_nr  / DCL$SMG_PUT_LINE  text line column display_name   , DCL$SMG_UNPASTE_VIRTUAL_DISPLAY display_name   $EOD $ goto EXIT P $!------------------------------------------------------------------------------ $CLEAR_SCREEN:
 $!===========  $!+ = $! clear screen or display which name to pass as a parameter.  $!-  $ 	dbg "enter CLEAR_SCREEN"  $ on warning then stop $ if p2 .eqs. "" $ then $    say esc,"[H",esc,"[J" $ else  $    gosub CLEAR_VIRTUAL_DISPLAY $ endif  $ goto EXIT P $!------------------------------------------------------------------------------ $CLEAR_VIRTUAL_DISPLAY:  $!==================== $!+ O $! paint blank lines into a pasted virtual display and clears lines in "memory"  $!- $ $ 	dbg "enter CLEAR_VIRTUAL_DISPLAY" $ on warning then stop% $ d_name = "''p2'"						!display name  $ 	dbg "d_name: ",d_nameF $ if f$type(SMG$$'d_name'_POSITION) .eqs. "" then goto NO_SUCH_DISPLAYG $ abs_l = f$extract(0,2,SMG$$'d_name'_POSITION)		!absolute upper-left L  $ 	dbg "abs_l: ",abs_lG $ abs_c = f$extract(2,2,SMG$$'d_name'_POSITION)		!absolute upper-left C  $ 	dbg "abs_c: ",abs_cD $ nrows = f$extract(0,2,SMG$$'d_name'_SIZE)		!nr of rows with border $ 	dbg "nrows: ",nrows3 $ nrows = 'nrows' - 2						!make it offset numeric  C $ ncols = f$extract(2,2,SMG$$'d_name'_SIZE)		!nr of columns with b.  $ 	dbg "ncols: ",ncols3 $ ncols = 'ncols' - 2						!make it offset numeric  % $ nothing = f$extract(0,ncols,blanks)  $ 	dbg "nothing: >",nothing,"<" % $ 	dbg "nothing_len: ",f$len(nothing) 2 $ abs_c = 'abs_c' + 1					!do not erase col border& $ clear_index = 2					!init LOOP index $! $CLEAR_LOOP:						!display loop 2 $ abs_l = 'abs_l' + 1					!next line (do not erase+ $ 	dbg "abs_l: ",abs_l				!   (line border) % $ if 'abs_l' .gt. 24 then stop			!BUG 9 $ say esc,"[''abs_l';''abs_c'f",nothing	!paint blank line  $ i = 'clear_index' ! $ if 'i' .lt. 10 then i = "0''i'" 4 $ SMG$$'d_name'_LINE'i' == -				!clear line contentsH  gr_on + "x" + gr_off + f$extract(0,ncols,blanks) + gr_on + "x" + gr_off8 $ 	dbg "SMG$$''d_name'_LINE''i': ",SMG$$'d_name'_LINE'i'! $ clear_index = 'clear_index' + 1 " $ 	dbg "clear_index: ",clear_index2 $ if 'clear_index' .gt. ('nrows'+1) then goto EXIT $ goto CLEAR_LOOP P $!------------------------------------------------------------------------------ $CREATE_VIRTUAL_DISPLAY: $!=====================  $!+ 1 $! create display in memory, using global symbols  $!- 0 $ 	dbg "enter CREATE_VIRTUAL_DISPLAY (no debug)" $ on warning then stop" $ nrows  = 'p2'								!nr of rows? $ if nrows .lt. 10 then nrows = "0" + "''nrows'"	!2chars please  $ ncols  = 'p3' 0 $ if ncols .lt. 10 then ncols = "0" + "''ncols'"" $ d_name = p4								!display name $ border = p5								!with/out0 $ label  = f$edit(p6,"upcase")					!window title? $ if nrows  .eqs. "" then goto SMG_CREATE_VIRTUAL_DISPLAY_ERROR ? $ if ncols  .eqs. "" then goto SMG_CREATE_VIRTUAL_DISPLAY_ERROR ? $ if d_name .eqs. "" then goto SMG_CREATE_VIRTUAL_DISPLAY_ERROR 0 $ if border .eqs. "" then border = "0"		!default3 $ if label  .eqs. "" then label  = d_name		!default / $ create_index = 0						!init (not yet created) 2 $ root = "SMG$$''d_name'_LINE"				!temp variable  M $ smg$$display_stack_pointer == smg$$display_stack_pointer + 1	!a new display @ $ 	dbg "SMG$$DISPLAY_STACK_POINTER: ",smg$$display_stack_pointerP $ smg$$display_'smg$$display_stack_pointer'_name == d_name!display name in stack8 $ smg$$'d_name'_size   :== 'nrows''ncols'		!display size1 $ smg$$'d_name'_border :== 'border'			!border Y/N 1 $ smg$$'d_name'_label   == label			!display title 7 $ smg$$'d_name'_pasted  == ""				!init (not yet pasted)  $! $SMG_CREATE_LOOP: # $ create_index = 'create_index' + 1 K $ if 'create_index' .gt. 'nrows' then goto SMG_NO_MORE_ROWS	!end of display  $ i = 'create_index'! $ if 'i' .lt. 10 then i = "0''i'" 3 $ display = root + "''i'"				!build global var name ( $ 'display' == ""					!create it (empty) $ goto SMG_CREATE_LOOP $! $SMG_NO_MORE_ROWS:H $ if border .eqs. "0" then goto SMG_NO_BORDER		! >>> not implemented yet $ border_index = 1% $ display = root + "0''border_index'"  $ 'display' == -B  gr_on + "l" + f$extract(0,ncols-2,gr_line) + "k" + gr_off	!update $ title_len = f$len(label)  $ frame_width = f$len('display')- $ title_pos = (frame_width/2) - (title_len/2) / $ title_pos = 'title_pos' - 1					!because of.. / $ title_len = 'title_len' + 2					!..the spaces 5 $ 'display'['title_pos','title_len'] :== " ''label' "  $! $SMG_BORDER_LOOP: # $ border_index = 'border_index' + 1 O $ if 'border_index' .eq. 'nrows' then goto SMG_LAST_LINE !last one is different  $ i = 'border_index'! $ if 'i' .lt. 10 then i = "0''i'"  $ display = root + "''i'"  $ 'display' == -J  gr_on + "x" + gr_off + f$extract(0,ncols-2,blanks) + gr_on + "x" + gr_off $ goto SMG_BORDER_LOOP $! $SMG_LAST_LINE:  $ i = 'border_index'! $ if 'i' .lt. 10 then i = "0''i'"  $ display = root + "''i'"  $ 'display' == -:  gr_on + "m" + f$extract(0,ncols-2,gr_line) + "j" + gr_off $ goto EXIT P $!------------------------------------------------------------------------------ $PASTE_VIRTUAL_DISPLAY:  $!==================== $!+ 9 $! Read display from memory and paste it onto the screen. L $! The CENTER parameter will position the window in the middle of the screen $!- / $ 	dbg "enter PASTE_VIRTUAL_DISPLAY (no debug)"  $ on warning then stop% $ d_name = "''p2'"						!display name B $ if f$type(SMG$$'d_name'_SIZE) .eqs. "" then goto NO_SUCH_DISPLAY. $ size = SMG$$'d_name'_SIZE				!get size of it3 $ nrows = 'f$extract(0,2,size)'				!make it numeric ( $ ncols = 'f$extract(2,2,size)'				!idem0 $ if f$edit(p3,"collapse,upcase") .eqs. "CENTER" $ then $    abs_l = 12 - (nrows/2)  $    abs_c = 40 - (ncols/2)  $ else# $    abs_l = 'p3'						!line number % $    abs_c = 'p4'						!column number  $ endif + $ if abs_l .lt. 10 then abs_l = "0''abs_l'" + $ if abs_c .lt. 10 then abs_c = "0''abs_c'" A $ SMG$$'d_name'_POSITION :== 'abs_l''abs_c'	!record abs. position  $ paste_index = 0  $ root = "SMG$$''d_name'_LINE" $!  $PASTE_LOOP:							!display loop! $ paste_index = 'paste_index' + 1  $ if 'paste_index' .gt. 'nrows'  $ then* $    SMG$$'d_name'_PASTED == "Y"			!pasted" $    goto EXIT							!no more rows $ endif  $ i = 'paste_index' ! $ if 'i' .lt. 10 then i = "0''i'"  $ display_line = root + "''i'": $ say esc,"[''abs_l';''abs_c'f",'display_line'	!paint line# $ abs_l = abs_l + 1						!next line  $ goto PASTE_LOOP P $!------------------------------------------------------------------------------ $PASTE_PARTIAL_VIRTUAL_DISPLAY:  $!============================ $!+ L $! Routine to repaste a particular line of a given display without having toI $! repaste the whole display, which would cause any overlapping window to 
 $! disappear.  $! $! Required parameters are:  $! p2 = display name $! p3 = line number to paste $!- , $ 	dbg "enter PASTE_PARTIAL_VIRTUAL_DISPLAY" $ on warning then stop $ if p2 .eqs. "" .or. - C      p3 .eqs. ""  then goto SMG_PASTE_PARTIAL_VIRTUAL_DISPLAY_ERROR % $ d_name = "''p2'"						!display name P $ if f$type(SMG$$'d_name'_POSITION) .eqs. "" then goto NO_SUCH_DISPLAY !obvious? $ 	dbg "d_name: ",d_name" $ lin_nr = 'p3'							!line number $ 	dbg "lin_nr: ",lin_nr8 $ position = SMG$$'d_name'_POSITION			!absolute position $ 	dbg "position: ",position? $ abs_l = 'f$extract(0,2,position)' 			!line number on terminal  $ 	dbg "abs_l: ",abs_l> $ abs_c = 'f$extract(2,2,position)'			!col. number on terminal $ 	dbg "abs_c: ",abs_c7 $ lin = 'abs_l' + 'lin_nr'					!relative start position  $ 	dbg "lin: ",lin. $ col = 'abs_c'							!relative start position $ 	dbg "col: ",col0 $ size = SMG$$'d_name'_SIZE				!get display size $ 	dbg "size: ",size2 $ nrows = 'f$extract(0,2,size)'				!number of rows $ 	dbg "nrows: ",nrows5 $ ncols = 'f$extract(2,2,size)'				!number of columns  $ 	dbg "ncols: ",ncolsO $ if 'lin_nr' .ge. 'nrows' then goto SMG_LINE_OUT_OF_DISPLAY !line number error 4 $ root = "SMG$$''d_name'_LINE"				!transfer variable- $ lin_nr = 'lin_nr' + 1					!skip border line  $ i = lin_nr! $ if 'i' .lt. 10 then i = "0''i'" 3 $ display_line == root + "''i'"				!global var name 5 $ say esc,"[''lin';''col'f",'display_line'		!paint it & $ 	dbg "display_line: ",'display_line' $ goto EXIT							!done P $!------------------------------------------------------------------------------ $UNPASTE_VIRTUAL_DISPLAY:  $!====================== $!+ N $! Unpaste function. Actually removes the display by painting blanks. If thereP $! is another display "behind", then repaint only the lines which were "hidden". $!- & $ 	dbg "enter UNPASTE_VIRTUAL_DISPLAY" $ on warning then stop $ ovw_offset = 0						!init % $ d_name = "''P2'"						!display name  $ 	dbg "d_name: ",d_nameP $ if f$type(SMG$$'d_name'_POSITION) .eqs. "" then goto NO_SUCH_DISPLAY !obvious?8 $ position = SMG$$'d_name'_POSITION			!absolute position $ 	dbg "position: ",position? $ abs_l = 'f$extract(0,2,position)' 			!line number on terminal  $ 	dbg "abs_l: ",abs_l+ $ p2_lin = 'abs_l'						!save initial value > $ abs_c = 'f$extract(2,2,position)'			!col. number on terminal $ 	dbg "abs_c: ",abs_c, $ size = SMG$$'d_name'_SIZE				!display size $ 	dbg "size: ",size2 $ nrows = 'f$extract(0,2,size)' 			!number of rows5 $ ncols = 'f$extract(2,2,size)'				!number of columns  $ 	dbg "nrows: ",nrows $ 	dbg "ncols: ",ncols $!+ P $! First we check if display may overstrike another one, in order to repaint it.D $! If smg$$display_stack_pointer is 1, we have only one display, us.I $! If it is greater, we overwrite or we do not overwrite another display  : $! depending of the relative location of the two displays. $!- @ $ 	dbg "SMG$$DISPLAY_STACK_POINTER: ",smg$$display_stack_pointerP $ if smg$$display_stack_pointer .le. 1 then goto NO_OVERSTRIKE !there is no suchP $ smg$$display_stack_pointer == smg$$display_stack_pointer - 1 !one display less= $ ovw_nr = 'smg$$display_stack_pointer'			!get previous levelo1 $ 	dbg "ovw_nr: ",ovw_nr						!overwritten windowa7 $ ovw_name = smg$$display_'ovw_nr'_name			!get its name. $ 	dbg "ovw_name: ",ovw_name $ 	dbg "d_name: ",d_nameA $ if ovw_name .eqs. d_name then goto NO_OVERSTRIKE 	!same displayaG $ unpasted_display_end = 'abs_l' + 'nrows' - 1		!absolute end of displ.C4 $ 	dbg "unpasted_display_end: ",unpasted_display_end $!+eM $! now check which lines are to be repainted, comparing starting position andE
 $! length. $!-?= $ 	dbg "smg$$''ovw_name'_position: ",SMG$$'ovw_name'_POSITIONaK $ ovw_start_line = f$extract(0,2,SMG$$'ovw_name'_POSITION) !absolute line #l# $ ovw_start_line = 'ovw_start_line'i( $ 	dbg "ovw_start_line: ",ovw_start_line: $ ovw_offset = 'ovw_start_line' - 1				!shift abs/rel pos.! $ 	dbg "ovw_offset: ", ovw_offsetM5 $ 	dbg "smg$$''ovw_name'_size: ",SMG$$'ovw_name'_SIZEpP $ ovw_end_line = 'ovw_start_line' + f$extract(0,2,SMG$$'ovw_name'_SIZE) - 1 !end $ ovw_end_line = 'ovw_end_line't$ $ 	dbg "ovw_end_line: ",ovw_end_line $ 	dbg "abs_l: ",abs_lJ $ if 'abs_l' .gt. 'ovw_end_line' then goto NO_OVERSTRIKE	!display is under $! $OVERSTRIKE_LOOP:: $ 	dbg "-OVERSTRIKE_LOOP-". $ 	dbg "ovw_start_line      : ",ovw_start_line, $ 	dbg "ovw_end_line        : ",ovw_end_line4 $ 	dbg "unpasted_display_end: ",unpasted_display_end% $ 	dbg "abs_l               : ",abs_lfH $ if 'ovw_start_line'.gt.'ovw_end_line' then goto NO_OVERSTRIKE !no moreP $ if 'ovw_start_line'.gt.'unpasted_display_end' then goto NO_OVERSTRIKE !no more; $ if 'ovw_start_line'.eq.'abs_l' then goto MARK_FOR_REPAINT O $ if 'ovw_start_line'.lt.'abs_l' then ovw_start_line = ovw_start_line + 1 !nexte. $ 	dbg "ovw_start_line      : ",ovw_start_line= $ if 'ovw_start_line'.gt.'abs_l' then abs_l = abs_l + 1 !nextg* $ goto OVERSTRIKE_LOOP					!check next one $! $MARK_FOR_REPAINT: $ 	dbg "-MARK_FOR_REPAINT-"i $ 	dbg "abs_l: ",abs_l  $ 	dbg "ovw_offset: ",ovw_offset4 $ lin_nr = 'abs_l' - 'ovw_offset'			!relative line # $ 	dbg "lin_nr: ",lin_nr $ i = 'lin_nr'! $ if 'i' .lt. 10 then i = "0''i'" 7 $ repaint_line'i'=smg$$'ovw_name'_line'i'		!record linec+ $ 	dbg "repaint_line''i': ",repaint_line'i'm& $ abs_l = 'abs_l' + 1						!next line  $ 	dbg "abs_l: ",abs_l; $ ovw_start_line = 'ovw_start_line' + 1		!next overstr linen( $ 	dbg "ovw_start_line: ",ovw_start_line& $ goto OVERSTRIKE_LOOP					!next check $!+ 0 $! no previous display. we just remove this one. $!-s $NO_OVERSTRIKE:f $ 	dbg "-NO_OVERSTRIKE-"& $ abs_l = 'p2_lin'						!restore value $ 	dbg "abs_l: ",abs_l# $ unpaste_index = 0						!init loope& $ 	dbg "unpaste_index: ",unpaste_index $ 	dbg "ncols: ",ncols/ $ display = f$extract(0,ncols,blanks)			!blankse $ 	dbg "display: ",display% $ 	dbg "display_len: ",f$len(display)s $! $UNPASTE_LOOP: $ 	dbg "-UNPASTE_LOOP-"_& $ 	dbg "unpaste_index: ",unpaste_index% $ unpaste_index = 'unpaste_index' + 15& $ 	dbg "unpaste_index: ",unpaste_index $ 	dbg "nrows: ",nrows, $ if 'unpaste_index' .gt. 'nrows'			!no more $ then, $    smg$$'d_name'_PASTED == "N"			!unpasted" $    goto EXIT							!no more rows $ endif$ $ 	dbg "display: ",displayN $ 	dbg "[painting ''f$len(display)' screen blanks line ''abs_l' col ''abs_c']"6 $ say esc,"[''abs_l';''abs_c'f",display		!paint blanks $ i = 'abs_l' - ovw_offset! $ if 'i' .lt. 10 then i = "0''i'"rM $ if f$type(repaint_line'i') .eqs. "" then goto NEXT_LINE !no line to repaint ; $	dbg "Line to be repainted: ",repaint_line'i'," number ",ig $ 	dbg "abs_l: ",abs_l- $ rlin = 'abs_l'					!display line to repainth $ 	dbg "rlin: ",rlin= $ 	dbg "smg$$''ovw_name'_position: ",SMG$$'ovw_name'_POSITION : $ rcol = f$extract(2,2,SMG$$'ovw_name'_POSITION)	!position $ 	dbg "rcol: ",rcol+ $ 	dbg "repaint_line''i': ",repaint_line'i'o $ ln=repaint_line'i'O $ 	dbg "[repainting screen line (''f$len(ln)' chars) line ''rlin' col ''rcol']"c- $ say esc,"[''rlin';''rcol'f",repaint_line'i'n $! $NEXT_LINE:l $ 	dbg "-NEXT_LINE-"% $ abs_l = 'abs_l' + 1						!next linel $ 	dbg "abs_l: ",abs_l $ goto UNPASTE_LOOPtP $!------------------------------------------------------------------------------
 $PUT_LINE: $!+i< $! write line within virtual display (in memory, remember!). $!-p $ 	dbg "enter PUT_LINE"e $ on warning then stop( $ text = "''p2'"					!text to be written $ 	dbg "text: ",text  $ lin = 'p3'						!relative line $ 	dbg "lin: ",lin" $ col = 'p4'						!relative column $ 	dbg "col: ",col$ $ d_name = "''p5'"					!display name $ 	dbg "d_name: ",d_nameB $ if f$type(SMG$$'d_name'_SIZE) .eqs. "" then goto NO_SUCH_DISPLAY, $ size = SMG$$'d_name'_SIZE				!display size $ 	dbg "size: ",size  $ nrows = 'f$extract(0,2,size)'  $ 	dbg "nrows: ",nrows $ ncols = 'f$extract(2,2,size)'b $ 	dbg "ncols: ",ncols@ $! if lin .eq. 1     then goto SMG_INV_LINE_FOR_PUT	!border line@ $! if lin .eq. nrows then goto SMG_INV_LINE_FOR_PUT	!border lineO $ if 'lin' .gt. ('nrows'-2) then goto SMG_LINE_OUT_OF_DISPLAY !no such positionqA $! if col .eq. 1     then goto SMG_INV_COL_FOR_PUT	!border column A $! if col .eq. ncols then goto SMG_INV_COL_FOR_PUT	!border column N $ if 'col' .gt. ('ncols'-2) then goto SMG_COL_OUT_OF_DISPLAY !no such position# $ text_length = f$length(text)				! " $ 	dbg "text_length: ",text_length9 $ if 'text_length' .gt. ('ncols'-2)			!overflow: truncate' $ then- $    text = f$extract(0,'ncols'-3,text) + "*"p $    dbg "text: ",text $    text_length = ('ncols'-2)$ $    dbg "text_length: ",text_length $ endifP( $ lin = 'lin' + 1						!skip border line $ i = 'lin''! $ if 'i' .lt. 10 then i = "0''i'"v $ line = SMG$$'d_name'_LINE'i'( $ col = 'col' + 1						!skip border line) $ col = 'col' - 1						!col 1 starts at 0oC $ line['col'+6,'text_length'] := "''f$extract(0,text_length,text)'""5 $ SMG$$'d_name'_LINE'i' == line				!update line value	 $ 	dbg "line ''lin': ",linew $ goto EXITeP $!------------------------------------------------------------------------------ $SMG_INV_LINE_FOR_PUT: $!+s0 $! ERROR: unallowed border line selected for PUT $!-t $ say "" $ say -n@ "%DCL$SMG-E-BORDERLINE, Requested line for PUT is a border line" $ goto DISPLAY_PARAMStP $!------------------------------------------------------------------------------ $SMG_INV_COL_FOR_PUT:_ $!+w2 $! ERROR: unallowed border column selected for PUT $!-I $ say "" $ say -aC "%DCL$SMG-E-BORDERCOL, Requested column for PUT is a border column"A $ goto DISPLAY_PARAMSuP $!------------------------------------------------------------------------------ $SMG_LINE_OUT_OF_DISPLAY:e $!+E: $! ERROR: line position for PUT is outside of display area $!-- $ say "" $ say --F "%DCL$SMG-E-LINEOUT, Line position for PUT is outside of display area" $ goto DISPLAY_PARAMSsP $!------------------------------------------------------------------------------ $SMG_COL_OUT_OF_DISPLAY: $!+y< $! ERROR: column position for PUT is outside of display area $!-i $ say "" $ say -!G "%DCL$SMG-E-COLOUT, Column position for PUT is outside of display area"- $ goto DISPLAY_PARAMSSP $!------------------------------------------------------------------------------" $SMG_CREATE_VIRTUAL_DISPLAY_ERROR: $!+ 6 $! ERROR: missing some parameters for display creation $!-p $ say "" $ say -"E "%DCL$SMG-E-CREATERR, One or more parameters are missing within call"e $ goto DISPLAY_PARAMSeP $!------------------------------------------------------------------------------) $SMG_PASTE_PARTIAL_VIRTUAL_DISPLAY_ERROR:b $!+ + $! ERROR: missing some parameters for pasteu $!-p $ say "" $ say -"H "%DCL$SMG-E-PASTPARTERR, One or more parameters are missing within call" $ goto DISPLAY_PARAMSwP $!------------------------------------------------------------------------------ $UNKNOWN_SERVICE:e $!+E8 $! ERROR service unknown or syntax error in service name $!-n $ say "" $ say -eH "%DCL$MAIN-E-UNKSERV, Requested service does not exist. Check spelling." $ goto DISPLAY_PARAMS P $!------------------------------------------------------------------------------ $NO_SUCH_DISPLAY:e $!+	6 $! ERROR display unknown or typo error in display name $!-  $ say "" $ say -	E "%DCL$MAIN-E-UNKDISP, Target display does not exist. Check spelling."r $ goto DISPLAY_PARAMS4P $!------------------------------------------------------------------------------ $CALL_ERROR: $!+ " $! error in call. no P1 parameter  $!-$ $ say "" $ say -=K "%DCL$MAIN-E-INVCALL, This procedure is a set of subroutines to be called,"  $ say - 5 "                     you can't execute it directly."d $ goto DISPLAY_PARAMS_P $!------------------------------------------------------------------------------ $SYNTAX_ERROR: $!+n: $! error in call. The syntax for parameter P1 is incorrect $!-- $ say "" $ say --C "%DCL$MAIN-E-SYNTAX, Incorrect call syntax. Should start with DCL$"= $ goto DISPLAY_PARAMStP $!------------------------------------------------------------------------------ $DISPLAY_PARAMS:
 $ set noon $ say ""> $ say "Time is ",f$time()," - Symbolic stack dump follows :-)" $ say ""5 $ @web$library:get_caller S				!creates global Symbolo; $ say "Calling procedure    : ",get_caller__2		! __1 is us.	$ $ say "Parameter P1         : ''p1'"$ $ say "Parameter P2         : ''p2'"$ $ say "Parameter P3         : ''p3'"$ $ say "Parameter P4         : ''p4'"$ $ say "Parameter P5         : ''p5'"' $ say "Symbol NROWS         : ''nrows'" ' $ say "Symbol NCOLS         : ''ncols'"I& $ say "Symbol SIZE          : ''size'"< $ say "DISPLAY_STACK_POINTER: ''smg$$display_stack_pointer'"0 $ if f$type(smg$$display_stack_pointer) .nes. "" $ thenB $    display_name = smg$$display_'smg$$display_stack_pointer'_nameM $    say "SMG$$DISPLAY_''smg$$display_stack_pointer'_NAME  : ''display_name'"  $ elseC $    say "SMG$$DISPLAY_STACK_POINTER: global symbol does not exist"l $ endifd( $ if f$type(SMG$$'d_name'_SIZE) .nes. "" $ then% $    d_name_size = SMG$$'d_name'_SIZEr2 $    say "SMG$$''d_name'_SIZE    : ''d_name_size'" $ else@ $    say "SMG$$''d_name'_SIZE    : global symbol does not exist" $ endifm* $ if f$type(SMG$$'d_name'_BORDER) .nes. "" $ then) $    d_name_border = SMG$$'d_name'_BORDER'4 $    say "SMG$$''d_name'_BORDER  : ''d_name_border'" $ else@ $    say "SMG$$''d_name'_BORDER  : global symbol does not exist" $ endift, $ if f$type(SMG$$'d_name'_POSITION) .nes. "" $ then. $    d_name_position = SMG$$'d_name'_POSITION 6 $    say "SMG$$''d_name'_POSITION: ''d_name_position'" $ else@ $    say "SMG$$''d_name'_POSITION: global symbol does not exist" $ endifd $ i = 'lin' ! $ if 'i' .lt. 10 then i = "0''i'"'+ $ if f$type(SMG$$'d_name'_LINE'i') .nes. ""t $ then( $    d_name_line = SMG$$'d_name'_LINE'i'6 $    say "SMG$$''d_name'_LINE''i'    : ''d_name_line'" $ elseD $    say "SMG$$''d_name'_LINE''i'    : global symbol does not exist" $ endifu$ $ @sys$login:delete_symbols smg$$* N $ say "" $ say "Program aborted." $ 	dbg "Exit abort"]& $ if smg$debug then close smg_debug_ch $ stop $! $INIT_DEBUG_SESSION: $ close/nolog smg_debug_ch' $ open/append smg_debug_ch 'debug_file't) $! dbg f$time()," by ",f$env("procedure")  $ dbg "---"0 $ dbg f$time() $ return $! $EXIT: $ dbg "Exit success"& $ if smg$debug then close smg_debug_ch $ exit    > Three next posts contain GET_CALLER.COM and (working) examples   Enjoy    D. -- rG   --------------------------------------------------------------------- E MORANDI Consulting.  WEB: http://Didier.Morandi.Free.fr/index_us.html E Pflanzschulstrasse 53, 8004 Zurich, Switzerland. GSM: +41 79 705 4670-/ 19, chemin de la Butte, 31400 Toulouse, France.S  I Disaster Recovery Plans, Computer Security Audits, DEC OpenVMS ExpertisetH On parle franais, Man spricht Deutsch, Habla Castellano, English spoken   ------------------------------  % Date: Thu, 22 Nov 2001 23:19:50 +0100), From: Didier Morandi <Didier.Morandi@gmx.ch>4 Subject: Re: DCL minute of the day: DCL$SMG routines& Message-ID: <3BFD7A06.CCC5DCB3@gmx.ch>   $ vfy = f$verify('debug'+0)  $! $! PROCEDURE: GET_CALLER.COM $! $! ABSTRACT: $!L $!    This code fragment obtains the name of the procedure which called this $!    procedure. $!/ $!From: Ken Bosward <bosward.ken.kw@bhp.com.au>c $!Newsgroups: comp.os.vms  $!Subject: DCL Tricks!' $!Date: Fri, 01 Nov 1996 12:35:58 +1000u( $!Message-ID: <3279620E.3091@bhp.com.au> $! $! HISTORY:b $!/ $!    15-MAY-1993  MDC  Written by Michael Clay 7 $!     1-Nov-1996  Ken Bosward, clean up temporary filep= $!    06-Nov-1996  Dave Cantor, shorten report code using !AC!+ $!                      Added nesting levelnB $!    20-JUL-2000 Chris Sharman, Alpha-ize (without breaking VAX),A $!                      add parms to suppress self (P1 boolean) &oM $!                      make global symbols get_caller__N (if p1 or p2 = S*), M $!                      where N=0 is this proc, 1 is calling proc, and so on;!K $!                      ie inverse of depth: self-relative seemed more use.- $!O $!-----------------------------------------------------------------------------I6 $  fac =  f$parse(f$environment("procedure"),,,"name") $  pid =  f$getjpi(0,"pid")a* $  temp =  "sys$scratch:''fac'_''pid'.tmp" $  on warning then goto FINISH  $  on control_y then goto FINISH $!! $! Define known symbol values ...! $!" $  arch := 'f$getsyi("arch_name")' $  vax = "!" $  alpha = "!" $  'arch' :=@ $  'vax'ctl$ag_clidata =  %x7FFE2A5C   ! From SYS$SYSTEM:SYS.STB% $  'alpha'ctl$ag_clidata = %x7ffce260 > $  ppd$l_prc      =  %x00000008   ! From SYS$SYSTEM:DCLDEF.STB> $  idf_l_lnk      =  %x00000000   ! From SYS$SYSTEM:DCLDEF.STB> $  idf_l_filename =  %x00000068   ! From SYS$SYSTEM:DCLDEF.STB $!N $! Get value of PRC_L_IDFLNK from DCLDEF.STB (changes with version of VMS) ... $!+ $  call fetchsym_'arch' dcldef prc_l_idflnki $! $! Traverse IDF list $! $  ppd =  ctl$ag_clidata3 $  prc =  f$cvui(0,32,f$fao("!AD",4,ppd+ppd$l_prc))b6 $  idf =  f$cvui(0,32,f$fao("!AD",4,prc+prc_l_idflnk))  $  lev =  f$environment("depth") $  baselev = lev? $  makesym = (f$ext(0,1,p1).eqs."S").or.(f$ext(0,1,p2).eqs."S")" $  if p1 then $ goto tonextr $next_filename:i$ $     if idf .eq. 0 then goto FINISHL $     procname = f$fao("!AC",f$cvui(0,32,f$fao("!AD",4,idf+idf_l_filename))) $     if makesym6 $     then get_caller__'f$str(baselev-lev) == procname> $     else write sys$output f$fao(" !2UL -> !AS",lev,procname) $     endif = $tonext:     idf =  f$cvui(0,32,f$fao("!AD",4,idf+idf_l_lnk))o $     lev = lev - 1d $     goto next_filename $!& $fetchsym_alpha: subroutine ! file symH $  search sys$loadable_images:'p1'.stb 'p2' /exa/form=passall/out='temp' $! record too big for dcllE $  set file/attr=(rfm:fix,mrs:8,lrl:8) 'temp' ! Quadword aligned (+2)  $  sym = "   " + p2  $  sym[0,16] = 0 $  sym[16,8] = f$length(p2)-
 $  ver = 1
 $  before = 3- $  after = (f$len(sym)-1)/8-: $symloop: ! search for each quadword of the symbol in turn( $  sym8 = """"+f$ext(8*ver-8,8,sym)+"""" $  siz = f$len(sym8)-2c $  sea 'temp';'ver' &sym8 /key=(pos:1,siz:'siz')/exa/form=passall/win=('before','after')/out='temp'e $  ver = ver + 1 $  before = before + 1 $  after = after - 1$ $  if after.ge.0 then $ goto symloop $! $  open/read temp 'temp' $  read temp valquad
 $  close temp  $  delete/nolog 'temp';*! $  'p2' ==  f$cvui(16,32,valquad)o $  endsubroutine $!$ $fetchsym_vax: subroutine ! file symG $  search sys$system:'p1'.stb 'p2' /exact/format=passall /output='temp't $  open/read temp 'temp' $  read temp symbols
 $  close temp: $  delete/nolog 'temp';*' $  loc_sym =  f$locate("''p2'",symbols)f, $  'p2' ==  f$cvui((loc_sym-5)*8,32,symbols) $finish:  endsubroutines $! $FINISH:
 $ set noonE $ if f$type(prc_l_idflnk).nes."" then $ deletexx/sym/glo prc_l_idflnks2 $ if f$trnlnm("TEMP").nes."" then close/nolog temp7 $ if f$search(temp) .nes. "" then delete/nolog 'temp';*d $ exit   D.   ------------------------------  % Date: Thu, 22 Nov 2001 23:21:24 +0100e, From: Didier Morandi <Didier.Morandi@gmx.ch>4 Subject: Re: DCL minute of the day: DCL$SMG routines& Message-ID: <3BFD7A64.173E6505@gmx.ch>   $! DMo 21-aug-2001 $! DCL_SMG_DEMO.COM  $ say = "write sys$output"E $ say "This small procedure does a demo of the SMG routines for DCL" a $ say ""& $ say "STEP 1: Create virtual display"8 $ inq rows "enter number of lines for your display [10]" $ if rows .eq. 0 then rows = 10a9 $ inq cols "enter number of colums for your display [40]"s $ if cols .eq. 0 then cols = 40e+ $ inq d_name "enter display name [WINDOW1]"n, $ if d_name .eqs. "" then d_name = "WINDOW1"= $ inq border "do you wish your display to be bordered? [Y]/N"a& $ if border .eqs. "" then border = "Y"D $ inq y_pos "enter line number for upper left corner of display [5]"  $ if y_pos .eq. 0 then y_pos = 5G $ inq x_pos "enter column number for upper left corner of display [10]"!! $ if x_pos .eq. 0 then x_pos = 10p' $ inq erase "erase screen first? [Y]/N" $ $ if erase .eqs. "" then erase = "Y", $ inq label "enter window title [''d_name']"' $ if label .eqs. "" then label = d_namen $ @dcl_routines -oI    dcl$smg_create_virtual_display 'rows' 'cols' 'd_name' 'border' 'label' A $ say "Virtual display ''d_name' successfully created in memory."/ $ say "", $ say "STEP 2: Fill display with text lines"4 $ i=1				!start put in line one   (default for demo)+ $ i_col=1			!start put in column one (idem)$ $ i_max=rows: $ say "Text default value for demo is ""This is line x."""+ $ say "To enter a blank line, type a space"s $LOOP:? $ read/end=NEXT/prompt="Enter text for line ''i' (F10=end): " -u$                 sys$command line_'i'; $ if line_'i' .eqs. "" then line_'i' = "This is line ''i'."_ $ line = line_'i'n? $ @dcl_routines dcl$smg_put_line "''line'" 'i' 'i_col' 'd_name'n $ i=i+1s$ $ if i .gt. (i_max-2) then goto NEXT $ goto LOOP  $NEXT: $ say "") $ say "STEP 3: paste display to terminal" ! $ inq dummy "Hit RETURN to start"'2 $ if erase then @dcl_routines dcl$smg_clear_screenF $ @dcl_routines dcl$smg_paste_virtual_display 'd_name' 'y_pos' 'x_pos' $ say "" $ say "STEP 4: unpaste display"i $KOMON:s& $ inq dummy "Hit Y to unpaste display"  $ if .not. dummy then goto KOMON8 $ @dcl_routines dcl$smg_unpaste_virtual_display 'd_name' $KOMON_BABY: $ inq dummy "Hit Y to exit"e% $ if .not. dummy then goto KOMON_BABY_ $ type/page nl: 4 $ say "Thank you for playing with DCL$SMG routines."4 $ say "Source code for routines is DCL_ROUTINES.COM" $ say "Enjoy." $ exit   D.   ------------------------------  % Date: Thu, 22 Nov 2001 23:22:32 +0100v, From: Didier Morandi <Didier.Morandi@gmx.ch>4 Subject: Re: DCL minute of the day: DCL$SMG routines& Message-ID: <3BFD7AA8.61B32FCD@gmx.ch>   $! DCL_SMG_DEMO2.COM
 $ set noon $ delete="delete"rE $ if f$search("smg$debug.temp") .nes. "" then delete smg$debug.temp;*PC $ if f$search("smg$debug.txt") .nes. "" then delete smg$debug.txt;*n $ step = "1. init"
 $ gosub DEBUG", $ step = "2. create display 1 and put lines"? $ @dcl_routines dcl$smg_create_virtual_display 12 40 window_1 YtM $ @dcl_routines dcl$smg_put_line "This is line 1/7 in window 1." 2 2 window_1aM $ @dcl_routines dcl$smg_put_line "This is line 2/7 in window 1." 3 2 window_1iM $ @dcl_routines dcl$smg_put_line "This is line 3/7 in window 1." 4 2 window_1dM $ @dcl_routines dcl$smg_put_line "This is line 4/7 in window 1." 5 2 window_1dR $ @dcl_routines dcl$smg_put_line "(previous line should be blank :-)" 7 2 window_1M $ @dcl_routines dcl$smg_put_line "This is line 7/7 in window 1." 8 2 window_1 $ $ @dcl_routines dcl$smg_clear_screen
 $ gosub DEBUGp $ step = "3. paste display 1"n; $ @dcl_routines dcl$smg_paste_virtual_display 5 10 window_1"
 $ gosub DEBUG' $ wait 00:00:05,, $ step = "4. create display 2 and put lines"> $ @dcl_routines dcl$smg_create_virtual_display 8 30 window_2 YK $ @dcl_routines dcl$smg_put_line "This is line 1 in window 2." 2 2 window_2eK $ @dcl_routines dcl$smg_put_line "This is line 2 in window 2." 3 2 window_2bK $ @dcl_routines dcl$smg_put_line "This is line 3 in window 2." 4 2 window_2nK $ @dcl_routines dcl$smg_put_line "This is line 4 in window 2." 5 2 window_2nK $ @dcl_routines dcl$smg_put_line "This is line 5 in window 2." 6 2 window_2e
 $ gosub DEBUG  $ step = "5. paste display 2"r; $ @dcl_routines dcl$smg_paste_virtual_display 8 14 window_2'
 $ gosub DEBUG  $ wait 00:00:05c, $ step = "6. create display 3 and put lines"> $ @dcl_routines dcl$smg_create_virtual_display 5 20 window_3 YK $ @dcl_routines dcl$smg_put_line "This is line 1 in window 3." 2 2 window_3-K $ @dcl_routines dcl$smg_put_line "This is line 2 in window 3." 3 2 window_3iK $ @dcl_routines dcl$smg_put_line "This is line 3 in window 3." 4 2 window_3 
 $ gosub DEBUGe $ step = "7. paste display 3"e< $ @dcl_routines dcl$smg_paste_virtual_display 10 20 window_3
 $ gosub DEBUGd $ wait 00:00:03  $ step = "8. unpaste display 3" 8 $ @dcl_routines dcl$smg_unpaste_virtual_display window_3
 $ gosub DEBUG  $ wait 00:00:03t $ step = "9. unpaste display 2"t8 $ @dcl_routines dcl$smg_unpaste_virtual_display window_2
 $ gosub DEBUG  $ inq dummy "RETURN" r! $ @sys$login:delete_symbols smg$*g+ $ append/new smg$debug.temp;* smg$debug.txtz $ exit $! $DEBUG:"" $ define sys$output smg$debug.temp $ define sys$error nl:C $ write sys$output "----------------------------------------------"r0 $ write sys$output "Step: ",step," on ",f$time() $ sh symb/global smg$* $ deassign sys$output  $ deassign sys$error $ return   D.   ------------------------------  % Date: Thu, 22 Nov 2001 23:24:59 +0100!, From: Didier Morandi <Didier.Morandi@gmx.ch>4 Subject: Re: DCL minute of the day: DCL$SMG routines& Message-ID: <3BFD7B3B.D0AB9EDE@gmx.ch>   $! DCL_SMG_DEMO3.COM $!6 $! This code better demonstrates the unpaste fonction.
 $ set noon $ delete="delete"r $ say = "write sys$output"E $ if f$search("smg$debug.temp") .nes. "" then delete smg$debug.temp;*tC $ if f$search("smg$debug.txt") .nes. "" then delete smg$debug.txt;*  $ step = "1. init"
 $ gosub DEBUG0, $ step = "2. create display 1 and put lines"? $ @dcl_routines dcl$smg_create_virtual_display 12 40 window_1 Y	M $ @dcl_routines dcl$smg_put_line "This is line 1/7 in window 1." 1 1 window_1lM $ @dcl_routines dcl$smg_put_line "This is line 2/7 in window 1." 2 1 window_1"M $ @dcl_routines dcl$smg_put_line "This is line 3/7 in window 1." 3 1 window_1-M $ @dcl_routines dcl$smg_put_line "This is line 4/7 in window 1." 4 1 window_1nR $ @dcl_routines dcl$smg_put_line "(previous line should be blank :-)" 6 1 window_1M $ @dcl_routines dcl$smg_put_line "This is line 7/7 in window 1." 7 1 window_1-$ $ @dcl_routines dcl$smg_clear_screen
 $ gosub DEBUG- $ step = "3. paste display 1"F; $ @dcl_routines dcl$smg_paste_virtual_display window_1 5 10r
 $ gosub DEBUGa $ say "" $ say "" $ say "" $ inq dummy "Hit RETURN", $ step = "4. create display 2 and put lines"> $ @dcl_routines dcl$smg_create_virtual_display 8 30 window_2 YK $ @dcl_routines dcl$smg_put_line "This is line 1 in window 2." 1 1 window_2sK $ @dcl_routines dcl$smg_put_line "This is line 2 in window 2." 2 1 window_2-K $ @dcl_routines dcl$smg_put_line "This is line 3 in window 2." 3 1 window_2PK $ @dcl_routines dcl$smg_put_line "This is line 4 in window 2." 4 1 window_2-K $ @dcl_routines dcl$smg_put_line "This is line 5 in window 2." 5 1 window_2 
 $ gosub DEBUGi $ step = "5. paste display 2"a= $ @dcl_routines dcl$smg_paste_virtual_display window_2 center 
 $ gosub DEBUG  $ say "" $ say "" $ say "" $ inq dummy "Hit RETURN", $ step = "6. create display 3 and put lines"> $ @dcl_routines dcl$smg_create_virtual_display 5 20 window_3 YK $ @dcl_routines dcl$smg_put_line "This is line 1 in window 3." 1 1 window_3RK $ @dcl_routines dcl$smg_put_line "This is line 2 in window 3." 2 1 window_3MK $ @dcl_routines dcl$smg_put_line "This is line 3 in window 3." 3 1 window_3-
 $ gosub DEBUGS $ step = "7. paste display 3"R= $ @dcl_routines dcl$smg_paste_virtual_display window_3 center 
 $ gosub DEBUG" $ say "" $ say "" $ say "" $ inq dummy "Hit RETURN" $ step = "8. clear display 2"L- $ @dcl_routines dcl$smg_clear_screen window_2-= $ @dcl_routines dcl$smg_paste_virtual_display window_3 centere
 $ gosub DEBUGR $ say "" $ say "" $ say "" $ inq dummy "Hit RETURN"  $ step = "8a. unpaste display 2"8 $ @dcl_routines dcl$smg_unpaste_virtual_display window_2; $ @dcl_routines dcl$smg_paste_virtual_display window_1 5 10-= $ @dcl_routines dcl$smg_paste_virtual_display window_3 centere
 $ gosub DEBUGR $ say "" $ say "" $ say "" $ inq dummy "Hit RETURN" $ step = "9. unpaste display 3"K8 $ @dcl_routines dcl$smg_unpaste_virtual_display window_3; $ @dcl_routines dcl$smg_paste_virtual_display window_1 5 10-
 $ gosub DEBUG- $ say "" $ say "" $ say "" $ inq dummy "Hit RETURN"  # $ @sys$login:delete_symbols smg$* N"+ $ append/new smg$debug.temp;* smg$debug.txtu $ exit $! $DEBUG:t" $ define sys$output smg$debug.temp $ define sys$error nl:C $ write sys$output "----------------------------------------------"-0 $ write sys$output "Step: ",step," on ",f$time() $ sh symb/global smg$* $ deassign sys$output  $ deassign sys$error $ return   ------------------------------  % Date: Fri, 23 Nov 2001 01:20:18 -0000l1 From: "Chris Townley" <news@townleyc.demon.co.uk>P' Subject: Re: DEC Supplied user account?-B Message-ID: <1006478922.18774.0.nnrp-01.d4e45fa5@news.demon.co.uk>  ? "Robert Deininger" <rdeininger@mindspring.com> wrote in messagemF news:rdeininger-2111011330320001@user-2ivec09.dialup.mindspring.com...H > In article <21NOV200100440736@gerg.tamu.edu>, carl@gerg.tamu.edu (Carl > Perkins) wrote:  >  > E > > You should probably also have the DisUser flag set on the DEFAULT H > > account. Setting DisMail may not be a bad plan either - it turns outG > > that you can still send e-mail to a DisUsered account (although theLE > > DEFAULT account usually points to a non-existant directory, whichD' > > ought to cause the mail to bounce).k >iI > I had the impression that DEFAULT came pre-equipped with DISUSER, but IlA > checked and it does not.  Note to self: stop relying on memory." >$< Does on mine (DEFAULT is as default!) VMS 7.3 hobbyist alpha  J DisUser means by default when you ADD, which basically copies DEFAULT with@ whatever you supply, it is disusered until you set it /NOdisuser     UAF> sh default$  1 Username: DEFAULT                          Owner:dH Account:                                   UIC:    [200,200] ([DEFAULT])< CLI:      DCL                              Tables: DCLTABLES Default:  [USER] LGICMD:o Flags:  DisUserm# Primary days:   Mon Tue Wed Thu FriB+ Secondary days:                     Sat Sun" No access restrictionsD Expiration:            (none)    Pwdminimum:  6   Login Fails:     0> Pwdlifetime:         90 00:00    Pwdchange:      (pre-expired)> Last Login:            (none) (interactive),            (none) (non-interactive)"9 Maxjobs:         0  Fillm:       100  Bytlm:        64000n9 Maxacctjobs:     0  Shrfillm:      0  Pbytlm:           0f9 Maxdetach:       0  BIOlm:       150  JTquota:       4096m9 Prclm:           8  DIOlm:       150  WSdef:         2000N9 Prio:            4  ASTlm:       250  WSquo:         4000'9 Queprio:         4  TQElm:        10  WSextent:     16384s9 CPU:        (none)  Enqlm:      2000  Pgflquo:      50000a Authorized Privileges:   NETMBX       TMPMBXt Default Privileges:h   NETMBX       TMPMBXU UAF>     -- Chriso   ------------------------------  % Date: Thu, 22 Nov 2001 22:49:51 +0000,1 From: Robert DiRosario <rdirosario@starpower.net>i1 Subject: DSSI VAXcluster manual on line anywhere? - Message-ID: <3BFD810F.C40802F4@starpower.net>    Is the DEC manual  EK-410AB-MG,E2 "DSSI VAXcluster Installation and Troubleshooting" available on the web anywhere?  1 I just picked up a VAX/VMS 7.1 CD set from e-bay,s5 with the documentation CD.  Will it be on the doc CD?m  4 This is my hobby, so $85 for a manual is a bit high.  6 I'm not sure there's any information I need from it  I( just found it referenced in the VMS FAQ.   Thanks Robert   ------------------------------  % Date: Thu, 22 Nov 2001 21:35:40 -0500 * From: Doug Mallory <dmallory@interlog.com> Subject: Re: Emulex QD32, Message-ID: <3BFDB5FC.DE2C7685@interlog.com>   Bill Gunshannon wrote:  ' > On Thu, 22 Nov 2001, Nic Clews wrote:  >$ > > Bill Gunshannon wrote: > > >.N > > > Does anyone here have the configuration/formating utility for a VAX withN > > > an Emulex QD32 SMD Controller??  Preferably in the form of an image thatM > > > could be copied onto a TK50??  Hmmm.  Did this utility run standalone??k > >.L > > Bill, this utility is actually booted off the board itself. I *may* haveJ > > somewhere a QD3x controller manual that details the steps from the VAX > > console, so yes it is SA.  > >  >tQ > It is dependant on the version (and likely, the age) of the card.  After trying N > repeatedly to get the on-board utility to work on two different cards, I dugQ > through my library and found an older manual (which was still newer than eitheriP > of my cards.)  Rather than listing the instructions for entering the ROM basedP > config/format utility it mentions instead a pair of separate diagnostic progs.4 > QXMX8B for the PDP/LSI or FVD32M for the MicroVAX. >oJ > So, I guess an alternative might be if someone has a newer QD32 with theI > on-board utility and is willing to use an EPROM reader to dump the PROM-/ > code in HEX I could always try making my own.n >o > bill >e > --L > Bill Gunshannon          |  de-moc-ra-cy (di mok' ra see) n.  Three wolvesF > bill@cs.scranton.edu     |  and a sheep voting on what's for dinner. > University of Scranton   |@ > Scranton, Pennsylvania   |         #include <std.disclaimer.h>  P Check Your card the Eprom (this is from memory, hope I give you good info.) is aR 27256,if the program rev is high enough for on board diags. There is a jumper wireS near the chip that will be jumpered if the prom is a 256, as an alternate method toCO peeling the label. Ok, if U R lucky enough to have this, again from memory, tryGQ starting you microvax to the >>> prompt from cold boot. then enter the following.c d/w/p 20001f40 20  d/l/p 20088000 80000000  d/l/p 20088004 80000001 3 d/w/p (your csr reg, base address dua is 20001468 1( d/w/p 2000146a 3003) d * 4401* you should see the lets flash on the card. s 80S A menu should come up at this point, you may need to set your nvram params to matchSR the drive char. before you can format etc. but you should be able to show attachedS drives, and see the drive number for your drive, if it set cabled right, regardless" of the nvram settings. Good luck!!k Doug.  The home of all things DEC.a   ------------------------------  % Date: Thu, 22 Nov 2001 22:05:46 -0000v3 From: "Malcolm" <malcolm@neverness.freeserve.co.uk>0$ Subject: Re: F$GETQUI wildcard bug??/ Message-ID: <9tjsnn$34f$1@newsg3.svr.pol.co.uk>    ----- Original Message -----I From: "Simon Clubley" <simon_clubley@remove_me.altavista.co.uk-Earth.UFP>t Newsgroups: comp.os.vmso Sent: 22 November 2001 13:28$ Subject: Re: F$GETQUI wildcard bug??    0 > On Wed, 21 Nov 2001 19:28:12 -0000, in article5 > <9tgv41$b84$1@newsg3.svr.pol.co.uk>, Malcolm wrote:  > >tC > >But, I got it working in the end by putting the queue names in ayE > >comma-separated list, then working on the list. Until I run into as	 situationsA > >where the total list of queue names (and commas) exceeds 2,048' characters,r > >this should work OK.v >+F > To get around the 2048 bytes limit, have you considered putting eachH > item into it's own variable, with each variable having as part of it's* > name a sequentially increasing counter ? > K > For example, in order to implement local variables for some recursive DCLe > code, I do the following:1 >t > $ save_level = level > $ level = level + 1 K > $ local_path_'level' = local_path_'save_level' - "]" + "." + local_file +  "]"'F > $ remote_path_'level' = remote_path_'save_level' + "/" + remote_file > $ gosub process_levels >  > Simon. >sG Yeah. Know about that one. Used it to write a program in DCL to analyzee audit reports ;-)f  J Not brilliantly fast either.... has to parse the audit records as it reads through the report.n  F But it works... gives me a nice summary of login failures and non-selfJ SYSUAF modifications and some other things, and is much easier than wading through the audit log.  	 -Malcolm.    > --B > Simon Clubley, simon_clubley@remove_me.altavista.co.uk-Earth.UFPK > In the task of removing Microsoft from the marketplace, I have discoveredd a G > truly remarkable plan, but this signature is too small to contain it.t   ------------------------------  % Date: Thu, 22 Nov 2001 20:41:46 +0000"% From: Alan Greig <a.greig@virgin.net>n= Subject: Re: Gartner and IDC say HP will effectively kill DLTl* Message-ID: <3BFD6309.2F15E408@virgin.net>   "David J. Dachtera" wrote:  J > Curious. I thought DLT was sold to Quantum, and that most new DLT drivesI > are rebadged Quantums. I'm probably wrong on one count or both. If not, B > I don't see this as Carly's decision to make. DLT is an industry$ > standard at this point, is it not? >   H Correct but the point the analysts were making is that almost all of theJ other main players including IBM and HP are co-developers of Ultrium whichK they have designed as a rival to DLT. Compaq is about the only major vendorlH still firmly in the DLT camp even though it has already started to offerE Ultrium drives instead as an option. Once HP take over Compaq IDC andlI Gartner are saying they will downplay the DLT product. With IBM, Sun, HP, 8 ex-DEC-ex-Compaq all pushing Ultrium DLT will be doomed.   That's their prediction anyway.o   >	 > -- > David J. Dachterad > dba DJE Systems  > http://www.djesys.com/ > * > Unofficial Affordable OpenVMS Home Page:! > http://www.djesys.com/vms/soho/O   --
 Alan Greig   ------------------------------  % Date: Thu, 22 Nov 2001 20:46:57 +0000m% From: Alan Greig <a.greig@virgin.net>e= Subject: Re: Gartner and IDC say HP will effectively kill DLTr* Message-ID: <3BFD6441.EE596703@virgin.net>   JF Mezei wrote:+   > "David J. Dachtera" wrote:L > > Curious. I thought DLT was sold to Quantum, and that most new DLT drivesK > > are rebadged Quantums. I'm probably wrong on one count or both. If not,$D > > I don't see this as Carly's decision to make. DLT is an industry& > > standard at this point, is it not? >:O > But if HP, thinking it will maintain a near monopoly, start to use some otherdO > technology, then they think that they could set the new industry standard. IfKL > HP stops using DLT, then  Qantum does lose a big customer. But my guess is@ > that HP would remain alone and customers would still want DLT.  N On paper the new Ultrium drives have greater capacity and faster transfer rateQ than the first SuperDLT drives. Unlike DAT they are supposed to be as suitable as0> DLT for multiple use and reliability. Oh they're also cheaper.  O We intend to evaluate SuperDLT v Ultrium. Currently we are all DLT on VMS, Unix!Q and NT/W2K but Ultrium does look good on paper I have to admi. Need to see one in ! action before commenting further.;   --
 Alan Greig   ------------------------------  % Date: Thu, 22 Nov 2001 20:49:26 +0000 % From: Alan Greig <a.greig@virgin.net>p= Subject: Re: Gartner and IDC say HP will effectively kill DLTs* Message-ID: <3BFD64D5.79C89915@virgin.net>   Malcolm Dunnett wrote:  : > In article <u0vpvtsvbd0j5k9mq8dk60eg8re7sh63ar@4ax.com>,, >    Alan Greig <a.greig@virgin.net> writes: >iI > > Supposedly DLT/SuperDLT sales are still mainly through Compaq brandedo > > products or related sales. >i9 >     Most of our DLT drives are HP branded, the rest areu; > Quantum branded. I don't know how much following SuperDLT  >i  J I wonder if Quantum have made a mistake in not just calling it DLT10000 or@ DLT X or something. SuperDLT drives can read ordinary DLT tapes.  7 > has, so it might be logical to kill it in favour of a_= > different technology - but it seems that the installed base,: > of earlier DLT technologies would make it unadvisable to
 > kill it.   --
 Alan Greig   ------------------------------  % Date: Thu, 22 Nov 2001 20:04:42 +0000i4 From: Andrew Swallow <andrew.swallow@baesystems.com>2 Subject: Re: Gartner hints VMS to be dropped by HP. Message-ID: <3BFD5A5A.B74A2B53@baesystems.com>   Fabio Cardoso wrote: >  > VMS outside USA ?_ >  > I dont believe...i > / > American military (NSA/CIA/DIA) are excessiveu3 > paranoics to permit a secure OS in the hands of a / > foreign company. Its why I think there is thed4 > possibility of it being militarized by Lockeed for > example !E  4 I was employed by the defence division of a British 6 company that was purchased by a German company.  (They9 wanted the civilian side's factories.)  The MOD required s7 the German company to split the military side from the c6 civil side and make it into its own company.  All the 6 Directress of the armaments company were to be British5 and only unclassified information was to be passed top1 the Germans.  In practice that meant an unauditedt1 copy of the annual accounts, updated every month.04 Although they may had some information about repairs4 to the car park and press releases before the press. -- U7 _______________________________________________________  Andrew Swallow   ------------------------------  % Date: Thu, 22 Nov 2001 20:08:40 +0000"4 From: Andrew Swallow <andrew.swallow@baesystems.com>2 Subject: Re: Gartner hints VMS to be dropped by HP. Message-ID: <3BFD5B48.41A3910A@baesystems.com>   "Doc.Cypher" wrote:y >  [snip] > F > What I would like to see is completely different and I suspect wouldI > require VMS be acquired by a caring owner (any plausible suggestions?).s   VMS.COM ltd   . Now who wants to float it on the stock market? -- e7 _______________________________________________________< Andrew Swallow   ------------------------------  % Date: Thu, 22 Nov 2001 20:30:11 +00003% From: Alan Greig <a.greig@virgin.net>D2 Subject: Re: Gartner hints VMS to be dropped by HP) Message-ID: <3BFD6053.C14BD05@virgin.net>e   JF Mezei wrote:e  P > Since it is pretty well a known fact that Compaq or HP will eventually annouceN > the death of VMS, only the timing remains unknown. I don't think anyone willP > go ballistic anymore. I, for one, am resigned that this will happen eventually2 > so when it happens, it won't be such a big item.  R Believe me I'll go ballistic! I wouldn't keep this up if I didn't think there is aR reasonable chance of persuading HP the value of what it may be about to get. Maybe@ Curly can give Carly a matching VMS license plate for Christmas.   --
 Alan Greig   ------------------------------  # Date: Thu, 22 Nov 2001 20:48:41 GMT " From: Art Rice <arice@myhouse.org>2 Subject: Re: Gartner hints VMS to be dropped by HP7 Message-ID: <JwdL7.118$OW.86976@paloalto-snr1.gtei.net>"   Jerry Leslie wrote:r  1 > Fabio Cardoso (fabiopenvms@yahoo.com.br) wrote:= > : VMS outside USA ?  > :l > : I dont believe..._ > 1 > : American military (NSA/CIA/DIA) are excessive"5 > : paranoics to permit a secure OS in the hands of a=1 > : foreign company. Its why I think there is thee6 > : possibility of it being militarized by Lockeed for
 > : example !m > :_ > 7 > Remember that the US Navy has picked Windows 2000 fori > their next nuclear carrier:i > 2 >    http://www.gcn.com/vol19_no27/dod/2868-1.html! >    Navy carrier to run Win 2000w >    From the above link:  G "This is a new area for us, said Keith Hodson, a Microsoft Government lJ spokesman. Windows-based products have not traditionally been associated @ with Defense Department-specific mission-critical applications."  7 We already knew that and that is what is so frightning.   F "It takes 1,000 sailors just to get a ship moving, Williamson said. I Microsoft software could let the ships crew know when theres a pending 2> failure in a ships engineering system, for example, he said."  L Now, tell me.  Just what, or who, is going to let the ship's crew know when 2 there is a pending failure in the ship's software?  K I also have problems with journalists that do not know how to punctuate or .B the organization that does not proof read before publication.  My J punctuation is terrible but then,   I'm not inviting the world to read my  .com website. Just my opinion.     Snipped    > 6 > --Jerry Leslie     (my opinions are strictly my own) >    -- t Art Rice, Tandem Admin Special Data Processing Corp ----------------------------L All opinions are my own and do not reflect the views of the above mentioned 	 employer._   ------------------------------  # Date: Thu, 22 Nov 2001 20:59:54 GMTi  From: cjt <cheljuba@prodigy.net>2 Subject: Re: Gartner hints VMS to be dropped by HP+ Message-ID: <3BFD673F.C148F530@prodigy.net>u   Jerry Leslie wrote:p > 1 > Fabio Cardoso (fabiopenvms@yahoo.com.br) wrote:a > : VMS outside USA ?d > :  > : I dont believe..._ > 1 > : American military (NSA/CIA/DIA) are excessive 5 > : paranoics to permit a secure OS in the hands of a 1 > : foreign company. Its why I think there is thes6 > : possibility of it being militarized by Lockeed for
 > : example !u > :$ > 7 > Remember that the US Navy has picked Windows 2000 for- > their next nuclear carrier:- > 2 >    http://www.gcn.com/vol19_no27/dod/2868-1.html! >    Navy carrier to run Win 2000s  K Didn't they announce that right around the time Bill Gates took a big stake-1 in one of the few remaining American shipyards?    > 6 > : USA spies their owns allies - what do you think in7 > : having a "unhackable" operating system in France or.3 > : Hungary, near the Russian or Chinese  border...n > :< > F > Read the following two articles and then decide what US government's- > policy is towards its domestic IT industry:a > 0 >    http://www.iie.com/papers/greenspan1001.htm >  >    GLOBALIZATION  >    by Alan Greenspan, Chairman >    Federal Reserve Board9 >    Speech at the Institute for International Economics'y- >    First Annual Stavros S. Niarchos Lectureh >    24 October 2001 > 
 >    [ snip ]e > = >    "...Nevertheless technological advance and globalizationo@ >     distress those who once thrived in industries that were at= >     the forefront of technology but which have since become " >     increasingly noncompetitive. > 
 >    [ snip ]t > ? >    Rather than inhibiting international competition to assista< >    those displaced by "creative destruction," we should beA >    directing our efforts at enhancing job skills and retrainingi= >    workers-a process in which the private market is already$@ >    engaged. If necessary, selected income maintenance programs8 >    can be employed for those over a certain age, where# >    retraining is problematic...."  > 6 >    http://www.state.gov/p/sa/rt/index.cfm?docid=4850% >    The Future of US-India Relations  > - >    Robert D. Blackwill, Ambassador to Indiaa9 >    Remarks to the Indo-American Chamber of Commerce ande >    Indo-American Society >    Mumbai, India >    September 6, 2001 > A >    "...Nearly 40 percent of America's Fortune 500 companies nowc8 >    outsource their software needs to Indian companies.@ >    Opportunities for our two countries to expand collaboration/ >    in the knowledge-based sector are vast..."c > 6 > --Jerry Leslie     (my opinions are strictly my own)   ------------------------------  % Date: Thu, 22 Nov 2001 20:54:42 +0000l% From: Alan Greig <a.greig@virgin.net>p2 Subject: Re: Gartner hints VMS to be dropped by HP* Message-ID: <3BFD6612.ED121714@virgin.net>   Art Rice wrote:    >r > From the above link: > H > "This is a new area for us, said Keith Hodson, a Microsoft GovernmentK > spokesman. Windows-based products have not traditionally been associated0 >,  ; Oh no not "Microsoft Government spokesman" again! Shiver...D  B > with Defense Department-specific mission-critical applications." >s9 > We already knew that and that is what is so frightning.A >uG > "It takes 1,000 sailors just to get a ship moving, Williamson said. J > Microsoft software could let the ships crew know when theres a pending@ > failure in a ships engineering system, for example, he said." >aM > Now, tell me.  Just what, or who, is going to let the ship's crew know whent4 > there is a pending failure in the ship's software? >   ' Norton Tools for Battleship Windows :-(,   >oL > I also have problems with journalists that do not know how to punctuate orC > the organization that does not proof read before publication.  MyGK > punctuation is terrible but then,   I'm not inviting the world to read myn  > .com website. Just my opinion. >y	 > Snippedv >h > >f8 > > --Jerry Leslie     (my opinions are strictly my own) > >2 >D > -- > Art Rice, Tandem Admin > Special Data Processing Corp > ----------------------------M > All opinions are my own and do not reflect the views of the above mentionedy > employer.h   --
 Alan Greig   ------------------------------  # Date: Fri, 23 Nov 2001 04:45:40 GMT * From: "Bill Todd" <billtodd@metrocast.net>2 Subject: Re: Gartner hints VMS to be dropped by HP@ Message-ID: <UvkL7.85188$2w.4897040@bin4.nnrp.aus1.giganews.com>  0 Alan Greig <a.greig@virgin.net> wrote in message2 news:sjtpvto1co05gtals9coevfve9nev4rbrq@4ax.com...   ...   H > It is my belief that Carly and the HP board are not aware of what theyD > will have in OpenVMS but may just be beginning to see the picture.  L Can you produce *one* credible piece of evidence - or even the suggestion ofL such evidence - that indicates in any way that Carly and/or the HP board areG beginning to see as far as the ends of their noses, let alone something  specific about VMS?O    Ito@ > is best they too come to the conclusion reluctantly (it seems)B > reached by Compaq that killing VMS would incur far more pain andF > financial loss than continuing to port, develop and ****MARKET*****.  J Well, yuh.  And before that, it would have been best if Compaq had come toL the conclusion that VMS was worth some actual attention rather than simply aA retroactive band-aid after the Alphacide to keep it from expiringhH immediately.  And before *that*, it would have been nice for DEC to have
 done so...  J Wake up, Alan:  the only way VMS is going to get any better treatment thanH it has gotten from Compaq and DEC is to engineer a radical change in itsK owner.  HP does not constitute such a change:  rather, it is picking up thefK existing Compaq management and running with it - in the same direction.  IfeF you want to minimize your chances of 'going ballistic' (which under HPF management seems just as likely an outcome as under the current CompaqK management), don't waste your time and effort the way you've wasted them ineI the past:  find some way to work on the *problem* (the existing corporatenI management, whose incompetence has hardly been limited to VMS and appears I absolutely irreversible) rather than keep trying to convince these idiots H how wrong they are (since in this case past performance *is* a very good< indication of likely future effectiveness in this endeavor).   - bill   ------------------------------  % Date: Fri, 23 Nov 2001 07:19:30 +0100-1 From: John McLean <mcleanj@swissonline.delete.ch>s2 Subject: Re: Gartner hints VMS to be dropped by HP5 Message-ID: <3BFDEA71.9D6EE762@swissonline.delete.ch>    Bill Todd wrote: > 2 > Alan Greig <a.greig@virgin.net> wrote in message4 > news:sjtpvto1co05gtals9coevfve9nev4rbrq@4ax.com... >  > ...o > J > > It is my belief that Carly and the HP board are not aware of what theyF > > will have in OpenVMS but may just be beginning to see the picture. > N > Can you produce *one* credible piece of evidence - or even the suggestion ofN > such evidence - that indicates in any way that Carly and/or the HP board areI > beginning to see as far as the ends of their noses, let alone somethingv > specific about VMS?o >  >  ItaB > > is best they too come to the conclusion reluctantly (it seems)D > > reached by Compaq that killing VMS would incur far more pain andH > > financial loss than continuing to port, develop and ****MARKET*****. > L > Well, yuh.  And before that, it would have been best if Compaq had come toN > the conclusion that VMS was worth some actual attention rather than simply aC > retroactive band-aid after the Alphacide to keep it from expiringrJ > immediately.  And before *that*, it would have been nice for DEC to have > done so... > L > Wake up, Alan:  the only way VMS is going to get any better treatment thanJ > it has gotten from Compaq and DEC is to engineer a radical change in itsM > owner.  HP does not constitute such a change:  rather, it is picking up the M > existing Compaq management and running with it - in the same direction.  IfEH > you want to minimize your chances of 'going ballistic' (which under HPH > management seems just as likely an outcome as under the current CompaqM > management), don't waste your time and effort the way you've wasted them in:K > the past:  find some way to work on the *problem* (the existing corporatedK > management, whose incompetence has hardly been limited to VMS and appears.K > absolutely irreversible) rather than keep trying to convince these idiotsaJ > how wrong they are (since in this case past performance *is* a very good> > indication of likely future effectiveness in this endeavor). >  > - bill  ' Here's one line which might be pursued.s  H According to the HP merger documents, Hewlett-Packard can call the whole> deal off if they are unhapy with any significant change to theG management structure of Compaq.  (IIRC the "significant change" means a F change in the Board of Directors.)  Specifically noted is that HP mustE feel that they can "get along with" whatever BoD are in place.  (TheyoB specifically mention Capellas as someone they can get along with.)  H Derailing the board with a vote of No-confidence and replacing them withD a BoD which is less PC-centric might BOTH scuttle the merger and getF some marketing emphasis into the most profitable product lines, namely
 the high-end.f     John McLean    ------------------------------  % Date: Thu, 22 Nov 2001 20:11:55 +0000 4 From: Andrew Swallow <andrew.swallow@baesystems.com> Subject: Re: Life After AlphaG. Message-ID: <3BFD5C0B.B6831E26@baesystems.com>   "David J. Dachtera" wrote: >  [snip] >  > Cheaper? Certainly!9 > 2 > Better? Debatable (please don't, though, okay?). >    In the Unix v Windows fight!  5 Compaq will soon sell only Windows on X86 processors.  --  7 _______________________________________________________h+ Andrew Swallow (7605) 2225   Cowes site, UKe andrew.swallow@baesystems.comt   ------------------------------  # Date: Thu, 22 Nov 2001 22:35:00 GMTw) From: "Madman" <madman@killthewabbit.org>s Subject: Re: Life After Alphat? Message-ID: <o4fL7.59469$XJ4.35281011@news1.sttln1.wa.home.com>P  ? "Terry C. Shannon" <terryshannon@mediaone.net> wrote in messages5 news:%c6L7.1219$682.222006@typhoon.ne.mediaone.net...s [snip] >LK > Thanks, Doc... but somehow I don't think that'll be a problem for me. YoueJ > see, I'll be flying from Boston to Dallas today on United Airlines. They noI > longer serve food on their domestic flights that are under 3 1/2 hours,  andi, > my itinerary includes two 2-hour legs. ;-} >eL Had that happen recently, and my short layover was in Detroit - probably theL scummiest airport I've ever been in, and incredibly beer-challenged.  When IG finally got to my destination, it was after midnight and everything was9L closed; I hadn't eaten anything since the previous morning.  And they wonder where air rage comes from.  L I stopped flying United some time ago because it was obvious that profit wasH much more important than customer satisfaction - which brings us back to< Compaq!  I knew I could steer this back on topic....  -- Ian   ------------------------------  % Date: Thu, 22 Nov 2001 16:41:05 -0500 ( From: David Froble <davef@tsoft-inc.com> Subject: Re: Life After Alpha , Message-ID: <3BFD70F1.9090706@tsoft-inc.com>   Andrew Swallow wrote:d   > "David J. Dachtera" wrote: >  > [snip] >  >>Cheaper? Certainly!  >>2 >>Better? Debatable (please don't, though, okay?). >> >> >  > In the Unix v Windows fight! > 7 > Compaq will soon sell only Windows on X86 processors.h >   B Slight correction.  Compaq will OFFER for sell only Windoz on X86 H processors.  Who will buy from a company that has a proven track record E for lying to customers and breaking commitments, and who tells their s' customers with a problem "get over it".n   Dave   --  4 David Froble                       Tel: 724-529-04504 Dave Froble Enterprises, Inc.      Fax: 724-529-0596> DFE Ultralights, Inc.              E-Mail: davef@tsoft-inc.com6 T-Soft, Inc.  170 Grimplin Road  Vanderbilt, PA  15486   ------------------------------  # Date: Thu, 22 Nov 2001 21:23:23 GMT ) From: martin.hunt@inl.co.nz (Martin Hunt)e Subject: NTP under TCPIP V5.1m7 Message-ID: <3bfd67c2.78509690@news.wlg.netlink.net.nz>t  D I have recently upgraded a VAX from TCPIP services V4.2 to V5.1 (ECO; 3). NTP was working fine before, but now is having problemsh@ synchronising with an NTP server. The log file doesn't give muchE information compared with the old version, but when I set the logicalh= TCPIP$NTP_LOG_LEVEL to 6, I get heaps of messages, including:e  ; invalid packet header 202.36.63.50 0x80 0.098969 453.170639l  F Occasionally, the VAX manages to synchronise, but more often it fails.  C The "peer" command in the ntpq program shows the following, which IUF presume means it hasn't been able to contact the server (documentation? is a bit poor on this, and makes reference to a unix manual for: further information!).  F      remote           refid      st t when poll reach   delay   offset dispN ==============================================================================E 202.36.63.50    0.0.0.0         16 u   26   64    0     0.00    0.000e 16000.0s  ( Any help or hints would be appreciated.    ---  Martin Hunta Systems Administrator  Independent Newspapers Limited
 Wellington New Zealandm   ------------------------------  % Date: Thu, 22 Nov 2001 18:58:47 +0000r4 From: Andrew Swallow <andrew.swallow@baesystems.com>I Subject: Re: Of Bogusity and Benchmarketeering (was Re: Life After Alpha)u. Message-ID: <3BFD4AE7.820CEA30@baesystems.com>   JF Mezei wrote:6 >  > David Froble wrote:  > > Why, when it comes to Intel and Microsoft, we're suppost to wait for some promised wonder, when everybody else 'has it now'? > P > Yes because companies such as Compaq and Digital under Palmer strongly believeO > that both Intel and Microsoft are tidal waves that cannot be stopped and that J > the only way to survive is to follow them instead of being against them.  > There is a third tidal wave - ARM microprocessors.   More ARMs< are sold than X86s.  (More mobile phones are sold than PCs.)  = It would therefor be advisable for Compaq to start making ARMg8 microprocessors.   Since ARMs are optimized for very low9 power a faster version will be needed when selling to thec9 consumer market.  The old Acorn customer base plus peopleJ7 developing software for embedded ARMs would make a goode entry point. --  7 _______________________________________________________d Andrew Swallow   ------------------------------   Date: 23 Nov 2001 03:12:39 GMT& From: peter@abbnm.com (Peter da Silva)I Subject: Re: Of Bogusity and Benchmarketeering (was Re: Life After Alpha)h% Message-ID: <9tker7$kro@web.nmti.com>i  + In article <3BFD2635.561B567E@ecubics.com>, * emanuel stiebler  <emu@ecubics.com> wrote: > David Froble wrote:t > > Why, when it comes to Intel and Microsoft, we're suppost to wait for some promised wonder, when everybody else 'has it now'?  H > Because you have to wait until THEY "invent" it . (VLIW, multitasking, > ....)   3 Any day now they'll have something like security...l   -- a+  `-_-'   In hoc signo hack, Peter da Silva.mE   'U`    "A well-rounded geek should be able to geek about anything." L                                                        -- nicolai@esperi.org          Disclaimer: WWFD?   ------------------------------  # Date: Fri, 23 Nov 2001 04:08:35 GMTn5 From: "Joann Difrancesco" <joanndifrancesco@home.com> I Subject: Re: Of Bogusity and Benchmarketeering (was Re: Life After Alpha) > Message-ID: <7ZjL7.109897$pb4.66060349@news2.rdc2.tx.home.com>  2 "Alan Greig" <a.greig@virgin.net> wrote in message2 news:l00qvtsk8te37sao2sodc5gas9lfov5ofp@4ax.com.... > On Thu, 22 Nov 2001 07:58:53 -0500, JF Mezei' > <jfmezei.spamnot@videotron.ca> wrote:w >d > L > >Compare this with Alpha which was able to achieve much of its performanceI > >without incredible clock rates. IA64 will turn out quite expensive for  Intel 9 > >if it must build new FAB plants to keep up with Power.n >sG > Although Compaq turn this logic on its head and claim that it will berF > too expensive for IBM to build new FAB plants to keep up with Intel. >i  K Compaq can make that claim all they want, but note that IBM is probably thedD world's largest captive fabber right now, and they appear to have noE intention of exiting the market any time soon. I suspect IBM can keep J fabbing (and cranking the Power architecture) for as long as it so chooses% regardless of what Compaq has to say!    ------------------------------  % Date: Thu, 22 Nov 2001 18:59:20 -0000i; From: "David McKenzie" <david.mckenzie@computershare.co.uk>L Subject: Re: PathworksB Message-ID: <1006455554.28973.0.nnrp-08.c1edba74@news.demon.co.uk>   Ahh, yes  C More than one interface? There is a logical to tell pathworks which-L interface to use for broadcast NETBIOS calls. I just can't recall it now. IfH someone else doesn't jump on this, send me a mail and I will look it up.   -- David McKenzie Charon Consulting (Australia)a( david.mckenzie@mig.spitfire0.demon.co.uk   (But who wants a Mig?)   !i4 "Chatelard" <piper.lyon@wanadoo.fr> wrote in message news:9tj55r$n2q$1@wanadoo.fr...e > Hi,i >tJ > I'm trying to set up  a remote connection to an alpha server running VMS' > 7.1-2 Tcp/IP 5.0 and Pathworks V6.0B..I > I can't see or map the print and directory shares.I can just log on then > system ( via PPPD).d< > Is there any parameters to set up ( multiple interfaces )./ > The same PC connected via the lan works fine.a >o > Thanks >  > Eric >e >0 >  >  >  >s   ------------------------------  % Date: Thu, 22 Nov 2001 20:10:29 +0000 % From: "a.carlini" <arcarlini@iee.org>nJ Subject: Re: RMS file structure internals documentation freely available ?' Message-ID: <3BFD5BB5.A6DEEF71@iee.org>t   Bill Todd wrote:I > The most recent description I've heard of was a set of slides by ElinoraJ > Woods for 1990 Spring DECUS describing indexed file internals as of that > point in time.  , Slightly older (but probably not much older) are the handout notes for the  RMS data structures course! (by the above mentioned Ms Woods,m apparently). I'd quote the" exact title but it's in the office at the moment.   Antonioa   -- s   --------------- - Antonio Carlini             arcarlini@iee.org?   ------------------------------   Date: 22 Nov 2001 23:48:13 GMT& From: peter@abbnm.com (Peter da Silva)N Subject: Re: Special IPF-Inside Issue of Shannon Knows Compaq at www.tru64.org% Message-ID: <9tk2rt$s6b@web.nmti.com>6  , In article <3BFA1CD7.3E15A01C@videotron.ca>,/ JF Mezei  <jfmezei.spamnot@videotron.ca> wrote:eN > What is the difference between a real court of law and a military tribunal ?   Rules of evidence, mostly.  K > Is it a case of the "evidence" being usable in a military tribunal due toiM > secrecy, or a case of the evidence not being needed to convinct Bin Laden ?    The former.0  M > And in a military tribunal, once summarily convincted of whatever crimes heeO > would be guilty of under military law, what sort of punishment could be given   F The last time a civilian was tried under a military tribunal in the US. was, IIRC. the Rosenbergs. They were executed.   -- a+  `-_-'   In hoc signo hack, Peter da Silva.cE   'U`    "A well-rounded geek should be able to geek about anything.".L                                                        -- nicolai@esperi.org          Disclaimer: WWFD?   ------------------------------  # Date: Thu, 22 Nov 2001 19:38:37 GMTt" From: "Hans Vlems" <hvlems@iae.nl> Subject: Re: SYSTEM-F-NOLINKSt/ Message-ID: <1vcL7.790$Dp.2809@typhoon.bart.nl>l  F If you see a NET-APP-something license then the system is licensed forG TCP/IP and DECnet. That is, certainly DECnet endnode, possibly routing.hL A DECnet license gives you the choice to run phase IV (with the NCP utility)J or phase V (comes with ncl and is considered very user unfriendly by many,; even if it provides a good deal more information than NCP).p   Hans  , Soterro <soterro@yahoo.com> wrote in message7 news:d5440555.0111220940.485cc6be@posting.google.com... H > "David McKenzie" <david.mckenzie@computershare.co.uk> wrote in messageK > > Do you have an active decnet license? If you are using two adapters, dom youn > > have a routing license?o > D > The machine is single homed and I have no DecNet license at all onF > that machine, since nobody ever thought about using DecNet. Just theG > UCX license and a NET-APP-something that might be also related to the 
 > network. >oE > Do I have to get a DecNet license to be able to run some TCP/IP? OnpF > the other hand the usual network applications are working fine (ftp,F > telnet...) it's just this one which refuses to connect. Actually theE > server for it runs, just the client cannot connect because of theserH > limited links. OK, maybe it's an application issue and I'm asking hereF > the wrong person, but I would appreciate any hint here so at least I > know what to ask for.o >vE > One detail: the SHOW NET/FULL is showing just 4 sockets for tcp/ip:rC > telnet server, the application server, and two another sockets (aeG > dgram and a stream) listening on port 0 (?!). When I telnet in or outh= > I can do it with I no problem, the network links are happy.  >C
 > Regards, > Sorin Costea   ------------------------------  % Date: Thu, 22 Nov 2001 23:06:26 +0100 , From: Didier Morandi <Didier.Morandi@gmx.ch>$ Subject: Re: You are invited to this& Message-ID: <3BFD76E1.2DE76911@gmx.ch>  & "Brian Schenkenberger, VAXman-" wrote:  ( > Sadly, 0.9.5 DOES NOT WORK ON MY ALPHA  N Brian, 096 has been released two days ago. Available from mozilla.org (not yet from COMPAQ)  M Installed on AlphaStation 250 4x266 ok. I even posted a message here with it.bI The only problem I had is that I wanted to cancel it because there was mydH Customer's name into its header, but the NNTP server said "no way Jos".   D.   ------------------------------   End of INFO-VAX 2001.651 ************************