Do you have an anchor, a place you could store one 32-bit word? If so, a lower overhead than GETMAIN is a cell pool. It takes a little work to set it up initially, but after that you can get 'n' bytes of reentrant storage very quickly.
Write me off-line (if you wish) Scott if you want more details. Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of scott Ford Sent: Monday, November 25, 2019 7:46 AM To: [email protected] Subject: Re: WTO David, It’s the way CA calls the exit. There is a workarea dsect and notes from CA peppered through the exit and doc saying there is a 100 byte limitation. Scott On Mon, Nov 25, 2019 at 4:20 AM David Crayford <[email protected]> wrote: > That's interesting! You said the exit was re-entrant so how is it > obtaining the working storage. If it's doing a GETMAIN why don't you > just increase the size > of the storage. Why do you have a constraint of 100 bytes? > > On 2019-11-25 1:11 AM, scott Ford wrote: > > David, > > > > True, sorry misread his reply. David my issue is I have limited storage > for > > variables, 100 bytes , like being back writing BAL on a 360/20. I haven’t > > had this experience on a piece of re-entrant code with this limitation. > > This was one of the main reasons I asked the question of my colleagues > here > > on the Listserv. > > > > The exit is Top-secrets exit. > > > > Scott > > > > On Sun, Nov 24, 2019 at 7:07 AM David Crayford <[email protected]> > wrote: > > > >> On 2019-11-23 7:07 AM, scott Ford wrote: > >>> Henri, > >>> > >>> That’s what ended up doing , thank you, I appreciate any help. > >> Maybe a bit of a misunderstanding here. I think what Henri was > >> suggesting was using a UNIX shell that pipes messages to /dev/console > >> which writes WTOs using the syslogd daemon. > >> > >> echo "hello" > /dev/console > >> > >> I think your problem was related to writing assembler code with WTO > macros? > >> > >> > >>> Scott > >>> > >>> On Fri, Nov 22, 2019 at 3:38 PM Henri Kuiper <[email protected]> > >>> wrote: > >>> > >>>> Maybe a bit late. But a plain WTO via an echo to /dev/console not an > >>>> option? > >>>> > >>>> Sent from my wireless iPhone > >>>> > >>>>> On 19 Nov 2019, at 18:52, scott Ford <[email protected]> wrote: > >>>>> > >>>>> Bruce, Peter, all: > >>>>> > >>>>> A big thanks . its much appreciated by this older t-rex. > >>>>> > >>>>> Scott > >>>>> > >>>>>> On Tue, Nov 19, 2019 at 3:10 AM Bruce Hewson < > >> [email protected]> > >>>>>> wrote: > >>>>>> > >>>>>> Hello Scott, > >>>>>> > >>>>>> How I do it. > >>>>>> > >>>>>> in CSECT copy list form from CONSTANTs section to DSECT working > >> section > >>>>>> Update message text > >>>>>> run WTO execute form > >>>>>> > >>>>>> in DSECT > >>>>>> WTO list form map > >>>>>> > >>>>>> in Constants > >>>>>> WTO_text WTO list form with text > >>>>>> WTO_length = * - WTO_text > >>>>>> > >>>>>> DESCT maps onto your own STORAGE area, thus copying the constant > LIST > >>>> form > >>>>>> over the DSECT map makes the code reentrant. > >>>>>> > >>>>>> > >>>>>> > >>>>>> > >>>>>> > >>>>>>> On Mon, 18 Nov 2019 08:55:45 -0500, scott Ford <[email protected] > > > >>>> wrote: > >>>>>>> Peter, > >>>>>>> > >>>>>> <snip> > >>>>>>> I have to add displays ( WTOs ). I dont have complaints again IBM, > >>>> rarely, > >>>>>>> best people I ever worked with, my issue is howtos. Working > examples > >>>> which > >>>>>>> I can refer to and understand > >>>>>>> (prototype) before I start writing code. When to use the execute > form > >>>> of > >>>>>>> the macro vs list, also let me add I was never an applications > >>>> program, i > >>>>>> <snip> > >>>>>> > >>>>>> > >>>>>> Regards > >>>>>> Bruce > >>>>>> > >>>>>> > ---------------------------------------------------------------------- > >>>>>> For IBM-MAIN subscribe / signoff / archive access instructions, > >>>>>> send email to [email protected] with the message: INFO > >> IBM-MAIN > >>>>> -- > >>>>> > >>>>> > >>>>> > >>>>> *IDMWORKS * > >>>>> > >>>>> Scott Ford > >>>>> > >>>>> z/OS Dev. > >>>>> > >>>>> > >>>>> > >>>>> > >>>>> “By elevating a friend or Collegue you elevate yourself, by > demeaning a > >>>>> friend or collegue you demean yourself” > >>>>> > >>>>> > >>>>> > >>>>> www.idmworks.com > >>>>> > >>>>> [email protected] > >>>>> > >>>>> Blog: www.idmworks.com/blog > >>>>> > >>>>> > >>>>> > >>>>> > >>>>> > >>>>> *The information contained in this email message and any attachment > may > >>>> be > >>>>> privileged, confidential, proprietary or otherwise protected from > >>>>> disclosure. If the reader of this message is not the intended > >> recipient, > >>>>> you are hereby notified that any dissemination, distribution, copying > >> or > >>>>> use of this message and any attachment is strictly prohibited. If you > >>>> have > >>>>> received this message in error, please notify us immediately by > >> replying > >>>> to > >>>>> the message and permanently delete it from your computer and destroy > >> any > >>>>> printout thereof.* > >>>>> > >>>>> > ---------------------------------------------------------------------- > >>>>> 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 > >> > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Scott Ford IDMWORKS z/OS Development ---------------------------------------------------------------------- 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
