1 INFO-VAX	Mon, 11 Jun 2001	Volume 2001 : Issue 321       Contents:A Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com A Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com A Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com A Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com , Re: "Talk Baq" to Compaq - or perhaps to Sun Re: $QIO and TCP/IP server Re: $QIO and TCP/IP server Hobbyist Licensing Re: Hobbyist Licensing Re: Hobbyist Licensing Re: I demand your respect  Re: I demand your respect 6 Re: Low level format of SCSI disk, so VMS can read it./ making ODBC connections to rdb databases in VMS 3 RE: making ODBC connections to rdb databases in VMS 3 Re: making ODBC connections to rdb databases in VMS  RE: NCP counter question" Re: NCP to NCL command equivilants
 No 7.3 yet Re: No 7.3 yet& Re: Problem with JUMP from FREEWARE CD Re: The future of VMS  Re: The future of VMS  Re: The future of VMS  Re: The future of VMS  Re: The future of VMS  Re: The future of VMS  Re: The future of VMS - Re: Urgent: Oracle 8 parallel server on VMS 7 ) Re: [OT] Current Microsoft v DOJ status ? ) Re: [OT] Current Microsoft v DOJ status ? ) Re: [OT] Current Microsoft v DOJ status ? ) Re: [OT] Current Microsoft v DOJ status ? ) Re: [OT] Current Microsoft v DOJ status ? ) Re: [OT] Current Microsoft v DOJ status ?   F ----------------------------------------------------------------------  # Date: Sun, 10 Jun 2001 21:15:15 GMT 4 From: "Terry C. Shannon" <terryshannon@mediaone.net>J Subject: Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com9 Message-ID: <DrRU6.354$%f.898168@typhoon.ne.mediaone.net>   F "Larry Kilgallen" <Kilgallen@eisner.decus.org.nospam> wrote in message- news:DfagQ7LtqiHx@eisner.encompasserve.org... F > In article <CSqU6.3272$Tc.648974@typhoon.ne.mediaone.net>, "Terry C., Shannon" <terryshannon@mediaone.net> writes: > J > > And if you're of the opinion that Compaq's marketing and direction are& > > wrong, by all means tell 'em so at > > % > > http://www.compaqworkinggroup.org  > > L > > Capellas and Elias and Marcello, et al don't read newsgroups and I doubtE > > they pay much attention to fan mail over the Internet. They will,  however,9 > > see the results of the survey being conducted online.  > G > No, send them a paper letter (proving you are not restricted to using F > only electronic media) and tell them to stop trying to undermine theI > customer's browser security with the current www.compaqworkinggroup.org  > implementation.   G Larry, you are perfectly free to use whatever communications medium you H choose to contact Compaq (if you're really paranoid, I have some VCMX-11K one-time pad keys you are welcome to use). But please bear in mind that you C are negatively impacting the one extant mechanism for bidirectional  communications with Compaq.    cheers,   
 terry shannon J who is a bit more concerned about Evil Space Aliens with Nefarious AgendasD than he is concerned with the security of www.compaqworkinggroup.org   ------------------------------    Date: 10 Jun 2001 18:46:48 -05009 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen) J Subject: Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com3 Message-ID: <nZmjf0vKKvzJ@eisner.encompasserve.org>   p In article <DrRU6.354$%f.898168@typhoon.ne.mediaone.net>, "Terry C. Shannon" <terryshannon@mediaone.net> writes:  I > Larry, you are perfectly free to use whatever communications medium you J > choose to contact Compaq (if you're really paranoid, I have some VCMX-11M > one-time pad keys you are welcome to use). But please bear in mind that you E > are negatively impacting the one extant mechanism for bidirectional  > communications with Compaq.   D Since the site will not reveal even results of the vote to those whoB have not "registered", it would seem there is very little outboundB communications going on.  Certainly they have no method of sortingA out who might be a North Korean or a Sun employee or whoever else B they might want to exclude.  Thus they end up excluding only thoseB who don't want their name added to yet another mailing list (quiteC possibly a large number) rather than their "enemies" who presumably : have no hesitation about being on the Compaq mailing list.  D Leaks from those who have seen the secret results indicate responsesC have been the typical "noted" responses that have been provided for B years.  That is a strong indication against getting on the mailing= list that is run or may be run in the future by these people.    ------------------------------  % Date: Sun, 10 Jun 2001 17:58:26 -0500 1 From: "David J. Dachtera" <djesys.nospam@fsi.net> J Subject: Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com' Message-ID: <3B23FB92.31F1BB6F@fsi.net>    "Terry C. Shannon" wrote:  > H > "Larry Kilgallen" <Kilgallen@eisner.decus.org.nospam> wrote in message/ > news:DfagQ7LtqiHx@eisner.encompasserve.org... H > > In article <CSqU6.3272$Tc.648974@typhoon.ne.mediaone.net>, "Terry C.. > Shannon" <terryshannon@mediaone.net> writes: > > L > > > And if you're of the opinion that Compaq's marketing and direction are( > > > wrong, by all means tell 'em so at > > > ' > > > http://www.compaqworkinggroup.org  > > > N > > > Capellas and Elias and Marcello, et al don't read newsgroups and I doubtG > > > they pay much attention to fan mail over the Internet. They will, 
 > however,; > > > see the results of the survey being conducted online.  > > I > > No, send them a paper letter (proving you are not restricted to using H > > only electronic media) and tell them to stop trying to undermine theK > > customer's browser security with the current www.compaqworkinggroup.org  > > implementation.  > I > Larry, you are perfectly free to use whatever communications medium you J > choose to contact Compaq (if you're really paranoid, I have some VCMX-11M > one-time pad keys you are welcome to use). But please bear in mind that you E > are negatively impacting the one extant mechanism for bidirectional  > communications with Compaq.  > 	 > cheers,  >  > terry shannon L > who is a bit more concerned about Evil Space Aliens with Nefarious AgendasF > than he is concerned with the security of www.compaqworkinggroup.org  D I think Larry's point was that for sake of visiting one site he mustE make an exception to his otherwise stringent security policies. Gotta A side with Larry on that score. Such a site *SHOULD* be as browser H neutral as possible, even to the point of being Lynx-friendly. The wholeD point of the site is to be as *INCLUSIVE* as possible, and not limitC participation to those who are willing to compromise their security C policies in favor of a vendor's preferred model (now, where have we C heard *THAT* before?). Remember the old addage? ("The *CUSTOMER* is E always right!" Of course, these days, it's more like, "I am The Lord, ; thy Vendor - thou shalt not have false vendors before me.")   E OTOH, the most sensitive document here on my Wintel PC is my resume - @ and as far as I am (currently) concerned, the more exposure thatD document gets the better my chances of keeping my house. So, for theA sake of www.compaqworkinggroup.org, I could give a spit about who  manages to hack this box.   G BTW - try visiting a Flash-intensive web site using either NS V3.03G or . Mozilla for OpenVMS and see how far you get...   --   David J. Dachtera  dba DJE Systems  http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/   F This *IS* an OpenVMS-related newsgroup. So, a certain bias in postings is to be expected.  @ Feel free to exercise your rights of free speech and expression.  F However, attacks against individual posters, or groups of posters, are strongly discouraged.    ------------------------------  % Date: Sun, 10 Jun 2001 23:26:17 -0400 - From: JF Mezei <jfmezei.spamnot@videotron.ca> J Subject: Re: "Talk Baq" to Compaq - but boycott www.compaqworkinggroup.com, Message-ID: <3B243A56.E3AE7E96@videotron.ca>   "Terry C. Shannon" wrote: M > one-time pad keys you are welcome to use). But please bear in mind that you E > are negatively impacting the one extant mechanism for bidirectional  > communications with Compaq.   K I sent a concern to that compaqworkinggroup thing once and never ever heard < from them. So I am not sure about it being "bi-directional".   ------------------------------  % Date: Sun, 10 Jun 2001 23:10:24 -0400 - From: JF Mezei <jfmezei.spamnot@videotron.ca> 5 Subject: Re: "Talk Baq" to Compaq - or perhaps to Sun , Message-ID: <3B24369E.1372043E@videotron.ca>   "Terry C. Shannon" wrote: J > Capellas and Elias and Marcello, et al don't read newsgroups and I doubtL > they pay much attention to fan mail over the Internet. They will, however,7 > see the results of the survey being conducted online.     N The "marketing" complaint is far from new. When Compaq purchased what was leftM of Digital, it must have known that Digital was dirt cheap and in trouble due J to poor marketing (self inflicting wounds in Digital). Since the late 80s,1 complaints about poor Digital marketing started.    K If Capellas, Marcello and whomever is head of VMS this week don't know that M VMS has a serious marketing problem, then they should be kicked out tomorrow. I If they know that VMS needs marketing very badly but their hands are tied L because Compaq cannot market products that compete against MS products, then, what can a user group complaint accomplish ?  I How come DECUS USA didn't testify against Microsoft during the anti-trust K trials ? There was plenty of material to talk about since Digital sabotaged J itself in part to obey Bill gates's wishes. Compaq supported Microsoft, so3 Compaq's position on VMS vs Microsoft is on record.   N If it had been Intel that was accused of antitrust, I am convinced that CompaqN would also have been the only major PC company to testify in support of Intel,< even if Compaq's Alpha would benefit if Intel were thwarted.    K What is *really* needed is for Wall Street Casino analysts to start telling N Compaq that it should dump Microsoft and focus on its own products. Until thatN happens, I don't see Compaq breaking is brownosing loyalty to Bill Gates whichD prevents Compaq's own products from maximizing their full potential.  N The other possibility is for Compaq to spin off the Alpha-based stuff (Tandem,I VMS, Unix) into a separate company (with Compaq still providing the after J sales support). The spearate company would be free to marklet its productsI against all competitors and would not have any vested interest in helping F Microsoft conquer the few parts of teh world it hasn't yet concquered.   ------------------------------  % Date: Sun, 10 Jun 2001 18:59:31 +0100 , From: "Richard Maher" <maher_rj@hotmail.c*m># Subject: Re: $QIO and TCP/IP server 1 Message-ID: <9g0clo$c2p$1@uranium.btinternet.com>   , This is a multi-part message in MIME format.  + ------=_NextPart_000_0022_01C0F1DF.7B8B4660 $ Content-Type: multipart/alternative;5 	boundary="----=_NextPart_001_0023_01C0F1DF.7B8B4660"     + ------=_NextPart_001_0023_01C0F1DF.7B8B4660  Content-Type: text/plain;  	charset="iso-8859-1" + Content-Transfer-Encoding: quoted-printable    Hi,   G Once again sorry if you don't get attachments coz that's pretty much=20 
 all there is.   C The first "Demo Config Screen Dump" is what it says on the tin. (It B seems that you have to save it to disk as x.htm before opening it)  C The second is an example set of some User Action Routines that your = developers would create. In this case they retrieve Job Entry  information from the server.  @ The third is the DCL build routine that creates a shareable from
 DEMO_UARS.COB   = Because I use the persona system services in the examples you C would need to ensure that the username that you have chosen for the @ DEMO application Execution Servers to run under must have SYSPRV< and IMPERSONATE privileges. In the next version of TIER3 the@ Communication Server code will make use of the $persona_delegateF so that the Execution Server (or the username that it runs under) willG require *no* additional privs to adopt the persona of the user on whose B behalf the work is being performed! NB: It is not a requirement ofD TIER3 that you use the persona system services or require privs. But$ yes it is certainly a nice to have!.   Regards Richard Maher     + ------=_NextPart_001_0023_01C0F1DF.7B8B4660  Content-Type: text/html; 	charset="iso-8859-1" + Content-Transfer-Encoding: quoted-printable   > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD>3 <META content=3D"text/html; charset=3Diso-8859-1" =  http-equiv=3DContent-Type>9 <META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>  <STYLE></STYLE>  </HEAD>  <BODY bgColor=3D#ffffff>J <DIV>Hi,<BR><BR>Once again sorry if you don't get attachments coz that's =	 pretty=20  much </DIV>  <DIV>all there is.</DIV> <DIV>&nbsp;</DIV> F <DIV>The first "Demo Config Screen Dump" is what it says on the tin. =	 (It</DIV> E <DIV>seems that you have to save it to disk as x.htm before opening = 	 it)</DIV>  <DIV>&nbsp;</DIV> E <DIV>The second is an example set of some User Action Routines that = 
 your</DIV>H <DIV>developers would create. In this case they retrieve Job Entry</DIV>' <DIV>information from the server.</DIV>  <DIV>&nbsp;</DIV> G <DIV>The third is the DCL build routine that creates a shareable<FONT =  face=3DArial=20  size=3D2> from</FONT></DIV> ; <DIV><FONT face=3DArial size=3D2>DEMO_UARS.COB</FONT></DIV>  <DIV>&nbsp;</DIV> C <DIV><FONT face=3DArial size=3D2>Because I use the persona system =  services in the=20 examples you</FONT></DIV> I <DIV><FONT face=3DArial size=3D2>would need to ensure that the username =  that you=20   have chosen for the</FONT></DIV>H <DIV><FONT face=3DArial size=3D2>DEMO application Execution Servers to = run under=20 must have SYSPRV</FONT></DIV> J <DIV><FONT face=3DArial size=3D2>and IMPERSONATE privileges. In the next =
 version of=20  TIER3 the</FONT></DIV>J <DIV><FONT face=3DArial size=3D2>Communication Server code will make use =	 of the=20  $persona_delegate</FONT></DIV>G <DIV><FONT face=3DArial size=3D2>so that the Execution Server (or the =  username that=20  it runs under) will</FONT></DIV>I <DIV><FONT face=3DArial size=3D2>require *no* additional privs to adopt =  the persona=20! of the user on whose</FONT></DIV> J <DIV><FONT face=3DArial size=3D2>behalf the work is being performed! NB: = It is not a=20 requirement of</FONT></DIV> H <DIV><FONT face=3DArial size=3D2>TIER3 that you use the persona system = services or=20 require privs. But</FONT></DIV> A <DIV><FONT face=3DArial size=3D2>yes it is certainly a nice to=20 B have!.</FONT><BR><BR>Regards Richard Maher<BR></DIV></BODY></HTML>  - ------=_NextPart_001_0023_01C0F1DF.7B8B4660--   + ------=_NextPart_000_0022_01C0F1DF.7B8B4660  Content-Type: text/html;3 	name="Demonstration Configuration Screen Dump.htm" + Content-Transfer-Encoding: quoted-printable   Content-Disposition: attachment;7 	filename="Demonstration Configuration Screen Dump.htm"   / <html xmlns:v=3D"urn:schemas-microsoft-com:vml" 3 xmlns:o=3D"urn:schemas-microsoft-com:office:office" 1 xmlns:w=3D"urn:schemas-microsoft-com:office:word" * xmlns=3D"http://www.w3.org/TR/REC-html40">   <head>7 <meta http-equiv=3DContent-Type content=3D"text/html; =  charset=3Dwindows-1252">, <meta name=3DProgId content=3DWord.Document>4 <meta name=3DGenerator content=3D"Microsoft Word 9">5 <meta name=3DOriginator content=3D"Microsoft Word 9">  <link rel=3DFile-List J href=3D"./Demonstration%20Configuration%20Screen%20Dump_files/filelist.xm= l">  <link rel=3DEdit-Time-DataJ href=3D"./Demonstration%20Configuration%20Screen%20Dump_files/editdata.ms= o">  <!--[if !mso]> <style> " v\:* {behavior:url(#default#VML);}" o\:* {behavior:url(#default#VML);}" w\:* {behavior:url(#default#VML);}$ .shape {behavior:url(#default#VML);} </style> <![endif]--> <title> </title> <!--[if gte mso 9]><xml>  <o:DocumentProperties>    <o:Author>Unknown</o:Author>!   <o:Template>Normal</o:Template> ,   <o:LastAuthor>Richard Maher</o:LastAuthor>   <o:Revision>2</o:Revision>   <o:TotalTime>1</o:TotalTime>-   <o:Created>2001-06-08T13:50:00Z</o:Created>e1   <o:LastSaved>2001-06-08T13:50:00Z</o:LastSaved>t   <o:Pages>1</o:Pages>    <o:Characters>3</o:Characters>   <o:Company>Coutts</o:Company>w   <o:Bytes>649728</o:Bytes>e   <o:Lines>1</o:Lines>    <o:Paragraphs>1</o:Paragraphs>4   <o:CharactersWithSpaces>3</o:CharactersWithSpaces>   <o:Version>9.2720</o:Version>a  </o:DocumentProperties>* </xml><![endif]--><!--[if gte mso 9]><xml>  <w:WordDocument>    <w:DoNotHyphenateCaps/>bG   <w:DrawingGridHorizontalSpacing>6 pt</w:DrawingGridHorizontalSpacing> C   <w:DrawingGridVerticalSpacing>6 pt</w:DrawingGridVerticalSpacing>e   =.H <w:DisplayVerticalDrawingGridEvery>0</w:DisplayVerticalDrawingGridEvery>%   <w:UseMarginsForDrawingGridOrigin/>i   <w:Compatibility>o    <w:SpaceForUL/>(    <w:BalanceSingleByteDoubleByteWidth/>     <w:DoNotLeaveBackslashAlone/>    <w:ULTrailSpace/>    <w:DoNotExpandShiftReturn/>    <w:UsePrinterMetrics/>     <w:WW6BorderRules/>    <w:FootnoteLayoutLikeWW8/>     <w:ShapeLayoutLikeWW8/>    <w:AlignTablesRowByRow/>     <w:ForgetLastTabAlignment/>    <w:AutoSpaceLikeWord95/>e    <w:LayoutRawTableWidth/>e    <w:LayoutTableRowsApart/>   </w:Compatibility>  </w:WordDocument> </xml><![endif]--> <style>v <!--  /* Font Definitions */t
 @font-face# 	{font-family:"Century Schoolbook";o 	mso-font-charset:0; 	mso-generic-font-family:roman;s 	mso-font-pitch:variable;-! 	mso-font-signature:3 0 0 0 1 0;}-
 @font-face# 	{font-family:"Goudy Old Style MT";5 	mso-font-charset:0; 	mso-generic-font-family:roman;n 	mso-font-pitch:variable;B! 	mso-font-signature:3 0 0 0 1 0;}p  /* Style Definitions */( p.MsoNormal, li.MsoNormal, div.MsoNormal 	{mso-style-parent:""; 	margin:0cm; 	margin-bottom:.0001pt;p 	mso-pagination:none;e 	mso-layout-grid-align:none; 	punctuation-wrap:simple;e 	text-autospace:none;t 	font-size:12.0pt; 	mso-bidi-font-size:10.0pt;r 	font-family:"Times New Roman"; + 	mso-fareast-font-family:"Times New Roman";q 	mso-ansi-language:EN-US;} h1 	{mso-style-next:Normal; 	margin-top:0cm; 	margin-right:0cm; 	margin-bottom:0cm;  	margin-left:21.6pt; 	margin-bottom:.0001pt;l 	text-indent:-21.6pt;a 	mso-pagination:none;y 	page-break-after:avoid; 	mso-outline-level:1;e 	mso-list:l0 level1 lfo1;  	mso-hyphenate:none; 	tab-stops:-36.0pt 21.6pt; 	mso-layout-grid-align:none; 	punctuation-wrap:simple;  	text-autospace:none;  	font-size:20.0pt; 	mso-bidi-font-size:10.0pt;n" 	font-family:"Century Schoolbook"; 	letter-spacing:-.15pt;r 	mso-font-kerning:0pt; 	mso-ansi-language:EN-AU;  	mso-bidi-font-weight:normal;} h2 	{mso-style-next:Normal; 	margin-top:12.0pt;e 	margin-right:0cm; 	margin-bottom:3.0pt;i 	margin-left:72.0pt; 	text-indent:-36.0pt;  	mso-pagination:none;t 	page-break-after:avoid; 	mso-outline-level:2;p 	mso-layout-grid-align:none; 	punctuation-wrap:simple;n 	text-autospace:none;  	font-size:12.0pt; 	mso-bidi-font-size:10.0pt;o" 	font-family:"Goudy Old Style MT"; 	mso-ansi-language:EN-US;  	mso-bidi-font-weight:normal;} h3 	{mso-style-next:Normal; 	margin-top:12.0pt;- 	margin-right:0cm; 	margin-bottom:3.0pt;5 	margin-left:108.0pt;n 	text-indent:-36.0pt;r 	mso-pagination:none;: 	page-break-after:avoid; 	mso-outline-level:3;q 	mso-layout-grid-align:none; 	punctuation-wrap:simple;a 	text-autospace:none;c 	font-size:12.0pt; 	mso-bidi-font-size:10.0pt; " 	font-family:"Goudy Old Style MT"; 	mso-ansi-language:EN-US;r 	mso-bidi-font-weight:normal;} @page Section1 	{size:595.3pt 841.9pt;h$ 	margin:72.0pt 90.0pt 72.0pt 90.0pt; 	mso-header-margin:36.0pt; 	mso-footer-margin:36.0pt; 	mso-paper-source:0;}B div.Section1 	{page:Section1;}   /* List Definitions */g @list l0 	{mso-list-id:-5; " 	mso-list-template-ids:705616088;} @list l0:level1c# 	{mso-level-style-link:"Heading 1";t 	mso-level-text:%1;e 	mso-level-tab-stop:none;,  	mso-level-number-position:left; 	mso-level-legacy:yes;  	mso-level-legacy-indent:21.6pt; 	mso-level-legacy-space:6.0pt; 	margin-left:21.6pt; 	text-indent:-21.6pt;} @list l0:level2m 	{mso-level-start-at:0;u 	mso-level-number-format:none; 	mso-level-text:"";e 	mso-level-tab-stop:none;r  	mso-level-number-position:left; 	margin-left:0cm;  	text-indent:0cm;} @list l0:level3  	{mso-level-start-at:0;b 	mso-level-number-format:none; 	mso-level-text:"";w 	mso-level-tab-stop:none;u  	mso-level-number-position:left; 	margin-left:0cm;  	text-indent:0cm;} @list l0:level4  	{mso-level-start-at:0;g 	mso-level-number-format:none; 	mso-level-text:"";  	mso-level-tab-stop:none;   	mso-level-number-position:left; 	margin-left:0cm;- 	text-indent:0cm;} @list l0:level52 	{mso-level-start-at:0;  	mso-level-number-format:none; 	mso-level-text:"";k 	mso-level-tab-stop:none;t  	mso-level-number-position:left; 	margin-left:0cm;1 	text-indent:0cm;} @list l0:level6" 	{mso-level-start-at:0;l 	mso-level-number-format:none; 	mso-level-text:"";m 	mso-level-tab-stop:none;@  	mso-level-number-position:left; 	margin-left:0cm;2 	text-indent:0cm;} @list l0:level7, 	{mso-level-start-at:0;e 	mso-level-number-format:none; 	mso-level-text:"";y 	mso-level-tab-stop:none;o  	mso-level-number-position:left; 	margin-left:0cm;l 	text-indent:0cm;} @list l0:level8  	{mso-level-start-at:0;r 	mso-level-number-format:none; 	mso-level-text:"";l 	mso-level-tab-stop:none;u  	mso-level-number-position:left; 	margin-left:0cm;m 	text-indent:0cm;} @list l0:level9  	{mso-level-start-at:0;e 	mso-level-number-format:none; 	mso-level-text:"";  	mso-level-tab-stop:none;t  	mso-level-number-position:left; 	margin-left:0cm;y 	text-indent:0cm;} ol 	{margin-bottom:0cm;}  ul 	{margin-bottom:0cm;}m -->b </style> </head>h  1 <body lang=3DEN-GB style=3D'tab-interval:36.0pt'>n   <div class=3DSection1>  / <p class=3DMsoNormal><span lang=3DEN-US><![if =m: !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>  ) <p class=3DMsoNormal><span lang=3DEN-US =y: style=3D'font-size:10.0pt'><!--[if gte vml 1]><v:shapetype;  id=3D"_x0000_t75" coordsize=3D"21600,21600" o:spt=3D"75" =i o:preferrelative=3D"t"<  path=3D"m@4@5l@4@11@9@11@9@5xe" filled=3D"f" stroked=3D"f">   <v:stroke joinstyle=3D"miter"/>
  <v:formulas> .   <v:f eqn=3D"if lineDrawn pixelLineWidth 0"/>   <v:f eqn=3D"sum @0 1 0"/>q   <v:f eqn=3D"sum 0 0 @1"/>a   <v:f eqn=3D"prod @2 1 2"/>)   <v:f eqn=3D"prod @3 21600 pixelWidth"/>t*   <v:f eqn=3D"prod @3 21600 pixelHeight"/>   <v:f eqn=3D"sum @0 0 1"/>    <v:f eqn=3D"prod @6 1 2"/>)   <v:f eqn=3D"prod @7 21600 pixelWidth"/>e   <v:f eqn=3D"sum @8 21600 0"/>i*   <v:f eqn=3D"prod @7 21600 pixelHeight"/>    <v:f eqn=3D"sum @10 21600 0"/>  </v:formulas>4  <v:path o:extrusionok=3D"f" gradientshapeok=3D"t" = o:connecttype=3D"rect"/>+  <o:lock v:ext=3D"edit" aspectratio=3D"t"/>aA </v:shapetype><v:shape id=3D"_x0000_i1025" type=3D"#_x0000_t75" =O style=3D'width:386.25pt;  height:307.5pt'>s  <v:imagedata = J src=3D"./Demonstration%20Configuration%20Screen%20Dump_files/image001.png= "    o:title=3D""/>? </v:shape><![endif]--><![if !vml]><img width=3D515 height=3D410rJ src=3D"./Demonstration%20Configuration%20Screen%20Dump_files/image002.jpg= "r/ v:shapes=3D"_x0000_i1025"><![endif]></span></p>e  / <p class=3DMsoNormal><span lang=3DEN-US><![if = : !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>   </div>   </body>b   </html>   + ------=_NextPart_000_0022_01C0F1DF.7B8B4660e' Content-Type: application/octet-stream;c 	name="DEMO_UARS.COB" + Content-Transfer-Encoding: quoted-printablea  Content-Disposition: attachment; 	filename="DEMO_UARS.COB"o  J *************************************************************************= ***********tJ *                                                                        =           *eJ *         COPYRIGHT (c) 1994 BY TIER3 SOFTWARE LTD. ALL RIGHTS RESERVED. =           * J *                                                                        =           *zE *    THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND =  COPIED ONLY    *H *    IN ACCORDANCE  WITH THE TERMS AND CONDITIONS OF SUCH LICENSE AND  =
 WITH THE    *wG *    THE INCLUSION  OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE  OR =i ANY OTHER    *I *    COPIES  THEREOF MAY NOT  BE PROVIDED  OR OTHERWISE MADE AVAILABLE  =m TO  ANY    *J *    OTHER  PERSON.  NO  TITLE TO  AND OWNERSHIP  OF  THE  SOFTWARE  IS  = HEREBY    * J *    TRANSFERRED.                                                        =           *-J *                                                                        =           *oF *    THE INFORMATION  IN THIS SOFTWARE  IS SUBJECT TO CHANGE WITHOUT = NOTICE AND    *2J *    SHOULD NOT BE CONSTRUED AS A COMMITMENT BY TIER3 SOFTWARE LTD.      =           *lJ *                                                                        =           *eJ *************************************************************************= ***********  *+ * Routine Name: USER_INITo *eE * This routine is called by Tier3 as part of the execution server's =t initialization
 * procedures.i *rC * In this routine you would normally open files or connect to any =n database(s)0E * required by your application. In the DEMO application no files or =M
 databases aremG * accessed directly, but an exit handler is declared to listen for an =n abnormal * termination. *eI * As a CLI has been loaded you are also free to spawn a sub-process via =t	 LIB$SPAWNsH * if that is a requirement of your application, and it should be noted =
 that thereC * is no restriction on this execution server becoming a client of =A different Tier3g" * application(s) on other node(s). *- identification division. program-id.    user_init.i data division. working-storage section.E 01  ss$_normal                      pic s9(9)       comp    value   =t external        ss$_normal. E 01  sys_status                      pic s9(9)       comp    value   =n external        ss$_normal.o 01  exit_desblk.9     03                              pic s9(9)       comp. E     03                              pic s9(9)       comp    value   =l external        exit_handler.sF     03                              pic s9(9)       comp    value   1.E     03                                              pointer value   =a reference       exit_status.9 01  exit_status                     pic s9(9)       comp.i *g 01  demo_context.a-     03  system_name                 pic x(8).i9     03  buffer_size                 pic 9(9)        comp.a.     03  session_user                pic x(12).9     03  timer_context               pic 9(9)        comp. 9     03  session_count               pic 9(9)        comp. 9     03  message_count               pic 9(9)        comp. 9     03  lostlnk_count               pic 9(9)        comp.-9     03  persona_context             pic 9(9)        comp.0 *+E * DEBUG area. TIER3 sets the "language" to COBOL by default, so the =C following=202 * debugger commands are included just to show how. *-E \d01  ss$_debug                     pic s9(9)       comp    value   =_ external        ss$_debug. \d01  debug_commands.tE \d    03  cmd_len                   pic x(1)                value   =- x"25".J \d    03                            pic x(37)               value   "set =# language cobol; show process/full".o *- linkage section.- 01  t3_system_name                  pic x(8).t9 01  t3_buffer_size                  pic 9(9)        comp.D@ procedure division using t3_system_name, t3_buffer_size giving = sys_status.o 00.  *+I * In this example, for the VMS debugger to be invoked at run-time then=20UF * the /conditionals=3Dd qualifier needs to be applied at compile-time. *rD * To assist a run-time decision as to whether or not to invoke debugC * TIER3 has defined a local DCL symbol T3$DEBUG. This symbol is seta= * to the value specified by the system manager in the Tier3 =l
 Configuratione * file ie: "Y" or "N". *- \d      call "lib$signal"a4 \d              using   by value        ss$_debug, 17 \d                      by reference    debug_commands.T *+E * Record some startup information in the execution server's log file.  *-7     display "Initializing application " t3_system_name.dG     display "Buffer size is           " t3_buffer_size with conversion.o *+G * These example routines are designed specifically to handle requests =  for=20I * the DEMO application only and require a buffer size of 510 bytes, but =t alD * single shareable image, or set of user action routines, could be = designedI * to service the requests of multiple applications. Such routines could =r userG * the t3_system_name argument to determine the appropriate code path to.J * execute at run-time. Similarly, by designing your user action routines = toE * be able to cope with a variable buffer size you afford the system =. managere1 * greater flexibility in tuning your application.g *oG * We'll remember the Tier3 application parameters as they may come in =t handy. *-'     move t3_system_name to system_name.e'     move t3_buffer_size to buffer_size.e *+D * By passing the address of the data structure DEMO_CONTEXT as the =
 context=20I * argument to the routine T3$SETCTX, the data is made available to all=20DG * subsequent user routines by becoming the first argument in each call.o *-:     call "t3$setctx" using demo_context giving sys_status.0     if sys_status not =3D ss$_normal go to fini. *+G * DEMO does not need any application specific cleanup but we'll check =u the exit * status anyway. *-:     call "sys$dclexh" using exit_desblk giving sys_status. *D fini.T     exit program.3 *D end program user_init. *+ * Routine Name: USER_LOGON *fB * This routine is called by Tier3 when a client request has been = allocated to=20sJ * the execution server for processing. From this point on an association =
 is said=20H * to exist between the client and execution server. The association is =
 terminated=20DJ * by specifying either the t3$m_close or the t3$m_disconnect modifier in =	 a call toDD * the T3$SEND routine. The communication server may also cancel an = association at2 * any time if the link to the client task is lost. *eG * Note: The output channel to the client will not be opened until the =g
 USER_LOGONI *       routine has returned control to Tier3. Therefore any attempt to =  call= *       T3$SEND from this routine would result in the error =c T3$_CHANCLOSE beingq *       returned.l *- identification division. program-id.    user_logon. data division. working-storage section.E 01  t3$k_decnet                     pic s9(9)       comp    value   =m external        t3$k_decnet.E 01  t3$k_tcp_ip                     pic s9(9)       comp    value   =c external        t3$k_tcp_ip.E 01  lib$_strtru                     pic s9(9)       comp    value   =c external        lib$_strtru.E 01  ss$_normal                      pic s9(9)       comp    value   =0 external        ss$_normal.-E 01  sys_status                      pic s9(9)       comp    value   =n external        ss$_normal.i *SE 01  persona_create_flags            pic s9(9)       comp    value   =-% external        persona_create_flags.mE 01  persona_assume_flags            pic s9(9)       comp    value   =m% external        persona_assume_flags.s *m. 01  remote_node_name                pic x(31).. 01  remote_user_name                pic x(12).E 01  remote_user_socket              redefines       remote_user_name.T     03  remote_host_addr. *         05  rha_1                   pic x.*         05  rha_2                   pic x.*         05  rha_3                   pic x.*         05  rha_4                   pic x.9     03  remote_port_num             pic 9(9)        comp.o *g9 01  tcpip_rem_user_len              pic 9(4)        comp.=. 01  tcpip_rem_user                  pic x(21). *r linkage section. 01  demo_context.m-     03  system_name                 pic x(8).i9     03  buffer_size                 pic 9(9)        comp. .     03  session_user                pic x(12).9     03  timer_context               pic 9(9)        comp./9     03  session_count               pic 9(9)        comp. 9     03  message_count               pic 9(9)        comp.p9     03  lostlnk_count               pic 9(9)        comp.R9     03  persona_context             pic 9(9)        comp.o *e9 01  transport_type                  pic 9(4)        comp.- *0- 01  remote_node_desc                pic x(8).e * - 01  remote_user_desc                pic x(8).C *t 01  local_user_desc.     03  lud_class_len.9         05  lud_len                 pic 9(4)        comp. 9         05  lud_class               pic 9(4)        comp.r9     03  lud_addr                    pic 9(9)        comp.! *d& procedure division using demo_context,(                          transport_type,*                          remote_node_desc,*                          remote_user_desc,>                          local_user_desc   giving  sys_status. 00.y *+: * Initialize the timers and counts for session statistics. *-@     call "lib$init_timer" using timer_context giving sys_status.0     if sys_status not =3D ss$_normal go to fini.       add 1 to session_count.o *+> * COBOL cannot receive arguments by descriptor transparenty so= * the Run-Time Library routine LIB$SCOPY_DXDX is used to copyt@ * the remote_node, remote_user and local_user arguments to fixed* * length strings in local working-storage. *-     call "lib$scopy_dxdx"o4             using   by reference    remote_node_desc4                     by descriptor   remote_node_name             giving sys_status.@     if sys_status not =3D ss$_normal and lib$_strtru go to fini.       call "lib$scopy_dxdx"r4             using   by reference    remote_user_desc4                     by descriptor   remote_user_name             giving sys_status.@     if sys_status not =3D ss$_normal and lib$_strtru go to fini. *+A * The return status lib$_strtru is treated as a serious error fornA * the local username. ie 12 bytes is the maximum length for a VMS" * username.c *-     call "lib$scopy_dxdx"m3             using   by reference    local_user_descp0                     by descriptor   session_user             giving sys_status.0     if sys_status not =3D ss$_normal go to fini. *+C * Report the client association in the execution server's log file.} *-=     display "Association with ", session_user(1:lud_len), " =;
 established".m<     display "Transport =3D " transport_type with conversion..     display "Rem node  =3D " remote_node_name.*     display "Rem user  =3D " no advancing.       evaluate    transport_type8         when    t3$k_decnet     display remote_user_name.         when    t3$k_tcp_ip     call "sys$fao"A                                         using   by descriptor   =n "!@UB.!@UB.!@UB.!@UB:!ZL"oA                                                 by reference    =s tcpip_rem_user_lenA                                                 by descriptor   =i tcpip_rem_userH                                                 by reference    rha_1, = rha_2, rha_3, rha_4pA                                                 by value        =  remote_port_numa:                                         giving  sys_statusH                                 if sys_status not =3D ss$_normal go to = fini end-if;)                                 display =t$ tcpip_rem_user(1:tcpip_rem_user_len)     end-evaluate.o *+H * By assuming the persona of the VMS username that the remote client hasD * been authorized to use on local node we have removed the need to =
 perform=20G * additional security checking such as $check_access. IE: This server =a willD * be running with only those privileges and access rights that the = client5 * is entitled to assume. (Let VMS do all the work :-)  *oH * NB: Again, this is only a suggestion and not a requirement of Tier3. = If=200E *     you choose to use this extremely usefull VMS feature then the =n usernameA *     that the demo application will run under will need DETACH =D	 privilege*1 *     and read access to SYSUAF (Usually SYSPRV).e *-     call "sys$persona_create" /         using   by reference    persona_contextt7                 by descriptor   session_user(1:lud_len)o4                 by value        persona_create_flags         giving  sys_status.l0     if sys_status not =3D ss$_normal go to fini.       call "sys$persona_assume" /         using   by reference    persona_contextt4                 by value        persona_assume_flags         giving  sys_status.n *f fini.r     exit program.x *n end program user_logon.l *+ * Routine: USER_RECV * ? * The USER_RECV routine is called by Tier3 for each message, ortB * fragment of a message, that is received from a client with which% * the execution server is associated.  *sB * In the DEMO example we are receiving one message per association * with no fragmentation. *o@ * If the status value T3$_CHANCLOSE is returned from the T3$SENDA * routine it is assumed that the link to the client has been lostl@ * so we simply return control to Tier3 after resetting our exist- * status to SS$_NORMAL to avoid server crash.- *tD * NB:   If you application incorporates User Written System ServicesD *       do NOT use any executive mode dispatching codes in the range< *       -3000 to -2900 as these codes are reserved to Tier3. *- identification division. program-id.    user_recv.t data division. working-storage section.E 01  t3$_chanclose                   pic s9(9)       comp    value   =o external        t3$_chanclose.E 01  jbc$_nosuchent                  pic s9(9)       comp    value   =l external        jbc$_nosuchent.vE 01  jbc$_nomoreent                  pic s9(9)       comp    value   =f external        jbc$_nomoreent.eE 01  jbc$_normal                     pic s9(9)       comp    value   =- external        jbc$_normal.E 01  ss$_abort                       pic s9(9)       comp    value   =r external        ss$_abort.E 01  ss$_normal                      pic s9(9)       comp    value   =/ external        ss$_normal.g9 01  sys_status                      pic s9(9)       comp.c *nE 01  t3$m_close                      pic 9(9)        comp    value   =r external        t3$m_close.pE 01  t3$m_now                        pic 9(9)        comp    value   =n external        t3$m_now.vE 01  t3$m_more                       pic 9(9)        comp    value   =3 external        t3$m_more.E 01  t3$m_oob                        pic 9(9)        comp    value   =: external        t3$m_oob.>E 01  qui$_display_entry              pic s9(9)       comp    value   =f# external        qui$_display_entry."E 01  qui$_cancel_operation           pic s9(9)       comp    value   =0& external        qui$_cancel_operation.E 01  qui$m_search_wildcard           pic s9(9)       comp    value   =@& external        qui$m_search_wildcard. *W9 01  sts_index                       pic s9(9)       comp.r9 01  on_or_off                       pic s9(9)       comp.>9 01  entry_count                     pic 9(9)        comp.e
 01  qui_iosb.o9     03  qui_cond                    pic s9(9)       comp.D9     03                              pic s9(9)       comp.# 01  que_status_table.DE     03                              pic s9(9)       comp    value   =t& external        qui$m_queue_available.E     03                              pic x(10)               value   =v "AVAILABLE".E     03                              pic s9(9)       comp    value   =0! external        qui$m_queue_busy.pE     03                              pic x(10)               value   =n "BUSY".NE     03                              pic s9(9)       comp    value   =>% external        qui$m_queue_disabled.-E     03                              pic x(10)               value   =c "DISABLED". E     03                              pic s9(9)       comp    value   =o! external        qui$m_queue_idle.lE     03                              pic x(10)               value   =* "IDLE".*E     03                              pic s9(9)       comp    value   = # external        qui$m_queue_paused. E     03                              pic x(10)               value   =I	 "PAUSED".EE     03                              pic s9(9)       comp    value   = $ external        qui$m_queue_pausing.E     03                              pic x(10)               value   = 
 "PAUSING".E     03                              pic s9(9)       comp    value   = % external        qui$m_queue_resuming.IE     03                              pic x(10)               value   =* "RESUMING". E     03                              pic s9(9)       comp    value   = $ external        qui$m_queue_stalled.E     03                              pic x(10)               value   =R
 "STALLED".E     03                              pic s9(9)       comp    value   = % external        qui$m_queue_starting. E     03                              pic x(10)               value   =  "STARTING".SE     03                              pic s9(9)       comp    value   =U$ external        qui$m_queue_stopped.E     03                              pic x(10)               value   = 
 "STOPPED".E     03                              pic s9(9)       comp    value   =*% external        qui$m_queue_stopping.*E     03                              pic x(10)               value   =b "STOPPING".r? 01  que_status_array                redefines que_status_table.r.     03  que_status_item             occurs 11.9         05  que_value               pic s9(9)       comp.p.         05  que_text                pic x(10). 01  que_flags_table.E     03                              pic s9(9)       comp    value   =b$ external        qui$m_queue_printer.E     03                              pic x(10)               value   =P
 "PRINTER".E     03                              pic s9(9)       comp    value   =t" external        qui$m_queue_batch.E     03                              pic x(10)               value   =o "BATCH".E     03                              pic s9(9)       comp    value   = $ external        qui$m_queue_generic.E     03                              pic x(10)               value   = 
 "GENERIC".E     03                              pic s9(9)       comp    value   = % external        qui$m_queue_terminal.sE     03                              pic x(10)               value   =9 "TERMINAL".p> 01  que_flags_array                 redefines que_flags_table.-     03  que_flags_item              occurs 4. 9         05  flags_value             pic s9(9)       comp.u.         05  flags_text              pic x(10). 01  job_status_table.uE     03                              pic s9(9)       comp    value   = # external        qui$m_job_aborting.oE     03                              pic x(15)               value   =f "ABORTING". E     03                              pic s9(9)       comp    value   =i$ external        qui$m_job_executing.E     03                              pic x(15)               value   =  "EXECUTING".E     03                              pic s9(9)       comp    value   =3" external        qui$m_job_holding.E     03                              pic x(15)               value   =o
 "HOLDING".E     03                              pic s9(9)       comp    value   =o' external        qui$m_job_inaccessible.dE     03                              pic x(15)               value   =  "INACCESSIBLE".uE     03                              pic s9(9)       comp    value   =m" external        qui$m_job_pending.E     03                              pic x(15)               value   = 
 "PENDING".E     03                              pic s9(9)       comp    value   =g" external        qui$m_job_refused.E     03                              pic x(15)               value   = 
 "REFUSED".E     03                              pic s9(9)       comp    value   =t# external        qui$m_job_retained.fE     03                              pic x(15)               value   =n "RETAINED".fE     03                              pic s9(9)       comp    value   =c" external        qui$m_job_stalled.E     03                              pic x(15)               value   = 
 "STALLED".E     03                              pic s9(9)       comp    value   =e# external        qui$m_job_starting. E     03                              pic x(15)               value   =1 "STARTING". E     03                              pic s9(9)       comp    value   = $ external        qui$m_job_suspended.E     03                              pic x(15)               value   =d "SUSPENDED".E     03                              pic s9(9)       comp    value   =s( external        qui$m_job_timed_release.E     03                              pic x(15)               value   =r "TIMED RELEASE".? 01  job_status_array                redefines job_status_table.a.     03  job_status_item             occurs 11.9         05  job_value               pic s9(9)       comp.l.         05  job_text                pic x(15). *i< 01  item_list_addr                                  pointer. *y 01  entry_item_list.     03  item_search_entry.#         05  pic s9(4) comp value 4.r=         05  pic s9(4) comp value external qui$_search_number. 2         05  pointer value reference search_number.         05  pic s9(9) comp.r     03  item_queue_flags.a#         05  pic s9(4) comp value 4.s;         05  pic s9(4) comp value external qui$_queue_flags. .         05  pointer value reference que_flags.         05  pic s9(9) comp.0     03  item_que_status.#         05  pic s9(4) comp value 4.l<         05  pic s9(4) comp value external qui$_queue_status./         05  pointer value reference que_status."         05  pic s9(9) comp.s     03  item_job_status.#         05  pic s9(4) comp value 4. :         05  pic s9(4) comp value external qui$_job_status./         05  pointer value reference job_status.          05  pic s9(9) comp.d     03  item_que_name.$         05  pic s9(4) comp value 31.:         05  pic s9(4) comp value external qui$_queue_name.-         05  pointer value reference que_name. 1         05  pointer value reference que_name_len.o     03  item_job_name.$         05  pic s9(4) comp value 39.8         05  pic s9(4) comp value external qui$_job_name.-         05  pointer value reference job_name.y1         05  pointer value reference job_name_len.n     03  pic s9(9) comp.l *D 01  wild_item_list.n     03  item_search_flags.#         05  pic s9(4) comp value 4. <         05  pic s9(4) comp value external qui$_search_flags.:         05  pointer value reference qui$m_search_wildcard.         05  pic s9(9) comp.o     03  item_queue_flags.t#         05  pic s9(4) comp value 4. ;         05  pic s9(4) comp value external qui$_queue_flags.r.         05  pointer value reference que_flags.         05  pic s9(9) comp..     03  item_job_entry.o#         05  pic s9(4) comp value 4.e<         05  pic s9(4) comp value external qui$_entry_number..         05  pointer value reference job_entry.         05  pic s9(9) comp.      03  item_que_status.#         05  pic s9(4) comp value 4.t<         05  pic s9(4) comp value external qui$_queue_status./         05  pointer value reference que_status.1         05  pic s9(9) comp.      03  item_job_status.#         05  pic s9(4) comp value 4.m:         05  pic s9(4) comp value external qui$_job_status./         05  pointer value reference job_status.S         05  pic s9(9) comp.      03  item_que_name.$         05  pic s9(4) comp value 31.:         05  pic s9(4) comp value external qui$_queue_name.-         05  pointer value reference que_name. 1         05  pointer value reference que_name_len.      03  item_job_name.$         05  pic s9(4) comp value 39.8         05  pic s9(4) comp value external qui$_job_name.-         05  pointer value reference job_name.d1         05  pointer value reference job_name_len.      03  pic s9(9) comp.  * 9 01  search_number                   pic s9(9)       comp. . 01  que_name                        pic x(31).9 01  que_name_len                    pic 9(4)        comp. 9 01  que_status                      pic s9(9)       comp. 9 01  que_flags                       pic s9(9)       comp.t. 01  job_name                        pic x(39).9 01  job_name_len                    pic 9(4)        comp. 9 01  job_status                      pic s9(9)       comp. 9 01  job_entry                       pic s9(9)       comp.  * 9 01  local_flags                     pic 9(9)        comp.  01  show_entry_reply.gE     03                              pic xx                  value   =  "11". -     03  se_entry_number             pic 9(4).x.     03  se_job_name                 pic x(39)..     03  se_job_status               pic x(15)..     03  se_que_name                 pic x(31)..     03  se_que_type                 pic x(10)..     03  se_que_status               pic x(10).H 01  show_entry_len                  pic 9(9)        comp    value   111. 01  error_msg.E     03                              pic xx                  value   =  "00". ,     03  error_len                   pic 999./     03  error_text                  pic x(505).t *s linkage section. 01  demo_context.r-     03  system_name                 pic x(8).t9     03  buffer_size                 pic 9(9)        comp.v.     03  session_user                pic x(12).9     03  timer_context               pic 9(9)        comp.n9     03  session_count               pic 9(9)        comp.s9     03  message_count               pic 9(9)        comp.i9     03  lostlnk_count               pic 9(9)        comp.t9     03  persona_context             pic 9(9)        comp.Y *D
 01  msg_buff.p+     03  msg_type                    pic xx.uE         88  show_entry                                      value   =  "10".l/     03                              pic x(508).nJ 01  show_entry_msg                                          redefines    =    msg_buff.+     03                              pic xx. -     03  show_entry_number           pic 9(4).a-     03  show_entry_max              pic 9(4).f *n9 01  msg_size                        pic s9(9)       comp.  *o9 01  msg_flags                       pic s9(9)       comp.a *  procedure division=20l          using   demo_context,=20                 msg_buff,=20                 msg_size,=20                 msg_flags1"                 giving sys_status. kick_off section.  00.      add 1 to message_count.  *+G * If the client has sent a message that is greater than the buffer sizerD * for this application, then Tier3 will set the bit T3$V_MORE in theF * msg_flags argument. The remaining fragments of the message are not = lost,=20J * and will be delivered to user_recv routine in subsequent invocations.=20H * This example does not contain all of the code necessary to properly=20I * handle fragmented messages. The following "IF" statement is included=20i> * merely to illustrate how your routine would be notified of = fragmentation. *-C     call "mth$jiand" using msg_flags, t3$m_more giving local_flags.pH     if local_flags not =3D zeros display "Fragmented message - More to = come". *+I * NOTE: All Tier3 parameters passed to your routines are maintained in=20 J * user mode read-only storage. Any attempt to modify their contents will =  J * result in an access violation. Take a copy of any input parameter that =  0 * needs to be modified to local working-storage. *-"     move low-values to error_text.       evaluate        trueB             when    show_entry      if show_entry_number =3D zerosB                                             perform get_entry_wildB                                     else    perform get_entry_info*                                     end-if@             when    other           move ss$_abort to sys_status     end-evaluate.n       exit program.l *t get_entry_wild section.o 00.o3     set item_list_addr to reference wild_item_list.0       perform get_que_info.i  $     if sys_status =3D jbc$_nosuchent             perform send_error)     else    if sys_status =3D jbc$_normalt-                     move zeros to entry_count E                     perform until sys_status not =3D jbc$_normal or =t entry_count =3D show_entry_max0                             add 1 to entry_count.                             perform send_entry8                             if sys_status =3D ss$_normal8                                     perform get_que_info"                             end-if                     end-perform C                     if sys_status =3D jbc$_normal or jbc$_nomoreentd-                             call "t3$send"=20_C                                     using   by reference    "99EOF" @                                             by value        5, =
 t3$m_close7                                     giving  sys_status.  *+J * The maximum number of entries may have been reached before all $GETQUI = informationnG * had been retrieved for the wildcard search, or the association with =t the client may=20eA * have been terminated prematurely by the communication server, =  therefore we mustwD * be sure to tell the job controller that we wish to terminate the = wildcard search. *-1     if sys_status =3D ss$_normal or t3$_chanclose !             call "sys$getquiw"=20LC                     using   by value 0, qui$_cancel_operation, 0, 0n1                             by reference qui_iosbr)                             by value 0, 0t&                     giving  sys_status?             if sys_status =3D ss$_normal and qui_cond not =3D =n jbc$_normalc0                     move qui_cond to sys_status. *  get_entry_info section.  00.07     move show_entry_number to search_number, job_entry.n4     set item_list_addr to reference entry_item_list.       perform get_que_info.e  $     if sys_status =3D jbc$_nosuchent             perform send_error)     else    if sys_status =3D jbc$_normal &                     perform send_entry0                     if sys_status =3D ss$_normal-                             call "t3$send"=20 C                                     using   by reference    "99EOF" @                                             by value        5, =
 t3$m_close7                                     giving  sys_status.  *i fini. B     if sys_status =3D t3$_chanclose move ss$_normal to sys_status. *  send_error section.  00.      move 13 to error_len.x5     move "No such entry" to error_text (1:error_len).      call "t3$send"=20 -             using   by reference    error_msg ;                     by value        buffer_size, t3$m_closee             giving  sys_status.  *  send_entry section.p 00.a&     move job_entry to se_entry_number.1     move job_name(1:job_name_len) to se_job_name.o1     move que_name(1:que_name_len) to se_que_name.3  '     move zeros to sts_index, on_or_off. =     perform until sts_index =3D 11 or on_or_off not =3D zerosl             add 1 to sts_index.             call "mth$jiand" using job_status,8                                    job_value (sts_index),                             giving on_or_off     end-perform.     if on_or_off =3D zeros=20 +             move "UNKNOWN" to se_job_status 6     else    move job_text (sts_index) to se_job_status$             move zeros to on_or_off.       move zeros to sts_index.=     perform until sts_index =3D 11 or on_or_off not =3D zeros              add 1 to sts_index/             call "mth$jiand" using  que_status, 9                                     que_value (sts_index) -                             giving  on_or_offe     end-perform.     if on_or_off =3D zeros=20 +             move "UNKNOWN" to se_que_status$6     else    move que_text (sts_index) to se_que_status$             move zeros to on_or_off.       move zeros to sts_index.<     perform until sts_index =3D 4 or on_or_off not =3D zeros             add 1 to sts_index.             call "mth$jiand" using  que_flags,;                                     flags_value (sts_index) -                             giving  on_or_off      end-perform.     if on_or_off =3D zeros=20 )             move "UNKNOWN" to se_que_typeu7     else    move flags_text (sts_index) to se_que_type.        call "t3$send"=20a4             using   by reference    show_entry_reply<                     by value        show_entry_len, t3$m_now             giving  sys_status.  *  get_que_info section.  00.p@     call "sys$getquiw" using by value 0, qui$_display_entry, 0 = item_list_addr2                              by reference qui_iosb*                              by value 0, 0(                     giving   sys_status.=     if sys_status =3D ss$_normal move qui_cond to sys_status.  *  end program user_recv. *+ * Routine: USER_LOGOFF * I * This routine is called when the association with the client has been=20 D * terminated, either by the USER_RECV routine or the communication =
 server,=20: * and the USER_RECV routine has returned control to Tier3. * C * For the DEMO example we are logging resource usage by the client.e *- identification division. program-id.    user_logoff.  data division. working-storage section.E 01  ss$_normal                      pic s9(9)       comp    value   =  external        ss$_normal. 9 01  sys_status                      pic s9(9)       comp.u * E 01  persona_assume_flags            pic s9(9)       comp    value   =o% external        persona_assume_flags._F 01  restore_persona                 pic 9(9)        comp    value   1. *  linkage section. 01  demo_context. -     03  system_name                 pic x(8).a9     03  buffer_size                 pic 9(9)        comp. .     03  session_user                pic x(12).9     03  timer_context               pic 9(9)        comp. 9     03  session_count               pic 9(9)        comp. 9     03  message_count               pic 9(9)        comp.i9     03  lostlnk_count               pic 9(9)        comp.i9     03  persona_context             pic 9(9)        comp.  * 8 procedure division using demo_context giving sys_status. 00.u9     display "Session completed with user ", session_user.       move spaces to session_user.       call "sys$persona_assume" /         using   by reference    restore_personal4                 by value        persona_assume_flags         giving  sys_status. 0     if sys_status not =3D ss$_normal go to fini.  F     call "sys$persona_delete" using persona_context giving sys_status.0     if sys_status not =3D ss$_normal go to fini. *+( * Display the user's session statistics. * D * The Run-Time Library performance reporting routines have been usedI * as a very simple example of obtaining information on server resource=20iF * usage by a client. If this is a requirement of your application thenH * you should consider obtaining more detailed information via the VMS=20F * system services $GETTIM and $GETJPI and accumulating totals for eachF * user in a disk file. This disk file could be processed at a later=204 * date as part of charge-back accounting procedures. *-@     call "lib$show_timer" using timer_context giving sys_status. *  fini.      exit program.5 *  end program user_logoff. *+ * Routine: USER_FINI * F * This routine is called by Tier3 when the server has been culled from6 * the execution server pool due to inactivity timeout. * D * In the DEMO aplication there are no files to close or databases toC * disconnect from so the only image rundown activity performed here_& * is the logging of server statistics. *- identification division. program-id.    user_fini.  data division. working-storage section.E 01  ss$_normal                      pic s9(9)       comp    value   =  external        ss$_normal.  *  linkage section. 01  demo_context. -     03  system_name                 pic x(8). 9     03  buffer_size                 pic 9(9)        comp.u.     03  session_user                pic x(12).9     03  timer_context               pic 9(9)        comp.39     03  session_count               pic 9(9)        comp. 9     03  message_count               pic 9(9)        comp. 9     03  lostlnk_count               pic 9(9)        comp.S9     03  persona_context             pic 9(9)        comp.o * 8 procedure division using demo_context giving ss$_normal. 00. -     display "Execution server shutting down". B     display "Number of associations formed: " session_count with = conversion.pB     display "Number of messages received  : " message_count with = conversion. B     display "Number of client links broken: " lostlnk_count with = conversion.      exit program.  *  end program user_fini. *+ * Routine: USER_INTr *gD * The user interrupt routine differs from the five other user actionD * routines invoked by Tier3, in that it is called from AST level.=20 *oH * In this example we merely increment a count of the number associationsG * that were terminated abnormally. This count will be reported at image3 * exit.  *- identification division. program-id.    user_int. data division. working-storage section.E 01  ss$_normal                      pic s9(9)       comp    value   =  external        ss$_normal.tE 01  link_lost                       pic x(1)                value   =s x"01". *  linkage section. 01  demo_context.u-     03  system_name                 pic x(8). 9     03  buffer_size                 pic 9(9)        comp.d.     03  session_user                pic x(12).9     03  timer_context               pic 9(9)        comp. 9     03  session_count               pic 9(9)        comp.l9     03  message_count               pic 9(9)        comp. 9     03  lostlnk_count               pic 9(9)        comp. 9     03  persona_context             pic 9(9)        comp.s * . 01  interrupt_msg                   pic x(16). *f9 01  interrupt_type                  pic 9(9)        comp. E     88  system_msg                                          value   =4 external        t3$k_system.E     88  user_msg                                            value   =a external        t3$k_user. * ) procedure division using    demo_context,s*                             interrupt_msg,*                             interrupt_type'                   giving    ss$_normal.u 00.e *+B * The client program in the DEMO example does not send interrupts,F * therefore the only interrupt that this routine needs to cater for=20I * is that of link disconnection notification sent by the communication=20  * server.=20 *=20F * The Interrupt_Type field with contain T3$K_SYSTEM indicating that=20G * the message is from the communication server and the first byte of=20nF * the interrupt message will contain the value 1 indicating that it isG * a link disconnection message. Currently bytes 2 thru 16 are unused=20iG * for Tier3 interrupts, and link disconnection notification is the only4" * interrupt that is sent by Tier3. *tE * Note: The maximum message size for TCP/IP interrupt messages is 1 =r byte.cA *       This is a network transport restriction and not a TIER3 =  restriction. *-8     if (system_msg and interrupt_msg(1:1) =3D link_lost)"             add 1 to lostlnk_count3             display "Link to client has been lost".        exit program.j *e end program user_int.  *+ * Routine: exit_handler. * A * This routine is application specific and not required by Tier3.e *aA * For the DEMO example there are no special cleanup procedures=20mA * required but we'll interogate the exit status for error logging  * purposes.l *e? * VMS won't let a new persona to survive after image exit so nou$ * special cleanup check is required. *- identification division. program-id.    exit_handler. data division. working-storage section.E 01  t3$_nocomsrv                    pic s9(9)       comp    value   =s external        t3$_nocomsrv. E 01  ss$_normal                      pic s9(9)       comp    value   =  external        ss$_normal.r linkage section.9 01  exit_status                     pic s9(9)       comp. % procedure division using exit_status.n 00. .     display "In exit handler - " no advancing.     evaluate        exit_status I             when    ss$_normal      display "Normal rundown. Everything =_ is OK"?             when    t3$_nocomsrv    display "Can't find Tier3 =9 communication server"r=             when    other           if exit_status is failureeF                                             display "This will bring = down the communication server"C                                     else    display "Problem, but = " another server will take my place"*                                     end-if     end-evaluate.a       exit program.  *  end program exit_handler.   + ------=_NextPart_000_0022_01C0F1DF.7B8B4660  Content-Type: text/plain;  	name="build_uars_dcl.txt"+ Content-Transfer-Encoding: quoted-printable   Content-Disposition: attachment; 	filename="build_uars_dcl.txt"  J !************************************************************************= ************J !*                                                                       =            *A !*         COPYRIGHT (c) 1994 BY TIER3 SOFTWARE LTD. ALL RIGHTS =i RESERVED.           *eJ !*                                                                       =            *F !*    THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND = COPIED ONLY    *I !*    IN ACCORDANCE  WITH THE TERMS AND CONDITIONS OF SUCH LICENSE AND  = 
 WITH THE    * H !*    THE INCLUSION  OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE  OR = ANY OTHER    *J !*    COPIES  THEREOF MAY NOT  BE PROVIDED  OR OTHERWISE MADE AVAILABLE  = TO  ANY    *J !*    OTHER  PERSON.  NO  TITLE TO  AND OWNERSHIP  OF  THE  SOFTWARE  IS =  HEREBY    *J !*    TRANSFERRED.                                                       =            *J !*                                                                       =            *G !*    THE INFORMATION  IN THIS SOFTWARE  IS SUBJECT TO CHANGE WITHOUT =e NOTICE AND    * J !*    SHOULD NOT BE CONSTRUED AS A COMMITMENT BY TIER3 SOFTWARE LTD.     =            *J !*                                                                       =            *J !************************************************************************= ************ $! $! Procedure: BUILD_DEMO $!G $! This command procedure builds and installs the DEMO_UARS shareable =e imagemB $! for the Tier3 DEMO example. After this procedure has been run = successfullyF $! the DEMO application can be registered in the Tier3 configuration = file.  $! $   SAY :=3D WRITE SYS$OUTPUTp" $   REQD_PRIVS =3D "CMKRNL,SYSNAM"' $   PREV_PRIVS =3D F$SETPRV(REQD_PRIVS)  $   ON ERROR THEN GOTO FINI  $   ON CONTROL_Y THEN GOTO FINI 1 $   IF F$PRIVILEGE(REQD_PRIVS) THEN GOTO BUILD_ITkE $   SAY "You need (CMKRNL,SYSNAM) privilege to run this command file" 
 $   GOTO FINIa $!
 $BUILD_IT: $!C $! Compile the source files. P1 is checked to see wheter debug is = 	 required.R% $   IF P1 .EQS. "Y" .OR. P1 .EQS. "y"a $   THEN7 $       COBOL/LIST/DEBUG/CONDITIONALS=3DD DEMO_UARS.COBe $       LINK_QUAL =3D "/DEBUG" $   ELSE  $       COBOL/LIST DEMO_UARS.COB $       LINK_QUAL =3D ""	 $   ENDIFs $! $   CREATE QUIDEF.MARe ;+E ; Some of the external references in DEMO_UARS.COB will be unresolvedyG ; at link-time because the linker won't find them in the default system-C ; libraries. This macro file is needed to resolve those references.p ; C ; Note: This is not a Tier3 requirement. This file is needed only == because H ;       the DEMO User Access Routines need to talk to the job controller, ;       and use the persona system services. ;-G                 .TITLE          GETQUI External symbols and condition =  codes   &                 $QUIDEF         GLOBAL&                 $JBCMSGDEF      GLOBAL&                 $IMPDEF         GLOBAL  C                 PERSONA_CREATE_FLAGS=3D=3D<IMP$M_ASSUME_DEFPRIV!  -n=                                        IMP$M_ASSUME_DEFCLASS> C                 PERSONA_ASSUME_FLAGS=3D=3D<IMP$M_ASSUME_SECURITY! - ?                                        IMP$M_ASSUME_JOB_WIDE! -f<                                        IMP$M_ASSUME_ACCOUNT>                   .END ;  $   MACRO QUIDEF.MAR $!H $! We'll define the logical name LNK$LIBRARY to point to T3$USER so thatC $! the Tier3 system service library will be searched automatically.n $!# $   DEFINE/USER LNK$LIBRARY T3$USER  $!C $   LINK/SHARE'LINK_QUAL' DEMO_UARS.OBJ,QUIDEF.OBJ,SYS$INPUT/OPTIONs ! H ! Transfer Vectors were not used in the DEMO example so we need to forceG ! the linker to define the procedure entry masks for our User Action=20dF ! Routines as universal symbols. If not, Tier3 won't be able to find = them.  ! E ! There are no EXTERNAL file connectors, database handles or working- F ! storage variables defined in the DEMO example, so no PSECT attribute9 ! modification is required to build this shareable image.  !          UNIVERSAL=3DUSER_INIT          UNIVERSAL=3DUSER_LOGON         UNIVERSAL=3DUSER_RECV          UNIVERSAL=3DUSER_LOGOFFf         UNIVERSAL=3DUSER_FINI          UNIVERSAL=3DUSER_INT $!G $! Unless the resulting shareable image will be placed in the SYS$SHAREgF $! directory, a trusted logical name needs to be defined so that Tier3I $! can locate the shareable image at run-time. NB: this requirement is=20 # $! *not* enforced for DEBUG images.h $!G $! SYSNAM privilege is required to define a trusted logical name and=20v? $! CMKRNL privilege is required to install the shareable image.t $!/ $   UAR_SPEC =3D F$PARSE("DEMO_UARS.EXE") - ";" 0 $   DEFINE/SYSTEM/EXEC/NOLOG DEMO_UARS 'UAR_SPEC $!! $   INSTALL :=3D $INSTALL/COMMAND  $!G $! In the following command the /SHARE qualifier is required. The /OPEN ' $! and /HEADER qualifiers are optional.  $!1 $   IF F$FILE_ATTRIBUTES("DEMO_UARS.EXE","KNOWN") ; $   THEN        INSTALL REPLACE DEMO_UARS/OPEN/HEADER/SHARE_; $   ELSE        INSTALL ADD     DEMO_UARS/OPEN/HEADER/SHARE  $   ENDIF=20 $! $FINI:' $   PREV_PRIVS =3D F$SETPRV(PREV_PRIVS)0 $   EXIT $!  - ------=_NextPart_000_0022_01C0F1DF.7B8B4660--    ------------------------------    Date: 10 Jun 2001 15:52:49 -05009 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen) # Subject: Re: $QIO and TCP/IP servers3 Message-ID: <lcedYQ9+9lfR@eisner.encompasserve.org>r  ` In article <9g0clo$c2p$1@uranium.btinternet.com>, "Richard Maher" <maher_rj@hotmail.c*m> writes:. > This is a multi-part message in MIME format. > - > ------=_NextPart_000_0022_01C0F1DF.7B8B4660 & > Content-Type: multipart/alternative;7 > 	boundary="----=_NextPart_001_0023_01C0F1DF.7B8B4660"i >  > - > ------=_NextPart_001_0023_01C0F1DF.7B8B46603 > Content-Type: text/plain;o > 	charset="iso-8859-1"r- > Content-Transfer-Encoding: quoted-printable  >  > Hi,o > I > Once again sorry if you don't get attachments coz that's pretty much=20  > all there is.n   DON'T POST MIME to COMP.OS.VMS.    ------------------------------  % Date: Sun, 10 Jun 2001 17:30:59 -0400 - From: Michael Austin <miaustin@bellsouth.net>e Subject: Hobbyist Licensing - Message-ID: <3B23E713.4E8B0724@bellsouth.net>   B Q:  Will a Hobbyist layered product license work with a "real" VMSE license?  I have an alpha 2100 (H layered product level with a "real"f@ VMS license) that I need to install FORTRAN and C for a personalF project.  Now, the real problem is that I have not been able to obtainG the hobbyist kit, since Compaq/Encompass cannot get me registered as ane Encompass member..   $SET FLAME/ENABLE=HOT F This really should not be this difficult. If they are using an outsideF vendor to process the enrollments, they should be fired if they cannot do the job._ $SET FLAME/DISABLE   Regards,   Michael Austin   ------------------------------  % Date: Mon, 11 Jun 2001 04:42:50 +0200$2 From: martin@radiogaga.harz.de (Martin Vorlaender) Subject: Re: Hobbyist Licensing ; Message-ID: <3b24302a.524144494f47414741@radiogaga.harz.de>f  . Michael Austin (miaustin@bellsouth.net) wrote:D > Q:  Will a Hobbyist layered product license work with a "real" VMS
 > license?  H The hobbyist licenses are by no means crippled in any way (other than byG termination date; on the contrary, they are unrestricted licenses, i.e. 
 /UNITS=0).  1 So: yes, they will work with any "real" licenses.g   cu,    Martin --  G So long, and thanks        | Martin Vorlaender  |  VMS & WNT programmeri4 for all the fish...        | work: mv@pdv-systeme.deK In Memoriam Douglas Adams  |       http://www.pdv-systeme.de/users/martinv/s;             1952-2001      | home: martin@radiogaga.harz.de    ------------------------------  % Date: Sun, 10 Jun 2001 23:35:29 -0400y- From: JF Mezei <jfmezei.spamnot@videotron.ca>  Subject: Re: Hobbyist Licensing_, Message-ID: <3B243C7D.F81614B6@videotron.ca>   Michael Austin wrote:_ > D > Q:  Will a Hobbyist layered product license work with a "real" VMSG > license?  I have an alpha 2100 (H layered product level with a "real" B > VMS license) that I need to install FORTRAN and C for a personal > project. t  K Yes.  The hobbyist gives you a ton of licences, you are free to install theiK ones that you need. I too have kept the original VMS licence that came with M the workstation (since it doesn't expire) and added the hobbist licences thatSN I wanted. And now that my other system is not longer user commercially,  I wasO able to add some of the licences on that one too, but kept the "real" licences.d  K From a VMS point of view, the hobbyist licences are real licences. The only L "difference" is that they have an expiration date and are issued by the good$ folks at montagar instead of Compaq.     > $SET FLAME/ENABLE=HOT H > This really should not be this difficult. If they are using an outsideH > vendor to process the enrollments, they should be fired if they cannot
 > do the job.  > $SET FLAME/DISABLE  J The Montagar folks have done a tremendous job in my opinion. But they wereK told to accept only DECUS members, so they had to implement that. And since3N DECUS is in shambles on a wordldide basis with all sorts of different splinterN groups and no unified name anymore, and probably half the chapters that existsH only on paper (or with just plush board meetings without any services to5 members), it makes the Hobbyist programm much harder.   L I had made a proposal to Compaq to have a web-based worldwide VMS user groupN that would cater to those people who live in an area without an active "DECUS"K user group and it, as one of the services, would have provided members with_N access to the Hobbyist programme. Unfortunatly, the marketing manager is underN the impression that Encompass is sufficeint to serve the world and turned down
 the proposal.o   ------------------------------  % Date: Sun, 10 Jun 2001 18:20:05 -0500i1 From: "David J. Dachtera" <djesys.nospam@fsi.net>l" Subject: Re: I demand your respect' Message-ID: <3B2400A5.8AB8DA59@fsi.net>e   Paul Sture wrote:r > U > In article <8af17fe1.0106071415.499052b7@posting.google.com>, Aaron Sakovich wrote:r@ > > From: alphaman-nixspam@hsv.sungardtrust.com (Aaron Sakovich) > > Newsgroups: comp.os.vms & > > Subject: Re: I demand your respect# > > Date: 7 Jun 2001 15:15:25 -0700s > >e > > fabio_compaq@ep-bc.petrobras.com.br wrote in message news:<OF1B29F8DC.6ED724D3-ON03256A64.003AB5EB@ep-bc.petrobras.com.br>...aK > > > How many sysadmins in the world installed DECNET/OSI sucessfully ????r > > >  > > > 1,2, or 3 ?g > > >a
 > > > Regards  > > >x > > > FC > > I > > Hate to disappoint you folks, but we've got several hundred customers C > > running it, and multiple systems in-house.  True, we only use a G > > Local:. namespace, and try not to do anything terribly mind-numbinge > > with it, but it does work. > >oI > > Now, if only we could learn the commands.  Installation from a scriptsJ > > is one thing, running Decnet_Register is fine.  But I've had to resortD > > to creating multiple symbols (e.g., Loop :== "ncl loop loop applH > > name") to perform any kind of productive troubleshooting.  *sigh*, I@ > > miss the old "ncp loop node" syntax.  Almost English-like... > >tI > Learning the commands is tricky and frustrating at first, but it _does_  > come with practice.  > N > Which is the rub really, since when I first came across it I would typicallyK > only need to delve into NCP a couple of times a year. NCP would come back # > quickly in a way that NCL didn't.  > K > I personally feel that the much of the abuse directed towards Phase V wasSL > down to the lack of adequate ^H^H^H^H^H^H^H^H _any useful_ examples in theN > documentation. By contrast, the Phase IV docs were full of working examples, > in true VMS fashion.  H Well, that, the sheer verbosity and complexity of the NCL "language" andF the amount of work it would typically take to squelch the megabytes of? OPCOM message produced in normal operations where DECnet-IV was_ virtually silent by comparison.x   -- r David J. Dachteraa dba DJE Systems  http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/i  F This *IS* an OpenVMS-related newsgroup. So, a certain bias in postings is to be expected.  @ Feel free to exercise your rights of free speech and expression.  F However, attacks against individual posters, or groups of posters, are strongly discouraged.n   ------------------------------  # Date: Mon, 11 Jun 2001 01:14:27 GMT ) From: rob.buxton@wcc.govt.nz (Rob Buxton) " Subject: Re: I demand your respect1 Message-ID: <3b241add.437741839@news.wcc.govt.nz>   7 On Sun, 10 Jun 2001 18:20:05 -0500, "David J. Dachtera"t <djesys.nospam@fsi.net> wrote:  > Yep, I remember the joy of discovering the "QUIET" logical for7 reducing the amount of System startup DECNet OSI noise.2  D Then the despair at discovering that it was already enabled and this was in quiet mode !!! B As a result I moved a lot of the MOP database stuff to batch jobs.   Rob. > I >Well, that, the sheer verbosity and complexity of the NCL "language" and G >the amount of work it would typically take to squelch the megabytes of @ >OPCOM message produced in normal operations where DECnet-IV was  >virtually silent by comparison. >y >--  >David J. Dachtera >dba DJE Systems >http://www.djesys.com/l > ; >Unofficial Affordable OpenVMS Home Page and Message Board:   >http://www.djesys.com/vms/soho/ > G >This *IS* an OpenVMS-related newsgroup. So, a certain bias in postings  >is to be expected.n >rA >Feel free to exercise your rights of free speech and expression.  > G >However, attacks against individual posters, or groups of posters, aree >strongly discouraged.   ------------------------------  # Date: Sun, 10 Jun 2001 20:52:13 GMT0( From: Terry Kennedy <terry@gate.tmk.com>? Subject: Re: Low level format of SCSI disk, so VMS can read it.e' Message-ID: <GEqFB1.1vC@spcuna.spc.edu>   . Paul Repacholi <prep@prep.synonet.com> writes:G > You seem to have more faith in 'lowest possible cost' vendors than I.c  F   Are there any of those still competing in the SCSI marketplace these days?l  I > BTW, I have had a read replace fail on a Seagate Barraduda 4GB. I driveiF > that has been otherwise excelent. I did remove the failed block, butE > did not replace it, thus leavinf a non-existant block in the middleyG > of the disk. :( I had to reformat to recover. It also totally screwed 0 > up shadowing with no warning or OPCOM message!  C   I think that falls into the older, smaller, obsolete category 8-)   I   Seriously, what was the model number and firmware revision? I bet theregG is newer firmware available. FWIW, a number of years ago I made a pointcI of keeping track of the synchronization between the generic Seagate firm-eG ware on the ST15550N and the special-for-DEC firmware in the DEC equiv-hI alent drive (I forget the model number - RZ29? RZ29B?). While the genericeE firmware was getting regular fixes for issues found in the field, theqD DEC firmware was stagnant. In fact, in the whole time I watched thisD (pretty much the life of the product) there was only one new releaseG for the DEC firmware, and that was a specific fix that didn't integrate ; most of the issues found and fixed in the generic firmware.a  4         Terry Kennedy             http://www.tmk.com5         terry@tmk.com             Jersey City, NJ USAo   ------------------------------  % Date: Mon, 11 Jun 2001 16:05:34 +1200n. From: Nivlesh Chandra <NChandra001@itc.gov.fj>8 Subject: making ODBC connections to rdb databases in VMSM Message-ID: <084681714A1BD511970B0002A560015F2D73C2@exchange01.govnet.gov.fj>   L I have a Oracle Rdb v6 database on a Alpha system. I want to interface to itH with Microsoft Access from my desktop. Thus I would like to use ODBC forJ this. Can someone help me and tell me as to how I can go about doing this?" Your help will be most appreciated   Nivm   ------------------------------  % Date: Mon, 11 Jun 2001 07:57:33 +0300 & From: Abdullah <Abdullah@nepco.com.jo>< Subject: RE: making ODBC connections to rdb databases in VMS9 Message-ID: <001801c0f233$074fad50$ec036e64@nepco.com.jo>   , This is a multi-part message in MIME format.  + ------=_NextPart_000_0015_01C0F24C.2BAD0710: Content-Type: text/plain;i 	charset="iso-8859-1"*+ Content-Transfer-Encoding: quoted-printable*   Morning;  E Well, there is alot of services that do this to you;As i do remember: H 1. you can use the Oracle SQL-Services system which supports an Oracle = ODBCF Driver for RDB in the clients applications; and creates a dispatcher = process B to multiible connections from clients, beside the monitoring tools  H 2. You can find an SQL-net Protocol that connects to an RDB database; as& Oracle says so,but i havent test that;  H 3. you can use a third-party software which runs as client-server such = as: E ISG (attunity connect Software) which support multipile connectors to*I RDB,ORACLE RDBMS, or Even DataFiles, as theres is alot of documents you =O have- to read, but its really a wonderfull softwareW check : www.attunity.com   Hope this can help youA Please Send me for any more information, i will try to check more  Regards  Abdullah& System Manager- Internet Administrator NEPCO-JORDAN +962 79 917143     ----- Original Message -----0 From: "Nivlesh Chandra" <NChandra001@itc.gov.fj> To: <Info-VAX@Mvb.Saic.Com> # Sent: Monday, June 11, 2001 7:05 AMM8 Subject: making ODBC connections to rdb databases in VMS    J > I have a Oracle Rdb v6 database on a Alpha system. I want to interface = to itH > with Microsoft Access from my desktop. Thus I would like to use ODBC = for*H > this. Can someone help me and tell me as to how I can go about doing = this? $ > Your help will be most appreciated >r > Nive    + ------=_NextPart_000_0015_01C0F24C.2BAD0710n Content-Type: text/html; 	charset="iso-8859-1"r+ Content-Transfer-Encoding: quoted-printable   > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD>3 <META content=3D"text/html; charset=3Diso-8859-1" =  http-equiv=3DContent-Type>6 <META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR> <STYLE></STYLE>  </HEAD>n <BODY bgColor=3D#ffffff>I <DIV><FONT face=3DArial size=3D2>Morning;<BR><BR>Well, there is alot of =i services=20 D that do this to you;As i do remember:<BR>1. you can use the Oracle = SQL-Services=20 H system which supports an Oracle ODBC<BR>Driver for RDB in the clients=20@ applications; and creates a dispatcher process<BR>to multiible = connections from=20 H clients, beside the monitoring tools<BR><BR>2. You can find an SQL-net = Protocol=20rJ that connects to an RDB database; as<BR>Oracle says so,but i havent test =  B that;<BR><BR>3. you can use a third-party software which runs as = client-server=20E such as:<BR>ISG (attunity connect Software) which support multipile =.
 connectors=20eA to<BR>RDB,ORACLE RDBMS, or Even DataFiles, as theres is alot of =t documents you=20F have<BR>to read, but its really a wonderfull software<BR>check : <A=20H href=3D"http://www.attunity.com">www.attunity.com</A><BR><BR>Hope this = can help=20 F you<BR>Please Send me for any more information, i will try to check=20: more<BR>Regards<BR>Abdullah<BR>System Manager- Internet=20B Administrator<BR>NEPCO-JORDAN<BR>+962 79 917143<BR><BR><BR>----- = Original=20 2 Message -----<BR>From: "Nivlesh Chandra" &lt;<A=20J href=3D"mailto:NChandra001@itc.gov.fj">NChandra001@itc.gov.fj</A>&gt;<BR>= To:=20	 &lt;<A=20MJ href=3D"mailto:Info-VAX@Mvb.Saic.Com">Info-VAX@Mvb.Saic.Com</A>&gt;<BR>Se= nt:=20J Monday, June 11, 2001 7:05 AM<BR>Subject: making ODBC connections to rdb =  G databases in VMS<BR><BR><BR>&gt; I have a Oracle Rdb v6 database on a =i Alpha=20I system. I want to interface to<BR>it<BR>&gt; with Microsoft Access from =  my=20KF desktop. Thus I would like to use ODBC for<BR>&gt; this. Can someone = help me and=20H tell me as to how I can go about doing this?<BR>&gt; Your help will be = most=20e> appreciated<BR>&gt;<BR>&gt; Niv<BR></FONT></DIV></BODY></HTML>  - ------=_NextPart_000_0015_01C0F24C.2BAD0710--    ------------------------------    Date: 10 Jun 2001 22:40:24 -07001 From: nothome@spammers.are.scum (Malcolm Dunnett)M< Subject: Re: making ODBC connections to rdb databases in VMS, Message-ID: <y4iq9MhEJr7E@malvm5.mala.bc.ca>  ~ In article <084681714A1BD511970B0002A560015F2D73C2@exchange01.govnet.gov.fj>, Nivlesh Chandra <NChandra001@itc.gov.fj> writes:N > I have a Oracle Rdb v6 database on a Alpha system. I want to interface to itJ > with Microsoft Access from my desktop. Thus I would like to use ODBC forL > this. Can someone help me and tell me as to how I can go about doing this?      If you go tot  C    http://technet.oracle.com/software/products/rdbodbc/content.htmlS  B  you can download an ODBC driver  for Windows which claims to work with Rdb 6.1 and greater.e       Hope this helps.   ------------------------------  % Date: Sun, 10 Jun 2001 18:59:02 -0500E0 From: arturo saavedra <arturo.saavedra@wcom.com>! Subject: RE: NCP counter question!C Message-ID: <MOEAJKGGEIMGCCPEPJBHOEALEMAA.arturo.saavedra@wcom.com>   K I believe that 16 station buffers is a hard-coded characteristic of csma-cdUE ( ethernet ) devices.. not sure if you can by-pass that.  I'd be moreEJ worried about what kind of traffic would ocassionaly cause that counter toJ increase.. You seem to be logging an unusual number of collisions which inF turn could be causing re-transmits hence saturing your system buffers.     -----Original Message-----, From: Keith Brown [mailto:kbrown780@isd.net]% Sent: Saturday, June 09, 2001 1:03 PM: To: Info-VAX@Mvb.Saic.Coms Subject: NCP counter questionn    J I support a VAX 4500 running OpenVMS 6.2 with Decnet phase 4, UCX v4.2 and LAT.   $ mcr ncp show known line count:   gives the following output...i Line = ISA-0  '       >65534  Seconds since last zeroed7"      1251483  Data blocks received'       949453  Multicast blocks received_            0  Receive failure     120744315  Bytes received&     84810051  Multicast bytes received            0  Data overrun       102533  Data blocks sent#         9207  Multicast blocks sento.           84  Blocks sent, multiple collisions+          132  Blocks sent, single collision -          649  Blocks sent, initially deferred-     80364475  Bytes sent"      1670383  Multicast bytes sent            0  Send failure,            0  Collision detect check failure,            6  Unrecognized frame destination'          217  System buffer unavailablee%            0  User buffer unavailableS  , Note 217 System buffer unavailable messages.  F Question:  What do I need to tweek to fix this, is it cause for worry?   Thanks in advancej -- Keith Browna kbrown780@isd.net    ------------------------------  # Date: Mon, 11 Jun 2001 01:24:16 GMTn) From: rob.buxton@wcc.govt.nz (Rob Buxton)b+ Subject: Re: NCP to NCL command equivilantsh1 Message-ID: <3b241d03.438291730@news.wcc.govt.nz>t  E On Fri, 08 Jun 2001 12:08:20 +0000, Steve.Spires@yellgroup.com wrote:n      A Excellent overview of NCP to NCL Commands. Snipped for brvity....-  ) I make use of the following symbol a lot.u  5 DNM == "$SYS$UPDATE:DECNET_MIGRATE CONVERT COMMAND ""a   It usage is like:j   $ dnm show know node  2 ! *** Converting the following NCP command to NCL: !     SHOW KNOW NODE9 SHOW NODE 0 ROUTING CIRCUIT {{{}}} ADJACENCY * ALL STATUSy  ? Doesn't work for all but it's often a good stab at the command!h  D We use DECNet V here, no real issues but then we're not heavy DECNet users. Who is anymore?   Rob.   ------------------------------  # Date: Mon, 11 Jun 2001 00:05:07 GMTl, From: "Jay E. Morris" <morrisj@epsilon3.com> Subject: No 7.3 yeta; Message-ID: <TWTU6.12567$tb6.4245365@typhoon.austin.rr.com>i  K So should I be starting to worry?  Take my club and wander amonst the othermB buildings looking for it?  Think they hijacked it for the CD case?   --  M Jay E. Morris, System Software Specialist, Epidemiological Laboratory, Brookse AFB, TX @ Posted with Ink Spot (for Windows CE) from DejaVu Software, Inc.8 Usenet wherever you are - http://www.dejavusoftware.com/   ------------------------------    Date: 10 Jun 2001 21:19:11 -0500+ From: young_r@encompasserve.org (Rob Young)  Subject: Re: No 7.3 yet 3 Message-ID: <BV9phSiv05je@eisner.encompasserve.org>"  j In article <TWTU6.12567$tb6.4245365@typhoon.austin.rr.com>, "Jay E. Morris" <morrisj@epsilon3.com> writes:M > So should I be starting to worry?  Take my club and wander amonst the other D > buildings looking for it?  Think they hijacked it for the CD case? >  >   ; 	Be patient.  On Friday, someone "accidently" mailed 7.3 toa> 	a co-worker that requested Tru64 kit.  In enquiring about it,@ 	he straightened out the mix-up.  I am to keep the 7.3 kit, mailE 	mine back when it comes and his Tru64 is on the way.  The impressionc: 	I get is there a number of 7.3 kit "in the pipeline" yet.   				Robx   ------------------------------  % Date: Sun, 10 Jun 2001 12:33:15 -0700a2 From: "Randy Park" <rjpark@mindspring.nospaam.com>/ Subject: Re: Problem with JUMP from FREEWARE CDt2 Message-ID: <9g0i62$7tp$1@slb4.atl.mindspring.net>  7 I'm not familiar with JUMP, but in utilities like JUMP,S4 many of the logicals used will need to be defined in; Executive mode.  Your SHOW LOGICAL command was done withoutr8 the /FULL qualifier, so there is no whay to know whether: they are in Executive mode or not.  Any logical that needs9 to be secure, i.e. not overridden by a user mode logical,l" should be defined with /EXECUTIVE.  D Bob Kaplow <kaplow_r@eisner.encompasserve.org.mars> wrote in message- news:$URGhu3Rpv4p@eisner.encompasserve.org... F > Has any one used JUMP from the OpenVMS Freeware (thanks Hoff!) disk? >gI > We just started using it On Alpha VMS V7.2 to control access to genericeJ > accounts (OPERATOR, INGRES, ORACLE, etc). I've followed the installationH > instructions, have all of the required privs on the installed image (I evenF > added BYPASS but that didn't help), and have all of the files in theI > JUMP_ROOT directory set s:werd, o:werd and the .exe and .dat files havee w:e, > and w:r respectively.0 > I > I thought it was all working fine. But lately any time a non priv. useroI > tries to JUMP to an account that they are authorized to go to, they get  the  > following error: >0H > CERES::KAPLOW 14:51:05   (DCL)   CPU=00:00:00.64 PF=473 IO=1212 MEM=68 > $ JUMP KAPLOWROsI > %SYSTEM-F-NOPRIV, insufficient privilege or object protection violation: >:L > I can't figure out what changed to break this thing. And it's not just oneH > system, but a standalone development system running JUMP V3.4 from theH > Freeware V5 disk and our production cluster running JUMP V3.0 from theJ > Freeware V4.0 disk. I don't speak PASCAL, or have a PASCAL compiler, but inJ > reading the source there appear to be a few SS_NOPRIV exits, but none of' > those conditions seem to apply to me.m > 3 > here are the logicals I've defined on the system:e >e > $ SHOW LOGICAL JUMP* > ...p< >   "JUMP_ACCESS_LIST" = "JUMP_ROOT:[000000]JUMP_ACCESS.DAT"; >   "JUMP_AUDIT_TRAIL" = "JUMP_ROOT:[000000]JUMP_AUDIT.DAT"r! >   "JUMP_DOUBLE_CHECK" = "FALSE"a >   "JUMP_MATCH_BOTH" = "FALSE"n( >   "JUMP_MINOR_PRIVS" = "NETMBX TMPMBX"& >   "JUMP_ROOT" = "UTILITY_62:[JUMP.]", >   "JUMP_SECURE_DIR" = "jump_root:[000000]" >   "JUMP_SELF" = "TRUE"* >   "JUMP_USER_DIR" = "jump_root:[000000]" >iI > Here are the lines in the JUMP_ACCESS.DAT file for my non-priv account:g >e0 > $ SEA JUMP_ROOT:[000000]JUMP_ACCESS.DAT KAPLOW > kaplow          : kaplowro > kaplow          : wolpak >a- > And the lines from the JUMP_AUDIT.DAT file:t >c > $ TYPE/TAIL=9 JUMP_AUDIT.DATK > 08-JUN-2001 11:12:54 KAPLOW PRIV violation: JUMP KAPLOWRO SOLAR::KAPLOWROC
 > RTA1: RTA1: K > 08-JUN-2001 11:13:34 KAPLOW PRIV violation: JUMP KAPLOWRO SOLAR::KAPLOWRO 
 > RTA1: RTA1:aK > 08-JUN-2001 11:14:37 KAPLOW PRIV violation: JUMP KAPLOWRO SOLAR::KAPLOWRO.
 > RTA1: RTA1:hK > 08-JUN-2001 11:15:50 KAPLOW PRIV violation: JUMP KAPLOWRO SOLAR::KAPLOWROl
 > RTA1: RTA1:eC > 08-JUN-2001 11:17:18 KAPLOW PRIV violation: JUMP KAPLOWRO/NOAUDITo > SOLAR::KAPLOWRO RTA1: RTA1:qJ > 08-JUN-2001 14:46:25 KAPLOW PRIV violation: JUMP KAPLOWRO MARS::KAPLOWRO
 > RTA1: RTA1:iJ > 08-JUN-2001 14:47:43 KAPLOW PRIV violation: JUMP KAPLOWRO MARS::KAPLOWRO
 > RTA1: RTA1:eJ > 08-JUN-2001 14:51:25 KAPLOW PRIV violation: JUMP KAPLOWRO MARS::KAPLOWRO
 > RTA1: RTA1:oG > 08-JUN-2001 14:54:40 KAPLOWRO  to  [1,4] = [SYSTEM] Host: 10.3.134.93s > Port: 1056 TNA2106: TNA2106: > G > I get the expected results if I try to jump to a non-existant accounte= > (whether it is in the data file or not), or jump to myself:e >t > $ jump wolpakd: > %JUMP-F-INVUSER, Invalid username - user does not exist. > %RMS-E-RNF, record not found > $ jump bogusname: > %JUMP-F-INVUSER, Invalid username - user does not exist. > %RMS-E-RNF, record not found > $ jump kaplow0E > %JUMP-I-SAMEUIC, Same UIC as current ([101,666]) - no action taken.  > $: > K > Likewise, from my account with all privs, which should be allowed to jumpa/ > anywhere, I can jump to another account fine:n >e > ALLjump systemr> > %JUMP-S-JUMPED, KAPLOWRO jumped to SYSTEM ([1,4] = [SYSTEM])2 > %JUMP-I-DEFAULT, Default is SYS$SYSROOT:[SYSMGR] > ALL >jG > Any idea why nonpriv users might be getting a NOPRIV error from JUMP.N >" >gF > BTW, JUMP's author / submitter, Jonathan Ridler, is no longer at TheG > University of Melbourne. I tried e-mailing him a while ago, and got aV> > response from their postmaster that he isn't there any more.   ------------------------------    Date: 10 Jun 2001 15:49:18 -05009 From: Kilgallen@eisner.decus.org.nospam (Larry Kilgallen)j Subject: Re: The future of VMS3 Message-ID: <vI8iCY0nsNdD@eisner.encompasserve.org>n  \ In article <87elsss76q.fsf@prep.synonet.com>, Paul Repacholi <prep@prep.synonet.com> writes:) > paddy.o'brien@zzz.tg.nsw.gov.au writes:i > G >> We employ younger staff for the whizz-bang GUI stuff written in C et-A >> al., that our engineers have really little use for -- but it'sm, >> conventional to have GUI stuff available. > < >> Not only do you employ the program language that fits the? >> requirement, but you can employ the programmers to write theo6 >> programs in the language that fits the environment. > A > The answer used to be that these people would never even get anm > interview, let alone a job.t >  > Serious question;h > A > Does anyoe here consider a 'one language' programmer has even at > moderate idea of programming?i > 7 > Would you be happy to have them bugfixing non-C code?a  @ Not if their one language were C, but if their one language wereB the language the code was written in, they could be extremely more@ effective that a C-is-my-only-language programmer fixing C code.   ------------------------------  % Date: Sun, 10 Jun 2001 21:21:24 +0100r. From: "Chris Casey" <chris.casey@ntlworld.com> Subject: Re: The future of VMSC Message-ID: <oHQU6.35038$fs6.3062874@news6-win.server.ntlworld.com>o  B Christof Brass wrote in message <3B21E935.78B03E3@infopuls.com>...   [snip]< >And one of my favourite topics: oo. I don't expect MUMPS to? >offer that kind of features. And this is a severe drawback forg >creating huge systems.  [snipn< >But this is only one ascpect for efficiency. If you have to> >organise the work for a bunch of programmers and want to haveA >easy to reuse pieces of SW you need additional features, e.g. ooa >for creating an oo framework.   [snip]  1 I obviously did not put my points clearly enough.e: Cache, (the new mumps) is fully OO (if you want it to be).> As far as I know all of the standard OO features are included.H I am suprised that you did not pick this up from the Web site but I have8 not had a good look around since it has been redesigned.  A >Okay then the question should be re-phrased: do you know how the14 >DSM/ISM implementation on VMS compares to the MUMPS4 >implementation on AIX? I heard that all these MUMPS> >implementations offer very good portability. Is this correct?  F In general, apart from OS specific calls (which good practice says youC have restricted to a few routines) Mumps systems are normally fullyd	 portable.   K Indeed, if people have kept to the standard then they are totally portable. B The problem being that the different vendors offered some specific3 extensions in the past and people used to use them.$  > We write code on Alphas that we run untested (almost) on NT's.H I do not have any Unix experience so cannot answer the specific platform( but I would not expect any major issues.H I would assume that the implementation would be ISM or MSM but there are others.sG Current ISM or Cache offers compatability modes for the system specific  calls.   ------------------------------  % Date: Mon, 11 Jun 2001 00:13:54 +0200 ) From: Christof Brass <brass@infopuls.com>r Subject: Re: The future of VMS, Message-ID: <3B23F122.4685EB52@infopuls.com>   Paul Repacholi wrote:t > - > Christof Brass <brass@infopuls.com> writes:c > E > > ... I don't see any big difference in most apps like browser, web B > > server, spread sheet, word processor, graphics package, searchF > > engine.  From what I read there is a demand of that kind of SW forF > > VMS.  And I don't see any advantage in different PLs for that type > > of programming.s > B > > Would you like to provide a few examples why certain PLs excelC > > on certain tasks within the range of app development (includingb
 > > servers)?M > H > Well, take the spread sheet and the graphics package. I think you willH > agree that they not only will use a fair chunk of math, but that theirG > answers and behaviour must also be 'least suprise' compared to normalk > maths operations.t  
 Agreed :-)  D > Now consider that Cs operations on unsigned and signed numbers areH > most like very different math numeric types, then you have to say that4 > as a result, C is less well suited for these apps.   :-)n  < I'm the last person voting for C. But if we look at a proper> defined language like Ada or Pascal we don't have this type of problem.  G > For the search engine, either a DB or a language like Snobol, or SCANnC > or SQL with plain files would seem to be a better idea. If for noD4 > other reason than being able to compile the query.  = I did some work on search engines and found that normally DBsT= don't deliver at the speed you need. In fact all major searchS& engines don't use DBs to my knowledge.  ! Anyway, thanks for your examples.i  F > Note, that this totally ignores the issue of existing code that does > large parts of the job.<  ; This is really a problem because this lets sometimes peoples? decide for lower quality solutions and by that even enforce thec> bias towards the wrong tools. It's like in the market place if: one company has a big share then there is always one basic? argument: if we chose that we are part of the majority and this  can't be bad :-(   > --> > Paul Repacholi                               1 Crescent Rd.,9 > +61 (08) 9257-1001                           Kalamunda.aB >                                              West Australia 60760 > Raw, Cooked or Well-done, it's all half baked.J > Spam-To: uce@ftc.gov,enforcement@sec.gov,sness@fcc.gov,hfurchtg@fcc.gov,$ >   mpowell@fcc.gov,gtristan@fcc.gov   ------------------------------  % Date: Mon, 11 Jun 2001 00:19:34 +0200h) From: Christof Brass <brass@infopuls.com>o Subject: Re: The future of VMS, Message-ID: <3B23F276.107CA5D1@infopuls.com>   Chris Casey wrote: > D > Christof Brass wrote in message <3B21E935.78B03E3@infopuls.com>... >  > [snip]> > >And one of my favourite topics: oo. I don't expect MUMPS toA > >offer that kind of features. And this is a severe drawback foro > >creating huge systems.a > [snip-> > >But this is only one ascpect for efficiency. If you have to@ > >organise the work for a bunch of programmers and want to haveC > >easy to reuse pieces of SW you need additional features, e.g. ooa  > >for creating an oo framework. >  > [snip] > 3 > I obviously did not put my points clearly enough.2< > Cache, (the new mumps) is fully OO (if you want it to be).@ > As far as I know all of the standard OO features are included.J > I am suprised that you did not pick this up from the Web site but I have: > not had a good look around since it has been redesigned.  ? Of course Cach is oo. This is obvious from their examples. But ? the language you use has to support this technique also, hasn'to it?n  C > >Okay then the question should be re-phrased: do you know how thee6 > >DSM/ISM implementation on VMS compares to the MUMPS6 > >implementation on AIX? I heard that all these MUMPS@ > >implementations offer very good portability. Is this correct? > H > In general, apart from OS specific calls (which good practice says youE > have restricted to a few routines) Mumps systems are normally fullyr > portable.  >eM > Indeed, if people have kept to the standard then they are totally portable.tD > The problem being that the different vendors offered some specific5 > extensions in the past and people used to use them.c  6 :-) As always vendor lock in - desired by the vendors.  @ > We write code on Alphas that we run untested (almost) on NT's.J > I do not have any Unix experience so cannot answer the specific platform* > but I would not expect any major issues.J > I would assume that the implementation would be ISM or MSM but there are	 > others.fI > Current ISM or Cache offers compatability modes for the system specifics > calls.   ------------------------------  % Date: Sun, 10 Jun 2001 21:35:29 -0700o- From: Jack Patteeuw <jjpatteeuw@peoplepc.com>u Subject: Re: The future of VMS, Message-ID: <3B244A91.6757F5FF@peoplepc.com>   Paul Repacholi wrote:s >rG > The compiler can do *ANYTHING* with an undefined construct. IncludingwJ > radom inconsistant return, faulting, feeding you an unterminated string,# > deleting all files it can access.u  D Yep, the ANSI standard list which things a not specifically define. D When we were shopping for a compiler for an embedded application, we@ specifically made the vendor **DEFINE** what did happen in these situations.z  
 Jack Patteeuw4   ------------------------------  % Date: Sun, 10 Jun 2001 23:50:54 -0400 - From: JF Mezei <jfmezei.spamnot@videotron.ca>e Subject: Re: The future of VMS, Message-ID: <3B244019.8FD47FF4@videotron.ca>   Christof Brass wrote:tF > > Now consider that Cs operations on unsigned and signed numbers areJ > > most like very different math numeric types, then you have to say that6 > > as a result, C is less well suited for these apps.  > > I'm the last person voting for C. But if we look at a proper@ > defined language like Ada or Pascal we don't have this type of
 > problem.    M Just because a language provides the ability to do certain "dangerous" things N does not mean that you must use them. Yeah, I've had my share of problems withE C, but overall, I find C to be versatile, capable of string and math.a  E When I started to work on VMS, I hired a summer student and we ported-M applications (actually rewrote them) that use dto run on an IBM mainframe. WeuK used COBOL for the reports (because its report generator is well suited for3N that) and wrote C routines to do the fancy stuff that would have been too much5 of a hassle to do in Cobol. And it worked quite well.o  D Personally, I feel that any programmer should know how to program inM assembler. (IBM 360 is a good one to learn IMO). Once you know assembler, youa9 can better understand what the compiler is doing for you.e  K As far as the signed/unsigned stuff in C, I agree that is usually is a painIM (espially since the default is a signed characters, a concept which isn't toosD logical). In general, I unly use unsigned numbers when I know that I absolutely must.  J Obviously, if you give a C compiler to a windows weenie, obviouly you willH have problems because it is doubtful that the person will understand theK differences between signed and unsigned. But then agaim if you hire windowsiM weenies, it is your responsabioity to se coding standards for the company and " make sure that they abide by them.   ------------------------------   Date: 11 Jun 2001 05:29:01 GMT- From: djweath@attglobal.net (Dave Weatherall)r Subject: Re: The future of VMS5 Message-ID: <DTiotGxQ0bj6-pn2-mqfh7d0BFHOj@localhost>n  A On Sat, 9 Jun 2001 12:25:11, Christof Brass <brass@infopuls.com> - wrote:  
 [Big Snip]  B > > DEFINE VERB is recognized by the command SET COMMAND xxxx.CLD.C > > What Brian gave above is a simple .CLD file that will eliminatei" > > the need for a foreign symbol. > B > Thanks, I wrote CLD files myself several years ago but obviously# > didn't remember the CLD language.l >   E I modified my CLD file just last week and obviously I don't remember i th language either :-) -- e Cheers - Dave.   ------------------------------    Date: 10 Jun 2001 19:20:37 -07001 From: nothome@spammers.are.scum (Malcolm Dunnett) 6 Subject: Re: Urgent: Oracle 8 parallel server on VMS 7, Message-ID: <2iiF9VOwR3Rp@malvm5.mala.bc.ca>  . In article <3B23B0A1.D5478D8B@bellsouth.net>, 1   Michael Austin <miaustin@bellsouth.net> writes:   f > Personally, if I were going to run an Oracle database on OpenVMS it would not be Oracle Classic, but
 > Oracle Rdb.n      If<  N     a.) We could afford it ( ie if there was an Rdb "standard edition" price )  Z     b.) 3rd party tools supported it better ( SQL*Net for Rdb helps, but I had a number of[ odd problems with it where it would just hang and I had to restart the SQL Server to get it  going again ).  [    then we probably would run Rdb instead of Oracle "classic". As it is we can't affort thexZ support prices for Rdb and are working on eliminating the few remaining places we need it.  X    Oracle obviously believes Rdb is only for customers with deep pockets and sufficient Z technical resources to work around the glitches that invariably seem to occur when running PeeCee tools against it.   ------------------------------  % Date: Sun, 10 Jun 2001 16:43:41 -0400 2 From: rdeininger@mindspring.com (Robert Deininger)2 Subject: Re: [OT] Current Microsoft v DOJ status ?L Message-ID: <rdeininger-1006011643410001@user-2ivec4f.dialup.mindspring.com>  < In article <87wv6kqqik.fsf@prep.synonet.com>, Paul Repacholi <prep@prep.synonet.com> wrote:  ' > system@niuhep.physics.niu.edu writes:  > H > > If they were still available and if it weren't for the environmentalH > > impact I would kill for an old-style U.S. taxicab.  Huge space, easyG > > to get in, the engines last 100s of thousands of miles in miserabler > > city driving.K > # > Aren't Checkers is in production?P   It doesn't look like it.  4 http://www.checkercabs.org/html/checker_history.html  E There's a lot of nostalgia at that site, and I didn't see a link to ao still-live company.d  ? Classic marathon cabs are downright rare on the streets of NYC.u   -- U Robert Deininger rdeininger@mindspring.comp   ------------------------------    Date: 10 Jun 2001 18:20:38 -0400/ From: jordan@lisa.gemair.com (Jordan Henderson)t2 Subject: Re: [OT] Current Microsoft v DOJ status ?* Message-ID: <9g0rrm$stb$1@lisa.gemair.com>  L In article <rdeininger-1006011643410001@user-2ivec4f.dialup.mindspring.com>,3 Robert Deininger <rdeininger@mindspring.com> wrote:C= >In article <87wv6kqqik.fsf@prep.synonet.com>, Paul RepacholiI ><prep@prep.synonet.com> wrote:P >D( >> system@niuhep.physics.niu.edu writes: >>  I >> > If they were still available and if it weren't for the environmental I >> > impact I would kill for an old-style U.S. taxicab.  Huge space, easy0H >> > to get in, the engines last 100s of thousands of miles in miserable >> > city driving. >> n$ >> Aren't Checkers is in production? >- >It doesn't look like it.  >P5 >http://www.checkercabs.org/html/checker_history.html  >aF >There's a lot of nostalgia at that site, and I didn't see a link to a >still-live company. >Y  F I agree that if they were still around, you'd find information at thatI site to contact them, particularly on the "Where can I find parts" pages.   ? But, there is this interesting disclaimer on some of the pages:8    2= 	Copyright  1995-2001 WFN5 Productions - All Rights ReservedR? 	Note: Checker, Checker Motors, Marathon, Superba, Aerobus and  ; 	      other trademarks are the property of Checker Motors  @ 	      Corporation, Kalamazoo, MI. This site is a personal site 2 	      for entertainment and information use only.  H Which suggests that there is a legal entity that still holds trademarks.) This could just be boilerplate, though...R  F Maybe Checker Motor Corporation does still exist, but mostly on paper,3 hoping someone will come along and revive the line.     N@ >Classic marathon cabs are downright rare on the streets of NYC. >o >--  >Robert Deininger: >rdeininger@mindspring.com   -Jordan Hendersonm jordan@greenapple.como   ------------------------------    Date: 10 Jun 2001 18:28:32 -0400/ From: jordan@lisa.gemair.com (Jordan Henderson)u2 Subject: Re: [OT] Current Microsoft v DOJ status ?* Message-ID: <9g0sag$t85$1@lisa.gemair.com>  * In article <9g0rrm$stb$1@lisa.gemair.com>,0 Jordan Henderson <jordan@lisa.gemair.com> wrote: >  > [snip] >II >Which suggests that there is a legal entity that still holds trademarks.e* >This could just be boilerplate, though... >bG >Maybe Checker Motor Corporation does still exist, but mostly on paper, 4 >hoping someone will come along and revive the line. >S  E Oops, spoke too soon.  There is this page on that site that clarifiesG the situation:  =     http://www.checkercabs.org/html/checker_headquarters.html    > [snip]   -Jordan Hendersonh jordan@greenapple.comn   ------------------------------  % Date: Sun, 10 Jun 2001 18:01:38 -0500h1 From: "David J. Dachtera" <djesys.nospam@fsi.net>o2 Subject: Re: [OT] Current Microsoft v DOJ status ?' Message-ID: <3B23FC52.37465150@fsi.net>    Malcolm Dunnett wrote: > ) > In article <3B227F8B.80C07C09@fsi.net>,j9 >     "David J. Dachtera" <djesys.nospam@fsi.net> writes:@ > >>K > >> And did that car get better or worse mileage per gallon than a currentp > >> day 4WD SUV?y > >., > > 302ci V8 2bbl carb., normally aspirated. > ? >    Same motor as my 96 Explorer has, same gas mileage too ;-)f  H Really? Did Ford revive the 302? I thought they killed it some years agoF in favor of a port-injected 270-something... (302 is just a 289 with a larger bore, AFAIK).   -- a David J. Dachterae dba DJE Systems  http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/w  F This *IS* an OpenVMS-related newsgroup. So, a certain bias in postings is to be expected.  @ Feel free to exercise your rights of free speech and expression.  F However, attacks against individual posters, or groups of posters, are strongly discouraged.    ------------------------------  % Date: Sun, 10 Jun 2001 18:11:39 -0500e1 From: "David J. Dachtera" <djesys.nospam@fsi.net>n2 Subject: Re: [OT] Current Microsoft v DOJ status ?' Message-ID: <3B23FEAB.62E1ACC3@fsi.net>d   Paul Repacholi wrote:- > ? > "Brian Tillman" <tillman_brian@notnoone.notnohow.com> writes:s > G > > >   Funny how we hardly heard anything about "children in the back"oA > > >here in North America until airbags started killing them :-}B > C > > Not true.  Long before airbags were invented, everyone knew theo= > > safest place for a child was the middle of the back seat.t > G > Unrestrained??? If so, then that is the worst possible place. It neare5 > garentees they will go out through the windscreen! n  H Well, I dunno. As I recall, bench seats and split-bench seats (in 2-doorF models) were more the rule than the exception back then. The kid would= more likely end up into the back of the seat, I should think.    --   David J. Dachteran dba DJE Systemsh http://www.djesys.com/  : Unofficial Affordable OpenVMS Home Page and Message Board: http://www.djesys.com/vms/soho/s  F This *IS* an OpenVMS-related newsgroup. So, a certain bias in postings is to be expected.  @ Feel free to exercise your rights of free speech and expression.  F However, attacks against individual posters, or groups of posters, are strongly discouraged.t   ------------------------------    Date: 10 Jun 2001 19:30:39 -07001 From: nothome@spammers.are.scum (Malcolm Dunnett) 2 Subject: Re: [OT] Current Microsoft v DOJ status ?, Message-ID: <OIA8lyQuwqTh@malvm5.mala.bc.ca>  ( In article <3B23FC52.37465150@fsi.net>, 6    "David J. Dachtera" <djesys.nospam@fsi.net> writes:   > Malcolm Dunnett wrote: >> e* >> In article <3B227F8B.80C07C09@fsi.net>,: >>     "David J. Dachtera" <djesys.nospam@fsi.net> writes: >> >> L >> >> And did that car get better or worse mileage per gallon than a current >> >> day 4WD SUV? >> >- >> > 302ci V8 2bbl carb., normally aspirated.  >> x@ >>    Same motor as my 96 Explorer has, same gas mileage too ;-) > J > Really? Did Ford revive the 302? I thought they killed it some years agoH > in favor of a port-injected 270-something... (302 is just a 289 with a > larger bore, AFAIK). > H     I don't know if they're still making the 302, but they were in 96. IF think it was popular in pickup trucks and I often see 5 litre MustangsF (which is really the 302 ). I've also seen Mustangs labelled 4.7 litre: which I suppose is the 270- something engine you refer to.   ------------------------------   End of INFO-VAX 2001.321 ************************