1 INFO-VAX	Sat, 05 Mar 2005	Volume 2005 : Issue 128       Contents:0 Re: Build problem - GD (but we're almost there!)0 Re: Build problem - GD (but we're almost there!)? Re: DCPS printing of ANSI files (where does it get the fonts ?) # Re: Fiorina and The Peter Principle # Re: Fiorina and The Peter Principle * Re: Has anyone had any bad T4 experiences? Re: HP Web Site Slow Lately?& Re: new Itanium after Tukwila: Poulson& Re: new Itanium after Tukwila: Poulson& Re: new Itanium after Tukwila: Poulson& Re: new Itanium after Tukwila: Poulson& Re: new Itanium after Tukwila: Poulson Re: New OpenVMS-Integrity Video 3 Re: Problem Installing a Printer to a terminal Line 0 Problems with two patches on OpenVMS 7.3-2 Alpha2 Rdb's impact on $persona_delete ss$_personadelpend6 Re: Rdb's impact on $persona_delete ss$_personadelpend6 Re: Rdb's impact on $persona_delete ss$_personadelpend6 Re: Rdb's impact on $persona_delete ss$_personadelpend# Re: Running OpenVMS on DEC PWS 500A # Re: Running OpenVMS on DEC PWS 500A 1 Re: This is the End... My Only Friend, The End... 1 Re: This is the End... My Only Friend, The End... @ Re: Warren, any way to find out when this page was last updated?  F ----------------------------------------------------------------------   Date: 5 Mar 2005 04:09:45 -0800  From: mcbill20@yahoo.com9 Subject: Re: Build problem - GD (but we're almost there!) C Message-ID: <1110024585.147243.118330@l41g2000cwc.googlegroups.com>    Martin Vorlaender wrote: > mcbill20@yahoo.com wrote: ) > > I am still having problems with GD. I F > > modified the QPORT.COM to point to the later versions of the above thatE > > I was able to build. However, it does not like something with the  macro F > > file and I am using MMK rather than MMS so the error message isn't > > great. Here is the output:
 > > $ set ver  > > $ @[.contrib.vms]qport > > $! > > $!      QPORT.COM  > > $!" > > $!      Build GD 2.0.28 on VMS > ... & > > $ OPEN/WRITE MFILE MFILE.MMS_ALPHA > > $ WRITE MFILE "#" < > > $ WRITE MFILE "SRCDIR = BUILD_DEV:[000000.GD.GD-2_0_28]" > ...  > > $ CLOSE MFILE  > > $!9 > > $ MMS /DESCRIPTION=DESCRIP.MMS /MACRO=MFILE.MMS_ALPHA C > > %MMK-F-MACFILSYNTAX, syntax error at line 1 in macro definition  file@ > > BUILD_DEV:[000000.GD.GD-2_0_28.CONTRIB.VMS]MFILE.MMS_ALPHA;5 >  > Just guessing, but anyway: > > > MMK isn't happy with "#" used as a comment introducer (which
 originatesE > from *ix). Try and replace it with the more VMSish "!" in the WRITE C > statements, or take out that statements altogether, as they don't " > contribute to the build process. >  > cu, 
 >   Martin > --= >                      | Martin Vorlaender  |  OpenVMS rules! 0 > Microsoft's answer   | work: mv@pdv-systeme.deC > to OpenVMS is        |   http://www.pdv-systeme.de/users/martinv/ 7 > Windows NT 10.0.     | home: martin@radiogaga.harz.de   F Thanks. That worked. Taking out all the "#" lines allowed the build toG complete. I now just need to get the same thing to work with GDCHART. I B am having some issues with the GD library software though. The exe directory now contains:   5 ANNOTATE.EXE;1          2344   4-MAR-2005 22:54:59.72  CIRCLETEXTTEST.EXE;15                         3203   4-MAR-2005 22:55:14.84 5 DEMOOUT.GIF;2              9   4-MAR-2005 23:15:33.61 5 DEMOOUT.GIF;1              9   4-MAR-2005 23:09:45.06 5 DEMOOUT.PNG;2             18   4-MAR-2005 23:15:33.13 5 DEMOOUT.PNG;1             18   4-MAR-2005 23:09:44.63 5 DEMOOUTP.PNG;2            11   4-MAR-2005 23:15:33.89 5 DEMOOUTP.PNG;1            11   4-MAR-2005 23:09:45.30 5 FONTSIZETEST.EXE;1      2563   4-MAR-2005 22:55:17.33  FONTSIZETEST1.PNG;2 5                            1   4-MAR-2005 23:21:04.21  FONTSIZETEST1.PNG;1 5                            1   4-MAR-2005 23:14:09.28  FONTSIZETEST2.PNG;2 5                            1   4-MAR-2005 23:21:04.70  FONTSIZETEST2.PNG;1 5                            1   4-MAR-2005 23:14:09.83  FONTSIZETEST3.PNG;2 5                            1   4-MAR-2005 23:21:05.17  FONTSIZETEST3.PNG;1 5                            1   4-MAR-2005 23:14:10.29  FONTSIZETEST4.PNG;2 5                            1   4-MAR-2005 23:21:05.65  FONTSIZETEST4.PNG;1 5                            1   4-MAR-2005 23:14:10.75  FONTWHEELTEST.EXE;1 5                         2565   4-MAR-2005 22:55:19.81 5 GD2COPYPAL.EXE;1         363   4-MAR-2005 22:55:01.89 5 GD2TIME.EXE;1            363   4-MAR-2005 22:55:21.96 5 GD2TOPNG.EXE;1          1021   4-MAR-2005 22:55:03.54 5 GDDEMO.EXE;1            1281   4-MAR-2005 22:55:24.15 5 GDPARTTOPNG.EXE;1       1021   4-MAR-2005 22:55:05.32 5 GDTEST.EXE;1            1680   4-MAR-2005 22:55:27.39 5 GDTESTFT.EXE;1          3229   4-MAR-2005 22:55:29.93 5 GDTOPNG.EXE;1            991   4-MAR-2005 22:55:07.05 5 PNGTOGD.EXE;1            991   4-MAR-2005 22:55:08.79 5 PNGTOGD2.EXE;1          1020   4-MAR-2005 22:55:10.57 5 TESTAC.EXE;1            1025   4-MAR-2005 22:55:32.51 5 WEBPNG.EXE;1             989   4-MAR-2005 22:55:12.95   F However, when I try tests (using GDDEMO, GDTEST or WEBPNG) I don't getE valid images. Actually, none of the existing PNG files that came with C the distribution seem to be valid either. I copied them to a PC and E tried to view them but I get "drawing failed" with the .JPG conersion F and "Could not complete this operation. The internal file signature isG incorrect." with the .PNG files. This seems odd but then again, I don't C know much about the GD software yet. I'll poke around some more and  also try building GDCHART.   Bill   ------------------------------   Date: 5 Mar 2005 05:20:33 -0800  From: mcbill20@yahoo.com9 Subject: Re: Build problem - GD (but we're almost there!) C Message-ID: <1110028833.812544.103480@l41g2000cwc.googlegroups.com>   G I now have also built GDCHART. However, when I run the tests, I get the F same result as with GD library-- the resulting .png files are invalid.F I saw the long list of software on your page. How are you using the GDE stuff? My eventual goal (once I get it to produce valid images) is to ) be able to call if from mod_perl in CSWS.   . Did you have many problems getting it to work?   Thanks.  Bill   ------------------------------  % Date: Sat, 05 Mar 2005 16:51:36 +0800  From: prep@prep.synonet.com H Subject: Re: DCPS printing of ANSI files (where does it get the fonts ?)- Message-ID: <878y52qxuv.fsf@prep.synonet.com>   1 brooks@cuebid.zko.dec.nospam (Rob Brooks) writes:   1 > JF Mezei <jfmezei.spamnot@teksavvy.com> writes:   B >> I found it fascinating that some pieces of postscript code dateF >> back to 1987... a time where Digital hadn't yet adopted Postscript.  ( > Huh?  Ever hear of the LPS40 or LN03R?  A Or the 83 odd vintage Xerox based printserver, who's model number  has disolved into gray goo :(    --  < Paul Repacholi                               1 Crescent Rd.,7 +61 (08) 9257-1001                           Kalamunda. @                                              West Australia 6076* comp.os.vms,- The Older, Grumpier Slashdot. Raw, Cooked or Well-done, it's all half baked.F EPIC, The Architecture of the future, always has been, always will be.   ------------------------------   Date: 5 Mar 2005 07:48:33 GMT 2 From: "Dave Weatherall" <djw-nothere@nospam.nohow>, Subject: Re: Fiorina and The Peter Principle? Message-ID: <DTiotGxQ0bj6-pn2-dd4mR8cKedCI@dave2_os2.home.ours>   D On Thu, 3 Mar 2005 21:17:48 UTC, Bill Todd <billtodd@metrocast.net>  wrote:    H > Too late:  the last election already did.  Cut Kerry down a bit above G > the ankles and give him a fake Texas drawl, and it really would have  I > been Tweedledee (Kerry) and Tweedledum (emphasis on the last syllable).  >  > - bill  F This is well OT and I apologise but what percentatge did Nader get? I * never a report anywhere. Was it so measly?   --   Cheers - Dave W.   ------------------------------  $ Date: Sat, 5 Mar 2005 10:05:38 -0500# From: "John Smith" <a@nonymous.com> , Subject: Re: Fiorina and The Peter Principle, Message-ID: <adudndn0IfZfV7TfRVn-gQ@igs.net>   John Santos wrote: > Bob Koehler wrote:? >> In article <112f318hh17t724@corp.supernews.com>, Dave Froble   >> <davef@tsoft-inc.com> writes: >>D >>> Not so, each gets zero votes, I write in myself, become the nextG >>> president, Bill Todd tries to assassinate me, but I'm pre-warned, a G >>> new law gets passed that computer systems must be as secure as VMS, : >>> all federal systems must be VMS, running on VAX, ..... >> >>. >>    No, really, I want mine on an EV8.   8-) > ? > New Alpha advertising slogan:  "I could have had an EV8"  :-)     $ A good start but only halfway there:  > "I could have had an EV8 but all I got was this lousy Itanic."       --- OpenVMS - The classics never go out of style.    ------------------------------   Date: 5 Mar 2005 10:35:58 -0800 ' From: "Pat Moran" <pat.moran@gmail.com> 3 Subject: Re: Has anyone had any bad T4 experiences? C Message-ID: <1110047758.537837.108130@l41g2000cwc.googlegroups.com>   * CSVPNG and T4 kits are now available from:  >       http://h71000.www7.hp.com/openvms/products/t4/index.html  E HTMLDOC can be used with CSVPNG to convert the htm file to Postscript ' or PDF which can be printed or emailed.   @ An OpenVMS port of HTMLDOC is on the latest OpenVMS Freeware CD. Download from:  <       http://h71000.www7.hp.com/freeware/freeware70/htmldoc/  G Use commands like these to generate a PS or PDF file which includes the  charts:   /       htmldoc --webpage -f csvpng.ps csvpng.htm 0       htmldoc --webpage -f csvpng.pdf csvpng.htm   	 Pat Moran    ------------------------------  * Date: Sat, 5 Mar 2005 14:05:53 +0000 (UTC)( From: m.kraemer@gsi.de (Michael Kraemer)% Subject: Re: HP Web Site Slow Lately? 5 Message-ID: <d0cec1$l3p$1@lnx107.hrz.tu-darmstadt.de>   r In article <1110003787.bbf01d5a4d26ba4feeee2ecec1770fee@teranews>, JF Mezei <jfmezei.spamnot@teksavvy.com> writes:J > HP is blatantly stupid for having such poor web standards and shows  itsF > incompetance in web sdesign, certaintly not a good advertising if HPC > wants to sell web desitgn services as part of its consulting arm.  > (simiular to its SAP flop).   1 Maybe HP thinks this way they can convince people 5 that their desktop PCs are too slow for the internet, ( so they have to buy new ones - from HP.    ------------------------------   Date: 4 Mar 2005 22:56:45 -0800  From: icerq4a@spray.se/ Subject: Re: new Itanium after Tukwila: Poulson C Message-ID: <1110005805.215869.234690@g14g2000cwa.googlegroups.com>    Tom Linden wrote: 9 > On 4 Mar 2005 11:01:34 -0800, <icerq4a@spray.se> wrote:  >  > >  > > Bill Todd wrote: > >> Tom Linden wrote:> > >> > On 4 Mar 2005 06:26:54 -0800, <icerq4a@spray.se> wrote: > >> > >> ... > >>F > >> >> It is not irrelevant. It _is_ the reason why it can outperform > > anything. > >> >> out there in large system scalability. > >>? > >> POWER5 scales just as linearly as EV7 and with far greater  > > performance,D > >> right up to 64 cores (yes, EV7 reportedly scales to 128, though I'm  > > not 3 > >> sure that's a supported system configuration).  > > G > > OK, I was a bit too strong there, but atleast it was superior for a @ > > while and POWER5 has lots of more cache to reduce the memory
 traffic onG > > the system which helps. I also think the EV7 system is more elegant  and  > > most likely costs less.  > < > Elegance?  Don't think so.  The POWER5 has a more powerful instruction set E > which should result in less memory traffic, it has a barrel shifter 
 > allowing@ > for unaligned access, which is very important for legacy code. Cheaper? > Don't , > think so, given the manufacturing volumes.  D You don't understand what I am talking about, I am not talking about@ the ISA. The EV7 system architecture with it's integrated memory@ controller and router which scales to 128 CPUs is a very elegantD solution. The EV7 solution is much easier to manufacture and costs aD lot less, IBM's MCM solution is efficient but an expensive solution.   ------------------------------   Date: 4 Mar 2005 23:28:47 -0800  From: icerq4a@spray.se/ Subject: Re: new Itanium after Tukwila: Poulson B Message-ID: <1110007727.524580.80050@o13g2000cwo.googlegroups.com>   JF Mezei wrote:  > icerq4a@spray.se wrote:  > D > > No one is surprised but nevetheless it is doing pretty well now. > F > Intel has put in tons of money and raw force to get IA64 to where it	 is today.   - They have put even more tons of money on x86.   @ > For a low volume chip, the resources needed to make it work at" > acceptabvle speed are enourmous.  = That is correct, I would say correct for all ISAs except x86.   B > Cosnider a statement from Mr Reagan about how the compilers findG > themselves having to insert NOOPs to fill some groups of opcodes, and E > how each opcode is huge. Intel gets around this design "feature" by E > adding oddles of cache memory. So, to achieve adequate performance, C > Intel has to spenmd more money than others need to spend on other   > platforms, including the 8086.  B The amount of cache in Itanium has a lot more to do with data thanD instructions. Itanium has an heritage from the earlier PA-RISC teamsF designs which always had large caches. An Itanium designed for desktopE use and say SPECint performance would perhaps have no L3 and a larger C L2 like the current Pentiums. Having a large cache and die makes it D more difficult to scale in frequence. An Itanium with 1-2MB L2 cache; without L3 would have a much easier task to go beyond 2GHz.   E > So, from a business point of view, if you spend inordinates amounts  ofG > money for a low volume chip no customer really wants at the same time  asC > you are bringng yoru high volume 8086 up there in performance and F > features, does it really make sense to continue this low volume chip" > that require so many resources ?  D OK, we can have a world with x86 only (perhaps embedded excepted) inD the future, that would most likely work good and be boring, but ISAs6 has more to do with "political" issues than technical.  G One good question is, would/will Intel have a larger total market share D with an x86 only solution? or will a two archictecture solution giveA them an opportunity to grow their business and get a larger total D market share in the CPU business. They are not alone in x86 world...   ------------------------------   Date: 4 Mar 2005 23:37:11 -0800  From: icerq4a@spray.se/ Subject: Re: new Itanium after Tukwila: Poulson B Message-ID: <1110008231.668566.68210@o13g2000cwo.googlegroups.com>   Bill Todd wrote: > icerq4a@spray.se wrote:  > > Bill Todd wrote: > >  > >>Tom Linden wrote:  > >>< > >>>On 4 Mar 2005 06:26:54 -0800, <icerq4a@spray.se> wrote: > >> > >>...  > >> > >>D > >>>>It is not irrelevant. It _is_ the reason why it can outperform > >  > > anything > > , > >>>>out there in large system scalability. > >>> > >>POWER5 scales just as linearly as EV7 and with far greater > >  > > performance, > > G > >>right up to 64 cores (yes, EV7 reportedly scales to 128, though I'm  > >  > > not  > > 2 > >>sure that's a supported system configuration). > >  > > G > > OK, I was a bit too strong there, but atleast it was superior for a 	 > > while  > E > No, not even that - at least not in scaling per se.  POWER4 shipped  (in C > a 180 nm. process similar to EV7's) over a year *before* EV7 did: C > though its system configuration topped out at 32 cores, it scaled  wellC > enough up to that number to give EV7 a good run for its money in,  e.g., D > SAP SD 2-tier at the 32-core level (a score of 4128 vs. the GS1280 score C > of 4500) and quite likely would have given it at least as close a  raceB > at 32 processors in TPC-C (of course, HP didn't submit any TPC-CB > benchmarks for EV7, since they might have made Itanic look bad).B > POWER4+, an EV7 contemporary rather than an earlier product like POWER4F > was, would likely have beaten EV7 fairly handily at the 32-processorA > system size (yes, largely because of its one-process-generation E > advantage - but its system scaling was still very good, good enough  thatC > it only took 32 POWER4+ cores to beat Madison's best 64-processor  TPC-C 	 > score).   @ I believe POWER4 have 128MB L4 cache per MCM while EV7 only haveG 1,75(?) MB L2 cache per CPU, close to POWER4s L2 cache, although shared > with two cores. An POWER4 without the L3 cache would not be as impressive.    ------------------------------  % Date: Sat, 05 Mar 2005 21:40:08 +0800  From: prep@prep.synonet.com / Subject: Re: new Itanium after Tukwila: Poulson - Message-ID: <87zmxip5xj.fsf@prep.synonet.com>   , "Alan Greig" <greigaln@netscape.net> writes:  E > I wonder if Bliss-64 exists yet for the AMD/Intel chips. I guess it F > must do to support Intel owned compilers for these platforms. Anyone > know for sure?  F THere is a bigger problem. Part of the AMD64 move was dropping to only 2 CPU modes, not 4.    --  < Paul Repacholi                               1 Crescent Rd.,7 +61 (08) 9257-1001                           Kalamunda. @                                              West Australia 6076* comp.os.vms,- The Older, Grumpier Slashdot. Raw, Cooked or Well-done, it's all half baked.F EPIC, The Architecture of the future, always has been, always will be.   ------------------------------  % Date: Sat, 05 Mar 2005 21:37:31 +0800  From: prep@prep.synonet.com / Subject: Re: new Itanium after Tukwila: Poulson - Message-ID: <874qfqqkmc.fsf@prep.synonet.com>   % "John Smith" <a@nonymous.com> writes:   E > Having never been involved in IC design/fabrication, could somebody E > please explain what's involved in shrinking a mask from one process : > size to another other than the physical shrink? How muchB > 'rearranging' goes on to deal with 'leakage', ground planes, and# > other issues as processes shrink?     Now days, *LOTS*, and then some.  D Taking a great handwave and offing all the circuit effects, and only looking at the FAB side:  C Every mask set is `Phase Corrected'. Because of the feature size vs D the wavelength of the light used to expose the pattern the masks areA distorted so the resultant exposure is close to what the designer B hoped for. If you go to a different process feature size, all thatE tweeking has to be done all over again. That is why a shrink is often E only done to the normally larger metal layers and a small tweeking to  the implant layers.   C If you also go to a shorter wavelength mask maker/stepper, you also < get to do it all again, but probably tweeking the other way.  F On the circuit side, leakage goes up, now days, WAY up compared to theE logic signals, and the P-N area ratios need to be re-tuned to keep it 
 all happy.  E Then you get to run all your timming sims again and hope you have not  run out of skew some where.   C BTW, 90 and 65nM are the `new' sizes, don't expect to see 45nM till  around 2010.   --  < Paul Repacholi                               1 Crescent Rd.,7 +61 (08) 9257-1001                           Kalamunda. @                                              West Australia 6076* comp.os.vms,- The Older, Grumpier Slashdot. Raw, Cooked or Well-done, it's all half baked.F EPIC, The Architecture of the future, always has been, always will be.   ------------------------------  # Date: Sat, 05 Mar 2005 12:25:07 GMT " From:   VAXman-  @SendSpamHere.ORG( Subject: Re: New OpenVMS-Integrity Video0 Message-ID: <00A404DC.EBAA949C@SendSpamHere.ORG>  | In article <FD827B33AB0D9C4E92EACEEFEE2BA2FB594C71@tayexc19.americas.cpqcorp.net>, "Main, Kerry" <kerry.main@hp.com> writes: >All,  > F >Apologies in advance if this was posted already, but there is a new =< >video on HP OpenVMS-Integrity servers that is available at:A >http://h71000.www7.hp.com/openvms/integrity/integrity_video.html    ...and once again, .WMV   : VMS and Integrity... It's for Micro$oft PeeCee users only! --  K VAXman- A Bored Certified VMS Kernel Mode Hacker   VAXman(at)TMESIS(dot)COM              5   "Well my son, life is like a beanstalk, isn't it?"     ------------------------------   Date: 5 Mar 2005 04:05:10 -0800 ( From: John.Martin_At_Home@BTInternet.com< Subject: Re: Problem Installing a Printer to a terminal LineB Message-ID: <1110024310.641124.81080@g14g2000cwa.googlegroups.com>   Bob Koehler wrote:D > In article <1109951638.010740.75230@o13g2000cwo.googlegroups.com>,* John.Martin_At_Home@BTInternet.com writes: > > $! > > $ SET VERIFY# > > $ DEFINE /SYSTEM $PRINTER TTA3: @ > > $ SET TERMINAL $PRINTER /PERMANENT /NOBROADCAST /NOTYPEAHEAD	 /NOWRAP - ; > >       /SPEED=9600 /WIDTH=80 /PAGE=66 /DEVICE_TYPE=LA100 9 > > $! note commented out SET DEVICE /SPOOLED=(SYS$PRINT,  SYS$SYSDEVICE:)  > > $PRINTER > > $ START /QUEUE SYS$PRINT > > >    You need to tell VMS where the queue SYS$PRINT prints to: > ) >   $ start /queue sys$print /on=$printer    Bob   = Many thanks for the fix it all works now (and I have included G spooling).  Does make me wonder why the SYSTARTUP_VMS.COM template does D not mention this since clearly as written the template code does not work.    John   ------------------------------  # Date: Sat, 05 Mar 2005 17:50:57 GMT  From: Jim Duff <jim@127.0.0.1>9 Subject: Problems with two patches on OpenVMS 7.3-2 Alpha G Message-ID: <5kmWd.104344$Th1.60669@bgtnsc04-news.ops.worldnet.att.net>   E Community service announcement:  two patches for OpenVMS 7.3-2 Alpha  G have significant problems.  Both patches are still available from HP's  A FTP site, with no indication that they contain any type of error.   C The first patch is VMS732_SYS-V0600, which has a faulty version of  G IO_ROUTINES.EXE, causing I/O database corruption for certain shadowset  E configurations.  This results in the $GETDVI SHDW_NEXT_MBR_NAME item  4 code returning the same physical name over and over.  I The second patch is VMS732-UPDATE-V0x00.  Yes, all three versions of the  @ patch have the problem.  In this case, the corrected version of H NETDRIVER.EXE is installed in SYS$SYSTEM, not SYS$LOADABLE_IMAGES as it @ should be.  This one can hang your system, as we found out on a  production cluster :(    Full write-ups at:  8 http://www.eight-cubed.com/blog/archives/000277.html and4 http://www.eight-cubed.com/blog/archives/000278.html   Jim. --   jim AT eight DASH cubed DOT com    ------------------------------  * Date: Sat, 5 Mar 2005 07:55:01 +0000 (UTC)3 From: "Richard Maher" <maher_rj@hotspamnotmail.com> ; Subject: Rdb's impact on $persona_delete ss$_personadelpend 0 Message-ID: <d0bokl$rua$1@sparta.btinternet.com>   Hi,   J Back in November 2001 (Doesn't time fly . . .) I had a problem with tryingJ to delete a persona after accessing Rdb. In a nutshell, If you'd started aI read-only transaction for a persona then you were unable to delete it and H were returned ss$_personadelpend even though you'd committed the txn andI gone back to your natural persona. Scary thing, from a VMS point of view, L was you were able to assume a dead persona. (Though I was more interested inG the potential memory-leak/resource exhaustion of endless personae being  created)  G At the time I had no idea if it was a VMS or Rdb problem, I was running I Alpha VMS 7.2 and Rdb 7.0.3 and no one (least of all Rdb engineering) was K interested in discussing the issue. Anyway, I was testing some new features I the other day and I decided to revisit this functionality and guess what? L It's fixed! I'm now running Rdb 7.1-24 and if I rdb$setver back to 7.0 I canD reproduce the problem. So it is clearly something Rdb was doing thatE prevented the persona from dying. But what? I scanned through the Rdb D release notes and could not find anything. Surely this is a lot moreC interesting then most of the crap that gets beaten to death in COV?   E Most of you may not find this exciting, but for me, this is the dog's A bollocks! If only Rdb supported Set Session Authorization Persona  :ws_integer; :-(  I Norm, you've been very quite lately; any interest in this? What about you L VMS guys? What could Rdb have been doing that stopped the persona from dyingK immediately? I checked SDA> Show Proc/Persona but it had already gone after ? the reserve. I was hoping that RefCount might reveal something.   K Anyway, I'll attach some test code as a reply along with the original mail. J This really is pretty shit-hot stuff! Maybe if someone else asks for it we may get a reply?   Regards Richard Maher   L PS. On second thoughts let's resume normal programming - "This persona stuffK could reveal a deep-rooted underlying lack of commitment to VMS!", "I smell 9 smoke; is that a vibration?", "We're all going to die!!!"    ------------------------------  * Date: Sat, 5 Mar 2005 08:04:08 +0000 (UTC)3 From: "Richard Maher" <maher_rj@hotspamnotmail.com> ? Subject: Re: Rdb's impact on $persona_delete ss$_personadelpend / Message-ID: <d0bp5l$md5$1@titan.btinternet.com>    Here's the test code : -  , $!Author:&Richard&Maher&-&TIER3&Software&Ltd $! $on&warning&then&exit D $if&.not.&f$privilege("cmkrnl,impersonate,tmpmbx")&then&goto&no_priv8 $if&f$getsyi("arch_name")&.nes.&"Alpha"&then&goto&no_vax $!
 $create&t.mar   * &&&&&&&&.TITLE&External&symbol&definitions  & &&&&&&&&$ISSDEF&&&&&&&&&&&&&&&&&GLOBAL   &&&&&&&&.END  
 $macrox/lis&t  $! $create&t1.cob identification&division.* program-id.&&&&iss_disp&with&ident&"v2.1".  " author.&&&&&&&&Tier3&Software&Ltd.   environment&division.  input-output&section. 
 file-control.   " &&&&&&&&select&&uaf&assign&sysuaf.   data&division.
 file&section.    fd&&uaf , &&&&record&varying&depending&on&uaf_rec_len.) 01&&uaf_rec&&&&&&&&&&&&&&&&&pic&x(32765).    01&&username_rec. % &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&x(4). & &&&&03&&uaf_username&&&&&&&&pic&x(12).   working-storage&section. * L 01&&child_exit_ast&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&external&child_exit_ ast.L 01&&iss$m_create_authpriv&&&pic&9(9)&&&&comp&&&&value&&&external&iss$m_creat e_authpriv. L 01&&cli$m_nowait&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&cli$m_nowai t.L 01&&io$_readvblk&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&io$_readvbl k.L 01&&io$_writevblk&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&io$_writevb lk. L 01&&io$_writeof&&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&io$_writeof . J 01&&rms$_rnf&&&&&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&rms$_rnf.L 01&&ss$_nomoreproc&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_nomorep roc.L 01&&ss$_userdisabled&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_userdis abled.L 01&&ss$_endoffile&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_endoffi le. L 01&&ss$_normal&&&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_normal.- 01&&sys_status&&&&&&&&&&&&&&pic&9(9)&&&&comp.  *  01&&child_params. - &&&&03&&child_status&&&&&&&&pic&9(9)&&&&comp. < &&&&03&&user_exit&&&&&&&&&&&pic&x&&&&&&&&&&&&&&&value&&&"N".- 01&&child_pid&&&&&&&&&&&&&&&pic&9(9)&&&&comp. - 01&&mbx_chan&&&&&&&&&&&&&&&&pic&9(4)&&&&comp.  *  01&&letter_sent.& &&&&03&&new_name&&&&&&&&&&&&pic&x(12).& &&&&03&&new_password&&&&&&&&pic&x(31).' &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&x(469).  01&&letter_recv.- &&&&03&&reserved_persona&&&&pic&9(9)&&&&comp. ' &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&x(508).  * 	 01&&iosb. - &&&&03&&cond_val&&&&&&&&&&&&pic&9(4)&&&&comp. - &&&&03&&byte_count&&&&&&&&&&pic&9(4)&&&&comp. - &&&&03&&chan_info&&&&&&&&&&&pic&9(9)&&&&comp.  * - 01&&uaf_rec_len&&&&&&&&&&&&&pic&9(9)&&&&comp. < 01&&eof_uaf&&&&&&&&&&&&&&&&&pic&x&&&&&&&&&&&&&&&value&&&"N".- 01&&user_cnt&&&&&&&&&&&&&&&&pic&9(9)&&&&comp.  * - 01&&scratch_lw&&&&&&&&&&&&&&pic&9(9)&&&&comp. - 01&&username_len&&&&&&&&&&&&pic&9(4)&&&&comp. - 01&&work_persona&&&&&&&&&&&&pic&9(9)&&&&comp.  01&&find_list. &&&&03&&item_username.- &&&&&&&&05&&new_name_len&&&&pic&9(4)&&&&comp. L &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(4)&&&&comp&&&&value&&&external&iss$_userna me. K &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&new_name. - &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp. - &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp.  *  procedure&division. 
 declaratives.  uaf_problems&section. . &&&&use&after&standard&error&procedure&on&uaf. 00. 2 &&&&call&"lib$stop"&using&by&value&rms-sts&of&uaf. *  end&declaratives.  kick_off&section.  00.  &&&&perform&parent_init.  2 &&&&display&"Enter&new&username&&:&"&no&advancing. &&&&accept&&&&&&new_name &&&&&&&&&&&&&&&&protected  &&&&&&&&&&&&&&&&reversed& &&&&at&end&&&&&&move&"Y"&to&user_exit.  + &&&&perform&the_work&until&user_exit&=&"Y".    &&&&call&"sys$qiow" 8 &&&&&&&&using&&&by&value&&&&&&&&0,&mbx_chan,&io$_writeof$ &&&&&&&&&&&&&&&&by&reference&&&&iosb/ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,0,0,0,0,0,0,0  &&&&&&&&giving&&sys_status. ; &&&&if&sys_status&=&ss$_normal&move&cond_val&to&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .  *  fini. 
 &&&&stop&run.  *  parent_init&section. 00. , &&&&display&"-Processing&UAF&"&erase&screen.  &&&&open&input&uaf&allowing&all.( &&&&read&uaf&at&end&move&"Y"&to&eof_uaf.. &&&&perform&load_personae&until&eof_uaf&=&"Y".6 &&&&display&"User&count&=&",&user_cnt&with&conversion. &&&&close&uaf.   &&&&call&"sys$crembx" ! &&&&&&&&using&&&by&value&&&&&&&&0 ( &&&&&&&&&&&&&&&&by&reference&&&&mbx_chan. &&&&&&&&&&&&&&&&by&value&&&&&&&&512,&512,&0,&0( &&&&&&&&&&&&&&&&by&descriptor&&&"MY_MBX"$ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0 &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&call&"lib$spawn") &&&&&&&&using&&&by&descriptor&&&"$run&t2" ! &&&&&&&&&&&&&&&&by&value&&&&&&&&0 ( &&&&&&&&&&&&&&&&by&descriptor&&&"t2.log", &&&&&&&&&&&&&&&&by&reference&&&&cli$m_nowait! &&&&&&&&&&&&&&&&by&value&&&&&&&&0 7 &&&&&&&&&&&&&&&&by&reference&&&&child_pid,&child_status 1 &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&child_exit_ast , &&&&&&&&&&&&&&&&by&reference&&&&child_params' &&&&&&&&&&&&&&&&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$qiow" 9 &&&&&&&&using&&&by&value&&&&&&&&0,&mbx_chan,&io$_readvblk $ &&&&&&&&&&&&&&&&by&reference&&&&iosb# &&&&&&&&&&&&&&&&by&value&&&&&&&&0,0 + &&&&&&&&&&&&&&&&by&reference&&&&letter_recv + &&&&&&&&&&&&&&&&by&value&&&&&&&&512,0,0,0,0  &&&&&&&&giving&&sys_status. ; &&&&if&sys_status&=&ss$_normal&move&cond_val&to&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .  *  fini.  *  load_personae&section. 00.  &&&&call&"str$trim" : &&&&&&&&using&&&by&descriptor&&&uaf_username,&uaf_username, &&&&&&&&&&&&&&&&by&reference&&&&username_len &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&call&"sys$persona_create" + &&&&&&&&using&&&by&reference&&&&scratch_lw& < &&&&&&&&&&&&&&&&by&descriptor&&&uaf_username(1:username_len); &&&&&&&&&&&&&&&&by&value&&&&&&&&iss$m_create_authpriv,&0,&0  &&&&&&&&giving&&sys_status.  &&&&if&sys_status&=&ss$_normal &&&&&&&&add&1&to&user_cnt  &&&&else4 &&&&&&&&if&sys_status&=&ss$_userdisabled&or&rms$_rnfG &&&&&&&&&&&&display&"User&",&uaf_username(1:username_len),&"&disabled."  &&&&&&&&elseE &&&&&&&&&&&&display&"User&",&uaf_username(1:username_len),&"&failed." 6 &&&&&&&&&&&&call&"lib$stop"&using&by&value&sys_status. *  fini. ( &&&&read&uaf&at&end&move&"Y"&to&eof_uaf. *  the_work&section.  00. 4 &&&&move&function&upper-case&(new_name)&to&new_name.   &&&&call&"str$trim" 2 &&&&&&&&using&&&by&descriptor&&&new_name,&new_name, &&&&&&&&&&&&&&&&by&reference&&&&new_name_len &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .   L &&&&call&"sys$persona_find"&using&work_persona,&find_list&giving&sys_status." &&&&if&sys_status&=&ss$_nomoreproc! &&&&&&&&display&"No&such&persona"  &&&&&&&&go&to&fini.   L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .     2 &&&&display&"Enter&new&password&&:&"&no&advancing. &&&&accept&&&&&&new_password &&&&&&&&&&&&&&&&protected  &&&&&&&&&&&&&&&&no&echo  &&&&at&end&&&&&&go&to&fini.   < &&&&move&function&upper-case&(new_password)&to&new_password.    &&&&call&"sys$persona_delegate"& &&&&&&&&using&&&child_pid,& " &&&&&&&&&&&&&&&&reserved_persona,& &&&&&&&&&&&&&&&&work_persona &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&call&"sys$qiow" : &&&&&&&&using&&&by&value&&&&&&&&0,&mbx_chan,&io$_writevblk$ &&&&&&&&&&&&&&&&by&reference&&&&iosb# &&&&&&&&&&&&&&&&by&value&&&&&&&&0,0 + &&&&&&&&&&&&&&&&by&reference&&&&letter_sent + &&&&&&&&&&&&&&&&by&value&&&&&&&&512,0,0,0,0  &&&&&&&&giving&&sys_status.o; &&&&if&sys_status&=&ss$_normal&move&cond_val&to&sys_status.DL &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&call&"sys$qiow"i9 &&&&&&&&using&&&by&value&&&&&&&&0,&mbx_chan,&io$_readvblke$ &&&&&&&&&&&&&&&&by&reference&&&&iosb# &&&&&&&&&&&&&&&&by&value&&&&&&&&0,0y+ &&&&&&&&&&&&&&&&by&reference&&&&letter_recvt+ &&&&&&&&&&&&&&&&by&value&&&&&&&&512,0,0,0,0  &&&&&&&&giving&&sys_status.:; &&&&if&sys_status&=&ss$_normal&move&cond_val&to&sys_status.n5 &&&&if&sys_status&not&=&ss$_normal&and&ss$_endoffile&l2 &&&&&&&&call&"lib$stop"&using&by&value&sys_status. *e fini.l *g2 &&&&display&"Enter&new&username&&:&"&no&advancing. &&&&accept&&&&&&new_name &&&&&&&&&&&&&&&&protecteda &&&&&&&&&&&&&&&&reversed& &&&&at&end&&&&&&move&"Y"&to&user_exit. *e end&program&iss_disp.  identification&division. program-id.&&&&child_exit_ast. *t data&division. linkage&section. 01&&child_params.p- &&&&03&&child_status&&&&&&&&pic&9(9)&&&&comp.D" &&&&03&&user_exit&&&&&&&&&&&pic&x.& procedure&division&using&child_params. 00.  &&&&if&user_exit&=&"N"' &&&&&&&&display&"Unexpected&child&exit"u4 &&&&&&&&call&"lib$stop"&using&by&value&child_status. *- fini.- &&&&exit&program.- *- end&program&child_exit_ast.  $! $cobolx/lis&t1 $linkx/notrace&t1,ty$ $inst_file&=&f$parse("t1.exe")&-&";"( $if&f$file_attributes(inst_file,"KNOWN") $then0$ $&&&&&&&installx&replace&'inst_file' $elsec5 $&&&&&&&installx&add&'inst_file'&/share/priv=(sysprv)w $endif $! $create&t2.cob identification&division.* program-id.&&&&iss_exec&with&ident&"v2.1".  " author.&&&&&&&&Tier3&Software&Ltd.   data&division. working-storage&section. *mL 01&&io$_writevblk&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&io$_writevb lk.mL 01&&io$_readvblk&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&io$_readvbl k.L 01&&iss$c_id_natural&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&iss$c_id_na tural.K 01&&ss$_abort&&&&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_abort.RL 01&&ss$_personadelpend&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_persona delpend.L 01&&ss$_nomoreproc&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_nomorep roc.L 01&&ss$_endoffile&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_endoffi le._L 01&&ss$_normal&&&&&&&&&&&&&&pic&9(9)&&&&comp&&&&value&&&external&ss$_normal.- 01&&sys_status&&&&&&&&&&&&&&pic&9(9)&&&&comp.u * 	 01&&iosb.g- &&&&03&&cond_val&&&&&&&&&&&&pic&9(4)&&&&comp.e- &&&&03&&byte_count&&&&&&&&&&pic&9(4)&&&&comp.r- &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp.o *  01&&parent_list. &&&&03&&item_master_pid.: &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(4)&&&&comp&&&&value&&&4.L &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(4)&&&&comp&&&&value&&&external&jpi$_owner.L &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&parent_pid .T- &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp. - &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp.e *l 01&&user_list. &&&&03&&item_username.; &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(4)&&&&comp&&&&value&&&12.nL &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(4)&&&&comp&&&&value&&&external&jpi$_userna me. L &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&curr_usern ame.L &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&curr_usern ame_len.- &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp.  * 
 01&&jpi_iosb.0- &&&&03&&jpi_sts&&&&&&&&&&&&&pic&9(4)&&&&comp.2% &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&x(6).  * - 01&&parent_pid&&&&&&&&&&&&&&pic&9(9)&&&&comp. & 01&&curr_username&&&&&&&&&&&pic&x(12).- 01&&curr_username_len&&&&&&&pic&9(4)&&&&comp.5- 01&&scratch_persona&&&&&&&&&pic&9(9)&&&&comp. - 01&&mbx_chan&&&&&&&&&&&&&&&&pic&9(4)&&&&comp. < 01&&cmd_eof&&&&&&&&&&&&&&&&&pic&x&&&&&&&&&&&&&&&value&&&"N". 01&&letter_sent.& &&&&03&&new_name&&&&&&&&&&&&pic&x(12).& &&&&03&&new_password&&&&&&&&pic&x(31).' &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&x(469).O- 01&&password_len&&&&&&&&&&&&pic&9(4)&&&&comp.1  L 01&&db_spec&&&&&&&&&&&&&&&&&pic&x(50)&&&&&&&&&&&value&"alias&pers&filename&m
 f_personnel".2  A 01&rdb$message_vector&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&external.2- &&&&03&rdb$lu_num_arguments&pic&9(9)&&&&comp. - &&&&03&rdb$lu_status&&&&&&&&pic&9(9)&&&&comp. @ &&&&03&rdb$alu_arguments&&&&&&&&&&&&&&&&&&&&&&&&occurs&18&times.- &&&&&&&&05&rdb$lu_arguments&pic&9(9)&&&&comp.   - 01&&sqlcode&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp.P& 01&&system_user&&&&&&&&&&&&&pic&x(31).& 01&&session_user&&&&&&&&&&&&pic&x(31).& 01&&current_user&&&&&&&&&&&&pic&x(31).& 01&&auth_string&&&&&&&&&&&&&pic&x(60). *E 01&&find_list. &&&&03&&item_username.- &&&&&&&&05&&new_name_len&&&&pic&9(4)&&&&comp.RL &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(4)&&&&comp&&&&value&&&external&iss$_userna me.TK &&&&&&&&05&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pointer&value&&&reference&new_name. - &&&&&&&&05&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp. - &&&&03&&&&&&&&&&&&&&&&&&&&&&pic&9(9)&&&&comp.1 *  procedure&division.0 kick_off&section.T 00.E &&&&call&"sys$getjpiw"' &&&&&&&&using&&&by&value&&&&&&&&0,&0,&0 5 &&&&&&&&&&&&&&&&by&reference&&&&parent_list,&jpi_iosbr$ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0 &&&&&&&&giving&&sys_status. : &&&&if&sys_status&=&ss$_normal&move&jpi_sts&to&sys_status.L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&call&"sys$assign"a( &&&&&&&&using&&&by&descriptor&&&"MY_MBX"( &&&&&&&&&&&&&&&&by&reference&&&&mbx_chan' &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0,&0. &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .m  : &&&&call&"declare_connection_name"&using&sqlcode,&db_spec.% &&&&if&rdb$lu_status&not&=&ss$_normal:3 &&&&&&&&&call&"sys$putmsg"&using&rdb$message_vectorB7 &&&&&&&&&call&"lib$stop"&using&by&value&ss$_abort.&&&&&    &&&&perform&get_cmd.  ) &&&&perform&the_work&until&cmd_eof&=&"Y".e  
 &&&&stop&run.R *H the_work&section.t 00.s &&&&call&"sys$getjpiw"' &&&&&&&&using&&&by&value&&&&&&&&0,&0,&0n3 &&&&&&&&&&&&&&&&by&reference&&&&user_list,&jpi_iosb $ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0 &&&&&&&&giving&&sys_status.c: &&&&if&sys_status&=&ss$_normal&move&jpi_sts&to&sys_status.L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .h  C &&&&display&"Before&username&",&curr_username(1:curr_username_len).5 &&&&call&"str$trim"&2 &&&&&&&&using&&&by&descriptor&&&new_name,&new_name, &&&&&&&&&&&&&&&&by&reference&&&&new_name_len &&&&&&&&giving&&sys_status.@L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .M   &&&&call&"sys$persona_assume"m/ &&&&&&&&using&&&by&reference&&&&scratch_persona ' &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0,&0o &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .t *+& *&This&is&where&I&would&like&to&call:- *s' *&&&&&&&SQL>&SET&SESSION&AUTHORIZATION;o *  &&&&call&"str$trim"&: &&&&&&&&using&&&by&descriptor&&&new_password,&new_password, &&&&&&&&&&&&&&&&by&reference&&&&password_len &&&&&&&&giving&&sys_status. L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .    &&&&move&spaces&to&auth_string.h1 &&&&string&&&&&&"user&'",&new_name,&"'&using&'",&l2 &&&&&&&&&&&&&&&&new_password&(1:password_len),&"'"! &&&&&&&&&&&&&&&&delimited&by&size: &&&&&&&&into&&&&auth_string. *+4 *&User&must&have&SELECT&priv&to&database&to&do&this. *-/ &&&&call&"set_auth"&using&sqlcode,&auth_string.d% &&&&if&rdb$lu_status&not&=&ss$_normalT3 &&&&&&&&&call&"sys$putmsg"&using&rdb$message_vectoro8 &&&&&&&&&call&"lib$stop"&using&by&value&ss$_abort.&&&&&&  & &&&&call&"set_trans_rw"&using&sqlcode.% &&&&if&rdb$lu_status&not&=&ss$_normala3 &&&&&&&&&call&"sys$putmsg"&using&rdb$message_vectorr8 &&&&&&&&&call&"lib$stop"&using&by&value&ss$_abort.&&&&&&   &&&&call&"get_user"& &&&&&&&&using&&&sqlcode, &&&&&&&&&&&&&&&&system_user, &&&&&&&&&&&&&&&&session_user,s &&&&&&&&&&&&&&&&current_user.-% &&&&if&rdb$lu_status&not&=&ss$_normal-3 &&&&&&&&&call&"sys$putmsg"&using&rdb$message_vectorh8 &&&&&&&&&call&"lib$stop"&using&by&value&ss$_abort.&&&&&&  + &&&&display&"System&&User&=&",&system_user.n, &&&&display&"Session&User&=&",&session_user., &&&&display&"Current&User&=&",&current_user.  & &&&&call&"commit_trans"&using&sqlcode.% &&&&if&rdb$lu_status&not&=&ss$_normal 3 &&&&&&&&&call&"sys$putmsg"&using&rdb$message_vectore8 &&&&&&&&&call&"lib$stop"&using&by&value&ss$_abort.&&&&&& *  &&&&call&"sys$getjpiw"' &&&&&&&&using&&&by&value&&&&&&&&0,&0,&0t3 &&&&&&&&&&&&&&&&by&reference&&&&user_list,&jpi_iosbb$ &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0 &&&&&&&&giving&&sys_status. : &&&&if&sys_status&=&ss$_normal&move&jpi_sts&to&sys_status.L &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .h  B &&&&display&"After&username&",&curr_username(1:curr_username_len).   fini.l &&&&call&"sys$persona_assume" 0 &&&&&&&&using&&&by&reference&&&&iss$c_id_natural' &&&&&&&&&&&&&&&&by&value&&&&&&&&0,&0,&0t &&&&&&&&giving&&sys_status.RL &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .@ *+H *&Unfortunately&personas&appear&to&be&write-once&structures&so,&instead&F *&of&being&able&to&delegate&a&different&persona&to&the&same&"reserved"G *&persona&area,&we&have&to&delete&the&old&one&and&re-reserve&a&new&one.F *-F &&&&call&"sys$persona_delete"&using&scratch_persona&giving&sys_status.9 &&&&if&sys_status&not&=&ss$_normal&and&ss$_personadelpendh2 &&&&&&&&call&"lib$stop"&using&by&value&sys_status.  @ &&&&if&sys_status&=&ss$_personadelpend&display&"Delete&pending".  L &&&&call&"sys$persona_find"&using&scratch_persona,&find_list&giving&sys_stat us.p &&&&evaluate&&&&sys_statusL &&&&&&&&when&&&&ss$_nomoreproc&&display&"This&is&what&I&expected&-&Deleted&O k"L &&&&&&&&when&&&&ss$_normal&&&&&&display&"It&took&a&lickin'&but&it's&kept&on& tickin'"I &&&&&&&&when&&&&other&&&&&&&&&&&call&"lib$stop"&using&by&value&sys_statusc &&&&end-evaluate.1   &&&&perform&get_cmd. *@ get_cmd&section. 00.mL &&&&call&"sys$persona_reserve"&using&parent_pid,&scratch_persona&giving&sys_ status.tL &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .r   &&&&call&"sys$qiow"o: &&&&&&&&using&&&by&value&&&&&&&&0,&mbx_chan,&io$_writevblk$ &&&&&&&&&&&&&&&&by&reference&&&&iosb# &&&&&&&&&&&&&&&&by&value&&&&&&&&0,0e/ &&&&&&&&&&&&&&&&by&reference&&&&scratch_persona ) &&&&&&&&&&&&&&&&by&value&&&&&&&&4,0,0,0,0s &&&&&&&&giving&&sys_status.-; &&&&if&sys_status&=&ss$_normal&move&cond_val&to&sys_status.cL &&&&if&sys_status&not&=&ss$_normal&call&"lib$stop"&using&by&value&sys_status .1   &&&&call&"sys$qiow"19 &&&&&&&&using&&&by&value&&&&&&&&0,&mbx_chan,&io$_readvblkM$ &&&&&&&&&&&&&&&&by&reference&&&&iosb# &&&&&&&&&&&&&&&&by&value&&&&&&&&0,0 + &&&&&&&&&&&&&&&&by&reference&&&&letter_senta+ &&&&&&&&&&&&&&&&by&value&&&&&&&&512,0,0,0,0t &&&&&&&&giving&&sys_status.>; &&&&if&sys_status&=&ss$_normal&move&cond_val&to&sys_status.r! &&&&if&sys_status&=&ss$_endoffiler &&&&&&&&move&"Y"&to&cmd_eof. &&&&else& &&&&&&&&if&sys_status&not&=&ss$_normal6 &&&&&&&&&&&&call&"lib$stop"&using&by&value&sys_status. *6 end&program&iss_exec.t $! $cobolx/lis&t2 $create&t2_sql.sqlmod    module&&&&t2_sql language&&cobolo parameter&colons  ( declare&pers&alias&filename&mf_personnel  ! procedure&declare_connection_name  &&&&&&&&sqlcode,! &&&&&&&&:db_spec&&&&&&&&char(50);    &&&&&&&&attach&:db_spec;   procedure&set_trans_rw &&&&&&&&sqlcode;  " &&&&&&&&set&transaction&read&only;     procedure&commit_trans &&&&&&&&sqlcode;   &&&&&&&&commit;h   procedure&set_auth &&&&&&&&sqlcode,! &&&&&&&&:auth_string&&&&char(60);t  / &&&&&&&&set&session&authorization&:auth_string;    procedure&get_user &&&&&&&&sqlcoden! &&&&&&&&:sys_user&&&&&&&char(31),'! &&&&&&&&:ses_user&&&&&&&char(31),r! &&&&&&&&:cur_user&&&&&&&char(31);d   &&&&&&&&select &&&&&&&&&&&&&&&&system_user, &&&&&&&&&&&&&&&&current_user,t &&&&&&&&&&&&&&&&session_user &&&&&&&&into &&&&&&&&&&&&&&&&:sys_user, &&&&&&&&&&&&&&&&:cur_user, &&&&&&&&&&&&&&&&:ses_usern &&&&&&&&from &&&&&&&&&&&&&&&&pers.employees &&&&&&&&limit&to&1&row;n   procedure&disconnect_dbi &&&&&&&&sqlcode;   &&&&&&&&disconnect&default;    $! $sqlmod:==$sql$mod $sqlmod&t2_sql/lis/session $linkx&t2,t,t2_sql,sql$user/libr $!, $set&process/priv=(noall,tmpmbx,impersonate) $! $exit2 $!	 $no_priv:oL $&&&&&&&write&sys$output&"Insufficient&privilege.&You&need&(CMKRNL,IMPERSONA TE,TMPMBX)"e $&&&&&&&exit&44o $! $no_vax:8 $&&&&&&&write&sys$output&"This&code&only&works&on&alpha" $&&&&&&&exit&44h $!   ------------------------------  * Date: Sat, 5 Mar 2005 08:06:20 +0000 (UTC)3 From: "Richard Maher" <maher_rj@hotspamnotmail.com> ? Subject: Re: Rdb's impact on $persona_delete ss$_personadelpendy0 Message-ID: <d0bp9q$sqa$1@sparta.btinternet.com>   Here's the original mail : -     ----- Original Message ----- s From: "Richard Maher" ' Sent: Sunday, November 04, 2001 6:56 PMo* Subject: Re: Wishlist - sort of (More SSA)     > Hi,e >rJ > (This is the third time I've tried to send this since Thursday. Sorry if you L > get all three! Hotmail postmaster saying something about delivery delayed.& > Indefinitely? Anyone else got that?) >h	 > Hi Ian,m >s > Issue [1]o > * > >I have describe the SYSTEM_USER before. >r- > And I for one have always listene intently.h > C > >This is the user that allows access to such shared files as RUJ.  >CL > I understand this and can see now why, as you have pointed out previously,L > SYSTEM_USER cannot be dynamic. I agree that the SYSTEM_USER should be usedK > for determining access to such things as the RDMS$RUJ and SORTWORKn filesaK > and external routine shareable images. (I also believe there is a case ton be' > made for image privs playing a part!)u >cG > My point is that the above is *not* happening with Rdb 7.1 VMS 7.2-1.u >gK > To illustrate, just run my example (I've attached it again in case you'veeL > filed it :-) Make sure you run it from an account that *has* access to theK > RUJ directory. Then, as the *first* username enter someone who *does not*e# > have access to the RUJ directory.d > K > My guess is, when you type up your T2.LOG file, you'll see something liken > the following:-  >l > Before username MAHER_Rt8 > %RDB-F-SYS_REQUEST, error from system services request9 > -RDMS-F-FILACCERR, error creating run-unit journal file / > DISK$SYS:[TEST]MF_PERSONNEL$000144B97F66.RUJ;aA > -RMS-E-PRV, insufficient privilege or file protection violation- > %SYSTEM-F-ABORT, abort1 > %TRACE-F-TRACEBACK, symbolic stack dump followspL >   image    module    routine             line      rel PC           abs PC@ >  T2  ISS_EXEC  ISS_EXEC                   156 00000000000005EC > 00000000000305EC@ >  T2                                         0 0000000000026044 > 0000000000036044@ >                                             0 FFFFFFFF828D9414 > FFFFFFFF828D9414 >r: > My definition of SYSTEM_USER is based on the following:- >n > BUILT_IN_FUNCTIONS >h >   SYSTEM_USERe >cI >        The SYSTEM_USER function returns the user name of the process ate) >        the time of the database attach.h$ >        ^^^^^^^^^^^^^^^^^^^^^^^^^^^ >l3 > I stuck a SYS$SUSPND in my code after the call toe "declare_connection_name"cK > and then did a $rmu/sh us mf_personnel just to make sure that MAHER_R was  inK > fact attached to the database and the SYSTEM_USER was MAHER_R and MAHER_Rl > could write to the RUJ dir.i > I > Am I seeing things? or is Rdb using the PERSONA_USER username and *not*u thesL > SYSTEM_USER username to determine access to the RUJ directory? Do you do aL > $getjpi? or neglect to specify the SYSTEM_USER in a call to $check_access? >tK > Obviously if you specify a privileged user as the first user when runningiH > T1, then the unprivileged user will be able to create an RUJ next time	 > around.  > J > Also how would you convince lib$find_image_symbol to use the SYSTEM_USERH > when loading a shareable image if the current PERSONA doesn't have :REL > access to the image? (lib$fis living in a shareable and not lending itself) > easily to secure access from EXEC mode)  >g > Issue [2]f >s  > SQL> SET SESSION AUTHORIZATION > K > Let's you SSA to a username who's been DISUSERed. (So does ATTACH etc) Iso > this correct?e >oH > Are you also planning on tightening things up by introducing a call to > $scan_intrusion? >r > Issue [3]7 >lL > You've heard of Rubik's cube? Well there are hours more fun to be had with > SS$_PERSONADELPEND!P >RD > Watch those rainy winter's days just fly by with the whole family! >- > This week's question:- > I > Why do I only get ss$_personadelpend when I have performed an Rdb *READaL > ONLY*  transaction??? (READ WRITE transactions result in the persona being/ > able to be deleted immediately) Why is it so?  > H > What baggage does a read only txn leave lying around that requires theH > creating persona to survive? Resource domains? Dodgy asynch i/o? Apron
 > strings? >rI > One last observation. If I choose the username of the processes NaturaloL > Persona I still get ss$_personadelpend and not ss$_nodelpermanent when theH > flags clearly tell me that the natural persona is obviously permanent. > A > This is the final clue in this series and must be the clincher!h >l  > Damn you for your cunningness! >r= > Please put your answers on a stamped self addressed e-mail.  >uL > (The judge's decision is final and no correspondance will be entered into) >aL > BTW. I've turned off bind_snap_quiet_point, bind_prestart_txn and disabled0 > carry over locks but it still keeps on tickin' >q > Regards Richard Maher  >  > ----- Original Message ----- > From: Ian.E.Smithv) > Sent: Tuesday, October 30, 2001 2:34 AMc. > Subject: Re: Antwort: Re: Wishlist - sort of >  >iI > > I have describe the SYSTEM_USER before.  This is the user that allowsh > access toh > > such shared files as RUJ.a > >h > > Ian' > >u > > Richard Maher wrote: > >a	 > > > Hi,  > > >  > > > Ian Smith wrote: > > >s > > > > Go to metalink.n > > > > Select News and Notes.+ > > > > Select Product Enhancements Online.  > > > 
 > > > Hoorah!a > > >e > > > (Or so I thought)t > > >e< > > > I was about to complain that there is nothing under my> > > > News and Events that looks any thing like an enhancementA > > > thingy and then I go back in to check it one last time, andr. > > > there it is ERS. This _is_ new isn't it? > > >n: > > > Anyway when I try to log on (MAHERR) it won't let me= > > > (but it does let me into meta-link) so I say show me mys$ > > > password and it sent it off to > > >m8 > > > How can the ERS system have different usernames to5 > > > meta-link? Do I need two Usernames? Who is this, > > > imposter :-) > > >  > > > Regards Richard Maher. > > >,: > > > PS. Just in case anyone is being proactive about SET+ > > > SESSION AUTHORIZATION PERSONA  thing,i; > > > I noticed something else the other day. Access to thee2 > > > RDMS$RUJ directory (and presumably other RMS9 > > > files such as sortwork files) appears to be checkedo: > > > for the "first" user only! Do you do a $check_access6 > > > for the _first_ read/write transactionn only? So: > > > when I SSA to a user that does not have write access= > > > to the RUJ directory Rdb is still happy to write to it.o > > >s7 > > > Rdb also does *not* seem to take image privs intol: > > > account when deciding if the RUJ can be written. Why7 > > > not? It looks something like $check_access to me.m > > >e" > > > ----- Original Message ----- > > > From: Ian Smithe/ > > > Sent: Wednesday, October 17, 2001 5:22 PM 2 > > > Subject: Re: Antwort: Re: Wishlist - sort of > > >. > > > > Go to metalink.a > > > > Select News and Notes.+ > > > > Select Product Enhancements Online.t > > > >o > > > > Ian  > > > >  > > > > Philipp Lewis wrote: > > > >i > > > > > Well,s	 > > > > >aD > > > > > I might if I could find the bloody ER system entry point !H > > > > > Then again, now I am unemployed I have hours to waste trolling > Oracle* > > > > > websites for no apparent benefit	 > > > > >  > > > > > ciao > > > > > philip	 > > > > >  >  >W   ------------------------------   Date: 5 Mar 2005 07:35:17 -0600-- From: Kilgallen@SpamCop.net (Larry Kilgallen)0? Subject: Re: Rdb's impact on $persona_delete ss$_personadelpendm3 Message-ID: <mb8fZvKIHoQ6@eisner.encompasserve.org>   f In article <d0bokl$rua$1@sparta.btinternet.com>, "Richard Maher" <maher_rj@hotspamnotmail.com> writes:  / > So it is clearly something Rdb was doing thati- > prevented the persona from dying. But what?   G From an internals perspective, it seems to me it was retaining a handleE, to the persona beyond its apparent lifetime.   > I scanned through the RdbDF > release notes and could not find anything. Surely this is a lot moreE > interesting then most of the crap that gets beaten to death in COV?E  F Well, yes and no.  While the political drivel is annoying, this nuanceH of a small bugfix may not be worth discussion.  Certainly it should haveF been in the release notes (and I have not looked myself to see that itD is missing), but learning the details does not seem really useful to@ those of us who do not have regular access to the source of Rdb.  B Perhaps the best lesson learned would be if someone from Rdb would? give the details to VMS Documentation to see if something abouth> persona manipulation needs more emphasis in the documentation.   ------------------------------   Date: 5 Mar 2005 09:09:21 -0800n From: macro81@sms.at, Subject: Re: Running OpenVMS on DEC PWS 500AB Message-ID: <1110042561.953149.97470@g14g2000cwa.googlegroups.com>  D > I am running OpenVMS 7.3-1 on my PWS 500A with the latest firmware > (SRM 7.2).+ Nice to hear. I'm looking for a PWS locatedO here in Austria or in Germany.$ Transport costs from US are to high.% Last week I found one PWS 500A offer.$  Now I'm checking the sys config.1 Hope that it will run OpenVMS in the near future..  1 > To install OpenVMS you will need a SCSI cd-rom.lA > If you want to run x-windows you will need a OpenVMS compatiblee$ > graphics card - se the openVMS FAQ  , I got a sys info from the guy who is selling the nice Miata workstation.o> A set of CDs entitled "DEC OSF/1 AXP Software product library" is sold with this system.:+ Are these the install cds for Digital Unix?06 Or only software packages for Digital Unix / DEC OSF1?  ' The PWS currently runs Redhat Linux v7.S   cpu                     : Alpha- cpu model               : EV56 cpu variation           : 0  cpu revision            : 0r system type             : MiataR system variation        : 0e system revision         : 0-% system serial number    : MILO-2.2-17>( cycle frequency [Hz]    : 499864594 est.! timer frequency [Hz]    : 1024.00t page size [bytes]       : 8192 phys. address bits      : 40 max. addr. space #      : 127l  BogoMIPS                : 990.32' kernel unaligned acc    : 0 (pc=0,va=0)t' user unaligned acc      : 0 (pc=0,va=0)d  # Graphic: Cirrus Logic CL-GD543x PCIu RAM: 256 MBytes.$ SCSI controller: QLogic ISP1020 2.26. HDD: 2 GBytes drives, one Quantum, two Seagate CDROM: Plextor Ultraplex All SCSI components   / It's a Miata. Fine. Sufficient RAM to run OVMS?   4 One component I'm worried about is the graphic card.. It should be replaced in order to run OpenVMS.G I read that Elsa Gloria Synergy and PowerStorm (300,350) are supported.t Or Powerstorm 3D30/4D20?   One Open question is the cache.a0 I read that there are PWSs with 0, 2 or 4 MBytes on-board Bcache/L3 cache.h# Is it possible to check the size of < the Bcache in some sysinfo under Linux or in the Alpha BIOS?# Or it's better to open the case and  have a look at the main board? s   TIA, Marcus    ------------------------------  % Date: Sat, 05 Mar 2005 19:14:18 +0100h- From: Didier Morandi <prenom.nom@freesurf.fr>n, Subject: Re: Running OpenVMS on DEC PWS 500A4 Message-ID: <4229f700$0$17142$636a15ce@news.free.fr>   macro81@sms.at wrote:     > I found a used Alpha PWS 500a.H > Think i'll use it for C coding, etc. A nice little alpha for home use.< > I would be interested running OpenVMS on this workstation.. > Or FreeBSD if there is no change to run VMS. >  > Following specs:/ > 500 MHz Alpha 21164, 2x SCSI HDD, 256 MB RAM, 3 > CD-ROM, 3,5" Floppy, On-Board Sound, SCSI and LAN  > System with AlphaBios 5.4m > > > I found out that there are two series (500 A and AU) of thisE > DEC alpha PWS Miata. "A" for Win NT preinstalled; "AU" for OpenVMS,m
 > Tru64 Unix.f > . > Is it possible to run OpenVMS on a PWS 500a?B > Or on a modified 500a? Changing some peripheral components, etc?   RTFs> http://h71000.www7.hp.com/wizard/faq/vmsfaq.pdf chapter 14.4.4   I got you, Hoff !... :-)
 Hoff ? :-| HOFF??? :-('   (fired too?)   D. --  ,        Didier MORANDI - Expert informaticien0   13 chemin du Gu, 1213 Petit-Lancy (GE) Suisse0 Tl. : +33(0)6 7983 6418 ~ www.didiermorandi.com   ------------------------------  $ Date: Sat, 5 Mar 2005 10:54:12 -0500) From: "Neil Rieck" <n.rieck@sympatico.ca>s: Subject: Re: This is the End... My Only Friend, The End...; Message-ID: <QCkWd.55591$kz6.1009041@news20.bellglobal.com>e  / "Soterro" <soterroatyahoocom> wrote in message r4 news:4226dac2$0$6574$4d4ef98e@read.news.ch.uu.net... > David J Dachtera wrote:t- >> So, what you're saying is, its inevitable.& >&M > Decus in Germany (in April) is expected to have an attendance of about 600 aM > people. That's half from what it was just a couple of years ago if I'm not e > mistaking. >   G I'm not so certain that OpenVMS is toast, but the following article at &L Technology Review demonstrates to me that Carly Fiorina wrecked the company.  D http://www.technologyreview.com/articles/05/03/wo/wo_delio030405.asp  
 Neil Rieck Kitchener/Waterloo/Cambridge,& Ontario, Canada.9 http://www3.sympatico.ca/n.rieck/links/cool_openvms.html n   ------------------------------  % Date: Sat, 05 Mar 2005 08:13:22 -0800u# From: "Tom Linden" <tom@kednos.com>s: Subject: Re: This is the End... My Only Friend, The End...( Message-ID: <opsm590kylzgicya@hyrrokkin>  K On Sat, 5 Mar 2005 10:54:12 -0500, Neil Rieck <n.rieck@sympatico.ca> wrote:b   >&0 > "Soterro" <soterroatyahoocom> wrote in message6 > news:4226dac2$0$6574$4d4ef98e@read.news.ch.uu.net... >> David J Dachtera wrote:. >>> So, what you're saying is, its inevitable. >>K >> Decus in Germany (in April) is expected to have an attendance of about  ) >> 600K >> people. That's half from what it was just a couple of years ago if I'm  & >> not
 >> mistaking.n >> > H > I'm not so certain that OpenVMS is toast, but the following article atG > Technology Review demonstrates to me that Carly Fiorina wrecked the  &
 > company.  C I thin she was just trying to repeat the success she had at Lucent!& >eF > http://www.technologyreview.com/articles/05/03/wo/wo_delio030405.asp >h > Neil Rieck > Kitchener/Waterloo/Cambridge,( > Ontario, Canada.: > http://www3.sympatico.ca/n.rieck/links/cool_openvms.html >l >i       -- &C Using Opera's revolutionary e-mail client: http://www.opera.com/m2/    ------------------------------  $ Date: Sat, 5 Mar 2005 10:03:16 -0500# From: "John Smith" <a@nonymous.com>&I Subject: Re: Warren, any way to find out when this page was last updated?a, Message-ID: <dJednfaij9KpV7TfRVn-3g@igs.net>   warren sander wrote:G > I can send email asking the web section owner. but he'd probably likec > to know why I'm asking...p  F Read the text on the page....given that this *is* c.o.v. and VMS isn't/ mentioned in that partner program, and NT *is*:&   a) Is the program still valid? b) Why isn't VMS a part of it?; c) If VMS is a part of the program, why isn't it mentioned?(  I Just like the Navy got its red/yellow/green light training, it seems likeaI most places inside HP need VMS sensitivity training.....or a whupping out&= behind the shed with a 2x4 - whichever will do the most good.&   --- OpenVMS - The classics never go out of style.r   ------------------------------   End of INFO-VAX 2005.128 ************************