1 INFO-VAX	Sun, 08 Aug 2004	Volume 2004 : Issue 437       Contents:P JOB - The Carphone Warehouse looking for professionals to work in both Productio, Re: looking for used DEC hardware in England Re: Questions About ICC  Re: rx2600 and SASC Re: TECO manual location, was: Re: [Somewhat OT] What your non-OVMS C Re: TECO manual location, was: Re: [Somewhat OT] What your non-OVMS   F ----------------------------------------------------------------------  % Date: Sun, 08 Aug 2004 13:06:51 +0200 0 From: Keith Cayemberg <keith.cayemberg@arcor.de>Y Subject: JOB - The Carphone Warehouse looking for professionals to work in both Productio B Message-ID: <4116094d$0$28844$9b4e6d93@newsread4.arcor-online.net>  G I found this job posting while looking for something else VMS related.  C While offer is over 2 weeks old and I don't know whether it's been  ? filled, I don't remember anyone mentioning the position in COV.   % Here is a link to the announcement... " http://www2.vnunet.com/Job/3795359    I For those looking for OpenVMS Jobs, here is my current list of the usual   places to look...   ) DECUS Mnchen - Stellenanzeigen - Germany ) http://www.decus.de/decusnet/stellen.html   ! Jobserve - OpenVMS Search Results _ http://www.jobserve.com/IT/jobserve/searchresults.asp?jobType=*&d=5&order=Rank&page=1&q=OpenVMS   ) Monster - Search Northern Europe VMS Jobs  http://tinylink.com/?TAqWqT0QAP    Monster - Search US VMS Jobs http://tinylink.com/?xmrZbZXUZO   1 OpenVMS Career Center Search - powered by Monster % http://jobsearch.openvms.monster.com/   ' OpenVMS Career Center - Wayback Machine O http://web.archive.org/web/20030624122545/http://jobsearch.openvms.monster.com/   0 OpenVMS Career Center Login - powered by Monster http://openvms.monster.com/   - OpenVMS Career Center Login - Wayback Machine E http://web.archive.org/web/20021122163831/http://openvms.monster.com/    OpenVMS.org - VMS Jobs Forum* http://www.openvms.org/phorum/list.php?f=2   OpenVMS.org - VMS Resum Forum* http://www.openvms.org/phorum/list.php?f=3  : USAJOBS - U.S. Office of Personnel Management - Job Search! http://jobsearch.usajobs.opm.gov/    VMS-SIG Mailing ListK http://listserv.encompassus.org/Scripts/wa-ENCOMPASS.exe?SUBED1=vms-sig&A=1    VMSPros - Careers on OpenVMS !+ http://vmspros.freeservers.com/vmsjobs.html    VNUNET - UK Jobs http://www2.vnunet.com/Careers   Yahoo! Hotjobs http://hotjobs.yahoo.com  # Yahoo! Hotjobs - VMS Search Results  http://tinylink.com/?61itrEz6Tn   G If anyone knows some other good links for posting or searching OpenVMS  $ Jobs please add them to this thread.   Cheers!    Keith Cayemberg    ------------------------------  * Date: Sun, 8 Aug 2004 17:11:38 +0000 (UTC)3 From: "Richard Maher" <maher_rj@hotspamnotmail.com> 5 Subject: Re: looking for used DEC hardware in England / Message-ID: <cf5msa$guv$1@titan.btinternet.com>    Hi Phillip,   L I'll see your hobbyist emotionalistic begging bowl and raise you a couple of beers!  I I live here, and call upon all xenophobic little-Englanders to repel your @ non-EEC attempt at the pillaging and plundering of our heritage!  J In other words, if anyone has an Alpha that can sit on my desk and run VMSJ 7.3 the I'm even willing to pay cash for it. (Yes, Ebay my arse! I'm not aJ system manager and wouldn't know one model from the other, whether it runsK NT-only or VMS or blah-blah-blah) I've got a pedestal sized Alpha going for F 300 in Brussels. If you can beat that then let me know. (I did have aG lovely Alphastation lined up where I'm currently working but as usual a L selfish-arse System Manager grabbed it first.Seriously, what the hell do youL system managers do with this hardware if you don't code??? Save on heating?)   Cheers Richard  F PS. Out of curiosity. I did notice the Ebay offices in Richmond duringI Winter. You only see it in Winter 'cos it's dark outside and the internal K security lighting silhouettes the "ebay" to the outside. They didn't strike 9 me as a low-profile short-on-advertising type of company.   J Phillip Helbig---remove CLOTHES to reply <helbig@astro.multiCLOTHESvax.de>/ wrote in message news:cesrdj$6id$2@online.de... H > Just in case anyone missed my post in comp.sys.dec, I'll be in EnglandH > next week and am interested in giving used DEC hardware a good home inJ > my hobbyist cluster.  I'm especially interested in 8-bit (SCSI-1 or fastF > narrow SCSI-2) SBB disks and BA-353 (pizza box) enclosures.  Also ofJ > interest are fast, small ALPHAs and colour monitors which will work withJ > a VAXstation 4000 or an early ALPHA (cable with three fat plugs).  (I amJ > assuming that if I run out of monitors for modern ALPHAs, then I can use; > a "standard PC" monitor.  I've never tried this, though.)  >    ------------------------------  * Date: Sun, 8 Aug 2004 16:46:31 +0000 (UTC)3 From: "Richard Maher" <maher_rj@hotspamnotmail.com>   Subject: Re: Questions About ICC/ Message-ID: <cf5ld4$f3m$1@titan.btinternet.com>   	 Hi Sarah,   H My bias/prejudices regarding threads/ASTs are well known and I shall notH repeat them here. (Unless your ask specifically :-) But to try and be ofL some help: - Yes you have to use GLOBAL memory. Isn't that why all this UNIX> threading crap has to mutex around simple things like ADD 1 TOK CONNECTION_COUNT? VMS, Processor modes, and ASTs do all this for you but if H you insist on going againts the grain then that's up to you. Surely someE sicko could come up with a C wrapper routine to inline the $ICC calls ? anaologous to the way the C socket API wrappers the $qio calls?   L Anyway, my suggestion is to have static (compile-time or run-time allocated)B memory database of active and free connections. The address of theL individual connection info to be passed to each AST. Clearly not my idea butK one that's been around since year dot and one I first noticed in the lovely I MACRO DECnet programming examples. What's that you say? They're no longer . there on Alpha? Well that's another story. . .  K I've attached a COBOL example of calling $ICC services. (Not that it solves L your problem; just something (single-threaded) I was testing out as the $ICC. interface for COBOL was by no means intuitive)   Regards Richard Maher    RE: .3  H I haven't fully explored this, but please explain why you would possibly* open more than one association per server?   $on warning then exit  $set def sys$login $! $create icc_def.mar            .title icc_def&         .library "sys$library:lib.mlb"           $iccdef GLOBAL           .end $! $macro/lis icc_def $! $create icc_server.cob identification division. program-id.    icc_server. author.        Richard Maher.  data division. working-storage section.H 01  ast_receive                 pic 9(9)        comp    value   external ast_receive.H 01  ast_handshake               pic 9(9)        comp    value   external ast_handshake.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  * 5 01  assoc_handle                pic 9(9)        comp. B 01  buffer_count                pic 9(9)        comp    value   5.B 01  prot_sysprv                 pic 9(9)        comp    value   2. *  procedure division.  kick_off section.  00.      perform server_init.%     display "Hibernating. . .zzzzzz".   '     call "sys$hiber" giving sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  *  fini. A     call "sys$icc_close_assoc" using by value assoc_handle giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.   
     stop run.  *  server_init section. 00.      call "sys$icc_open_assoc" ,         using   by reference    assoc_handle1                 by descriptor   "ICC_TEST_SERVER" %                 by value        0, 0, .                                 ast_handshake,.                                 ast_handshake,,                                 ast_receive,9                                 buffer_count, prot_sysprv          giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  *  fini.  *  end program icc_server.  identification division. program-id.    ast_handshake.  data division. working-storage section.H 01  ast_discon                  pic 9(9)        comp    value   external ast_discon. H 01  ss$_reject                  pic 9(9)        comp    value   external ss$_reject. H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  * ( 01  rem_pid                     pointer.E 01  buff_init_size              pic 9(9)        comp    value   1024. ( 01  event_type                  pointer.H     88  icc$c_ev_connect                                value   external icc$c_ev_connect. H     88  icc$c_ev_disconnect                             value   external icc$c_ev_disconnect.8 01  cxn_handle                                  pointer.8 01  cxn_data_len                                pointer. 01  cxn_p5. 8     03  cxn_p5_lw                               pointer.B     66  cxn_reply_buff_len                      renames cxn_p5_lw.B     66  cxn_discon_status                       renames cxn_p5_lw. 01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp.      03  ios_icc.5         05  icc_status          pic 9(4)        comp. '         05                      pic xx. 5         05  recv_len            pic 9(9)        comp. 5         05  req_handle          pic 9(9)        comp. 5         05  reply_len           pic 9(9)        comp.  *  linkage section.5 01  by_val_event_type           pic 9(9)        comp. 5 01  by_val_cxn_handle           pic 9(9)        comp. 5 01  by_val_cxn_data_len         pic 9(9)        comp. , 01  cxn_data_buff               pic x(1000).5 01  by_val_cxn_p5               pic 9(9)        comp. * 01  discon_user_context         pic x(32).* 01  rem_username                pic x(12). *  procedure division"         using   by_val_event_type,"                 by_val_cxn_handle,$                 by_val_cxn_data_len,                 cxn_data_buff,                 by_val_cxn_p5,$                 discon_user_context,                 rem_username.  kick_off section.  00. 7     set cxn_handle      to reference by_val_cxn_handle. 9     set cxn_data_len    to reference by_val_cxn_data_len. 3     set cxn_p5_lw       to reference by_val_cxn_p5. 7     set event_type      to reference by_val_event_type.        evaluate    trueA         when    icc$c_ev_connect        perform accept_reject_cxn :         when    icc$c_ev_disconnect     perform remove_cxnF         when    other                   call "lib$stop" using by value	 ss$_abort      end-evaluate.  *  fini.      exit program.  *  accept_reject_cxn section. 00. 1     set rem_pid to reference discon_user_context. .     display "pid = ", rem_pid with conversion.(     display "username = ", rem_username.=     display "connect data = ", cxn_data_buff(1:cxn_data_len). =     display "cxn_data_len is ", cxn_data_len with conversion. D     display "reply_buff_len = ", cxn_reply_buff_len with conversion.  1     if cxn_data_buff(1:cxn_data_len) = "*Hello!*"          call "sys$icc_accept" 2                 using   by value        cxn_handle4                         by reference    "*accepted*"*                         by value        104                         by reference    user_context)                         by value        0 "                 giving  sys_status     else         call "sys$icc_reject" 2                 using   by value        cxn_handle4                         by reference    "*rejected*"6                         by value        10, ss$_reject#                 giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.   I     call "lib$get_vm" using buff_init_size, input_buff giving sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status. +     move buff_init_size to input_buff_size.  *  fini.  *  remove_cxn section.  00. -     move discon_user_context to user_context. B     display "Exit Status was ", cxn_discon_status with conversion.       call "sys$icc_disconnect" *         using   by value        cxn_handle$                 by reference    iosb*                 by value        ast_discon,                 by reference    user_context#                 by value        0,0          giving  sys_status. B      if sys_status not = ss$_normal call "lib$stop" using by value sys_status.  *  fini.  *  end program ast_handshake. identification division. program-id.    ast_receive.  data division. working-storage section.H 01  ast_read_comp               pic 9(9)        comp    value   external ast_read_comp.H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  * 8 01  cxn_handle                                  pointer.8 01  message_size                                pointer. *  linkage section.5 01  by_val_msg_size             pic 9(9)        comp. 5 01  by_val_cxn_handle           pic 9(9)        comp.  01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp.      03  ios_icc.5         05  icc_status          pic 9(4)        comp. '         05                      pic xx. 5         05  recv_len            pic 9(9)        comp. 5         05  req_handle          pic 9(9)        comp. 5         05  reply_len           pic 9(9)        comp.  *  procedure division          using   by_val_msg_size,"                 by_val_cxn_handle,                 user_context.  00. 2     set message_size to reference by_val_msg_size.2     set cxn_handle to reference by_val_cxn_handle.8     display "MSG Size = ", message_size with conversion.%     if message_size > input_buff_size C         call "lib$free_vm" using input_buff_size, input_buff giving 
 sys_statusE         if sys_status not = ss$_normal call "lib$stop" using by value  sys_status end-if J         call "lib$get_vm" using message_size, input_buff giving sys_statusE         if sys_status not = ss$_normal call "lib$stop" using by value  sys_status end-if -         move message_size to input_buff_size.        call "sys$icc_receive"*         using   by value        cxn_handle'                 by reference    ios_icc -                 by value        ast_read_comp ,                 by reference    user_context;                 by value        input_buff, input_buff_size          giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  *  fini.      exit program.  *  end program ast_receive. identification division. program-id.    ast_read_comp.  data division. working-storage section.H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  linkage section. *  01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp.      03  ios_icc.5         05  icc_status          pic 9(4)        comp. '         05                      pic xx. 5         05  recv_len            pic 9(9)        comp. 5         05  req_handle          pic 9(9)        comp. 5         05  reply_len           pic 9(9)        comp.  * & procedure division using user_context. 00.      display "in read ast".  A     if icc_status not = ss$_normal call "lib$stop" using by value  icc_status.        if req_handle not = zeros *         display "Can't handle transceives"1         call "lib$stop" using by value ss$_abort.        call "output_msg" *         using   by value        input_buff)                 by reference    recv_len.  *  fini.      exit program.  *  end program ast_read_comp. identification division. program-id.    ast_discon. data division. working-storage section.H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_linkdiscon              pic 9(9)        comp    value   external ss$_linkdiscon. H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  linkage section. *  01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp.      03  ios_icc.5         05  icc_status          pic 9(4)        comp. '         05                      pic xx. 5         05  recv_len            pic 9(9)        comp. 5         05  req_handle          pic 9(9)        comp. 5         05  reply_len           pic 9(9)        comp.  * & procedure division using user_context. 00.      display "in discon ast".3     if cond_val not = ss$_normal and ss$_linkdiscon 0         call "lib$stop" using by value cond_val. *  fini.      exit program.  *  end program ast_discon.  identification division. program-id.    output_msg. data division. working-storage section.H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_linkdiscon              pic 9(9)        comp    value   external ss$_linkdiscon. H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  linkage section. * - 01  out_buff                    pic x(65535). 5 01  out_len                     pic 9(9)        comp.  * + procedure division using out_buff, out_len.  00. .     display "message = ", out_buff(1:out_len). *  fini.      exit program.  *  end program output_msg.  $! $create icc_server.inp $deck  $run icc_server  $eod $! $cobol/lis icc_server  $link icc_server,icc_def $run/detach L sys$system:loginout.exe/out=icc_server.out/inp=icc_server.inp/process_name=i	 cc_server  $! $create icc_client.cob identification division. program-id.    icc_client. author.        Richard Maher.  data division. working-storage section.H 01  ast_receive                 pic 9(9)        comp    value   external ast_receive.H 01  ast_disconnect              pic 9(9)        comp    value   external ast_disconnect. H 01  ast_cxn_comp                pic 9(9)        comp    value   external
 ast_cxn_comp. H 01  ss$_wasclr                  pic 9(9)        comp    value   external ss$_wasclr. H 01  ss$_wasset                  pic 9(9)        comp    value   external ss$_wasset. H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  01  syi_item_list.     03  item_node_name. B         05                      pic 9(4)        comp    value   6.H         05                      pic 9(4)        comp    value   external syi$_nodename.I         05                                      pointer value   reference 
 node_name.I         05                                      pointer value   reference  node_name_length. 5     03                          pic 9(9)        comp.  * 
 01  syi_iosb. 5     03  syi_status              pic 9(9)        comp. )     03                          pic x(4). ) 01  node_name                   pic x(6). 5 01  node_name_length            pic 9(4)        comp.  * 5 01  assoc_handle                pic 9(9)        comp. B 01  buffer_count                pic 9(9)        comp    value   5.B 01  prot_sysprv                 pic 9(9)        comp    value   2. 01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp. 5     03  cxn_handle              pic 9(9)        comp. +     03  return_buff             pic x(512). 5     03  return_buff_len         pic 9(4)        comp.  *  procedure division.  kick_off section.  00.      perform client_init.  9     call "sys$setast" using by value 0 giving sys_status. A     if sys_status not = ss$_wasset call "lib$stop" using by value  sys_status.        call "sys$icc_connect"$         using   by reference    iosb,                 by value        ast_cxn_comp,                 by reference    user_context,                 by value        assoc_handle*                 by reference    cxn_handle2                 by descriptor   "ICC_TEST_SERVER", node_name(1:node_name_length) 8                 by reference    user_context, "*Hello!*"!                 by value        8 +                 by reference    return_buff #                 by value        512 /                 by reference    return_buff_len !                 by value        0          giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.   &     display "Hibernating. . .zzzzzzz".  9     call "sys$setast" using by value 1 giving sys_status. A     if sys_status not = ss$_wasclr call "lib$stop" using by value  sys_status.        call "sys$hiber".   9     call "sys$setast" using by value 0 giving sys_status. A     if sys_status not = ss$_wasset call "lib$stop" using by value  sys_status.        display "Trying again.".       call "sys$icc_connect"$         using   by reference    iosb,                 by value        ast_cxn_comp,                 by reference    user_context,                 by value        assoc_handle*                 by reference    cxn_handle2                 by descriptor   "ICC_TEST_SERVER", node_name(1:node_name_length) 7                 by reference    user_context, "1234567" !                 by value        7 +                 by reference    return_buff #                 by value        512 /                 by reference    return_buff_len !                 by value        0          giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.   &     display "Hibernating. . .zzzzzzz".  9     call "sys$setast" using by value 1 giving sys_status. A     if sys_status not = ss$_wasclr call "lib$stop" using by value  sys_status.        call "sys$hiber".        display "Exiting.".  *  fini. A     call "sys$icc_close_assoc" using by value assoc_handle giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.   
     stop run.  *  client_init section. 00.      call "sys$getsyiw"(         using   by value        0, 0, 0,7                 by reference    syi_item_list, syi_iosb $                 by value        0, 0         giving  sys_status. =     if sys_status = ss$_normal move syi_status to sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.        call "sys$icc_open_assoc" ,         using   by reference    assoc_handle1                 by descriptor   "ICC_TEST_CLIENT" (                 by value        0, 0, 0,/                                 ast_disconnect, ,                                 ast_receive,-                                 buffer_count, +                                 prot_sysprv          giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  *  fini.  *  end program icc_client.  identification division. program-id.    ast_disconnect. data division. working-storage section.H 01  ast_discon                  pic 9(9)        comp    value   external ast_discon. H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  * ( 01  rem_pid                     pointer.E 01  buff_init_size              pic 9(9)        comp    value   1024.  *  linkage section.5 01  event_type                  pic 9(9)        comp. H     88  icc$c_ev_connect                                value   external icc$c_ev_connect. H     88  icc$c_ev_disconnect                             value   external icc$c_ev_disconnect.5 01  cxn_handle                  pic 9(9)        comp. 5 01  cxn_data_len                pic 9(9)        comp. , 01  cxn_data_buff               pic x(1000). 01  cxn_p5. 5     03  cxn_p5_lw               pic 9(9)        comp. B     66  cxn_reply_buff_len                      renames cxn_p5_lw.B     66  cxn_discon_status                       renames cxn_p5_lw. 01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp. 5     03  a_cxn_handle            pic 9(9)        comp. +     03  return_buff             pic x(512). 5     03  return_buff_len         pic 9(4)        comp. * 01  rem_username                pic x(12). *  procedure division         using   event_type,                  cxn_handle,                  cxn_data_len,                  cxn_data_buff,                 cxn_p5,                  user_context,                  rem_username.  kick_off section.  00.      if icc$c_ev_disconnect         perform remove_cxn     else1         call "lib$stop" using by value ss$_abort.  *  fini.      exit program.  *  remove_cxn section.  00. B     display "exit Status was ", cxn_discon_status with conversion.     call "sys$icc_disconnect" *         using   by value        cxn_handle$                 by reference    iosb*                 by value        ast_discon,                 by reference    user_context#                 by value        0,0          giving  sys_status. B      if sys_status not = ss$_normal call "lib$stop" using by value sys_status.  *  fini.  *  end program ast_disconnect.  identification division. program-id.    ast_receive.  data division. working-storage section.H 01  ast_read_comp               pic 9(9)        comp    value   external ast_read_comp.H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  01  ast_param.     03  ios_icc.5         05  icc_status          pic 9(4)        comp. '         05                      pic xx. 5         05  recv_len            pic 9(9)        comp. 5         05  req_handle          pic 9(9)        comp. 5         05  reply_len           pic 9(9)        comp.  *  linkage section.5 01  message_size                pic 9(9)        comp. 5 01  cxn_handle                  pic 9(9)        comp.  01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp. 5     03  a_cxn_handle            pic 9(9)        comp. +     03  return_buff             pic x(512). 5     03  return_buff_len         pic 9(4)        comp.  *  procedure division         using   message_size,                  cxn_handle,                  user_context.  00. 8     display "MSG Size = ", message_size with conversion.%     if message_size > input_buff_size C         call "lib$free_vm" using input_buff_size, input_buff giving 
 sys_statusE         if sys_status not = ss$_normal call "lib$stop" using by value  sys_status end-if J         call "lib$get_vm" using message_size, input_buff giving sys_statusE         if sys_status not = ss$_normal call "lib$stop" using by value  sys_status end-if -         move message_size to input_buff_size.        call "sys$icc_receive"*         using   by value        cxn_handle'                 by reference    ios_icc -                 by value        ast_read_comp )                 by reference    ast_param ;                 by value        input_buff, input_buff_size          giving  sys_status. A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  *  fini.      exit program.  *  end program ast_receive. identification division. program-id.    ast_read_comp.  data division. working-storage section.H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  linkage section. *  01  ast_param.     03  ios_icc.5         05  icc_status          pic 9(4)        comp. '         05                      pic xx. 5         05  recv_len            pic 9(9)        comp. 5         05  req_handle          pic 9(9)        comp. 5         05  reply_len           pic 9(9)        comp.  * # procedure division using ast_param.  00.      display "in read ast".  A     if icc_status not = ss$_normal call "lib$stop" using by value  sys_status.        if req_handle not = zeros *         display "Can't handle transceives"1         call "lib$stop" using by value ss$_abort.  *  fini.      exit program.  *  end program ast_read_comp. identification division. program-id.    ast_discon. data division. working-storage section.H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  linkage section. *  01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp. 5     03  a_cxn_handle            pic 9(9)        comp. +     03  return_buff             pic x(512). 5     03  return_buff_len         pic 9(4)        comp.  * & procedure division using user_context. 00. 6     display "in discon ast", cond_val with conversion.I     if cond_val not = ss$_normal call "lib$stop" using by value cond_val.   :     call "sys$wake" using by value 0, 0 giving sys_status.A     if sys_status not = ss$_normal call "lib$stop" using by value  sys_status.  *  fini.      exit program.  *  end program ast_discon.  identification division. program-id.    ast_cxn_comp. data division. working-storage section.H 01  ast_xmit                    pic 9(9)        comp    value   external	 ast_xmit. H 01  ss$_reject                  pic 9(9)        comp    value   external ss$_reject. H 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal. 5 01  sys_status                  pic 9(9)        comp.  *  linkage section. *  01  user_context. 
     03  iosb. 5         05  cond_val            pic 9(4)        comp. )         05                      pic x(6). 5     03  input_buff              pic 9(9)        comp. 5     03  input_buff_size         pic 9(9)        comp. 5     03  a_cxn_handle            pic 9(9)        comp. +     03  return_buff             pic x(512). 5     03  return_buff_len         pic 9(4)        comp.  * & procedure division using user_context. 00.      display "in cxn_comp ast".     if cond_val = ss$_reject         display "CXN rejected!" =         call "sys$wake" using by value 0, 0 giving sys_status E         if sys_status not = ss$_normal call "lib$stop" using by value  sys_status end-if          go to fini.   I     if cond_val not = ss$_normal call "lib$stop" using by value cond_val.   "     if return_buff_len not = zerosB         display "Return buff = ", return_buff (1:return_buff_len).       call "sys$icc_transmit" ,         using   by value        a_cxn_handle$                 by reference    iosb(                 by value        ast_xmitH                 by reference    user_context, "This is the message. . .""                 by value        24         giving  sys_status. B      if sys_status not = ss$_normal call "lib$stop" using by value sys_status.o *n fini.      exit program.o *i end program ast_cxn_comp.W identification division. program-id.    ast_xmit. data division. working-storage section.H 01  ast_discon                  pic 9(9)        comp    value   external ast_discon.dH 01  ss$_linkdiscon              pic 9(9)        comp    value   external ss$_linkdiscon.iH 01  ss$_abort                   pic 9(9)        comp    value   external
 ss$_abort.H 01  ss$_normal                  pic 9(9)        comp    value   external ss$_normal.k5 01  sys_status                  pic 9(9)        comp.o *  linkage section. *o 01  user_context.n
     03  iosb.i5         05  cond_val            pic 9(4)        comp.m)         05                      pic x(6).n5     03  input_buff              pic 9(9)        comp.s5     03  input_buff_size         pic 9(9)        comp.n5     03  a_cxn_handle            pic 9(9)        comp.r+     03  return_buff             pic x(512).e5     03  return_buff_len         pic 9(4)        comp.e *a& procedure division using user_context. 00.h4     display "in xmit ast", cond_val with conversion.  ,     if cond_val = ss$_linkdiscon go to fini.I     if cond_val not = ss$_normal call "lib$stop" using by value cond_val.t       call "sys$icc_disconnect"m,         using   by value        a_cxn_handle$                 by reference    iosb*                 by value        ast_discon,                 by reference    user_context#                 by value        0,0          giving  sys_status. B      if sys_status not = ss$_normal call "lib$stop" using by value sys_status.t *c fini.      exit program.o *F end program ast_xmit.s $! $cobol/lis icc_client  $link icc_client,icc_def $run icc_cliento $stop icc_server $exitp  0 Sarah Page <sarah.page@sas.com> wrote in message2 news:hjg2h0t8n7vcf6l52udt1ghhcf25qrim84@4ax.com...H > I am trying the ICC system service stuff (under OpenVMS 7.2-1) out for< > the first time and noone else at my site has ever used it. >pG > 1) I have a multi-threaded server and would like to convert it to use.H > ICC (instead of mailboxes).  I see that ICC relies heavily on ASTs andH > am a little leary because of the constraints / recommendations against, > mixing kernel threads and ASTs.  Comments? >cG > 2) I am perplexed (and hopefully not missing something obvious) about H > how my application is to know the connection handle of an association.H > I.e., the server opens the assocation and the handle over which it canE > read from and write to the client is not known until the connectionsF > AST is hit.  Where is the connection AST supposed to put that handleC > so that the rest of the server (including individual threads) caniD > access it?  Since this is a multi-threaded and very multi-clientedA > server, global storage is not ideal -- especially since I can't H > implement locking from an AST.  I am trying to avoid the use of an ASTC > to receive data from the client, so I've got to know that handle.I >nF > 3) My server uses SYS$CREPRC() to create a detached process, which IG > subsequently send commands to and sometimes collect output from.  ThehH > image specified is SYS$SYSTEM:LOGINOUT.EXE so that the process will beF > under the control of a CLI.  For the input and output args I used toB > specify mailbox devices, but now I want to use ICC so that I canH > launch (and communicate with) processes on other nodes in the cluster.D > I am baffled about what to use for those parameters - I have triedG > both the logical name that I specify in the OPEN_ASSOC() call and the = > assocation name, and also the association name preceeded byg > <node_name>:: ?h >eF > 4) Where can I find more doc about ICC?  I have found one chapter inF > the Programming Concepts Manual, one section in the System Manager'sG > Manual, and then the individual system service routines are of courselG > doc'd in the System Services Manual.  Programming examples in C would  > be outstanding right now.m >t# > Thanks in advance for your input,  >d > Sarah Page > sarah.page@sas.com   ------------------------------  * Date: Sun, 8 Aug 2004 12:02:02 +0000 (UTC) From: david20@alpha2.mdx.ac.uk Subject: Re: rx2600 and SAS,) Message-ID: <cf54nq$3e5$1@news.mdx.ac.uk>l   In article <00A35F43.E8CCCCB9@SSRL.SLAC.STANFORD.EDU>, winston@SSRL.SLAC.STANFORD.EDU ("Alan Winston - SSRL Admin Cmptg Mgr") writes:r` >In article <2nhmauFv0qlU1@uni-berlin.de>, Patrick Young <patrick@hilux.ace.unsw.EDU.AU> writes: >>Larry Kilgallen wrote:` >>> In article <trj4h0t4lt80o19p3rc8eghsaa2tfpe6mg@4ax.com>, Nigel Barker <nigel@hp.com> writes: >>> K >>>>On Thu, 5 Aug 2004 07:15:43 -0700, "Tom Linden" <tom@kednos.com> wrote:m >>>>H >>>>>< There is no evaluation copy to download but you can purchase for  >>>>>< $75 a SoftwareeB >>>>>< Developers Kit with all compilers & other layered products. >>>>>-$ >>>>>All? Well, with some compilers. >>>>T >>>>OK, it ships with C, Fortran, COBOL & Macro32 plus you can download C++, BASIC &S >>>>Pascal as they weren't available when the CDs were mastered. That's pretty muchiM >>>>all the compilers. Don't tell me you only wanted PL/1 as that isn't beingo >>>>ported:-). >>>  rH >>> I gather it also does not include the Ada95 compiler VMS Development >>> said would be available. >>J >>Many thanks to all who responded either by email or NG. It appears thereH >>might be a download available, but we are happy to purchase the kit if >>in stock.n >>H >>Interesting, and pleased to note BASIC is available. IIRC VAX -> Alpha. >>there was a consideration in dropping it :-( > I >My understanding - unofficial, possibly incorrect - was that they didn't K >consider dropping it; they forgot to include it in porting plans, realizedm >their error somewhat later.   >t  M I very much doubt there was any intention to drop Basic during the transitionaJ from VAX to Alpha. At the time it was an extremely widely used language on VAX/VMS systems.      
 David Webb Security team Leader CCSS Middlesex University       >-- Alan >  >n >-- P >===============================================================================1 > Alan Winston --- WINSTON@SSRL.SLAC.STANFORD.EDUbN > Disclaimer: I speak only for myself, not SLAC or SSRL   Phone:  650/926-3056N > Paper mail to: SSRL -- SLAC BIN 99, 2575 Sand Hill Rd, Menlo Park CA   94025P >=============================================================================== >o   ------------------------------   Date: 08 Aug 2004 12:04:22 GMT/ From: Thierry Dussuet <thierry@dussuet.lugs.ch> L Subject: Re: TECO manual location, was: Re: [Somewhat OT] What your non-OVMS/ Message-ID: <slrnchc5m7.ps.thierry@MARS.Family>   = On 2004-08-08, David B Sneddon <dbsneddon@bigpond.com> wrote:  > Scott was overheard to say:dH >> I have to confess that I still use TECO and have done so for lo theseH >> 30+ years.  Don't get me wrong, I've written over 10,000 lines of TPUE >> to augment my use of EVE.  But, sometimes smart editing is just sonF >> much easier in TECO's terse language.  Now that I'm older, however,H >> there are times I have to do the Zen thing... you know, stop thinkingI >> about it and just type.  My fingers remember more TECO commands than IlH >> can conjure up consciously!  But its lonely not having anyone to talk9 >> TECO with anymore. <heartfelt>sigh</heartfelt> --Scott  >uG > What you need to do is have some offspring and teach them in the waysa3 > of Teco, to carry on the tradition -- like I did.e   But not only TECO! :-)   Thierryd   ------------------------------  % Date: Sun, 08 Aug 2004 22:12:50 +0800 , From: Paul Repacholi <prep@prep.synonet.com>L Subject: Re: TECO manual location, was: Re: [Somewhat OT] What your non-OVMS0 Message-ID: <87d62190rh.fsf@k9.prep.synonet.com>  / David B Sneddon <dbsneddon@bigpond.com> writes:   B > What you need to do is have some offspring and teach them in the8 > ways of Teco, to carry on the tradition -- like I did.   And nethack :)  " "Dad, can I have a computer game?"A "Yes, you can have any one you like. Once you ascend in nethack."    -- i< Paul Repacholi                               1 Crescent Rd.,7 +61 (08) 9257-1001                           Kalamunda.x@                                              West Australia 6076* comp.os.vms,- The Older, Grumpier Slashdot. Raw, Cooked or Well-done, it's all half baked.F EPIC, The Architecture of the future, always has been, always will be.   ------------------------------   End of INFO-VAX 2004.437 ************************