1 INFO-VAX	Sun, 06 Jul 2003	Volume 2003 : Issue 370       Contents: Re: Are HP listening?  Re: Are HP listening? ; Re: BLASTed directory locks, timing windows & endless loops - Re: more on DSSI disks and allocation classes @ Re: More than VMS is required, but VMS is a great starting point Re: Running VMS off CD, Re: VAT for non-EU suppliers to EU customers, Re: VAT for non-EU suppliers to EU customers( Re: VMS Quality (was: Are HP listening?) Re: what is VMS advanced Server   F ----------------------------------------------------------------------  % Date: Sat, 05 Jul 2003 23:06:27 -0500 1 From: "David J. Dachtera" <djesys.nospam@fsi.net>  Subject: Re: Are HP listening?' Message-ID: <3F07A043.BC8ABBCF@fsi.net>    Dave Brennan wrote:  > [snip]G > The real problem is that VMS is still run by people who live in a DEC D > world. The time has come to move out of the 1970's and think about% > packaging VMS for the next century.   A I'd make that, "... the new century." The next one is a couple of  generations away.    --   David J. Dachtera  dba DJE Systems  http://www.djesys.com/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/    ------------------------------  % Date: Sat, 05 Jul 2003 23:14:50 -0500 1 From: "David J. Dachtera" <djesys.nospam@fsi.net>  Subject: Re: Are HP listening?' Message-ID: <3F07A23A.6C67B8A8@fsi.net>   G Re: the subject, "Are HP Listening?", experience to date indicates that  they are/do not.   "Doc.Cypher" wrote:  > [snip]/ > Here's my correspondent's list of suggestions  > ? > 1.  Get a major application such as SAP running on VMS again.   F Get major packages back, like Polycenter. The current poor excuses forH system management tools are, at the very least, albatrosses: an absolute6 disgrace and, at the very best, an industry-wide joke.  9 > 2.  Get Oracle to treat VMS with a little more respect.   A That would help, yes. Getting them on board with that could prove C challenging now that we are seeing the (re-)ascendency of UN*X-like 
 platforms.  ( > 3.  Market outside the installed base.  4 Always has been and always will be an absolute must.  * > 4.  Invest in the Educational Programme. > M > 5.  Reintroduce lower-cost hardware and offer a low-cost turnkey web server  >     platform.   B Even among the staunchest VMS hold outs, I'm finding less and lessG support for such a scheme. That's funny because a local daily newspaper F today had aquote from the Dallas Morning News which indicated that theF "Do Not Call" registry received so many hits during its first hours of? operation that the server crashed. The author asked, "Is anyone F surprised by this?" Of course, I couldn't help but wonder whether thatG crash could have been avoided by using a VMS-based server that had been ' properly designed for scale and volume.    --   David J. Dachtera  dba DJE Systems  http://www.djesys.com/  ( Unofficial Affordable OpenVMS Home Page: http://www.djesys.com/vms/soho/    ------------------------------  * Date: Sun, 6 Jul 2003 10:11:56 +0000 (UTC)3 From: "Richard Maher" <maher_rj@hotspamnotmail.com> D Subject: Re: BLASTed directory locks, timing windows & endless loops/ Message-ID: <be8sl8$d6s$1@titan.btinternet.com>   
 Hi Keith, Jim   H Keith, thanks very much for taking the time to get and translate the SDAJ output for me! As Jim explains, the reason I didn't believe/understand youG about the arbitration lock was that I'm on a stand alone-machine (which > apparently doesn't use these locks) and you were on a cluster.  L Jim, I hope we never fall out 'cos you've got this great habit of telling meL exactly what I want to know and not much else. I'm not gonna bother with theJ File-Closed/File-Creation-Finished thing at the moment as most people seemK to use trigger files anyway but if I ever do I assume the FCB address is in K skb$l_fcb and the bits of interest are somewhere in fcb$l_status(rmslock or  excl) or fcb$b_acclkmode?   F I was waiting until I'd come up with a UWSS version of the code with aL lovely Kernel mode rundown routine that ensures all locks are dequeued but II don't have the time at the moment, so I attached the COBOL code I've been F using to test this stuff out. WARNING: DO NOT run this in a productionJ environment!!! This code can easily crash your system. One way is a simpleK Ctrl-Y that stops the image but leaves the lock there, so when someone does J a DIR of the directory in question the blocking AST can't be delivered and good-night.   . While you're here a couple of other questions:  L 1) I use lck$_prmode so that I can't invalidate the lock value block but I'mE incorrectly treating the an invalid lock value block as a "No Change" L condition when I should really check to see if my file has been created. ButF if the io$_access didn't revalidate the LVB then my endless loop would8 happen again. Will a $DIR or $CREATE revalidate the LVB?  L 2) With the lck$m_cvtsys locks that you spoke about, how does one recover orJ resume control (if not ownership) of these locks from another process when: the initiating process dies? Like an Rdb recovery process?  K Thanks again to both of you for the help with this! (And sorry for the late L reply. VMS engineering's refusal to fix a bug with $getdti has left me doingL a lot more work than I thought, and my selfish arse landlord decided to sell& the place so we're busy moving house.)   Cheers Richard Maher  # Obviously replace the & with space.    $on&warning&then&exit  $create&serial_lock.cob  identification&division. program-id.&&&&serial_lock.  author.&&&&&&&&Richard&Maher.  *  environment&division.  configuration&section. special-names.) &&&&symbolic&characters&fab$c_bid&is&&4,& ( &&&&&&&&&&&&&&&&&&&&&&&&fab$c_bln&is&81,( &&&&&&&&&&&&&&&&&&&&&&&&nam$c_bid&is&&3,( &&&&&&&&&&&&&&&&&&&&&&&&nam$c_bln&is&97. *  data&division. working-storage&section.L 01&&io$_access&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&io$_access . K 01&&dc$_disk&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&dc$_disk. L 01&&nam$m_node&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&nam$m_node . L 01&&nam$m_wildcard&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&nam$m_wild card. L 01&&nam$m_search_list&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&nam$m_sear ch_list.L 01&&lib$_nowild&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&lib$_nowil d.L 01&&rms$_normal&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&rms$_norma l.L 01&&ss$_wasset&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_wasset . L 01&&ss$_wasclr&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_wasclr . L 01&&ss$_nosuchfile&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_nosuch file. L 01&&ss$_valnotvalid&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_valnot valid.L 01&&ss$_unsupported&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_unsupp orted.L 01&&ss$_ivlockid&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_ivlock id. L 01&&ss$_normal&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_normal . - 01&&sys_status&&&&&&&&&&pic&9(9)&&&&&&&&comp.  *  01&&parse_fab.B &&&&03&&fab$b_bid&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&fab$c_bid.B &&&&03&&fab$b_bln&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&fab$c_bln.C &&&&03&&&&&&&&&&&&&&&&&&pic&x(6)&&&&&&&&&&&&&&&&value&&&low-values. - &&&&03&&fab$l_sts&&&&&&&pic&9(9)&&&&&&&&comp. - &&&&03&&fab$l_stv&&&&&&&pic&9(9)&&&&&&&&comp. C &&&&03&&&&&&&&&&&&&&&&&&pic&x(24)&&&&&&&&&&&&&&&value&&&low-values. L &&&&03&&fab$l_nam&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&parse_nam.J &&&&03&&fab$l_fna&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&in_name.C &&&&03&&&&&&&&&&&&&&&&&&pic&x(4)&&&&&&&&&&&&&&&&value&&&low-values. > &&&&03&&fab$b_fns&&&&&&&pic&x&&&&&&&&&&&&&&&&&&&value&&&x"3C".C &&&&03&&&&&&&&&&&&&&&&&&pic&x(27)&&&&&&&&&&&&&&&value&&&low-values.  *  01&&parse_nam.B &&&&03&&nam$b_bid&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&nam$c_bid.B &&&&03&&nam$b_bln&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&nam$c_bln.C &&&&03&&nam$b_rss&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&low-values. ! &&&&03&&&&&&&&&&&&&&&&&&pic&x(5). L &&&&03&&nam$l_nop&&&&&&&pic&9(4)&&&&&&&&comp&&&&value&&&external&&nam$m_noco nceal.D &&&&03&&nam$b_ess&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&high-values.! &&&&03&&nam$b_esl&&&&&&&pic&x(1). L &&&&03&&nam$l_esa&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&expanded_f ile.C &&&&03&&&&&&&&&&&&&&&&&&pic&x(4)&&&&&&&&&&&&&&&&value&&&low-values.  &&&&03&&nam$t_dvi. &&&&&&&&05&&dvi_len&&&&&pic&x." &&&&&&&&05&&dvi_name&&&&pic&x(15).! &&&&03&&&&&&&&&&&&&&&&&&pic&x(6).  &&&&03&&nam$t_did.- &&&&&&&&05&&did_num&&&&&pic&9(4)&&&&&&&&comp. - &&&&&&&&05&&did_seq&&&&&pic&9(4)&&&&&&&&comp. ! &&&&&&&&05&&&&&&&&&&&&&&pic&x(1). ! &&&&&&&&05&&did_rvn&&&&&pic&x(1). C &&&&03&&&&&&&&&&&&&&&&&&pic&x(4)&&&&&&&&&&&&&&&&value&&&low-values. - &&&&03&&nam$l_fnb&&&&&&&pic&9(9)&&&&&&&&comp. C &&&&03&&&&&&&&&&&&&&&&&&pic&x(20)&&&&&&&&&&&&&&&value&&&low-values. 0 &&&&03&&nam$l_name&&&&&&&&&&&&&&&&&&&&&&pointer.C &&&&03&&&&&&&&&&&&&&&&&&pic&x(16)&&&&&&&&&&&&&&&value&&&low-values.  * L 01&&name_buff_addr&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&&&&&&&expa
 nded_file.# 01&&expanded_file&&&&&&&pic&x(255). - 01&&expanded_file_len&&&pic&9(4)&&&&&&&&comp.  01&&file_name_desc. - &&&&03&&file_name_len&&&pic&9(4)&&&&&&&&comp. - &&&&03&&&&&&&&&&&&&&&&&&pic&9(4)&&&&&&&&comp. 0 &&&&03&&file_name_addr&&&&&&&&&&&&&&&&&&pointer.- 01&&name_offset&&&&&&&&&pic&9(4)&&&&&&&&comp. # 01&&result_file&&&&&&&&&pic&x(255). - 01&&result_file_len&&&&&pic&9(4)&&&&&&&&comp. " 01&&in_name&&&&&&&&&&&&&pic&x(60). * - 01&&disk_chan&&&&&&&&&&&pic&9(4)&&&&&&&&comp. 	 01&&iosb. - &&&&03&&iosb_status&&&&&pic&9(4)&&&&&&&&comp. ! &&&&03&&&&&&&&&&&&&&&&&&pic&x(6).  * - 01&&cvt_word&&&&&&&&&&&&pic&9(4)&&&&&&&&comp. 1 01&&cvt_byte&&&&&&&&&&&&&&&&&&&&&&&&&&&&redefines  &&&&cvt_word&&&&&&&&&&&&pic&x.- 01&&bit_result&&&&&&&&&&pic&9(9)&&&&&&&&comp. 
 01&&dvi_iosb. - &&&&03&&dvi_cond_val&&&&pic&9(9)&&&&&&&&comp. ! &&&&03&&&&&&&&&&&&&&&&&&pic&x(2).  * 
 01&&dvi_list.  &&&&03&&item_volnam.; &&&&&&&&05&&&&&&&&&&&&&&pic&9(4)&&&&&&&&comp&&&&value&&&12. L &&&&&&&&05&&&&&&&&&&&&&&pic&9(4)&&&&&&&&comp&&&&value&&&external&&dvi$_volna m.L &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&volume_nam e.L &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&volume_nam e_len. &&&&03&&item_class. : &&&&&&&&05&&&&&&&&&&&&&&pic&9(4)&&&&&&&&comp&&&&value&&&4.L &&&&&&&&05&&&&&&&&&&&&&&pic&9(4)&&&&&&&&comp&&&&value&&&external&&dvi$_devcl ass.L &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&dev_class.- &&&&&&&&05&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp. - &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp.  * " 01&&volume_name&&&&&&&&&pic&x(12).- 01&&volume_name_len&&&&&pic&9(4)&&&&&&&&comp. - 01&&dev_class&&&&&&&&&&&pic&9(9)&&&&&&&&comp.  * J 01&&sys$deq&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&sys$deq.
 01&&deq_args. : &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&4.- &&&&03&&deq_lkid&&&&&&&&pic&9(9)&&&&&&&&comp. C &&&&03&&&&&&&&&&&&&&&&&&pic&x(12)&&&&&&&&&&&&&&&value&&&low-values.  * K 01&&sys$enqw&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&sys$enqw.  01&&parent_enq_args.; &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&12. - &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp. L &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&lck$k_nlmo de. G &&&&03&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&lksb. L &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&parent_fla gs. L &&&&03&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&parent_res	 nam_desc. C &&&&03&&&&&&&&&&&&&&&&&&pic&x(28)&&&&&&&&&&&&&&&value&&&low-values.  * J 01&&sys$enq&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&sys$enq. 01&&child_enq_args. ; &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&12. - &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp. L &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&lck$k_prmo de. G &&&&03&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&lksb. L &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&child_flag s.L &&&&03&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&child_resn am_desc.- &&&&03&&parent_id&&&&&&&pic&9(9)&&&&&&&&comp. K &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&comp_ast. L &&&&03&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&ast_block.L &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&block_krnl _ast. C &&&&03&&&&&&&&&&&&&&&&&&pic&x(12)&&&&&&&&&&&&&&&value&&&low-values.  *  01&&parent_resnam_desc. ; &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&18. L &&&&03&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&&&&&&&pare
 nt_resnam. 01&&parent_resnam.A &&&&03&&&&&&&&&&&&&&&&&&pic&x(6)&&&&&&&&&&&&&&&&value&&&"F11B$v". " &&&&03&&parent_volnam&&&pic&x(12). 01&&child_resnam_desc.; &&&&03&&&&&&&&&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&10. L &&&&03&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&&&&&&&chil	 d_resnam.  01&&child_resnam. A &&&&03&&&&&&&&&&&&&&&&&&pic&x(6)&&&&&&&&&&&&&&&&value&&&"F11B$s". - &&&&03&&child_did_num&&&pic&9(4)&&&&&&&&comp. B &&&&03&&&&&&&&&&&&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&low-value.! &&&&03&&child_did_rvn&&&pic&x(1).  *&&& 01&&ast_block.- &&&&03&&door_bell&&&&&&&pic&9(9)&&&&&&&&comp. 
 &&&&03&&lksb. - &&&&&&&&05&&lksb_cond&&&pic&9(4)&&&&&&&&comp.  &&&&&&&&05&&&&&&&&&&&&&&pic&xx. - &&&&&&&&05&&lock_id&&&&&pic&9(9)&&&&&&&&comp.  &&&&&&&&05&&value_block.! &&&&&&&&&&&&07&&&&&&&&&&pic&x(4). - &&&&&&&&&&&&07&&dataseq&pic&9(9)&&&&&&&&comp. ! &&&&&&&&&&&&07&&&&&&&&&&pic&x(8).  * < 01&&file_found&&&&&&&&&&pic&x(1)&&&&&&&&&&&&&&&&value&&&"N". *  *&File&Information&Block&(FIB).  *  01&&fib.- &&&&03&&fib$l_acctl&&&&&pic&9(9)&&&&&&&&comp.  &&&&03&&fib$t_fid.- &&&&&&&&05&&fid_num&&&&&pic&9(4)&&&&&&&&comp. - &&&&&&&&05&&fid_seq&&&&&pic&9(4)&&&&&&&&comp. ! &&&&&&&&05&&&&&&&&&&&&&&pic&x(1). ! &&&&&&&&05&&fid_rvn&&&&&pic&x(1).  &&&&03&&fib$t_did.9 &&&&&&&&05&&fib$w_did&&&pic&9(4)&&&&&&&&comp&&&&occurs&3. - &&&&03&&fib$l_wcc&&&&&&&pic&9(9)&&&&&&&&comp. - &&&&03&&fib$w_nmctl&&&&&pic&9(4)&&&&&&&&comp.  * - 01&&last_seq&&&&&&&&&&&&pic&9(9)&&&&&&&&comp.  *  procedure&division.  kick_off&section.  00. 8 &&&&call&"lib$get_ef"&using&door_bell&giving&sys_status.L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .   3 &&&&display&"Filename:&"&erase&screen&no&advancing. & &&&&accept&in_name&protected&reversed.   &&&&call&"sys$parse") &&&&&&&&using&&&by&reference&&&&parse_fab $ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0 &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&rms$_normal&call&"lib$stop"&using&by&value&sys_statu s.   &&&&move&nam$b_esl&to&cvt_byte. ' &&&&move&cvt_word&to&expanded_file_len. : &&&&display&"ESLen&=&",&expanded_file_len&with&conversion.@ &&&&display&"Expand&File:&",&expanded_file(1:expanded_file_len).  C &&&&call&"mth$jiand"&using&nam$l_fnb,&nam$m_node&giving&bit_result.  &&&&if&bit_result&not&=&zeros ? &&&&&&&&display&"Illegal&Node&specification.&Local&files&only."  &&&&&&&&go&to&fini.   G &&&&call&"mth$jiand"&using&nam$l_fnb,&nam$m_wildcard&giving&bit_result. I &&&&if&bit_result&not&=&zeros&call&"lib$stop"&using&by&value&lib$_nowild.   J &&&&call&"mth$jiand"&using&nam$l_fnb,&nam$m_search_list&giving&bit_result.I &&&&if&bit_result&not&=&zeros&call&"lib$stop"&using&by&value&lib$_nowild.   L &&&&if&nam$t_did&=&low-values&call&"lib$stop"&using&by&value&ss$_unsupported .    &&&&move&dvi_len&to&cvt_byte.  &&&&call&"sys$assign" 4 &&&&&&&&using&&&by&descriptor&&&dvi_name(1:cvt_word)) &&&&&&&&&&&&&&&&by&reference&&&&disk_chan ' &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0,&0  &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&call&"sys$getdviw"/ &&&&&&&&using&&&by&value&&&&&&&&0,&disk_chan,&0 2 &&&&&&&&&&&&&&&&by&reference&&&&dvi_list,&dvi_iosb' &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0,&0  &&&&&&&&giving&&sys_status. ? &&&&if&sys_status&=&ss$_normal&move&dvi_cond_val&to&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&if&dev_class&not&=&dc$_disk I &&&&&&&&display&"Illegal&device&class.&Only&DISK&class&devices&permitted" 7 &&&&&&&&call&"lib$stop"&using&by&value&ss$_unsupported.   9 &&&&move&volume_name(1:volume_name_len)&to&parent_volnam.    &&&&call&"sys$cmkrnl" ( &&&&&&&&using&&&by&value&&&&&&&&sys$enqw/ &&&&&&&&&&&&&&&&by&reference&&&&parent_enq_args  &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .  &  &&&&move&lock_id&to&parent_id. &&&&move&zeros&to&lock_id.  " &&&&move&did_num&to&child_did_num." &&&&move&did_rvn&to&child_did_rvn.  - &&&&perform&watch_dir&until&file_found&=&"Y".  *  fini.  &&&&if&lock_id&not&=&zeros  &&&&&&&&move&lock_id&to&deq_lkid &&&&&&&&call&"sys$cmkrnl" + &&&&&&&&&&&&using&&&by&value&&&&&&&&sys$deq , &&&&&&&&&&&&&&&&&&&&by&reference&&&&deq_args &&&&&&&&&&&&giving&&sys_status7 &&&&&&&&if&sys_status&not&=&ss$_normal&and&ss$_ivlockid 6 &&&&&&&&&&&&call&"lib$stop"&using&by&value&sys_status. *  &&&&move&parent_id&to&deq_lkid.  &&&&call&"sys$cmkrnl" ' &&&&&&&&using&&&by&value&&&&&&&&sys$deq ( &&&&&&&&&&&&&&&&by&reference&&&&deq_args &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .   A &&&&call&"sys$dassgn"&using&by&value&disk_chan&giving&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .  * 
 &&&&stop&run.  *  watch_dir&section. 00. @ &&&&call&"sys$clref"&using&by&value&door_bell&giving&sys_status.L &&&&if&sys_status&not&=&ss$_wasset&and&ss$_wasclr&call&"lib$stop"&using&by&v alue&sys_status.   &&&&call&"sys$cmkrnl" ' &&&&&&&&using&&&by&value&&&&&&&&sys$enq . &&&&&&&&&&&&&&&&by&reference&&&&child_enq_args &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .   ' &&&&call&"sys$hiber"&giving&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .   5 &&&&if&lksb_cond&not&=&ss$_normal&and&ss$_valnotvalid 1 &&&&&&&&call&"lib$stop"&using&by&value&lksb_cond.    &&&&if&dataseq&not&=&last_seq   &&&&&&&&move&dataseq&to&last_seq &&&&&&&&perform&check_for_file &&&&&&&&if&file_found&=&"Y"& &&&&&&&&&&&&go&to&fini.   ) &&&&display&"Waiting&for&door_bell.&.&.".   A &&&&call&"sys$waitfr"&using&by&value&door_bell&giving&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .  *  fini.  *  check_for_file&section.  00.  &&&&move&low-values&to&fib.   &&&&move&nam$t_did&to&fib$t_did.  & &&&&move&nam$l_name&to&file_name_addr.C &&&&subtract&name_buff_addr&from&file_name_addr&giving&name_offset. E &&&&subtract&name_offset&from&expanded_file_len&giving&file_name_len.    &&&&call&"sys$qiow" 8 &&&&&&&&using&&&by&value&&&&&&&&0,&disk_chan,&io$_access$ &&&&&&&&&&&&&&&&by&reference&&&&iosb$ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0# &&&&&&&&&&&&&&&&by&descriptor&&&fib ? &&&&&&&&&&&&&&&&by&reference&&&&file_name_desc,&result_file_len + &&&&&&&&&&&&&&&&by&descriptor&&&result_file $ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0 &&&&&&&&giving&&sys_status. > &&&&if&sys_status&=&ss$_normal&move&iosb_status&to&sys_status.   &&&&evaluate&&&&sys_statusL &&&&&&&&when&&&&ss$_nosuchfile&&display&"File&not&found.&Better&luck&next&ti me."6 &&&&&&&&when&&&&ss$_normal&&&&&&move&"Y"&to&file_found0 &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&display&"Bingo!"L &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&display&"RSL&=&",&result_file_len&with&conve rsion L &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&display&"result&file&=&*",&result_file(1:res ult_file_len),&"*"I &&&&&&&&when&&&&other&&&&&&&&&&&call&"lib$stop"&using&by&value&sys_status  &&&&end-evaluate.  *  fini.  *  end&program&serial_lock. identification&division. program-id.&&&&block_krnl_ast. data&division. working-storage&section.L 01&&psl$c_user&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&psl$c_user . L 01&&block_user_ast&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&block_user _ast. L 01&&ss$_wasclr&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_wasclr . L 01&&ss$_normal&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_normal . - 01&&sys_status&&&&&&&&&&pic&9(9)&&&&&&&&comp.  *  linkage&section. 01&&ast_block.- &&&&03&&door_bell&&&&&&&pic&9(9)&&&&&&&&comp. 
 &&&&03&&lksb. - &&&&&&&&05&&lksb_cond&&&pic&9(4)&&&&&&&&comp.  &&&&&&&&05&&&&&&&&&&&&&&pic&xx. - &&&&&&&&05&&lock_id&&&&&pic&9(9)&&&&&&&&comp.  * # procedure&division&using&ast_block.  00. E &&&&call&"sys$deq"&using&by&value&lock_id,&0,&0,&0&giving&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&move&zeros&to&lock_id.   &&&&call&"sys$dclast"&. &&&&&&&&using&&&by&value&&&&&&&&block_user_ast) &&&&&&&&&&&&&&&&by&reference&&&&ast_block * &&&&&&&&&&&&&&&&by&value&&&&&&&&psl$c_user &&&&&&&&giving&sys_status.   &&&&exit&program.  *  end&program&block_krnl_ast.  identification&division. program-id.&&&&block_user_ast. data&division. working-storage&section.L 01&&ss$_wasset&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_wasset . L 01&&ss$_wasclr&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_wasclr . L 01&&ss$_normal&&&&&&&&&&pic&9(9)&&&&&&&&comp&&&&value&&&external&&ss$_normal . - 01&&sys_status&&&&&&&&&&pic&9(9)&&&&&&&&comp.  *  linkage&section. *&&& 01&&ast_block.- &&&&03&&door_bell&&&&&&&pic&9(9)&&&&&&&&comp. 
 &&&&03&&lksb. - &&&&&&&&05&&lksb_cond&&&pic&9(4)&&&&&&&&comp.  &&&&&&&&05&&&&&&&&&&&&&&pic&xx. - &&&&&&&&05&&lock_id&&&&&pic&9(9)&&&&&&&&comp.  &&&&&&&&05&&value_block.! &&&&&&&&&&&&07&&&&&&&&&&pic&x(4). - &&&&&&&&&&&&07&&dataseq&pic&9(9)&&&&&&&&comp. ! &&&&&&&&&&&&07&&&&&&&&&&pic&x(8).  * # procedure&division&using&ast_block.  00.  &&&&display&"In&AST".   @ &&&&call&"sys$setef"&using&by&value&door_bell&giving&sys_status.L &&&&if&sys_status&not&=&ss$_wasclr&call&"lib$stop"&using&by&value&sys_status .  *  fini.  &&&&exit&program.  *  end&program&block_user_ast.  identification&division. program-id.&&&&comp_ast. data&division. working-storage&section. *&&& linkage&section. *  01&&ast_block.- &&&&03&&door_bell&&&&&&&pic&9(9)&&&&&&&&comp. 
 &&&&03&&lksb. - &&&&&&&&05&&lksb_cond&&&pic&9(4)&&&&&&&&comp.  &&&&&&&&05&&&&&&&&&&&&&&pic&xx. - &&&&&&&&05&&lock_id&&&&&pic&9(9)&&&&&&&&comp.  &&&&&&&&05&&value_block.! &&&&&&&&&&&&07&&&&&&&&&&pic&x(4). - &&&&&&&&&&&&07&&dataseq&pic&9(9)&&&&&&&&comp. ! &&&&&&&&&&&&07&&&&&&&&&&pic&x(8).  * # procedure&division&using&ast_block.  00. ( &&&&call&"sys$wake"&using&by&value&0,&0. &&&&exit&program.  *  end&program&comp_ast.  $! $cobol/lis&serial_lock $create&serial_lock_def.mar    &&&&&&&&.title&serial_lock_def   &&&&&&&&$namdef&&&&&&&&&GLOBAL &&&&&&&&$lckdef&&&&&&&&&GLOBAL &&&&&&&&$psldef&&&&&&&&&GLOBAL &&&&&&&&$atrdef&&&&&&&&&GLOBAL  L &&&&&&&&parent_flags&&&&==&<lck$m_noqueue!lck$m_system!lck$m_nodlckwt!lck$m_ nodlckblk!lck$m_expedite> L &&&&&&&&child_flags&&&&&==&<lck$m_system!lck$m_nodlckwt!lck$m_nodlckblk!lck$	 m_valblk>    &&&&&&&&.end   $! $macro/lis&serial_lock_def! $link&serial_lock,serial_lock_def  $! $exit   4 Jim Brankin <jbrankin@ntlworld.com> wrote in message7 news:863f19d6.0306150421.119a9d7a@posting.google.com... 5 > David Froble <davef@tsoft-inc.com> wrote in message ( news:<3EE93F07.2050903@tsoft-inc.com>... > > Keith Parris wrote:  > I > > Can I get you guys to back up a bit and explain what you're trying to  do?  I2 > > may, or may not, have something to contribute. > >  > E > The problem is to send an event to a process when a file is closed.  > F > One way is to queue for a the arbitration lock on the file. The lock > name is make up of > 1 >      "F11B$a" + <label of the disk> + <lock id>  > - > It is a top level lock and is system owned.  > > > You can see these locks in SDA with show lock /name="F11B$a" > K > One major problem is that these locks are only used on clustered systems. H > On standalone systems the file system uses flags in the FCB and this a > approach will not work.  > J > This may be more trouble than it is worth. You could have another threadJ > or another process poll the file trying to open it and when it succeededB > close the file again and fire an AST in the main process/thread. > % > Returning to issues raised earlier:  > $ > The rule for locks going away are: > E >    1. If you want it to go away at image rundown, make it user mode  > G >    2. If you want it to go away at process rundown, make it kernel or  >       exec mode. > D >    3. If you want it to outlive the process, make it system owned. > J > System owned locks are a pain. They hang around forever making debuggingK > and testing difficult. You are forever rebooting to get rid of old locks.  > H > The paging issue has been covered. You can page in kernel mode so longI > as you keep IPL below 2. So unless you take a spinlock or similar there # > is no need to lock the code down.  >  > - Jim    ------------------------------  $ Date: Sun, 6 Jul 2003 17:04:51 +0200+ From: "Hans Vlems" <hvlems.nieuw@zonnet.nl> 6 Subject: Re: more on DSSI disks and allocation classes5 Message-ID: <be9dqn$2iag8$1@ID-143435.news.dfncis.de>   L "Phillip Helbig---remove CLOTHES to reply" <helbig@astro.multiCLOTHESvax.de>1 schreef in bericht news:be7i33$4ei$1@online.de... F > In article <be7eem$1me$1@online.de>, helbig@astro.multiCLOTHESvax.de4 > (Phillip Helbig---remove CLOTHES to reply) writes: > ? > > >    $ set host /dup /server=mscp$dup/task=params node_name  > > 0 > > > This has resulted in an unbootable system! > > L > > I find it really hard to believe that I can execute a command at the DCLL > > prompt which has the result that after power-cycling the system, I can't# > > even get to the console prompt!  > D > It seems I spoke too soon.  When I tried power-cycling, I left the@ > system off for about 10 seconds or so.  This has always seemedG > sufficient.  As I said, I couldn't even get to the console prompt.  I G > then left the power off for a much longer time, an hour or so.  After H > that, the system came up normally and I DID get to the console prompt.J > After connecting to the DSSI controller from the console, I saw that theA > changes I made had taken effect.  After that, the system booted  > normally.  > H > Thus, it seems that the conflicting parameters causing the problem got2 > cached somewhere, even though the power was off! > F > Of course, it's often possible to do something and lock oneself out,I > such as connecting to something via TCPIP then changing the IP address. J > However, a power cycle is usually sufficient to get one into a situationI > where one can at least connect again somehow.  (In this case, it was as . > well, but the power had to stay off longer.) > J In situations like this the suggested waiting time is at least one minute.1 And 60 seconds is a *very* long period of time... 0 Did you also alter the node_id of the dssi disk?   Hans   ------------------------------   Date: 6 Jul 2003 13:27:55 -0000 4 From: Doc.Cypher <Use-Author-Address-Header@[127.1]>I Subject: Re: More than VMS is required, but VMS is a great starting point 6 Message-ID: <20030706132755.12307.qmail@nym.alias.net>  9 On Fri, 04 Jul 2003, "John Smith" <a@nonymous.com> wrote: A >"Russell Wallace" <wallacethinmintr@eircom.net> wrote in message + >news:3f051846.892963013@news.eircom.net... B >> On Wed, 02 Jul 2003 16:33:57 GMT, "John Smith" <a@nonymous.com> >wrote:  >>B >> >A California law that takes effect July 1 will force companies >inside F >> >and outside the state to do what they historically have been loath >to < >> >do: disclose embarrassing information-security breaches. >>G >> I'm no lawyer, so perhaps I'm missing something obvious, but how can B >> the California legislature exert force on companies that aren't >> located in California?  >  > ? >...threats, coercion, seizures, convictions in courts that are < >followed by attempts to have the judgments imposed in otherE >jurisdictions.... in other words, the usual range of options open to  >governments....  
 Headaches? High blood pressure? Sleepless nights?   * OpenVMS.  Just what the doctor ordered. :)     Doc. --  K OpenVMS.         Eight out of ten hackers prefer *other* operating systems.    ------------------------------  # Date: Fri, 04 Jul 2003 16:40:27 GMT 1 From: Michael Austin <maustin@firstdbasource.com>  Subject: Re: Running VMS off CD 2 Message-ID: <3F05A93F.C739E914@firstdbasource.com>   Dean Woodward wrote: >  > David J. Dachtera wrote:K > > If you've got lots of RAM, I suppose you could hack up a /STARTUP proc. E > > that copies the distribution up to a RAMdisk before assigning key F > > logicals and such and then proceeding, ... but then there goes the > > write-lock.  > J > The advantage here lies in what happens when you power-cycle the box. IfE > it booted from read-only media and copied stuff to RAMdisk, all the   > cracker's efforts go *poof*... > E > If you run purely from RO media, then the system is invulnerable to C > having files loaded/changed/replaced. Exploits that tweak running H > software are still possible, which leads me to a mildly amusing visionG > of script kiddies trying to crack a VMS box that way. Not saying it's 1 > impossible, but I bet it'd be damn frustrating.     H Hmmm... with a few ACL's and pointing the "read only" logicals to a diskF that has been mounted /NOWRITE would achieve the same purpose.  Or youC can hack the startup such that when it "mounts" the system disk, it G is/NOWRITE... just make sure you have a way to write the dump device...  --   Regards,  6 Michael Austin            OpenVMS User since June 19847 First DBA Source, Inc.    Registered Linux User #261163    ------------------------------  # Date: Sun, 06 Jul 2003 13:09:28 GMT 3 From: wallacethinmintr@eircom.net (Russell Wallace) 5 Subject: Re: VAT for non-EU suppliers to EU customers 1 Message-ID: <3f081f58.1091410703@news.eircom.net>   F On 5 Jul 03 11:03:55 +0200, p_sture@elias.decus.ch (Paul Sture) wrote:  I >This subject tickles me to death, although I'm more qualified to comment J >on the case of the EU asking non-EU suppliers to charge EU customers VAT. > E >VAT is difficult enough for those who deal with it during the normal F >course of their business. From my own experience even fully qualified1 >accountants have been known to get things wrong.  > D >How on earth can you expect someone who has never come across it to >administer it properly?  E Heh, yes. If I were a non-EU supplier I'd tell the EU to put it where F the sun don't shine. I'm quite surprised anyone would expect any other	 reaction.    --   "Sore wa himitsu desu."  To reply by email, remove  the small snack from address. ! http://www.esatclear.ie/~rwallace    ------------------------------   Date: 6 Jul 03 16:43:10 +0200 ) From: p_sture@elias.decus.ch (Paul Sture) 5 Subject: Re: VAT for non-EU suppliers to EU customers ) Message-ID: <rxo5lyHSPF9i@elias.decus.ch>   g In article <3f081f58.1091410703@news.eircom.net>, wallacethinmintr@eircom.net (Russell Wallace) writes: H > On 5 Jul 03 11:03:55 +0200, p_sture@elias.decus.ch (Paul Sture) wrote: > J >>This subject tickles me to death, although I'm more qualified to commentK >>on the case of the EU asking non-EU suppliers to charge EU customers VAT.  >>F >>VAT is difficult enough for those who deal with it during the normalG >>course of their business. From my own experience even fully qualified 2 >>accountants have been known to get things wrong. >>E >>How on earth can you expect someone who has never come across it to  >>administer it properly?  > G > Heh, yes. If I were a non-EU supplier I'd tell the EU to put it where H > the sun don't shine. I'm quite surprised anyone would expect any other > reaction.  >   F Well yes :-) Since Swizerland isn't in the EU, it is something I could: run into sooner or later. Time for some research methinks.   ------------------------------   Date: 6 Jul 2003 06:17:23 -0500 - From: Kilgallen@SpamCop.net (Larry Kilgallen) 1 Subject: Re: VMS Quality (was: Are HP listening?) 3 Message-ID: <P5Hen8uld$uI@eisner.encompasserve.org>   [ In article <3F07A23A.6C67B8A8@fsi.net>, "David J. Dachtera" <djesys.nospam@fsi.net> writes:   N >> 5.  Reintroduce lower-cost hardware and offer a low-cost turnkey web server >>     platform. > D > Even among the staunchest VMS hold outs, I'm finding less and lessI > support for such a scheme. That's funny because a local daily newspaper0H > today had aquote from the Dallas Morning News which indicated that theH > "Do Not Call" registry received so many hits during its first hours ofA > operation that the server crashed. The author asked, "Is anyoneiH > surprised by this?" Of course, I couldn't help but wonder whether thatI > crash could have been avoided by using a VMS-based server that had beeno) > properly designed for scale and volume.g  A Those who are determined to do a cheap (rather than thorough) job-* now are forced to do it other than on VMS.  @ Giving them the opportunity to do a cheap (rather than thorough)A job on VMS would besmirch the reputation of VMS, rather than give ? them automatic success.  There are unlimited ways for the owner # to mess up running of a VMS system.   A The hallmark of VMS stability is how well one can do with carefuloB attention, rather than how well one can do with total inattention.   ------------------------------   Date: 6 Jul 03 15:06:04 +0200p) From: p_sture@elias.decus.ch (Paul Sture).( Subject: Re: what is VMS advanced Server) Message-ID: <0mOQlZw4v$GQ@elias.decus.ch>   h In article <8RlNa.41051$XV.2651062@twister.austin.rr.com>, LESLIE@JRLVAX.HOUSTON.RR.COM (leslie) writes:2 > David J. Dachtera (djesys.nospam@fsi.net) wrote: > : J > : FWIW, workstation/server is not much of a distinction even in Windows.D > : It was said that NT 4.0 could be installed as NT Server from theG > : workstation CD if you knew how to twiddle certain things. Also, themD > : server CD contains server-side elements that were lacking on the > : workstation CD.n > :  > G > Here's an article that goes into more detail, including NT 4.0 havings7 > a common kernel between NT Workstation and NT Server:l > F >    ftp://ftp.ora.com/pub/examples/windows/win95.update/ntnodiff.html. >    Minimal NT Server/Workstation Differences > > >   "Differences Between NT Server and Workstation are Minimal) >                                         @ >    Registry Settings Used to Force Use of Microsoft Web Server > ( >    This page updated November 14, 1996 >      >    Andrew Schulman) >    Senior Editor, O'Reilly & Associatest >    andrew@ora.com  >    eB >    Much of the research discussed in this article was done by NTK >    Internals expert Dr. Mark Russinovich, a Consulting Associate for Openl*                       ^^^^^^^^^^^^^^^^^^^^J >    System Resources, Inc. Russinovich is coauthor of numerous NT systemsI >    utilities, such as the NT registry monitor, the NT file monitor, andmI >    the NTFS file system for DOS. OSR specializes in file system, deviceaJ >    driver, and data communications consulting, training, and developmentH >    for Windows NT and other platforms. Neither Dr. Russinovich nor OSR? >    are responsible for the conclusions drawn in this article.  >    a3 For those needing to run NT systems, Mark's site at.   	www.sysinternals.coma  H is an excellent source of information, with some rather handy utilities.   ------------------------------   End of INFO-VAX 2003.370 ************************