INFO-VAX Thu, 23 Oct 2008 Volume 2008 : Issue 572 Contents: Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Can I get a basic compiler without a license? Re: Disabling the F6 interrupt function Re: Disabling the F6 interrupt function Re: Disabling the F6 interrupt function Re: Enhancing DCL, was: Re: How do I add 2 letters to a long Re: OT: Shuttle Columbia Disaster Re: PALCode problem Re: Selective record extraction/copy? Re: Selective record extraction/copy? Re: Selective record extraction/copy? Re: Selective record extraction/copy? Re: Selective record extraction/copy? Re: Selective record extraction/copy? Re: Trying to buy VMS licenses Re: Trying to buy VMS licenses Re: Trying to buy VMS licenses Re: Who is left at VMS engineering ? Re: Who is left at VMS engineering ? Re: Who is left at VMS engineering ? Re: Who is left at VMS engineering ? Re: Who is left at VMS engineering ? ---------------------------------------------------------------------- Date: Wed, 22 Oct 2008 14:10:12 -0400 From: "Syltrem" Subject: Re: Can I get a basic compiler without a license? Message-ID: "Nolan Hamilton" wrote in message news:c74ccfda-179e-47fe-994e-2fb4abe0b96d@2g2000hsn.googlegroups.com... >I dont want to spend 50 dollars a year for Connect/Encompass > membership for a hobbyist license. I really just need a basic > compiler and possibly DECwindows. Any Ideas? If 50$ is too much for good and reliable software, then you probably don't need it. A lot of work was put in to create those softwares. Theyt can't be free. It's lucky you can have an hobbyist license to use them, already. Syltrem ------------------------------ Date: Wed, 22 Oct 2008 14:28:06 -0400 From: JF Mezei Subject: Re: Can I get a basic compiler without a license? Message-ID: <48ff71b4$0$9637$c3e8da3@news.astraweb.com> Nolan Hamilton wrote: > I dont want to spend 50 dollars a year for Connect/Encompass > membership for a hobbyist license. I really just need a basic > compiler and possibly DECwindows. Any Ideas? YOu are posting from an "encompasserve" (is that eisner ?) host. Wouldn't that imply you already have a decus membership number ? Also, once you have your licences, I have read that that membership number will continue to be usable "forever" within the hobbysist system. For instance, I have my original DECUS membership number, complete with the DEC country code before it (Canada was 078 !), and despite those numbers no longer being issued by the organisation formerly known as Decus Canada, I have my yearly renewalls allowed with that number. ------------------------------ Date: Wed, 22 Oct 2008 11:34:05 -0700 (PDT) From: IanMiller Subject: Re: Can I get a basic compiler without a license? Message-ID: <2808860d-7b9a-4f24-bb04-7194f26decec@u57g2000hsf.googlegroups.com> On Oct 22, 5:04=A0pm, Nolan Hamilton wrote: > I dont want to spend 50 dollars a year for Connect/Encompass > membership for a hobbyist license. =A0I really just need a basic > compiler and possibly DECwindows. =A0Any Ideas? What do you want the compiler for - is it hobbyist use? ------------------------------ Date: Wed, 22 Oct 2008 11:36:10 -0700 (PDT) From: H Vlems Subject: Re: Can I get a basic compiler without a license? Message-ID: On 22 okt, 20:28, JF Mezei wrote: > Nolan Hamilton wrote: > > I dont want to spend 50 dollars a year for Connect/Encompass > > membership for a hobbyist license. =A0I really just need a basic > > compiler and possibly DECwindows. =A0Any Ideas? > > YOu are posting from an "encompasserve" (is that eisner ?) host. > Wouldn't that imply you already have a decus membership number ? > > Also, once you have your licences, I have read that that membership > number will continue to be usable "forever" within the hobbysist system. > > For instance, I have my original DECUS membership number, complete with > the DEC country code before it (Canada was 078 !), and despite those > numbers no longer being issued by the organisation formerly known as > Decus Canada, I have my yearly renewalls allowed with that number. JF, I still have my original DECUS Holland membership card. Would that still work too you think? Hans ------------------------------ Date: Wed, 22 Oct 2008 14:54:45 -0400 From: JF Mezei Subject: Re: Can I get a basic compiler without a license? Message-ID: <034acbec$0$2169$c3e8da3@news.astraweb.com> H Vlems wrote: > JF, I still have my original DECUS Holland membership card. Would that > still work too you think? My gut reaction is: give t a try. My number is entered as 078xxxxxx (with 078 being the country code for Canada, not sure what the DEC country code for the netherlands are. I think once a number was loaded in his database, it remains there. So if DECUS Holland sent Montagar their database, it is likely it is still there. ------------------------------ Date: Wed, 22 Oct 2008 12:26:13 -0700 (PDT) From: PR Subject: Re: Can I get a basic compiler without a license? Message-ID: <9409f289-aacc-4d9e-a8b3-d25284f22b99@64g2000hsu.googlegroups.com> On Oct 22, 11:04=A0am, Nolan Hamilton wrote: > I dont want to spend 50 dollars a year for Connect/Encompass > membership for a hobbyist license. =A0I really just need a basic > compiler and possibly DECwindows. =A0Any Ideas? Well, you could always call HP and just buy them I suppose. That would be just a one time cost I think. Whatever in the world are you doing that $50 is too expensive? -Paul ------------------------------ Date: Wed, 22 Oct 2008 15:43:34 -0400 From: "Richard B. Gilbert" Subject: Re: Can I get a basic compiler without a license? Message-ID: Nolan Hamilton wrote: > I dont want to spend 50 dollars a year for Connect/Encompass > membership for a hobbyist license. I really just need a basic > compiler and possibly DECwindows. Any Ideas? Not that I know of! You can get cheap compilers/licenses for some platforms but VMS compilers and licenses are generally not cheap. You want cheap? Try Windoze! Even that is far from free but it may be cheaper than for VMS. If you don't mind developing in C and Unix, Solaris and its development tools are available free of charge! Sun decided several years ago to make the O/S and development tools available for free. The idea was to encourage people to develop software for Sun platforms. Sun charges for hardware, service, and support. The hardware is relatively cheap if you don't mind buying older hardware on the used equipment market. I picked up three Sun Ultra 10 workstations with "Creator 3D" graphics for under $100 US each. Newer and faster hardware costs more! If you are a business and are developing software to run on VMS and will be offering it for sale, HP has a program that allows you to obtain hardware and licenses at a discount. I'm not familiar with the details but I expect that there are one or two people here who might be able to bring up to speed on it. ------------------------------ Date: Wed, 22 Oct 2008 13:03:16 -0700 (PDT) From: johnwallace4@yahoo.co.uk Subject: Re: Can I get a basic compiler without a license? Message-ID: <98eb3227-9060-44b4-83ff-328c288d4000@f77g2000hsf.googlegroups.com> On Oct 22, 7:10 pm, "Syltrem" wrote: > "Nolan Hamilton" wrote in message > > news:c74ccfda-179e-47fe-994e-2fb4abe0b96d@2g2000hsn.googlegroups.com... > > >I dont want to spend 50 dollars a year for Connect/Encompass > > membership for a hobbyist license. I really just need a basic > > compiler and possibly DECwindows. Any Ideas? > > If 50$ is too much for good and reliable software, then you probably don't > need it. > A lot of work was put in to create those softwares. Theyt can't be free. > It's lucky you can have an hobbyist license to use them, already. > > Syltrem $50 (or local equivalent) is not too much for good and reliable software, especially if the $50 benefits the developers, owners, supporters, etc of the software. So, in this particular instance, care to tell folks how much of that $50 goes anywhere outside the user group, and exactly why the user group deserve their share? [Seen many reps from the user groups here lately, for example?] ------------------------------ Date: Wed, 22 Oct 2008 22:49:27 +0100 From: Mark McIntyre Subject: Re: Can I get a basic compiler without a license? Message-ID: Nolan Hamilton wrote: > I dont want to spend 50 dollars a year for Connect/Encompass > membership for a hobbyist license. Then don't use VMS... seriously. And think yourself lucky, as far as Encompass are concerned the dollar/pound exchange rate is still 1:1. > I really just need a basic > compiler and possibly DECwindows. Any Ideas? You presumably also need VMS, networking support, toolsets.... ------------------------------ Date: Wed, 22 Oct 2008 22:54:18 +0100 From: Mark McIntyre Subject: Re: Can I get a basic compiler without a license? Message-ID: Richard B. Gilbert wrote: > > You want cheap? Try Windoze! Even that is far from free but it may be > cheaper than for VMS. huh? For VMS fifty bucks buys you the OS and the compiler license. According to Amazon, one full windows license would pay for five or more years of VMS licensing. Given that MS want you to upgrade every 2-4 years, that seems a bargain to me. And then there's the compiler license cost. ------------------------------ Date: Wed, 22 Oct 2008 22:25:32 GMT From: =?ISO-8859-1?Q?Jan-Erik_S=F6derholm?= Subject: Re: Can I get a basic compiler without a license? Message-ID: H Vlems wrote: > On 22 okt, 20:28, JF Mezei wrote: >> Nolan Hamilton wrote: >>> I dont want to spend 50 dollars a year for Connect/Encompass >>> membership for a hobbyist license. I really just need a basic >>> compiler and possibly DECwindows. Any Ideas? >> YOu are posting from an "encompasserve" (is that eisner ?) host. >> Wouldn't that imply you already have a decus membership number ? >> >> Also, once you have your licences, I have read that that membership >> number will continue to be usable "forever" within the hobbysist system. >> >> For instance, I have my original DECUS membership number, complete with >> the DEC country code before it (Canada was 078 !), and despite those >> numbers no longer being issued by the organisation formerly known as >> Decus Canada, I have my yearly renewalls allowed with that number. > > ..., I still have my original DECUS Holland membership card. Would that > still work too you think? > Hans I use my 070xxxxxx Swedish DECUS number once a year to get new licenses. I still have the member card issued sometimes mid-80 I guess. I remember the first time when the hobbyist licenses where new, I had to ask my local organisation to send their member file to whoever managed the system at that time, after that it has always worked. Jan-Erik. Life-time DECUS member... ------------------------------ Date: Wed, 22 Oct 2008 20:06:16 -0400 From: "Richard B. Gilbert" Subject: Re: Can I get a basic compiler without a license? Message-ID: Mark McIntyre wrote: > Richard B. Gilbert wrote: >> >> You want cheap? Try Windoze! Even that is far from free but it may >> be cheaper than for VMS. > > huh? For VMS fifty bucks buys you the OS and the compiler license. > That's the hobbyist price! Right? How about the price for business use; e.g. writing your own application(s)? There's a big price break if you are writing software for sale to VMS users but how many people are doing that? ------------------------------ Date: Wed, 22 Oct 2008 18:03:01 GMT From: VAXman- @SendSpamHere.ORG Subject: Re: Disabling the F6 interrupt function Message-ID: <00A817D7.5C2DAABA@SendSpamHere.ORG> In article <829f6820-1ba5-4787-86d9-36a149df4d68@d45g2000hsc.googlegroups.com>, tadamsmar writes: >On Oct 22, 10:42=A0am, tadamsmar wrote: >> On Oct 22, 9:57=A0am, VAXman- =A0@SendSpamHere.ORG wrote: >> >> >> >> >> >> > In article ps.com>, tadamsmar writes: >> >> > >On Oct 22, 8:28=3DA0am, tadamsmar wrote: >> > >> On Oct 21, 4:58=3DA0pm, koeh...@eisner.nospam.encompasserve.org (Bob >> >> > >> Koehler) wrote: >> > >> > In article <6e8b50bf-00b8-4085-aaf6-0c1d382b3...@u65g2000hsc.googl= >egrou=3D >> > >ps.com>, tadamsmar writes: >> >> > >> > > This solution is useful but not 100% reliable. =3DA0Only one AST= > is >> > >> > > established and it has to run to re-establish another. =3DA0If y= >ou jam =3D >> > >the >> > >> > > F6 key down then I find that the F6 key eventually wins the race= > with >> > >> > > the re-establishment of the AST and causes an interrupt. >> >> > >> > =3DA0 =3DA0Can't the AST re-establish itself before exiting? >> >> > >> Yep, and mine does. >> >> > >> But the program would need to re-establish the AST before any other >> > >> code was executed, like the code that delivers the next F6 key >> > >> interrupt. >> >> > >> My theory is that next F6 key interrupt gets processed be for the AS= >T >> > >> is re-established. =3DA0 I guess I am assuming that an AST can be >> > >> interrupted by the next F6 Key interrupt. =3DA0Is that impossible? >> >> > >> Perhaps the AST can be run at some kind of higher level to ensure it >> > >> is not interrupted. =3DA0I have not had to deal with this kind of st= >uff in >> > >> a long time, there are cobwebs on what little I know about it. >> >> > >Higher mode, not higher level. =A0Maybe I need to run the AST at a >> > >higher mode than the default mode? >> >> > Simple... >> >> > =A0 =A0 =A0 =A0 .PSECT =A0DATA,WRT,NOEXE,5 >> > CTRL_C_AST: >> > =A0 =A0 =A0 =A0 .LONG =A0 3 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0= > =A0 =A0 =A0 =A0 ; 3 arguments >> > =A0 =A0 =A0 =A0 .ADDRESS your_ctrl_c_ast_routine =A0 =A0 =A0 =A0; DCLAS= >T$_ASTADR >> > =A0 =A0 =A0 =A0 .LONG =A0 0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0= > =A0 =A0 =A0 =A0 ; DCLAST$_ASTPRM >> > =A0 =A0 =A0 =A0 .LONG =A0 0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0= > =A0 =A0 =A0 =A0 ; DCLAST$_ACMODE >> >> > =A0 =A0 =A0 =A0 .PSECT =A0CODE,NOWRT,EXE,5 >> > =A0 =A0 =A0 =A0 .ENTRY =A0some_name,0 >> >> > =A0 =A0 =A0 =A0 $CMEXEC_S =A0 =A0 =A0 ROUTIN=3DSYS$DCLAST,- >> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ARGLST=3DCTRL_C_AST >> >> > =A0 =A0 =A0 =A0 RET >> > =A0 =A0 =A0 =A0 .END =A0 =A0 >> >> > This will queue the AST for execution in EXECUTIVE mode. =A0You will >> > need CMEXEC privilege to test this out. =A0If this works, you'll need >> > to implement a user written system service or install your program >> > with the CMEXEC privilege to allow this to function for the average >> > non-privileged user. >> >> > -- >> > VAXman- A Bored Certified VMS Kernel Mode Hacker =A0 =A0 =A0VAXman(at)T= >MESIS(dot)COM >> >> > ... pejorative statements of opinion are entitled to constitutional pro= >tection >> > no matter how extreme, vituperous, or vigorously expressed they may be.= > (NJSC) >> >> > Copr. 2008 Brian Schenkenberger. =A0Publication of _this_ usenet articl= >e outside >> > of usenet _must_ include its contents in its entirety including this co= >pyright >> > notice, disclaimer and quotations.- Hide quoted text - >> >> > - Show quoted text - >> >> So, in what context do I execute this function? =A0Looks like it just >> queues the AST. =A0But, I need to specify the AST in the prevously >> referenced SYS$QIO so it will queue when the F6 is pressed.- Hide quoted = >text - >> >> - Show quoted text - > >What is "your_ctrl_c_ast_routine"? > >Is it the ast that is suppose to run when ctrl/c is hit? I don't see >how that would address the issue. > >However if I run the routine that executes the QIO in executive mode, >and I specify in the QIO call that the >AST is to be run in executive mode then that should work. > >That is, I need to run this (enanulirp) in executive mode: > > integer*4 function enanulirp () > implicit none > >C ONE-LINE DESCRIPTION > >CT Enable null AST for CTRL/C (ENANULIRP) > >C FUNCTION (transformation on inputs to outputs) > >CF The ENANULIRP procedure disables the interrupt >CF caused by CTRL/C by replacing it with an AST that >CF does nothing except re-establish the AST. > >C DESIGN CONSIDERATIONS > >CD ENANULIRP is not 100% successful if CTRL/C or the F6 key is >CD held down, since the next interrupt may arrive before the >CD AST is re-established. > >CD ENANULIRP disables the CTRL/C that is delivered by the F6 key >CD when line editing is enabled for the terminal. >CD SMG$SET_OUT_OF_BAND_ASTS fails to do this. > >CD ENANULIRP does not interfere with SMG$SET_OUT_OF_BAND_ASTS; >any >CD CTRL/C defined by SMG$SET_OUT_OF_BAND_ASTS will still run. > >C*********************************************************************** > >C INCLUDE FILES > > INCLUDE '($SYSSRVNAM)' ! System >services > INCLUDE '($IODEF)' ! $QIO >function codes > include '($psldef)' !PSL symbolic names >C PARAMETER DECLARATIONS > >C ARGUMENT DECLARATIONS > >C VARIABLE DECLARATIONS > > integer*4 iosb(2) !I/O Status block > integer*2 chn !Channel > save chn > integer*4 sts !Completion status > >C SUBPROGRAM DECLARATIONS > >C EXTERNAL DECLARATIONS > > external nulirpast > external ss$_normal > >C PROGRAM LOGIC > >CL.le; Initialize the status variable. > > sts =3D %loc(ss$_normal) > >CL.le; Enable AST so that NULIRPAST is called when Ctrl/C is pressed. > > if (chn .eq. 0) then > sts =3D sys$assign ('tt:', chn,,,) > end if > > if (sts) then > sts =3D sys$qiow >(, ! (3) > 1 %val(chn), > 1 %val(IO$_SETMODE .or. IO$M_CTRLCAST), > 1 iosb,,, > 1 nulirpast,,%val(psl$c_exec),,,) > end if > >CL.le; Set the return status. > > enanulirp =3D sts > > return > end > >And that will cause nulirpast to be called: > > subroutine nulirpast () > implicit none > >C INCLUDE FILES > >C PARAMETER DECLARATIONS > >C ARGUMENT DECLARATIONS > >C VARIABLE DECLARATIONS > > integer*4 sts !Completion status > >C SUBPROGRAM DECLARATIONS > > integer*4 enanulirp > >C EXTERNAL DECLARATIONS > > external ss$_normal > >C PROGRAM LOGIC > >CL.le; Initialize the status variable. > > sts =3D %loc(ss$_normal) > >CL.le; Re-establish the AST > > sts =3D enanulirp() > if (.not. sts) then > call lib$signal(%val(sts)) > end if > > return > end OK. You can't pass PSL$C_EXEC as the AST mode and expect it to fire off in EXECUTIVE mode if you are calling the $QIO from USER mode. You need to invoke the $QIO from EXECUTIVE mode. The CTRL-C AST is a one-timer! You need to reenable it in the AST. You can, since your AST will be in EXECUTIVE mode, invoke the $QIO there to reenable the AST. I suspected that you ALREADY had this AST routine coded in this fashion and suggest- ed that you use the $DCLAST to invoke the AST the first time out. You also have NOT specified an event flag. Thus, you get the default of EFN=0. This can cause all sorts of strange issues for other bits of your code waiting on event flags. Include ($EFNDEF) and pass EFN$C_ENF in the $QIO (first arg) by %VAL. I'd answer sooner if I didn't have to read quoted-pukeable Fortran code. -- VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)COM ... pejorative statements of opinion are entitled to constitutional protection no matter how extreme, vituperous, or vigorously expressed they may be. (NJSC) Copr. 2008 Brian Schenkenberger. Publication of _this_ usenet article outside of usenet _must_ include its contents in its entirety including this copyright notice, disclaimer and quotations. ------------------------------ Date: Wed, 22 Oct 2008 12:21:44 -0700 (PDT) From: tadamsmar Subject: Re: Disabling the F6 interrupt function Message-ID: On Oct 22, 2:03=A0pm, VAXman- @SendSpamHere.ORG wrote: > In article <829f6820-1ba5-4787-86d9-36a149df4...@d45g2000hsc.googlegroups= .com>, tadamsmar writes: > > > > > > >On Oct 22, 10:42=3DA0am, tadamsmar wrote: > >> On Oct 22, 9:57=3DA0am, VAXman- =3D...@SendSpamHere.ORG wrote: > > >> > In article >ps.com>, tadamsmar writes: > > >> > >On Oct 22, 8:28=3D3DA0am, tadamsmar wrote: > >> > >> On Oct 21, 4:58=3D3DA0pm, koeh...@eisner.nospam.encompasserve.org= (Bob > > >> > >> Koehler) wrote: > >> > >> > In article <6e8b50bf-00b8-4085-aaf6-0c1d382b3...@u65g2000hsc.go= ogl=3D > >egrou=3D3D > >> > >ps.com>, tadamsmar writes: > > >> > >> > > This solution is useful but not 100% reliable. =3D3DA0Only on= e AST=3D > > is > >> > >> > > established and it has to run to re-establish another. =3D3DA= 0If y=3D > >ou jam =3D3D > >> > >the > >> > >> > > F6 key down then I find that the F6 key eventually wins the r= ace=3D > > with > >> > >> > > the re-establishment of the AST and causes an interrupt. > > >> > >> > =3D3DA0 =3D3DA0Can't the AST re-establish itself before exiting= ? > > >> > >> Yep, and mine does. > > >> > >> But the program would need to re-establish the AST before any oth= er > >> > >> code was executed, like the code that delivers the next F6 key > >> > >> interrupt. > > >> > >> My theory is that next F6 key interrupt gets processed be for the= AS=3D > >T > >> > >> is re-established. =3D3DA0 I guess I am assuming that an AST can = be > >> > >> interrupted by the next F6 Key interrupt. =3D3DA0Is that impossib= le? > > >> > >> Perhaps the AST can be run at some kind of higher level to ensure= it > >> > >> is not interrupted. =3D3DA0I have not had to deal with this kind = of st=3D > >uff in > >> > >> a long time, there are cobwebs on what little I know about it. > > >> > >Higher mode, not higher level. =3DA0Maybe I need to run the AST at = a > >> > >higher mode than the default mode? > > >> > Simple... > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .PSECT =3DA0DATA,WRT,NOEXE,5 > >> > CTRL_C_AST: > >> > =3DA0 =3DA0 =3DA0 =3DA0 .LONG =3DA0 3 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 = =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0=3D > > =3DA0 =3DA0 =3DA0 =3DA0 ; 3 arguments > >> > =3DA0 =3DA0 =3DA0 =3DA0 .ADDRESS your_ctrl_c_ast_routine =3DA0 =3DA0= =3DA0 =3DA0; DCLAS=3D > >T$_ASTADR > >> > =3DA0 =3DA0 =3DA0 =3DA0 .LONG =3DA0 0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 = =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0=3D > > =3DA0 =3DA0 =3DA0 =3DA0 ; DCLAST$_ASTPRM > >> > =3DA0 =3DA0 =3DA0 =3DA0 .LONG =3DA0 0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 = =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0=3D > > =3DA0 =3DA0 =3DA0 =3DA0 ; DCLAST$_ACMODE > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .PSECT =3DA0CODE,NOWRT,EXE,5 > >> > =3DA0 =3DA0 =3DA0 =3DA0 .ENTRY =3DA0some_name,0 > > >> > =3DA0 =3DA0 =3DA0 =3DA0 $CMEXEC_S =3DA0 =3DA0 =3DA0 ROUTIN=3D3DSYS$D= CLAST,- > >> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 = =3DA0 ARGLST=3D3DCTRL_C_AST > > >> > =3DA0 =3DA0 =3DA0 =3DA0 RET > >> > =3DA0 =3DA0 =3DA0 =3DA0 .END =3DA0 =3DA0 > > >> > This will queue the AST for execution in EXECUTIVE mode. =3DA0You wi= ll > >> > need CMEXEC privilege to test this out. =3DA0If this works, you'll n= eed > >> > to implement a user written system service or install your program > >> > with the CMEXEC privilege to allow this to function for the average > >> > non-privileged user. > > >> > -- > >> > VAXman- A Bored Certified VMS Kernel Mode Hacker =3DA0 =3DA0 =3DA0VA= Xman(at)T=3D > >MESIS(dot)COM > > >> > ... pejorative statements of opinion are entitled to constitutional = pro=3D > >tection > >> > no matter how extreme, vituperous, or vigorously expressed they may = be.=3D > > (NJSC) > > >> > Copr. 2008 Brian Schenkenberger. =3DA0Publication of _this_ usenet a= rticl=3D > >e outside > >> > of usenet _must_ include its contents in its entirety including this= co=3D > >pyright > >> > notice, disclaimer and quotations.- Hide quoted text - > > >> > - Show quoted text - > > >> So, in what context do I execute this function? =3DA0Looks like it jus= t > >> queues the AST. =3DA0But, I need to specify the AST in the prevously > >> referenced SYS$QIO so it will queue when the F6 is pressed.- Hide quot= ed =3D > >text - > > >> - Show quoted text - > > >What is "your_ctrl_c_ast_routine"? > > >Is it the ast that is suppose to run when ctrl/c is hit? =A0I don't see > >how that would address the issue. > > >However if I run the routine that executes the QIO in executive mode, > >and I specify in the QIO call that the > >AST is to be run in executive mode then that should work. > > >That is, I need to run this (enanulirp) in executive mode: > > > =A0 =A0 =A0 =A0integer*4 function enanulirp () > > =A0 =A0 =A0 =A0implicit none > > >C =A0 =A0 =A0 ONE-LINE DESCRIPTION > > >CT =A0 =A0 =A0Enable null AST for CTRL/C (ENANULIRP) > > >C =A0 =A0 =A0 FUNCTION (transformation on inputs to outputs) > > >CF =A0 =A0 =A0 The ENANULIRP procedure disables the interrupt > >CF =A0 =A0 =A0caused by CTRL/C by replacing it with an AST that > >CF =A0 =A0 =A0does nothing except re-establish the AST. > > >C =A0 =A0 =A0 DESIGN CONSIDERATIONS > > >CD =A0 =A0 =A0ENANULIRP is not 100% successful if CTRL/C or the F6 key i= s > >CD =A0 =A0 =A0held down, since the next interrupt may arrive before the > >CD =A0 =A0 =A0AST is re-established. > > >CD =A0 =A0 =A0ENANULIRP disables the CTRL/C that is delivered by the F6 = key > >CD =A0 =A0 =A0when line editing is enabled for the terminal. > >CD =A0 =A0 =A0SMG$SET_OUT_OF_BAND_ASTS fails to do this. > > >CD =A0 =A0 =A0ENANULIRP does not interfere with SMG$SET_OUT_OF_BAND_ASTS= ; > >any > >CD =A0 =A0 =A0CTRL/C defined by SMG$SET_OUT_OF_BAND_ASTS will still run. > > >C*********************************************************************** > > >C =A0 =A0 =A0 INCLUDE FILES > > > =A0 =A0 =A0 =A0INCLUDE '($SYSSRVNAM)' =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 =A0 =A0! System > >services > > =A0 =A0 =A0 =A0INCLUDE '($IODEF)' =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 =A0 =A0 =A0! $QIO > >function codes > > =A0 =A0 =A0 =A0include '($psldef)' =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 !PSL symbolic names > >C =A0 =A0 =A0 PARAMETER DECLARATIONS > > >C =A0 =A0 =A0 ARGUMENT DECLARATIONS > > >C =A0 =A0 =A0 VARIABLE DECLARATIONS > > > =A0 =A0 =A0 =A0integer*4 =A0 =A0 =A0 iosb(2) =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 !I/O Status block > > =A0 =A0 =A0 =A0integer*2 =A0 =A0 =A0 chn =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 !Channel > > =A0 =A0 =A0 =A0save chn > > =A0 =A0 =A0 =A0integer*4 =A0 =A0 =A0 sts =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 !Completion status > > >C =A0 =A0 =A0 SUBPROGRAM DECLARATIONS > > >C =A0 =A0 =A0 EXTERNAL DECLARATIONS > > > =A0 =A0 =A0 =A0external =A0 =A0 =A0 =A0nulirpast > > =A0 =A0 =A0 =A0external =A0 =A0 =A0 =A0ss$_normal > > >C =A0 =A0 =A0 PROGRAM LOGIC > > >CL.le; =A0Initialize the status variable. > > > =A0 =A0 =A0 =A0sts =3D3D %loc(ss$_normal) > > >CL.le; =A0Enable AST so that NULIRPAST is called when Ctrl/C is pressed. > > > =A0 =A0 =A0 =A0if (chn .eq. 0) then > > =A0 =A0 =A0 =A0 sts =3D3D sys$assign ('tt:', chn,,,) > > =A0 =A0 =A0 =A0end if > > > =A0 =A0 =A0 =A0if (sts) then > > =A0 =A0 =A0 =A0 sts =3D3D sys$qiow > >(, =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 =A0 =A0 =A0! =A0 =A0 =A0 =A0(3) > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 %val(chn), > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 %val(IO$_S= ETMODE .or. IO$M_CTRLCAST), > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 iosb,,, > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 nulirpast,= ,%val(psl$c_exec),,,) > > =A0 =A0 =A0 =A0end if > > >CL.le; =A0Set the return status. > > > =A0 =A0 =A0 =A0enanulirp =3D3D sts > > > =A0 =A0 =A0 =A0return > > =A0 =A0 =A0 =A0end > > >And that will cause nulirpast to be called: > > > =A0 =A0 =A0 =A0subroutine nulirpast () > > =A0 =A0 =A0 =A0implicit none > > >C =A0 =A0 =A0 INCLUDE FILES > > >C =A0 =A0 =A0 PARAMETER DECLARATIONS > > >C =A0 =A0 =A0 ARGUMENT DECLARATIONS > > >C =A0 =A0 =A0 VARIABLE DECLARATIONS > > > =A0 =A0 =A0 =A0integer*4 =A0 =A0 =A0 sts =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 !Completion status > > >C =A0 =A0 =A0 SUBPROGRAM DECLARATIONS > > > =A0 =A0 =A0 =A0integer*4 enanulirp > > >C =A0 =A0 =A0 EXTERNAL DECLARATIONS > > > =A0 =A0 =A0 =A0external =A0 =A0 =A0 =A0ss$_normal > > >C =A0 =A0 =A0 PROGRAM LOGIC > > >CL.le; =A0Initialize the status variable. > > > =A0 =A0 =A0 =A0sts =3D3D %loc(ss$_normal) > > >CL.le; =A0Re-establish the AST > > > =A0 =A0 =A0 =A0sts =3D3D enanulirp() > > =A0 =A0 =A0 =A0if (.not. sts) then > > =A0 =A0 =A0 =A0 =A0call lib$signal(%val(sts)) > > =A0 =A0 =A0 =A0end if > > > =A0 =A0 =A0 =A0return > > =A0 =A0 =A0 =A0end > > OK. =A0You can't pass PSL$C_EXEC as the AST mode and expect it to fire of= f > in EXECUTIVE mode if you are calling the $QIO from USER mode. =A0You need > to invoke the $QIO from EXECUTIVE mode. =A0The CTRL-C AST is a one-timer! > You need to reenable it in the AST. =A0You can, since your AST will be in > EXECUTIVE mode, invoke the $QIO there to reenable the AST. =A0I suspected > that you ALREADY had this AST routine coded in this fashion and suggest- > ed that you use the $DCLAST to invoke the AST the first time out. > > You also have NOT specified an event flag. =A0Thus, you get the default o= f > EFN=3D0. =A0This can cause all sorts of strange issues for other bits of = your > code waiting on event flags. =A0Include ($EFNDEF) and pass EFN$C_ENF in t= he > $QIO (first arg) by %VAL. > > I'd answer sooner if I didn't have to read quoted-pukeable Fortran code. > > -- > VAXman- A Bored Certified VMS Kernel Mode Hacker =A0 =A0 =A0VAXman(at)TME= SIS(dot)COM > > ... pejorative statements of opinion are entitled to constitutional prote= ction > no matter how extreme, vituperous, or vigorously expressed they may be. (= NJSC) > > Copr. 2008 Brian Schenkenberger. =A0Publication of _this_ usenet article = outside > of usenet _must_ include its contents in its entirety including this copy= right > notice, disclaimer and quotations.- Hide quoted text - > > - Show quoted text - That solution does not work, unless I made some kind of mistake. You can run the following test program and hold down the F6 key (when in Line Editing mode and the interrupts still gets through. After initialization, the program always runs in exec mode, but the interrupt still gets through if you hold down the F6 key. I did not specify exec mode in the qiow call, but I figure the ast runs at the mode of the caller of the qiow. Here are two test routines that can be compiled and linked into the test program: (1) SOME_NAME.MAR: .PSECT DATA,WRT,NOEXE,5 CTRL_C_AST: .LONG 3 ; 3 arguments .ADDRESS ENABLE_AST ; DCLAST$_ASTADR .LONG 0 ; DCLAST$_ASTPRM .LONG 0 ; DCLAST$_ACMODE .PSECT CODE,NOWRT,EXE,5 .ENTRY some_name,0 $CMEXEC_S ROUTIN=3DSYS$DCLAST,- ARGLST=3DCTRL_C_AST RET .END (2) CTRLC.FOR: The example from the VMS documentation modified to call SOME_NAME instead of ENABLE_AST. And, I put in the EFN you specified: ! Sample program to show enabling of an AST in Fortran ! ! The program uses a Ctrl/C AST to interrupt a work loop in the ! main program. ! PROGRAM CTRLC IMPLICIT NONE LOGICAL CTRLC_FLAG ! Set to TRUE when Ctrl/C is pressed INTEGER*2 CHANNEL ! Channel for terminal COMMON /AST_COM/ CTRLC_FLAG,CHANNEL VOLATILE CTRLC_FLAG ! Required because variable (1) ! can change at any time INTEGER ITERATIONS,I ! Do first-time initialization CHANNEL =3D 0 CTRLC_FLAG =3D .FALSE. !CALL ENABLE_AST CALL SOME_NAME ! Read iteration count 100 WRITE (*,'($,A)') ' Enter iteration count (0 to exit): ' READ (*,*) ITERATIONS DO I=3D1,ITERATIONS IF (CTRLC_FLAG) GOTO 200 ! Was Ctrl/C pressed? WRITE (*,*) 'Count is ',I CALL LIB$WAIT (2.0) ! Pause 2 seconds END DO IF (ITERATIONS .EQ. 0) GOTO 999 GOTO 100 ! Loop back 200 WRITE (*,*) 'Ctrl/C pressed' CTRLC_FLAG =3D .FALSE. GOTO 100 999 END ! Subroutine ENABLE_AST SUBROUTINE ENABLE_AST ! (2) IMPLICIT NONE INCLUDE '($EFNDEF)' INCLUDE '($SYSSRVNAM)' ! System services INCLUDE '($IODEF)' ! $QIO function codes LOGICAL CTRLC_FLAG VOLATILE CTRLC_FLAG ! (1) INTEGER*2 CHANNEL COMMON /AST_COM/ CTRLC_FLAG,CHANNEL EXTERNAL AST_ROUTINE INTEGER ASSIGN_STATUS, QIO_STATUS, IOSB(2) ! Assign channel if not already assigned IF (CHANNEL .EQ. 0) THEN ASSIGN_STATUS =3D SYS$ASSIGN ('TT:', CHANNEL,,,) IF (.NOT. ASSIGN_STATUS) CALL LIB$SIGNAL(%VAL(ASSIGN_STATUS)) END IF ! Enable AST so that AST_ROUTINE is called when Ctrl/C is pressed. QIO_STATUS =3D SYS$QIOW (%VAL(EFN $C_ENF), ! (3) 1 %VAL(CHANNEL), 1 %VAL(IO$_SETMODE .OR. IO$M_CTRLCAST), 1 IOSB,,, 1 AST_ROUTINE,,,,,) IF (.NOT. QIO_STATUS) CALL LIB$SIGNAL(%VAL(QIO_STATUS)) RETURN END ! Subroutine AST_ROUTINE SUBROUTINE AST_ROUTINE ! (4) IMPLICIT NONE LOGICAL CTRLC_FLAG VOLATILE CTRLC_FLAG ! (1) INTEGER*2 CHANNEL COMMON /AST_COM/ CTRLC_FLAG,CHANNEL ! Indicate that a CTRL/C has been pressed CTRLC_FLAG =3D .TRUE. ! Reenable the AST. This must be done by calling ENABLE_AST rather than ! doing it here as we would need a recursive reference to AST_ROUTINE, ! which is disallowed unless /RECURSIVE is used. CALL ENABLE_AST ! (5) RETURN END ------------------------------ Date: Wed, 22 Oct 2008 17:38:06 -0700 (PDT) From: tadamsmar Subject: Re: Disabling the F6 interrupt function Message-ID: <4d3f7bdf-4866-4ccd-89a8-90d08b91b242@79g2000hsk.googlegroups.com> On Oct 22, 3:21=A0pm, tadamsmar wrote: > On Oct 22, 2:03=A0pm, VAXman- =A0@SendSpamHere.ORG wrote: > > > > > > > In article <829f6820-1ba5-4787-86d9-36a149df4...@d45g2000hsc.googlegrou= ps.com>, tadamsmar writes: > > > >On Oct 22, 10:42=3DA0am, tadamsmar wrote: > > >> On Oct 22, 9:57=3DA0am, VAXman- =3D...@SendSpamHere.ORG wrote: > > > >> > In article > >ps.com>, tadamsmar writes: > > > >> > >On Oct 22, 8:28=3D3DA0am, tadamsmar wrote: > > >> > >> On Oct 21, 4:58=3D3DA0pm, koeh...@eisner.nospam.encompasserve.o= rg (Bob > > > >> > >> Koehler) wrote: > > >> > >> > In article <6e8b50bf-00b8-4085-aaf6-0c1d382b3...@u65g2000hsc.= googl=3D > > >egrou=3D3D > > >> > >ps.com>, tadamsmar writes: > > > >> > >> > > This solution is useful but not 100% reliable. =3D3DA0Only = one AST=3D > > > is > > >> > >> > > established and it has to run to re-establish another. =3D3= DA0If y=3D > > >ou jam =3D3D > > >> > >the > > >> > >> > > F6 key down then I find that the F6 key eventually wins the= race=3D > > > with > > >> > >> > > the re-establishment of the AST and causes an interrupt. > > > >> > >> > =3D3DA0 =3D3DA0Can't the AST re-establish itself before exiti= ng? > > > >> > >> Yep, and mine does. > > > >> > >> But the program would need to re-establish the AST before any o= ther > > >> > >> code was executed, like the code that delivers the next F6 key > > >> > >> interrupt. > > > >> > >> My theory is that next F6 key interrupt gets processed be for t= he AS=3D > > >T > > >> > >> is re-established. =3D3DA0 I guess I am assuming that an AST ca= n be > > >> > >> interrupted by the next F6 Key interrupt. =3D3DA0Is that imposs= ible? > > > >> > >> Perhaps the AST can be run at some kind of higher level to ensu= re it > > >> > >> is not interrupted. =3D3DA0I have not had to deal with this kin= d of st=3D > > >uff in > > >> > >> a long time, there are cobwebs on what little I know about it. > > > >> > >Higher mode, not higher level. =3DA0Maybe I need to run the AST a= t a > > >> > >higher mode than the default mode? > > > >> > Simple... > > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .PSECT =3DA0DATA,WRT,NOEXE,5 > > >> > CTRL_C_AST: > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .LONG =3DA0 3 =3DA0 =3DA0 =3DA0 =3DA0 =3DA= 0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0=3D > > > =3DA0 =3DA0 =3DA0 =3DA0 ; 3 arguments > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .ADDRESS your_ctrl_c_ast_routine =3DA0 =3D= A0 =3DA0 =3DA0; DCLAS=3D > > >T$_ASTADR > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .LONG =3DA0 0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA= 0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0=3D > > > =3DA0 =3DA0 =3DA0 =3DA0 ; DCLAST$_ASTPRM > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .LONG =3DA0 0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA= 0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0=3D > > > =3DA0 =3DA0 =3DA0 =3DA0 ; DCLAST$_ACMODE > > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .PSECT =3DA0CODE,NOWRT,EXE,5 > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .ENTRY =3DA0some_name,0 > > > >> > =3DA0 =3DA0 =3DA0 =3DA0 $CMEXEC_S =3DA0 =3DA0 =3DA0 ROUTIN=3D3DSYS= $DCLAST,- > > >> > =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 =3DA0 = =3DA0 ARGLST=3D3DCTRL_C_AST > > > >> > =3DA0 =3DA0 =3DA0 =3DA0 RET > > >> > =3DA0 =3DA0 =3DA0 =3DA0 .END =3DA0 =3DA0 > > > >> > This will queue the AST for execution in EXECUTIVE mode. =3DA0You = will > > >> > need CMEXEC privilege to test this out. =3DA0If this works, you'll= need > > >> > to implement a user written system service or install your program > > >> > with the CMEXEC privilege to allow this to function for the averag= e > > >> > non-privileged user. > > > >> > -- > > >> > VAXman- A Bored Certified VMS Kernel Mode Hacker =3DA0 =3DA0 =3DA0= VAXman(at)T=3D > > >MESIS(dot)COM > > > >> > ... pejorative statements of opinion are entitled to constitutiona= l pro=3D > > >tection > > >> > no matter how extreme, vituperous, or vigorously expressed they ma= y be.=3D > > > (NJSC) > > > >> > Copr. 2008 Brian Schenkenberger. =3DA0Publication of _this_ usenet= articl=3D > > >e outside > > >> > of usenet _must_ include its contents in its entirety including th= is co=3D > > >pyright > > >> > notice, disclaimer and quotations.- Hide quoted text - > > > >> > - Show quoted text - > > > >> So, in what context do I execute this function? =3DA0Looks like it j= ust > > >> queues the AST. =3DA0But, I need to specify the AST in the prevously > > >> referenced SYS$QIO so it will queue when the F6 is pressed.- Hide qu= oted =3D > > >text - > > > >> - Show quoted text - > > > >What is "your_ctrl_c_ast_routine"? > > > >Is it the ast that is suppose to run when ctrl/c is hit? =A0I don't se= e > > >how that would address the issue. > > > >However if I run the routine that executes the QIO in executive mode, > > >and I specify in the QIO call that the > > >AST is to be run in executive mode then that should work. > > > >That is, I need to run this (enanulirp) in executive mode: > > > > =A0 =A0 =A0 =A0integer*4 function enanulirp () > > > =A0 =A0 =A0 =A0implicit none > > > >C =A0 =A0 =A0 ONE-LINE DESCRIPTION > > > >CT =A0 =A0 =A0Enable null AST for CTRL/C (ENANULIRP) > > > >C =A0 =A0 =A0 FUNCTION (transformation on inputs to outputs) > > > >CF =A0 =A0 =A0 The ENANULIRP procedure disables the interrupt > > >CF =A0 =A0 =A0caused by CTRL/C by replacing it with an AST that > > >CF =A0 =A0 =A0does nothing except re-establish the AST. > > > >C =A0 =A0 =A0 DESIGN CONSIDERATIONS > > > >CD =A0 =A0 =A0ENANULIRP is not 100% successful if CTRL/C or the F6 key= is > > >CD =A0 =A0 =A0held down, since the next interrupt may arrive before th= e > > >CD =A0 =A0 =A0AST is re-established. > > > >CD =A0 =A0 =A0ENANULIRP disables the CTRL/C that is delivered by the F= 6 key > > >CD =A0 =A0 =A0when line editing is enabled for the terminal. > > >CD =A0 =A0 =A0SMG$SET_OUT_OF_BAND_ASTS fails to do this. > > > >CD =A0 =A0 =A0ENANULIRP does not interfere with SMG$SET_OUT_OF_BAND_AS= TS; > > >any > > >CD =A0 =A0 =A0CTRL/C defined by SMG$SET_OUT_OF_BAND_ASTS will still ru= n. > > > >C*********************************************************************= ** > > > >C =A0 =A0 =A0 INCLUDE FILES > > > > =A0 =A0 =A0 =A0INCLUDE '($SYSSRVNAM)' =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0= =A0 =A0 =A0 =A0 =A0! System > > >services > > > =A0 =A0 =A0 =A0INCLUDE '($IODEF)' =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0= =A0 =A0 =A0 =A0 =A0 =A0! $QIO > > >function codes > > > =A0 =A0 =A0 =A0include '($psldef)' =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 !PSL symbolic names > > >C =A0 =A0 =A0 PARAMETER DECLARATIONS > > > >C =A0 =A0 =A0 ARGUMENT DECLARATIONS > > > >C =A0 =A0 =A0 VARIABLE DECLARATIONS > > > > =A0 =A0 =A0 =A0integer*4 =A0 =A0 =A0 iosb(2) =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 !I/O Status block > > > =A0 =A0 =A0 =A0integer*2 =A0 =A0 =A0 chn =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 !Channel > > > =A0 =A0 =A0 =A0save chn > > > =A0 =A0 =A0 =A0integer*4 =A0 =A0 =A0 sts =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 !Completion status > > > >C =A0 =A0 =A0 SUBPROGRAM DECLARATIONS > > > >C =A0 =A0 =A0 EXTERNAL DECLARATIONS > > > > =A0 =A0 =A0 =A0external =A0 =A0 =A0 =A0nulirpast > > > =A0 =A0 =A0 =A0external =A0 =A0 =A0 =A0ss$_normal > > > >C =A0 =A0 =A0 PROGRAM LOGIC > > > >CL.le; =A0Initialize the status variable. > > > > =A0 =A0 =A0 =A0sts =3D3D %loc(ss$_normal) > > > >CL.le; =A0Enable AST so that NULIRPAST is called when Ctrl/C is presse= d. > > > > =A0 =A0 =A0 =A0if (chn .eq. 0) then > > > =A0 =A0 =A0 =A0 sts =3D3D sys$assign ('tt:', chn,,,) > > > =A0 =A0 =A0 =A0end if > > > > =A0 =A0 =A0 =A0if (sts) then > > > =A0 =A0 =A0 =A0 sts =3D3D sys$qiow > > >(, =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0= =A0 =A0 =A0 =A0 =A0 =A0! =A0 =A0 =A0 =A0(3) > > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 %val(chn= ), > > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 %val(IO$= _SETMODE .or. IO$M_CTRLCAST), > > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 iosb,,, > > > =A0 =A0 =A0 =A01 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 nulirpas= t,,%val(psl$c_exec),,,) > > > =A0 =A0 =A0 =A0end if > > > >CL.le; =A0Set the return status. > > > > =A0 =A0 =A0 =A0enanulirp =3D3D sts > > > > =A0 =A0 =A0 =A0return > > > =A0 =A0 =A0 =A0end > > > >And that will cause nulirpast to be called: > > > > =A0 =A0 =A0 =A0subroutine nulirpast () > > > =A0 =A0 =A0 =A0implicit none > > > >C =A0 =A0 =A0 INCLUDE FILES > > > >C =A0 =A0 =A0 PARAMETER DECLARATIONS > > > >C =A0 =A0 =A0 ARGUMENT DECLARATIONS > > > >C =A0 =A0 =A0 VARIABLE DECLARATIONS > > > > =A0 =A0 =A0 =A0integer*4 =A0 =A0 =A0 sts =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 =A0 !Completion status > > > >C =A0 =A0 =A0 SUBPROGRAM DECLARATIONS > > > > =A0 =A0 =A0 =A0integer*4 enanulirp > > > >C =A0 =A0 =A0 EXTERNAL DECLARATIONS > > > > =A0 =A0 =A0 =A0external =A0 =A0 =A0 =A0ss$_normal > > > >C =A0 =A0 =A0 PROGRAM LOGIC > > > >CL.le; =A0Initialize the status variable. > > > > =A0 =A0 =A0 =A0sts =3D3D %loc(ss$_normal) > > > >CL.le; =A0Re-establish the AST > > > > =A0 =A0 =A0 =A0sts =3D3D enanulirp() > > > =A0 =A0 =A0 =A0if (.not. sts) then > > > =A0 =A0 =A0 =A0 =A0call lib$signal(%val(sts)) > > > =A0 =A0 =A0 =A0end if > > > > =A0 =A0 =A0 =A0return > > > =A0 =A0 =A0 =A0end > > > OK. =A0You can't pass PSL$C_EXEC as the AST mode and expect it to fire = off > > in EXECUTIVE mode if you are calling the $QIO from USER mode. =A0You ne= ed > > to invoke the $QIO from EXECUTIVE mode. =A0The CTRL-C AST is a one-time= r! > > You need to reenable it in the AST. =A0You can, since your AST will be = in > > EXECUTIVE mode, invoke the $QIO there to reenable the AST. =A0I suspect= ed > > that you ALREADY had this AST routine coded in this fashion and suggest= - > > ed that you use the $DCLAST to invoke the AST the first time out. > > > You also have NOT specified an event flag. =A0Thus, you get the default= of > > EFN=3D0. =A0This can cause all sorts of strange issues for other bits o= f your > > code waiting on event flags. =A0Include ($EFNDEF) and pass EFN$C_ENF in= the > > $QIO (first arg) by %VAL. > > > I'd answer sooner if I didn't have to read quoted-pukeable Fortran code= . > > > -- > > VAXman- A Bored Certified VMS Kernel Mode Hacker =A0 =A0 =A0VAXman(at)T= MESIS(dot)COM > > > ... pejorative statements of opinion are entitled to constitutional pro= tection > > no matter how extreme, vituperous, or vigorously expressed they may be.= (NJSC) > > > Copr. 2008 Brian Schenkenberger. =A0Publication of _this_ usenet articl= e outside > > of usenet _must_ include its contents in its entirety including this co= pyright > > notice, disclaimer and quotations.- Hide quoted text - > > > - Show quoted text - > > That solution does not work, unless I made some kind of mistake. =A0You > can run the following test program and hold down the F6 key (when in > Line Editing mode and the interrupts still gets through. > Actually it probably does work (run the AST in exec mode as you intended), but it does not completely defeat Darth F6 Key. Looks like turning off Line Editing may be the only way to completely avoid these interrupts. ------------------------------ Date: Thu, 23 Oct 2008 01:23:06 GMT From: VAXman- @SendSpamHere.ORG Subject: Re: Enhancing DCL, was: Re: How do I add 2 letters to a long Message-ID: <00A81814.D6503BC3@SendSpamHere.ORG> Alan, I copied a file to your EISNER account default. It is called: GET_COMMAND_LINE_RECALL.COM It uses SYMBOL (which is installed on EISNER) and gets the DCL command line recall info similar to RECALL/ALL. This procedure shows how easy it is to get this using DCL. You can modify the procedure to do what you may want in addition to its accessing the recall buffer. -- VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)COM ... pejorative statements of opinion are entitled to constitutional protection no matter how extreme, vituperous, or vigorously expressed they may be. (NJSC) Copr. 2008 Brian Schenkenberger. Publication of _this_ usenet article outside of usenet _must_ include its contents in its entirety including this copyright notice, disclaimer and quotations. ------------------------------ Date: Wed, 22 Oct 2008 23:46:50 GMT From: John Santos Subject: Re: OT: Shuttle Columbia Disaster Message-ID: Bob Koehler wrote: > In article <04df5fe5-4eb0-4ed9-a64d-359ec8b937f8@d45g2000hsc.googlegroups.com>, Neil Rieck writes: > > >>NASA should have learned a few lessons from the 1986 Challenger >>disaster (listen to the engineers) but they didn't (listen to the >>engineers) and so the Space Shuttle Columbia was destroyed in 2003 >>because they didn't listen to the engineers. I'm a fan of the manned >>space program but NASA has morphed from an organization of "Scientists >>and Engineers" to an organization of "Politicians and Bureaucrats" >>with Dilbert as their mascot. > > > Back in the 1960's NASA was the world's premier engineering > organisation, and did science on the side. Burned up 20% of the US > federal budget in the process. > NASA never came close to 20% of the Federal budget. 4% was the peak in 1966. > Now NASA is a huge beauracracy that does science and engineering on > the side. And manages to do it on 0.6 of 1% of the US federal > budget, with a little help from ESA, CSA, and sometimes the Russians. > I think this always happens with shrinking government programs. The bureaucrats keep their jobs but the people who actually do something get cut. > But since they just analysed and restored the Hubble Space Telescope > from broken hardware without being able to actually touch it, I think > they're not so bad to work for. > > Try getting Field Service to do that. > Have they fixed the DC Lo problem yet? Last I've seen was Monday, when one of the instruments shut itself down because of low voltage on a power supply (which apparently came up to full voltage shortly after the low-voltage timer went off), and then something caused the data handling computer to shut down. -- John Santos Evans Griffiths & Hart, Inc. 781-861-0670 ext 539 ------------------------------ Date: Thu, 23 Oct 2008 01:41:28 GMT From: John Santos Subject: Re: PALCode problem Message-ID: Bob Gezelter wrote: > On Oct 22, 1:54 am, che...@gmail.com wrote: > >>Dear users, >> >>I have just cloned our Openvms (v7.1) plus control software to a >>refurbished unit (Dec3000/300). After i booted up the server, the >>system prompted me the following message. >> >>"APB-W-PALREV >>PALCode rev 5.46 is below supported minimum of 5.48." >> >>I am not familiar with Openvms, i have searched over this group for >>help, it seems that it is something related to firmware update. But i >>haven't found the relevant instructions for the firmware update. I am >>very much appreciated if anyone can help me out on the firmware update >>matter. Thank you. > > > Concur. > > Emphasis on Colin's comment "latest firmware for the DEC 3000 (NOT THE > LATEST FIRMWARE CD)" [emphasis mine]. > > - Bob Gezelter, http://www.rlgsc.com BTW, the "-W-" in the message indicates it is a Warning, not an Error ("-E-") or a Fatal error ("-F-"), so the system should boot okay. I'm not sure what the latest firmware for the DEC 3000's is, but from a random assortment of firmware CD's near my desk, V5.4 and V5.8 both have firmware V7.0, and V6.5, 7.0 and 7.2 all point to the web site for the latest version. NB: the Palcode versions are sometimes the same as the firmware versions, but often are different. I think V7.0 is the most recent firmware version for 3000s. In any case, my DEC 3000-300 show cpu/full shows it has PALCODE - Revision Code..: 5.56-01 and I'm pretty sure this is the latest and that I last updated it from one of the V5.x CDs. So if you are looking for a CD, anything between V5.4 and V5.8 should work. Where are you located? If you are in the greater Boston area, you can borrow one of mine. (I just found a duplicate V5.8, which I'll mail to you if you still need it - for postage if outside the US.) -- John Santos Evans Griffiths & Hart, Inc. 781-861-0670 ext 539 ------------------------------ Date: Wed, 22 Oct 2008 20:19:18 GMT From: gerry77@no.spam.mail.com Subject: Re: Selective record extraction/copy? Message-ID: On Wed, 22 Oct 2008 03:03:40 -0700 (PDT), dooleys@snowy.net.au wrote: > Maybe we should ask for a vms enhancement like > $ sort /record=(start,count) I'm undecided about wether would be better SORT or COPY with a /RECORDS qualifier or maybe, even easier, about a /BINARY qualifier for DUMP (which actually already has both suitable /RECORDS and /BLOCKS qualifiers) to be used with /OUTPUT... G. ------------------------------ Date: Wed, 22 Oct 2008 15:21:18 -0700 (PDT) From: Peter Weaver Subject: Re: Selective record extraction/copy? Message-ID: On Oct 21, 11:20=A0pm, Hein RMS van den Heuvel wrote: >... > Roland, Please help me understand how to instruct sort to use a start/ > end or start/count selection as per DUMP 'just as he wanted it'. > The Sort Spec (in the Cobol chapter!) of the book shows the normal > selection by field contents. I do not believe there to be a psuedo- > field representing the record number. > > - extract, and dix are good suggestions for freeware. > - EHG select (out friend John Santos), a good commercial product. > - a home grown program in C or Macro or whatever should be just just a > few dozen lines an less than an hour.. if you have an example. >... DIX is a really good program and I wish I had more time to play around with it, combining DIX with Flex could create a really interesting tool. But getting back to the user's problem and using SORT; The only way I could see solving the problem with SORT is $ type get_record_by_number.com $! $ search 'p1 "" /numbers/out=3Dsys$scratch:search_temp_'f $getjpi("","PID")'.tmp $ lrl =3D 'f$file(p1,"LRL") $! $ if lrl .eq. 0 then lrl =3D 512 $! $ quote[0,8]=3D34 $! $ open/write tmpfile sys$scratch:search_temp_'f$getjpi("","PID")'.SRT $ $ write tmpfile "/field=3D(name=3Dnumber,position:1,size:7)" $ write tmpfile "/field=3D(name=3DRestOfLine,position:8,size:''lrl')" $ if p2 .gt. 0 then write tmpfile - f$fao("/condition=3D(name=3DHaveMatch2,test=3D(number eq !AS!6UL!_! AS))",quote,f$integer(p2),quote) $ if p3 .gt. 0 then write tmpfile - f$fao("/condition=3D(name=3DHaveMatch3,test=3D(number eq !AS!6UL!_! AS))",quote,f$integer(p3),quote) $ if p4 .gt. 0 then write tmpfile - f$fao("/condition=3D(name=3DHaveMatch4,test=3D(number eq !AS!6UL!_! AS))",quote,f$integer(p4),quote) $ if p5 .gt. 0 then write tmpfile - f$fao("/condition=3D(name=3DHaveMatch5,test=3D(number eq !AS!6UL!_! AS))",quote,f$integer(p5),quote) $ if p6 .gt. 0 then write tmpfile - f$fao("/condition=3D(name=3DHaveMatch6,test=3D(number eq !AS!6UL!_! AS))",quote,f$integer(p6),quote) $ if p7 .gt. 0 then write tmpfile - f$fao("/condition=3D(name=3DHaveMatch7,test=3D(number eq !AS!6UL!_! AS))",quote,f$integer(p7),quote) $ if p8 .gt. 0 then write tmpfile - f$fao("/condition=3D(name=3DHaveMatch8,test=3D(number eq !AS!6UL!_! AS))",quote,f$integer(p8),quote) $! $ if p2 .gt. 0 then write tmpfile - "/include=3D(key=3Dnumber,condition=3DHaveMatch2,data=3DRestofLine)" $ if p3 .gt. 0 then write tmpfile - "/include=3D(key=3Dnumber,condition=3DHaveMatch3,data=3DRestofLine)" $ if p4 .gt. 0 then write tmpfile - "/include=3D(key=3Dnumber,condition=3DHaveMatch4,data=3DRestofLine)" $ if p5 .gt. 0 then write tmpfile - "/include=3D(key=3Dnumber,condition=3DHaveMatch5,data=3DRestofLine)" $ if p6 .gt. 0 then write tmpfile - "/include=3D(key=3Dnumber,condition=3DHaveMatch6,data=3DRestofLine)" $ if p7 .gt. 0 then write tmpfile - "/include=3D(key=3Dnumber,condition=3DHaveMatch7,data=3DRestofLine)" $ if p8 .gt. 0 then write tmpfile - "/include=3D(key=3Dnumber,condition=3DHaveMatch8,data=3DRestofLine)" $! $ close tmpfile $! $ sort sys$scratch:search_temp_'f$getjpi("","PID")'.tmp - /specification=3Dsys$scratch:search_temp_'f$getjpi("","PID")'.SRT tt: $! $ delete/nolog/noconfirm sys$scratch:search_temp_'f $getjpi("","PID")'.tmp;* $ delete/nolog/noconfirm sys$scratch:search_temp_'f $getjpi("","PID")'.SRT;* $! $ @get_record_by_number login.com 2 5 24 25 26 27 Note: There are probably 1000 ways to break this code and it may not work 100% of the time, but it was just a quick hack to see if it would work. Peter Weaver www.weaverconsulting.ca www.openvmsvirtualization.com www.vaxvirtualization.com www.alphavirtualization.com Winner of the 2007 OpenVMS.org Readers' Choice Award for System Management/Performance ------------------------------ Date: Thu, 23 Oct 2008 00:55:41 GMT From: John Santos Subject: Re: Selective record extraction/copy? Message-ID: Hein RMS van den Heuvel wrote: > On Oct 20, 1:17 pm, yyyc186 wrote: > >>On Oct 18, 5:16 pm, gerr...@no.spam.mail.com wrote: >> >> >>>I just needed something like DUMP/BLOCKS or DUMP/RECORDS with binary output, but wasn't able >>>to find it among the standard system utilities. I also gave a quick check to >>>CONVERT and SORT documentation, to no avail > > : > >>If you obtain a copy of "The Minimum You Need to Know to Be an OpenVMS >>Application Developer" it shows you how to use a SORT SPECIFICATION >>file to do just what you want. > > > Roland, Please help me understand how to instruct sort to use a start/ > end or start/count selection as per DUMP 'just as he wanted it'. > The Sort Spec (in the Cobol chapter!) of the book shows the normal > selection by field contents. I do not believe there to be a psuedo- > field representing the record number. > > - extract, and dix are good suggestions for freeware. > - EHG select (out friend John Santos), a good commercial product. Thank you, Hein, but it's EGH, not EHG! :-) First rule of publicity: They can say anything they want, as long as they spell your name right. :-) > - a home grown program in C or Macro or whatever should be just just a > few dozen lines an less than an hour.. if you have an example. > > Cheers, > Hein. -- John Santos Evans Griffiths & Hart, Inc. 781-861-0670 ext 539 ------------------------------ Date: Wed, 22 Oct 2008 18:39:36 -0700 (PDT) From: yyyc186 Subject: Re: Selective record extraction/copy? Message-ID: <69599701-a39d-41c9-beec-d7ebf011cc43@a1g2000hsb.googlegroups.com> > Roland, Please help me understand how to instruct sort to use a start/ > end or start/count selection as per DUMP 'just as he wanted it'. > The Sort Spec (in the Cobol chapter!) of the book shows the normal > selection by field contents. I do not believe there to be a psuedo- > field representing the record number. > You can declare a field as a constant, but at the time I wrote the previous response I was unaware of what the real requirements were: Extract just some records out of the middle without a key, knowing where to start and stop. First off, nobody would create a data file like this. Anybody who had ever worked on a real computer system would have put a key on that thing, even if it was nothing more than a record number. The cheap hack would be to open the file with DCL and enter a WHILE loop counting the record number. Only write to the output file if the record number is inbetween your starting and ending record. Look in the application book at the DCL import program for how to open and read until end of file. It will also show you how to do output. I assume one can figure out how to count from that example as well. In the future, when creating data files which aren't indexed...let me guess, this came from Unix? Make the first field in the record a record number. Then you can use a specification file. Roland ------------------------------ Date: Wed, 22 Oct 2008 21:20:23 -0500 From: David J Dachtera Subject: Re: Selective record extraction/copy? Message-ID: <48FFDF67.4296692@spam.comcast.net> yyyc186 wrote: > [snip] > The cheap hack would be to open the file with DCL and enter a WHILE > loop counting the record number. AFAIK, DCL does not support any structured programming constructs, only labels and GOTOs. My DCL experience tends to end circa. V8.2, however (V7.3-2 with some V8.2 extensions). D.J.D. ------------------------------ Date: Wed, 22 Oct 2008 21:29:23 -0500 From: David J Dachtera Subject: Re: Selective record extraction/copy? Message-ID: <48FFE183.E445802C@spam.comcast.net> David J Dachtera wrote: > > yyyc186 wrote: > > [snip] > > The cheap hack would be to open the file with DCL and enter a WHILE > > loop counting the record number. > > AFAIK, DCL does not support any structured programming constructs, only > labels and GOTOs. > > My DCL experience tends to end circa. V8.2, however (V7.3-2 with some > V8.2 extensions). Just verified that on td183.testdrive.hp.com (V8.3). No mention of WHILE in the DCL HELP. D.J.D. ------------------------------ Date: Wed, 22 Oct 2008 14:10:37 -0400 From: JF Mezei Subject: Re: Trying to buy VMS licenses Message-ID: <48ff6e38$0$1575$c3e8da3@news.astraweb.com> Dean Woodward wrote: > DSPP will get me Pascal and C licenses, good for a year, then renew. > That helps. The annual renewall issue is a pain for real customers, especially if the authorization numbers change. Consider also support contracts which might not be possible with DSPP licences. If you're going to cheat, you might as well go Hobbyist. You still have the annual renewall, still can't get support, but you don't have hassles of dealing with DSPP and hence stay below the radar even more. Consider this: if someone were to pop up in here and ask how one would go about getting a PL1 license, you can bet a case of Mr Vaxman's Guiness that Tom Linden would respond quickly and get in touch with that potential customer and get him the compiler easily. Same with Dave Turner of Islanco who would pop up here and make it easy for someone to buy from him. Why doesn't VMS management take these cases of "I can't seem to find someone willing to sell me a VMS licence" and not only deal with that individual customer, but also work to ensure that HP is able to switch calls to the appropriate person so that those cases don't happen anymore ? ------------------------------ Date: Wed, 22 Oct 2008 11:21:32 -0700 (PDT) From: Len Whitwer Subject: Re: Trying to buy VMS licenses Message-ID: <686f9c16-1c23-49b5-b14d-b053ce105fa7@1g2000prd.googlegroups.com> On Oct 21, 11:50=A0am, Dean Woodward wrote: > Or, "Can't get there from here". > > Or, "Tried the front door, now let's try the back door". > > So the company I work for recently picked up a nice used RX2600 from > eBay. We want to put VMS on it (duh). Poked at HP's website, couldn't > find a reasonable way to get to anything specific that mentioned both > "VMS" and "buy some". Trying to select "servers" and "Itanium" servers > got me a list of places that included several dozen iterations of > Costco and Office Max. Might as well ask for Beef Wellington at a > McDonald's. > > So I took a flying leap and called the large customer number. After a > notably short call direction system and a moderate wait, I got to talk > to a body who, surprisingly, understood that she might be able to help > me. > > Or not. We're not a reseller, so I need to deal with inside sales or a > reseller. (Duh, that's why I'm calling...) and we don't have an inside > sales agent assigned to us, and apparently she couldn't figure out how > to do that. Please call back later- maybe this afternoon, maybe next > week. We are Verrrry Sorrry. > > Anyone here work for a reseller, or know who I might talk to, that > might be able to sell some VMS? ***************************************************************************= *************** Hi Dean: The hobbiest License is the CHEAPEST way to go by far!!!! If you want an Integrity license that is for BUSINESS we can help you much better pricing than HP list. Give me a call or send me an e-mail with what you want and we should be able to help you. Ps: We have many Integrity systems in stock at GREAT pricing if you need a machine!!!!!!!! Give us a call. Len Whitwer -Len Whitwer Puget Sound Data Systems, Inc. 19501 144th Ave. NE Suite D-100 Woodinville, WA 98072 e-mail mailto:len@psds.com Internet: http://www.psds.com Toll Free: (866)857-0710 Tel: (425) 488-0710 Fax: (425) 488-6414 ------------------------------ Date: Wed, 22 Oct 2008 15:53:27 -0400 From: "Richard B. Gilbert" Subject: Re: Trying to buy VMS licenses Message-ID: JF Mezei wrote: > Dean Woodward wrote: > >> DSPP will get me Pascal and C licenses, good for a year, then renew. >> That helps. > > > The annual renewall issue is a pain for real customers, especially if > the authorization numbers change. Consider also support contracts which > might not be possible with DSPP licences. > > If you're going to cheat, you might as well go Hobbyist. You still have > the annual renewall, still can't get support, but you don't have hassles > of dealing with DSPP and hence stay below the radar even more. > > > Consider this: if someone were to pop up in here and ask how one would > go about getting a PL1 license, you can bet a case of Mr Vaxman's > Guiness that Tom Linden would respond quickly and get in touch with that > potential customer and get him the compiler easily. > > Same with Dave Turner of Islanco who would pop up here and make it easy > for someone to buy from him. > > Why doesn't VMS management take these cases of "I can't seem to find > someone willing to sell me a VMS licence" and not only deal with that > individual customer, but also work to ensure that HP is able to switch > calls to the appropriate person so that those cases don't happen anymore ? > > Because H-P is a corporate monster with a monster bureaucracy?? bureaucracy n. pl. "3. An administrative system in which the need to follow complex procedures impedes effective action." All large organizations seem to suffer from this ailment to one degree or another! ------------------------------ Date: Wed, 22 Oct 2008 15:22:49 -0400 From: "Richard B. Gilbert" Subject: Re: Who is left at VMS engineering ? Message-ID: IanMiller wrote: > On Oct 21, 9:14 pm, JF Mezei wrote: >> I get the feeling we are in some Star Trek episode where the crew, one >> by one, disapears without any sound/noise and it isn't until someone >> does a head count or tries to contact a crew member that they notice he >> is no longer aboard. >> >> Anyone else having similar feelings ? >> >> Or is it truly just a case of the formely regular posters to COV no >> longer participating here ? > > > Perhaps more people have given up due to the poor signal to noise > ratio. > The signal to noise ratio has been a problem for many years! VMS tends to generate fewer problems and the solutions tend to be more straightforward than under some other operating systems. VMS has been in decline for the last ten to twenty years or so. DEC's ambitions to compete with IBM were a poor match for their customer base! What was that poem about "a banner with a strange device" and "Excelsior" he cried? ------------------------------ Date: Wed, 22 Oct 2008 18:17:48 -0400 From: "John Reagan" Subject: Re: Who is left at VMS engineering ? Message-ID: "JF Mezei" wrote in message news:48fe39a7$0$12386$c3e8da3@news.astraweb.com... >I get the feeling we are in some Star Trek episode where the crew, one > by one, disapears without any sound/noise and it isn't until someone > does a head count or tries to contact a crew member that they notice he > is no longer aboard. > > Anyone else having similar feelings ? > > Or is it truly just a case of the formely regular posters to COV no > longer participating here ? I'm still here. Who are you concerned about? Perhaps we're busy or on vacation? All of the folks that normally post here from VMS are still around as far as I know. John ------------------------------ Date: Wed, 22 Oct 2008 18:47:02 -0400 From: JF Mezei Subject: Re: Who is left at VMS engineering ? Message-ID: <48ffae65$0$9662$c3e8da3@news.astraweb.com> John Reagan wrote: > I'm still here. Who are you concerned about? Perhaps we're busy or on > vacation? All of the folks that normally post here from VMS are still > around as far as I know. I was thinking about FredKleinsorge for instance. I know Hoff is no longer HP employee, but his, and FredK's lack of participation here has been noticed (at least by me). BTW, aren't you technically an Intel employee ? Or are you still officially VMS engineering and paid by HP ? ------------------------------ Date: Wed, 22 Oct 2008 22:53:01 GMT From: VAXman- @SendSpamHere.ORG Subject: Re: Who is left at VMS engineering ? Message-ID: <00A817FF.DF183466@SendSpamHere.ORG> In article , "John Reagan" writes: > >"JF Mezei" wrote in message >news:48fe39a7$0$12386$c3e8da3@news.astraweb.com... >>I get the feeling we are in some Star Trek episode where the crew, one >> by one, disapears without any sound/noise and it isn't until someone >> does a head count or tries to contact a crew member that they notice he >> is no longer aboard. >> >> Anyone else having similar feelings ? >> >> Or is it truly just a case of the formely regular posters to COV no >> longer participating here ? > >I'm still here. Who are you concerned about? Perhaps we're busy or on >vacation? All of the folks that normally post here from VMS are still >around as far as I know. Don't believe this -- John is gone and this is just a random response program left running in his place! :) Seriously, I've had myriad private emails in recent weeks with the VMS engineering staff. They've all responded to me. They might not be in their offices (working remotely or at home for all I know) but they are working. John has been most helpful and I keep him busy with bugs that I find in the Macro compiler. I'll wager that most don't want to sift through the typical detritus here to find anything worth their while. PS. John, I'm still trying to find some small reproducer for the weird argument register problem I sent you last week. Other work has taken a driver's seat to that problem though. -- VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)COM ... pejorative statements of opinion are entitled to constitutional protection no matter how extreme, vituperous, or vigorously expressed they may be. (NJSC) Copr. 2008 Brian Schenkenberger. Publication of _this_ usenet article outside of usenet _must_ include its contents in its entirety including this copyright notice, disclaimer and quotations. ------------------------------ Date: Wed, 22 Oct 2008 21:46:21 -0400 From: Stephen Hoffman Subject: Re: Who is left at VMS engineering ? Message-ID: JF Mezei wrote: > I know Hoff is no longer HP employee, but his, and FredK's lack of > participation here has been noticed (at least by me). You rang? ------------------------------ End of INFO-VAX 2008.572 ************************