INFO-VAX Mon, 06 Oct 2008 Volume 2008 : Issue 540 Contents: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: How to create a shareable image on IA64 using Pascal Re: MicroVAX model 3100 on 208V 3-phase power NEW SuperDLT320 Tabletops in stock Re: OT: USA the fleecing of USA banks by Wall Street Re: OT: USA the fleecing of USA banks by Wall Street ---------------------------------------------------------------------- Date: Mon, 6 Oct 2008 11:42:30 +0100 From: "Ade" Subject: How to create a shareable image on IA64 using Pascal Message-ID: Hi, Does anyone have a quick example of how to create a shareable image using Pascal on IA64 (or please correct the code below). It is intended that this image, when installed with /open/header/share/write, will be used simply as a data repository for other applications which are linked together with it. All the examples I have seen in the documentation refer to shared memory between linked object files rather than against a shareable image. Any help you can give me would be greatly appreciated. Regards, Adrian Birkett My example: $ edit common.pas { potential common storage module } [environment ('common')] module common; type common_r = record my_int : integer; my_str : varying [10] of char; end; end. $ pascal common.pas $ link common/share $ install add/open/head/share/write disk1:[dir]common.exe $ define common disk1:[dir]common.exe $ edit prog1.pas {simple data writer program} [inherit ('disk1:[dir]common')] program prog1(input output); var common:[common]common_r; begin common.my_int := 1000; common.my_str := 'Hello'; end. $ pascal/debug/nooptim prog1 $ link prog1, sys$input/opt disk1:[dir]common.exe/share $ run prog1 !step through to end [in a different process] $ edit prog2.pas {simple data reader} [inherit ('disk1:[dir]common')] program prog2(input output); var common:[common]common_r; begin writeln('int = ', common.my_int); writeln('str = ', common.my_str); end. $ pascal/debug/nooptim prog2 $ link prog2, sys$input/opt disk1:[dir]common.exe/share $ run prog2 !noting that prog1 is still running in your other process int = 0 str = ------------------------------ Date: Mon, 06 Oct 2008 11:27:15 GMT From: VAXman- @SendSpamHere.ORG Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: <00A80B0D.6BA8E6DA@SendSpamHere.ORG> In article , "Ade" writes: >Hi, > >Does anyone have a quick example of how to create a shareable image using >Pascal on IA64 (or please correct the code below). It is intended that this >image, when installed with /open/header/share/write, will be used simply as >a data repository for other applications which are linked together with it. >All the examples I have seen in the documentation refer to shared memory >between linked object files rather than against a shareable image. Any help >you can give me would be greatly appreciated. > >Regards, > >Adrian Birkett Take a look in the linker documentation and, specifically, at the linker options. You will need to declare your data in the linker option file. I'm not sure you're going to be able to share data using the Pascal mech- anism you've show herein. I'll leave that to John Reagan resident Pascal d00d for comment. -- VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)COM ... pejorative statements of opinion are entitled to constitutional protection no matter how extreme, vituperous, or vigorously expressed they may be. (NJSC) Copr. 2008 Brian Schenkenberger. Publication of _this_ usenet article outside of usenet _must_ include its contents in its entirety including this copyright notice, disclaimer and quotations. ------------------------------ Date: Mon, 6 Oct 2008 12:49:00 +0100 From: "Ade" Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: Hi, Thanks for the quick response, I'll dig the said manual out and have a look. Regards, Ade ------------------------------ Date: Mon, 6 Oct 2008 04:55:12 -0700 (PDT) From: Hein RMS van den Heuvel Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: Your 'common' program does nothing. It just declares a record layout but does not allocate on. Do a PASCAL/LIST ... no PSECT create. Do a LINK/MAP (Always... when creating a shareable!!! )... nothing. I know nothing about pascal, but would guess you need to at least add: var test : [ COMMON(my_test_psect) ] common_r; And when you study chapter 4 in the Linker manual you will see you need a .OPT file with at least something like: symbol_vector=(MY_TEST_PSECT=psect) The link command then becomes: $link/sha/map common,common/opt Hint: use a logical name DIFFERENT from any module/image name. Good luck! Hein. ------------------------------ Date: Mon, 6 Oct 2008 06:04:12 -0700 (PDT) From: Bob Gezelter Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: <844dcee4-8d24-4979-8f18-e61ddf202687@g61g2000hsf.googlegroups.com> On Oct 6, 5:42 am, "Ade" wrote: > Hi, > > Does anyone have a quick example of how to create a shareable image using > Pascal on IA64 (or please correct the code below). It is intended that this > image, when installed with /open/header/share/write, will be used simply as > a data repository for other applications which are linked together with it. > All the examples I have seen in the documentation refer to shared memory > between linked object files rather than against a shareable image. Any help > you can give me would be greatly appreciated. > > Regards, > > Adrian Birkett > > My example: > > $ edit common.pas > { potential common storage module } > [environment ('common')] > module common; > type > common_r = record > my_int : integer; > my_str : varying [10] of char; > end; > end. > > $ pascal common.pas > $ link common/share > $ install add/open/head/share/write disk1:[dir]common.exe > $ define common disk1:[dir]common.exe > > $ edit prog1.pas > {simple data writer program} > [inherit ('disk1:[dir]common')] > > program prog1(input output); > var common:[common]common_r; > begin > common.my_int := 1000; > common.my_str := 'Hello'; > end. > > $ pascal/debug/nooptim prog1 > $ link prog1, sys$input/opt > disk1:[dir]common.exe/share > $ run prog1 !step through to end > > [in a different process] > > $ edit prog2.pas > {simple data reader} > [inherit ('disk1:[dir]common')] > > program prog2(input output); > var common:[common]common_r; > begin > writeln('int = ', common.my_int); > writeln('str = ', common.my_str); > end. > > $ pascal/debug/nooptim prog2 > $ link prog2, sys$input/opt > disk1:[dir]common.exe/share > $ run prog2 !noting that prog1 is still running in your other process > int = 0 > str = Ade, The procedures are essentially the same as they are on Alpha (the procedures for VAX are slightly different). I can point to my presentation " OpenVMS Shareable Libraries: An Implementor's Guide" from the 2000 Compaq Enterprise Technology Symposium in Los Angeles at http://www.rlgsc.com/cets/2000/460.html If I recall correctly, Hoff has also published some material on this topic. - Bob Gezelter, http://www.rlgsc.com ------------------------------ Date: 6 Oct 2008 09:05:38 -0500 From: koehler@eisner.nospam.encompasserve.org (Bob Koehler) Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: In article , "Ade" writes: > Hi, > > Does anyone have a quick example of how to create a shareable image using > Pascal on IA64 (or please correct the code below). It is intended that this > image, when installed with /open/header/share/write, will be used simply as > a data repository for other applications which are linked together with it. > All the examples I have seen in the documentation refer to shared memory > between linked object files rather than against a shareable image. Any help > you can give me would be greatly appreciated. Having used both shared images and shared memory sections to store data, I would advise quite strongly against the former. Anyone can set up a shared memory section. Only a user with CMKRNL can install a shared image, which is required if it is used for data storage (has writeable shareable psects). This simple issue makes a big difference if there are cases when the user needs to start up or shut down the application. If you do use shared images, make sure you control the matching criteria via linker options. The default criteria is an exact match to a timestamp made when the share dimage is built, this is often not what you need. We dealt with other issues on older versions of VMS that are no longer an issue, but I still reguard the CMKRNL issue a sufficient cause to avoid shared images. We had so many problems with these on one of three major systems I worked with that I looked into the other two and found out this was exactly how the other two worked with no one even knowing they had shareable writeable sections. I personnaly sat down and recoded those parts of the first major system to get rid of these problems. ------------------------------ Date: Mon, 6 Oct 2008 15:53:19 +0100 From: "Ade" Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: Thanks to all who have responed thus far. My definition code now looks like: [environment ('shared')] module shared_memory; type shared_r = record my_int : integer; my_str : varying [10] of char; end; var shared_mem : [GLOBAL,VOLATILE,COMMON(shared_psect)] shared_r; end. I have tried to research the LINK command and have modified the command to be: $ LINK/MAP/FULL/SHARE common, sys$input/opt symbol_vector=(shared_mem=data, shared_psect=psect) However, looking in the map, the defined psect (shared_psect) has the NOSHR flag on it. This must be something simple that I am overlooking. Has anybody some more suggestions please. Thanks, Ade ------------------------------ Date: Mon, 6 Oct 2008 08:28:19 -0700 (PDT) From: Hein RMS van den Heuvel Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: > However, looking in the map, the defined psect (shared_psect) has the NOSHR > flag on it. This must be something simple that I am overlooking. So change that!... with an other linker option, or an other Pascal attribute (Carefully check Language Reference Manual and User Guide) > Has anybody some more suggestions please. 1) Heed Bob's advice. Skip the installed common if you can go straight to CMPSC. 2) Be sure to INHERIT those record/common definitions. Use Pascal Environment files (.PEN) and such! Cheers, Hein. ------------------------------ Date: Mon, 6 Oct 2008 11:35:11 -0400 From: "John Reagan" Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: "Ade" wrote in message news:DDpGk.35367$qg2.11237@newsfe30.ams2... > > Thanks to all who have responed thus far. > > var > shared_mem : [GLOBAL,VOLATILE,COMMON(shared_psect)] shared_r; VOLATILE, COMMON should be sufficient. > > $ LINK/MAP/FULL/SHARE common, sys$input/opt > symbol_vector=(shared_mem=data, shared_psect=psect) > > > However, looking in the map, the defined psect (shared_psect) has the > NOSHR flag on it. This must be something simple that I am overlooking. Has > anybody some more suggestions please. > I've never used symbol_vectors for share common myself. And, yes, reset the psect attribute to SHR in the options file. John ------------------------------ Date: Mon, 6 Oct 2008 18:15:31 +0100 From: "Ade" Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: "Hein RMS van den Heuvel" wrote in message news:a76fd537-5127-4b0e-8cb7-db8d96875b50@t54g2000hsg.googlegroups.com... > >> However, looking in the map, the defined psect (shared_psect) has the >> NOSHR >> flag on it. This must be something simple that I am overlooking. > > So change that!... with an other linker option, or an other Pascal > attribute (Carefully check Language Reference Manual and User Guide) > > >> Has anybody some more suggestions please. > > 1) Heed Bob's advice. > Skip the installed common if you can go straight to CMPSC. > > 2) Be sure to INHERIT those record/common definitions. > Use Pascal Environment files (.PEN) and such! > > Cheers, > Hein. Ok, I have now included a PSECT_ATTRIBUTE=shared_psect=SHR,GBL,NOEXE in the link procedure. All well and good, however, I now get conflicting attributes for section shared_psect when I try to link my PROG1 (see original post). I know I'm being a pain and I apologize, but I really need to understand this Thanks again, Ade ------------------------------ Date: Mon, 6 Oct 2008 18:17:05 +0100 From: "Ade" Subject: Re: How to create a shareable image on IA64 using Pascal Message-ID: Typo in the above: Should read: ... PSECT_ATTRIBUTE=shared_psect,SHR,GBL,NOEXE Ade ------------------------------ Date: Mon, 6 Oct 2008 09:29:35 -0700 (PDT) From: etmsreec@yahoo.co.uk Subject: Re: MicroVAX model 3100 on 208V 3-phase power Message-ID: <09cad230-f3f3-4255-b0b5-e01aa38291d9@t65g2000hsf.googlegroups.com> On 3 Oct, 16:55, "Richard B. Gilbert" wrote: > Michael Moroney wrote: > > "H Vlems" writes: > > >> "AEF" schreef in bericht > >>news:4e1c5938-3bfd-4823-97ac-dacf7249f0e3@y79g2000hsa.googlegroups.com.= .. > >>> Just in case anyone's interested, it works! My MicroVAX fleet has bee= n > >>> running fine since 14-JUL-2008. No power supplies have been fried so > >>> far. > > >>> AEF > > >> Umm, mine run on 230 V single phase... > >> I'm not familiar with US mains power supplies. In the Netherlands we h= ave > >> single and 3-phase. > > > We went through this in a long thread months ago. =A0In the US power > > supplied to homes is 120/240 volts through a center tapped transformer. > > Most things are wired from one of two hots to a neutral (the center tap= ) > > and get 120V. =A0Larger items are connected between both hots and get 2= 40V. > > > Businesses usually get 3 phase power. =A0The voltage is 120/208V. =A0(t= here is > > also 277/480V for large consumers) There are 3 hots, a neutral and grou= nd. > > The voltage between any hot and the neutral is 120V, and the voltage > > between any two hots is 208V. =A0The 120V hot to neutral is the same as= home > > power so ordinary things like coffee pots or Microvaxes will still work= . > > The 277/480V service is not so much for "large consumers" as for > customers operating equipment that requires those voltages. =A0Those big > Liebert air conditioners in your computer room may require 277/480V. > Customers with this service generally also have 120V for lighting, > coffee pots, desktop computers, etc.- Hide quoted text - > > - Show quoted text - A long ago copy of the IEE Wiring Regs in the UK stated that motors above 1HP (about 750W) shouldn't be powered off single phase and should be off three phase power instead. Your vacuum cleaner and hand drier come in at 500W at most usually so it's only for people that have big machine tools at home (metalworking lathes are a particular candidate here). ------------------------------ Date: Mon, 6 Oct 2008 10:07:08 -0400 From: "David Turner, islandco.com" Subject: NEW SuperDLT320 Tabletops in stock Message-ID: Brand new Super DLT 160/320GB Tabletop (HP branded in Island Tabletop box) 6 in stock for special pricing of $1275 each Comes with 1 sdlt160/320gb tape and cleaning tape + cable and terminator Bell Micro/Distributor's price is $3299 ! -- David B Turner ============================================= Island Computers US Corp PO Box 86 Tybee GA 31328 Toll Free: 1-877 636 4332 x201, Mobile x251 Email: dturner@islandco.com International & Local: (001)- 404-806-7749 Fax: 912 786 8505 Web: www.islandco.com ============================================= ------------------------------ Date: Mon, 6 Oct 2008 09:32:13 +0000 (UTC) From: david20@alpha2.mdx.ac.uk Subject: Re: OT: USA the fleecing of USA banks by Wall Street Message-ID: In article <00A80910.ECC96004@SendSpamHere.ORG>, VAXman- @SendSpamHere.ORG writes: >In article <48e6817b$0$12360$c3e8da3@news.astraweb.com>, JF Mezei writes: >>VAXman- @SendSpamHere.ORG wrote: >> >>> BINGO. It started as fractional reserve banking; however, the fraction >>> real money that banks have actually held on deposit have shrunk to near >>> 0! >> >>In the USA, the savings rate is actually below 0. > >That is not relevant to the concept of a fractional reserve. The reason >people, well this person anyway, don't save is that they are too strapped >to do so after paying taxes and lawyers. > The other effect of the fractional reserve is to increase the money supply above that actually covered by printed notes and coins via the multiplier effect see http://www.investopedia.com/terms/m/multipliereffect.asp David Webb Security team leader CCSS Middlesex University >-- >VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)COM > >.... pejorative statements of opinion are entitled to constitutional protection >no matter how extreme, vituperous, or vigorously expressed they may be. (NJSC) > >Copr. 2008 Brian Schenkenberger. Publication of _this_ usenet article outside >of usenet _must_ include its contents in its entirety including this copyright >notice, disclaimer and quotations. ------------------------------ Date: Mon, 6 Oct 2008 05:21:58 -0700 (PDT) From: AEF Subject: Re: OT: USA the fleecing of USA banks by Wall Street Message-ID: <17dfbdd2-235e-46a2-a9a5-7307c363d4a8@u28g2000hsc.googlegroups.com> On Oct 6, 6:13=A0am, davi...@alpha2.mdx.ac.uk wrote: > In article , "Richard B. Gi= lbert" writes: > > > > >AEF wrote: > >> On Oct 5, 4:44 pm, "Richard B. Gilbert" > >> wrote: > >>> AEF wrote: > >>>> On Oct 3, 10:44 pm, "Richard B. Gilbert" > >>>> wrote: > >>>>> AEF wrote: > >>>>>> On Oct 3, 12:42 pm, "Richard B. Gilbert" > >>>>>> wrote: > >>>>>>> AEF wrote: > >>>>>>>> On Oct 3, 5:30 am, "David Weatherall" w= rote: > >>>>>>>>> Neil Rieck wrote: > >> When you buy food at the supermarket, do you weigh everything? No, you > >> don't. So if you buy a can of soup that says its net weight is 19 oz., > >> but it's really only 15 oz., whose fault is it? If you buy 15 gallons > >> of gas, but you get only 10 because you didn't measure it before > >> putting it in your tank, whose fault is it? > > >This is a problem that I don't recall EVER having encountered. =A0The > >government takes weights and measures seriously. =A0If you sell a gallon > >of gasoline, you had better deliver a minimum of one gallon. =A0ISTR > >seeing seals on gasoline pumps that say that the metering has been > >tested and that when the machine says it has delivered one gallon, it > >has in fact delivered one gallon. =A0If you look closely at the scales i= n > >a supermarket, you will see a sticker that says that the government has > >tested the scale and that it registers correctly. =A0I'm sure that there > >are a few dealers who cheat and that it's very few; the penalties and > >the reputation as a cheat are something most people want no part of. > > >The companies that can vegetables or package frozen vegetables are > >careful about labeling things as what they are. =A0They also care about > >customer satisfaction. =A0I once wrote a complaint letter to Birdseye > >because a package labeled "Peas and Onions" contained only ONE onion > >where the use of the plural required a minimum of two! =A0I got an apolo= gy > >and a coupon good for another package of peas and onions. > > This is only because the inspectors ie regulators do their job when check= ing > weights and measures and come down hard on anyone breaking those regulati= ons. > Unfortunately the same cannot be said for financial regulation. > > David Webb > Security team leader > CCSS > Middlesex University Yes, unfortunate indeed. But the gov't gets *some* things right. AEF AEF ------------------------------ End of INFO-VAX 2008.540 ************************