Douglas Do you have a server address space for your product?
If so, can I suggest that perhaps a re-design would be beneficial here to remove any requirement for the client caller to be running in non-problem state : (1) Have your server setup a system-LX and ETDEF a space-switch PC routine (2) Your server creates a cell pool of request block elements in the required key (if you are using key-7 (Db2) then the easiest way is for your server to execute in key-7 using a definition in SCHEDxx) (3) The client caller then has some sort of macro interface to the PC-ss (4) The PC-ss routine gets a cell from the server key-7 private and populates it (5) The PC-ss routine adds the new request block to the server queue (6) Another task in the server address space processes the queue and releases the request cell back when done Notes : (o) MVCDK and MVCSK can be used to copy data to and from the server (running in Key7) to your client caller (running in "whatever" key) (o) If you require a synchronous response, then the PC-ss could SUSPEND the caller and then the request processing task can then RESUME him when done with the request (o) Task level resource managers are very useful to handle "caller gone" situations when sync response is required - (see RESMGR macro) (o) You may wish to SAF protect the logic in the PC-ss so that only authorized users can add to the queue. Using the above technique, there is no requirement for the client to be running in a non-problem state. Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: rsc...@rs.com Web: www.rocketsoftware.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Douglas P Ewen Sent: 03 March 2014 23:51 To: IBM-MAIN@LISTSERV.UA.EDU Subject: ISPF storage protection Hello, I have a product that uses ISPF panels to allow the user to specify control information for the product. This control information is turned into a control block and then passed(XCTL) to a program that attempts to add the control block to a queue which resides in storage key=7. Although I have APF authorized the program that tries to update the que, I cannot get into a key=7 using the MODESET SVC. The MODESET SVC fails with system completion code=047. Is there anyway to allow a program to successfully issue the MODESET SVC under ISPF? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
