home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / bit / listserv / notisl / 4658 < prev    next >
Encoding:
Text File  |  1993-01-22  |  3.6 KB  |  73 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!ASA.UGL.LIB.UMICH.EDU!TIMOTHY
  3. X-Mailer: ELM [version 2.3 PL11]
  4. Message-ID: <9301221427.AA07752@asa.ugl.lib.umich.edu>
  5. Newsgroups: bit.listserv.notis-l
  6. Date:         Fri, 22 Jan 1993 09:27:37 EST
  7. Sender:       NOTIS discussion group list <NOTIS-L@TCSVM.BITNET>
  8. From:         timothy@ASA.UGL.LIB.UMICH.EDU
  9. Subject:      Re: NOTIS 5.1 locked terminals
  10. Comments: To: NOTIS-L@VM.TCS.Tulane.EDU
  11. In-Reply-To:  <9301191656.AA09385@asa.ugl.lib.umich.edu>; from "Peggy Seaquist"
  12.               at Jan 19, 93 11:56 am
  13. Lines: 58
  14.  
  15. Peggy Seaquist writes:
  16. >
  17. >     Here's a quick question for NOTIS 5.1 sites (or those on the
  18. > way to NOTIS 5.1).  We at Auburn are thinking that we may not want
  19. > to use NSYS to define which terminals are locked into OPAC.  Instead
  20. > our SYS1 maintains a table with all terminals we want locked in OPAC
  21. > and uses this to set taskid causing LNAV to come up upon logon.
  22. >     This works all well and good except when the user tries to exit
  23. > (with clear, for example) and then gets a blank screen when we drop
  24. > back to CICS.  But as soon as a key is pressed, CICS recognizes the
  25. > terminal as locked and (poof) LNAV comes up again.
  26. >     What I need to do is to insert some code somewhere to check
  27. > for locked terminal at the time user presses clear.  I see that
  28. > LPC100P has code to check the terminal options byte for the
  29. > appropriate terminal record in the lcrfile.  Where in 5.0.2 is the
  30. > code that checked for opid=#$# ?  I'm not sure where would be the
  31. > best place to put code to do what CICS is doing to determine whether
  32. > a terminal is locked or not.
  33. >     If anyone is also using this plan of attack, how'd ya do it?
  34. > Might there be a good reason for NOT doing it this way, and just
  35. > using NSYS to call these locked?  Thanks in advance for any help
  36. > you can offer!
  37. When I first read this, I wondered why Peggy would want to do this,
  38. but then I thought a bit and remembered that if you really want to
  39. lock terminals into opac, you have to mess with the TCT anyway
  40. (to set the TRANSID so that the terminal will come up in OPAC
  41. initially), so using the OPERID=#$# to disable the stop command
  42. still makes sense.  Although we use NSYS terminal control to do it,
  43. here's how you could do it using the opac user exit, LPC900P, as
  44. someone already mentioned:
  45.  
  46.  013496 PROCCLR  DS    0H
  47.  013497          ST    R14,DSR14LV1        SAVE RETURN REGISTER
  48.  013498          EXEC  CICS ASSIGN OPID(DSOPID)
  49.  013499          CLC   DSOPID,=CL3'#$#'    LOCKED?
  50.  013500          BNE   PCLREX                NO, CONTINUE
  51.  013516          MVC   OPACUTRN,OPACUOTR     YES, SET FOR OPAC RESTART
  52.  013520 PCLREX   DS    0H                  EXIT POINT
  53.  013521          L     R14,DSR14LV1        RESTORE RETURN REGISTER
  54.  013522          BR    R14                 RETURN
  55. Lines 13498-13516 are added.  Also, in the dynamic storage area you need:
  56.  
  57.  008700 ***********************************************************************
  58.  008800 *                                                                     *
  59.  008900 *        USER DYNAMIC STORAGE AREA                                    *
  60.  009000 *                                                                     *
  61.  009100 ***********************************************************************
  62.  009200          SPACE 1
  63.  009210 DSOPID   DS    CL3                 OPERATOR ID FROM EXEC ASSIGN
  64.  009300 *  SUB-ROUTINE LINKAGE STACK.
  65. Line 9210 is added.
  66.  
  67. Hope this helps.
  68.  
  69. Timothy Prettyman
  70. Library Systems Office          313-764-0412
  71. University of Michigan          INTERNET:  timothy_prettyman@umich.edu
  72. Ann Arbor, MI  48109-1185       BITNET:  USERLM5C@UMICHUM
  73.