. As many have already pointed out this is not a Trival effort. And as I have worked on several of these solutions let my add my two cents. . To issue MVS Services within CICS You MUST be running on a Thread Safe Open TCB (I think its an L8 TCB), YOU MUST NOT BE running under the QR TCB. BUT !! You don't know which TCB You are running under : . So You should carefully architect a Task Related User Exit (TRUE) When the application CALLS the TRUE, YOU WILL BE RUNNING under a Thread Safe TCB. . You should also use a Vector table to point you to the correct module with the TASK Related USER EXIT. Th eVector Table is also good when adding additional non CICS modules. I have worked on such efforts in the Past, IT IS NOT TRIVAL and you need to architect this solution carefully. . Paul .
---------- Original Message ---------- From: "[email protected]" <[email protected]> To: [email protected] Subject: Re: Acquire Storage Date: Wed, 3 Mar 2021 23:15:16 GMT ---------- Original Message ---------- From: "Savor, Thomas" <[email protected]> To: [email protected] Subject: Acquire Storage Date: Wed, 3 Mar 2021 21:30:04 +0000 Ok, got a question for you CICS Assembler folks..... I have a CICS Assembler program that works fine....its Re-Entrant of course. Now I also have some Assembler Sub-programs that can run in Batch. And I want to add them to my Online Program. But...in order to be able to execute in Online it needs to also be re-entrant....which is fine for Batch, but Online not so much.... Now in the sub-program, im executing a STORAGE OBTAIN for the Register SAVEAREA. But as soon as I try and store the first Register in this acquired storage area, Protection Exception - Abend (I think it was a S0C4) Anyway, Is there a sub pool to properly acquire storage that makes Batch and Online Happy or is GETMAIN better or what is the proper way to acquire storage in both Worlds ?? Sorry for the dump question but I cant find anything on this. Thanks, Tom The information contained in this message is proprietary and/or confidential. If you are not the intended recipient, please: (i) delete the message and all copies; (ii) do not disclose, distribute or use the message in any manner; and (iii) notify the sender immediately. In addition, please be aware that any message addressed to our domain is subject to archiving and review by persons other than the intended recipient. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
