1 INFO-VAX	Sat, 22 Oct 2005	Volume 2005 : Issue 590       Contents:  Re: LIB$WAIT & COBOL/VMS problem  Re: LIB$WAIT & COBOL/VMS problem  Re: LIB$WAIT & COBOL/VMS problem  Re: LIB$WAIT & COBOL/VMS problem  Re: LIB$WAIT & COBOL/VMS problem) Re: OT: Is your HP printer spying on you? @ Re: Porting VAX/VMS to 8086 (Was: Re: Porting VMS back to VAX ?) SEARCH HTML file, RE: updated VMS Information (sent yesterday)  F ----------------------------------------------------------------------  % Date: Sat, 22 Oct 2005 15:03:18 +0800 3 From: "Richard Maher" <maher_rj@hotspamnotmail.com> ) Subject: Re: LIB$WAIT & COBOL/VMS problem 1 Message-ID: <djcoaj$3fv$1@news-02.connect.com.au>    Hi Alex,  < > If there is no work to do it calls lib$wait but completelyL > skips the 10 second count from then on as if it had met the 10 second wait > criteria.   G Not being funny but have you done some debugging to make sure that your 8 f-float "duration" is still set to 10 second time round?  E Rdb did become more aggressive with its use of $hiber/$wake in recent I versions with (ALS?, Row-Cache?) something like that (If Norm Lastovica's L around he might tell you) but if you set "nowake" to 1 that should sort that potential problem out.  I Can you please post the working-storage declarations for duration, nowake  and float-type?    Regards Richard Maher   7 "AlexB" <BartonekDragRacing@yahoo.com> wrote in message 0 news:pan.2005.10.22.04.19.22.226327@yahoo.com...; > May or may not be the proper forum but its worth a shot..  > J > Currently in my COBOL program I am using the lib$wait routine. Its being? > called in block of code that is being run via a perform loop.  > K > For testing purposes I set the initial wait time to 10 seconds. The first L > time the perform loop runs through and hits the LIB$WAIT call it waits forH > 10 seconds. If there is no work to do it calls lib$wait but completelyL > skips the 10 second count from then on as if it had met the 10 second wait > criteria.  >  > Here is my call:D > CALL "LIB$WAIT" USING BY REFERENCE duration, libnowake, float-type >  > duration is set to 10 J > libnowake is set to 0 or 1, but I've also substituted 'OMITTED' in place7 > of libnowake..none of these values fixed the problem.  > G > Current versions of software pertinent to this problem: OVMS = 7.3-2,  > roll-up patch 4  > COBOL 2.8 
 > RDB 7.1-411  >  > I thank you'all in advance!  >  > -Alex    ------------------------------  % Date: Sat, 22 Oct 2005 09:33:53 -0400 2 From: "Stanley F. Quayle" <squayle@insight.rr.com>) Subject: Re: LIB$WAIT & COBOL/VMS problem . Message-ID: <435A0781.12383.27F58F7@localhost>  I > If there is no work to do it calls lib$wait but completely skips the 10 J > second count from then on as if it had met the 10 second wait criteria.   D The lib$wait call uses the sys$hiber facility.  Other processes can ? send you a "wake", which can cause the hibernate to be skipped.   D At Ask the Wizard (http://h71000.www7.hp.com/wizard/wiz_1503.html), ( the following applies to your situation:  H     sys$hiber awakens at times you might expect it, and it also awakens D     whenever something else in the process or the system might call B     sys$wake targeting the process.  In other words, all calls to B     sys$hiber should be coded correctly handle "spurious" wake-up G     requests -- this often means that the code will wake up, check the  H     status of the pending work (if any is available) and then loop back &     to hibernate when no (more) work       is available.   F If you absolutely MUST wait for 10 seconds, FOR SURE, you should wait E on an event flag, set by a counter that you create.  And allocate an  ( event flag -- don't use event flag 0....  
 --Stan Quayle  Quayle Consulting Inc.  
 ----------- Stanley F. Quayle, P.E. N8SQ  +1 614-868-1363 3 8572 North Spring Ct., Pickerington, OH  43147  USA 0 stan-at-stanq-dot-com       http://www.stanq.com) "OpenVMS, when downtime is not an option"    ------------------------------  # Date: Sat, 22 Oct 2005 13:36:06 GMT * From: AlexB <BartonekDragRacing@yahoo.com>) Subject: Re: LIB$WAIT & COBOL/VMS problem 6 Message-ID: <pan.2005.10.22.13.46.14.380413@yahoo.com>  8 On Sat, 22 Oct 2005 15:03:18 +0800, Richard Maher wrote:  
 > Hi Alex, >  > I > Not being funny but have you done some debugging to make sure that your : > f-float "duration" is still set to 10 second time round? > G > Rdb did become more aggressive with its use of $hiber/$wake in recent K > versions with (ALS?, Row-Cache?) something like that (If Norm Lastovica's N > around he might tell you) but if you set "nowake" to 1 that should sort that > potential problem out. > K > Can you please post the working-storage declarations for duration, nowake  > and float-type?  >  > Regards Richard Maher     H Well, I know the lib$wait works if I do not use it in a perform ..until.I It will wait for x seconds then viola..its done.  But I put it in a piece J of code that runs in batch.  What it does is check to see if there is workE to do (to process data etc) if not wait for one second then re-check. H The first time the lib$wait is called it does wait for x seconds but the next time it blows right by it.    My declarations:    01 duration      comp-1 value 1.  01 libnowake     comp-1 value 1.' 01 float-type    pic 9(5) comp value 0.      Thanks Richard!    -=Alex   ------------------------------  # Date: Sat, 22 Oct 2005 13:45:29 GMT * From: AlexB <BartonekDragRacing@yahoo.com>) Subject: Re: LIB$WAIT & COBOL/VMS problem 6 Message-ID: <pan.2005.10.22.13.55.37.897821@yahoo.com>  < On Sat, 22 Oct 2005 09:33:53 -0400, Stanley F. Quayle wrote:    H > If you absolutely MUST wait for 10 seconds, FOR SURE, you should wait G > on an event flag, set by a counter that you create.  And allocate an  * > event flag -- don't use event flag 0.... >  > --Stan Quayle  > Quayle Consulting Inc.    I it was just a example.. I only need to wait for 1 second.  I will ask the  wiz also..Thanks!    ------------------------------    Date: 22 Oct 2005 08:34:15 -0700( From: "Scott" <DocTrinsograce@gmail.com>) Subject: Re: LIB$WAIT & COBOL/VMS problem C Message-ID: <1129995255.814323.158340@z14g2000cwz.googlegroups.com>   ? I'd be interested in hearing the results, Alex.  I've a similar  problem.  
 Thank you!   ------------------------------    Date: 22 Oct 2005 07:08:50 -0500- From: Kilgallen@SpamCop.net (Larry Kilgallen) 2 Subject: Re: OT: Is your HP printer spying on you?3 Message-ID: <DfHTclhALJia@eisner.encompasserve.org>   Z In article <Ktf6f.1844$S24.130330@news.xtra.co.nz>, "Lurker" <nowhere@nothing.com> writes:6 > "Dave Froble" <davef@tsoft-inc.com> wrote in message, > news:11ldj3eh9ao6l2d@corp.supernews.com... > D >> I'm also thinking about some of the court decisions RIAA has been >> getting.  > > > You know, it's a bit curious how posters from the US presume> > that all the rest of the world knows what the acronims mean. > @ > Sure, I can Google it and probably find what the heck that one@ > means but you (and others) seem to use it like a houshold term> > which is (by default) known to everyone and everywhere else.  E Knowing the meaning of the acronym RIAA is inadequate.  One must know 7 the history of recent litigation started by that group.    ------------------------------  % Date: Sat, 22 Oct 2005 03:32:57 -0400 - From: JF Mezei <jfmezei.spamnot@teksavvy.com> I Subject: Re: Porting VAX/VMS to 8086 (Was: Re: Porting VMS back to VAX ?) , Message-ID: <4359EB18.1ACD34DF@teksavvy.com>   Richard Maher wrote:M > Given the near 1:1 instuction set match between the 8086 and VAX assemblers K > (I have no idea how close they really are but to the casual observer they K > both quack-like-a-duck.  Anyway, that's what John Reagan's for), would it L > not be better (cheaper and easier!) to port *VAX*/VMS to 8086 and then addL > the 64-bit VLM extensions? The new features that made it to Alpha and then@ > I64 could subsequently be rolled-out, once more, with a proven6 > upgrade/modification path, at engineering's leisure.    F Consider that the 8086 is now 64 bits, and by the time VMS is releasedE on the 8086, the later will be sporting the same system interfaces as D that IA64 thing, so there isn't much point of porting VMS to the few remaining 32 bit 8086s.     D Also, it is more likely that the 8086 will get EFI boot, at least onF enterprise machines, so the work already done on the Alpha/IA64 source5 code pool would be valuable when porting to the 8086.   H Also remember that engineers twice cleaned up the code, once between vax? and alpha and a second time more recently when porting to IA64.   H Furthermore, the move to the 8086 should be seen as an upgrade. ConsiderG that VAX-VMS is no longer developped and stuck at 7.3. So the code base C would have a lot of catching up to do, especially when you consider  stuff like ODS5.  A And when you consider support issues, HP will have to continue to H support Alpha's installed base and whatever small number of IA64 systemsE for a while. Having the same code base for Alpha, IA64 and 8086 would - greatly reduce VMS maintenance/upgrade costs.     N > Yes JF, what they're all wispering about in corridors *is* a covert project!  ? Is it because John Covert is in charge of it ? :-) :-) :-) :-)    % > And that project name is "Exodus".      H Would it really be easier to port VAX-VMS to the 8086 instruction set ? D  Seems to me that if they managed to get VMS on IA64, that code base2 should be versatile enough to also go to the 8086.   ------------------------------  % Date: Sat, 22 Oct 2005 06:50:03 -0700 # From: "Tom Linden" <tom@kednos.com>  Subject: SEARCH HTML file ( Message-ID: <opsy1vdpgczgicya@hyrrokkin>  J Many HTML files have no carriage returns so they appear to VMS as a file   withH a record length greater than 32768, which causes SEARCH to give up, e.g.    G %SEARCH-I-TRUNCATE, record(s) in PI121X.HTML;1 truncated to 32768 bytes   % Is there a way to search such a file?    ------------------------------  % Date: Sat, 22 Oct 2005 11:32:40 -0400 ' From: "Main, Kerry" <Kerry.Main@hp.com> 5 Subject: RE: updated VMS Information (sent yesterday) R Message-ID: <FD827B33AB0D9C4E92EACEEFEE2BA2FB70C682@tayexc19.americas.cpqcorp.net>   > -----Original Message-----= > From: Richard Maher [mailto:maher_rj@hotspamnotmail.com]=20 ! > Sent: October 22, 2005 12:00 AM  > To: Info-VAX@Mvb.Saic.Com 7 > Subject: Re: updated VMS Information (sent yesterday)  >=20 > Hi,  >=20H > > HP has announced availability of Web Service Integration Toolkit for > > OpenVMS (WSIT) version 1.0 >=20A > First is was ONC/RPC, then DCE/RPC then COM then Bridgeworks=20  > and now it'sE > WSIT - Just how many "Tools for porting our legacy COBOL, BASIC etc E > customers to newer technologies" are you blokes gonna come up with?  >=20H > Where is Kerry Main??? Presumably Kerry, the necessity to produce real@ > customer requirements before HP project funding is approved=20 > does not apply@ > to those in charge of the Crystal Ball. But obviously we're=20 > all riding the@ > crest of technological innovation and the money that's been=20 > squandered on : > these many disasters is just a natural progression on=20 > someone's path to  > enlightenment? >=20   Richard,  E First - I am certainly not the right resource talking in detail about H software strategies and futures. There are certainly more guru's in that" area from HP on this list than me.  H Having stated that, my own view is that the tools are designed to assistH Cust's with integrating their code into J2EE/.Net environments. They areD not intended to be replacements or as a means to port existing code.  
 Reference:> http://h71000.www7.hp.com/openvms/products/ips/wsit/index.html  F In terms of tools futures, check out the official roadmaps located at:G http://h71000.www7.hp.com/openvms/roadmap/openvms_roadmaps.htm (October  2005)   F Beyond those roadmaps, I can only advise you to contact HP and requestG an NDA for additional details and/or provide feedback. In addition, you A might consider the next annual OpenVMS boot camp as they get into @ additional info on futures. It is also a way to provide feedback, directly to Prod Management and Engineering.   Regards   
 Kerry Main Senior Consultant  HP Services Canada Voice: 613-592-4660  Fax: 613-591-4477  kerryDOTmainAThpDOTcom (remove the DOT's and AT)=20  4 OpenVMS - the secure, multi-site OS that just works.   ------------------------------   End of INFO-VAX 2005.590 ************************                                                                                                                                                                                                      < H3$DА 0B @ < H3$D"EA 
  <$E B    <$ bF $     ' ('<<DF<eF<FF <`F<@F< <  ! `F@F Gî F<@ bE Hf    #F<   HaF <   bF     '  <DE'$    N     @!$ b < B$E( H<` 
<< B$E8 H<< B$Ed<bF   ' <F'诰  !` $   (!<$I<` <
 @!F%!D   e!d  F$  *@FBFFF C! (!BF<CF4 F (! e+P`  F< B$E F   ' '课, 0  !'   (! $ D    O&$ X!' b    !C  %k %$c  C   TC     !   J    $ @ 	 P' $ , @ $c b  P@$  !+T@ @! $ ' P%  $cb  P@% !+T@ !  $  +`    ]!$C b  # $c $  +@ @  ]!$C b  #   8! J$ ' ' % T! H#`*b    
  !$ `!d  %k % 8! G   X!  @!<$Fx' `!G   	%k   !C  $d   f!D  h  % +@`!  @!<$Kx$ P!  x!  !  ̯ `  !$ N  $%  쏣<$x   D! XH!2*@ ] $ <$P @`!& % &1  P!#+@ &s  !J8# (%  E+@ <$ N(# $  ]!$F  Iu +$  + (#@ F$$    (@ E+T@  F$  ` $  J ` J$ '"  !F$<$ch C+@ p$b F$ph!% ' `$B  Y!p  %   `x! !` O  $ 8# H8! !h  Y X \D   X  d!e   \b 8H!2*T@&  J# @(!d+`  Y$ c I٣ Xc    d+@ 	,b @ $ $  Xb %k  I٧ \ d#( @ C!C ` ! X   $ D# @ C!C  %k  \$  (H8 h +' %@ &L  O ! 0 X   \ 8! + @  !$ 8$@ @& 8B$@@&$ C1!d  $B$D  !$ $&1XP#E  $B$C&s$UJXH!&R *@7  +:  + b$      ' <$CMhT<CF$   !'< 4h T< 0l P< <F<$cGl X @ C! L H D @ 8 , (B   \  @ C!B    XC+@ <<<$FF b*@  q!D  $c FD  J_d% G   !0B Bb% X&R C+@F  Pf$  b!0  . T@ 3# $ c<$EGl< &# C#P+@  s<<'FF b*@  v!D  $c FD  Jd%   !  G 0B Bb%  &R P+@ꎃF @ E!C  $ c$  !0  . @    # <DF $  s C#$ $  $ !$ & <$ F!4 D  < HUF JH  ! P+@  @<<<$vFF b*@  v!D  $c FD  Jd% G   !0B Bb%&R P+@F<$Gl!C  $ c$ ! \P#C+@ <<<$FF b*@  q!D  $c FD  Jd% G   !0B Bb% \&R C+@F  Tf$  b!0  . T@ 7# $ c<$FGl<V #  K$ &C#P+@  s<<$FF b*@  w!D  $c FD  K'd%   !   G  0B Bb%    &R P+@莃F @ F!C  $ c$  !0  . @    #  @C#P+@  s<<<$FF b*@  ~!D  $c FD  KRd%   ! G 0B Bb% &R P+@쎃FP#4 % <$cGl!D  <$w(#d $ #21+@ ##+T@ !а#&" W !& w!$c & $   &1 & b   < HF  !21 JI X  !<<uF<hrl L H D @ < 8 4 0 , ( ' P'< h< l< sF 4 0 , ( $   