A lot of times, U4038 is not enough region... Joe
On Mon, Apr 10, 2023 at 6:15 AM Cameron Conacher < 000003cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote: > Good call 😊 > > I ALLOCATE once. > And just before GOBACK, I issue the FREE. Just one time. > I am thinking it might be related to EXPEDITER. > > That is my current WAG. > > > Thanks > > …….Cameron > > -----Original Message----- > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf > Of Charles Mills > Sent: Sunday, April 9, 2023 8:07 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [External] Re: COBOL question > > I can't see your code of course but my WAG is a programmer logic error. > (Sorry!) I am going to guess your logic is such that you try to free the > same area twice or, less likely, corrupt your pointer. > > You say you check to see if it is null before freeing. Do you set it to > NULL after freeing? > > Charles > > On Sun, 9 Apr 2023 23:01:05 +0000, Cameron Conacher < > cameron.conac...@aexp.com> wrote: > > >Thanks Bob, > >No I initialize the Pointer to NULL, and then allocate. Successfully. > >And then later I check to see it the pointer = NULL. If it is not NULL, > then I do the FREE. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ________________________________ > American Express made the following annotations > ________________________________ > This e-mail was sent to you by a representative of Amex Bank of Canada, > P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. > If you no longer wish to receive these e-mails, please notify the sender by > reply e-mail. > > This e-mail is solely for the intended recipient and may contain > confidential or privileged information. If you are not the intended > recipient, any disclosure, copying, use, or distribution of the information > included in this e-mail is prohibited. If you have received this e-mail in > error, please notify the sender by reply e-mail and immediately and > permanently delete this e-mail and any attachments. Thank you. > > American Express a fait les remarques suivantes > Ce courriel vous a été envoyé par un représentant de la Banque Amex du > Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, > www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir > ces courriels, veuillez en aviser les expéditeurs par courriel. > > Ce courriel est réservé au seul destinataire indiqué et peut renfermer des > renseignements confidentiels et privilégiés. Si vous n’êtes pas le > destinataire prévu, toute divulgation, duplication, utilisation ou > distribution du courriel est interdite. Si vous avez reçu ce courriel par > erreur, veuillez en aviser l’expéditeur par courriel et détruire > immédiatement le courriel et toute pièce jointe. Merci. > > ---------------------------------------------------------------------- > 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