Yes — great idea. Thanks. Get more storage than needed, but no more than 4K, and "tune" the address accordingly.
________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Colin Paice <[email protected]> Sent: Thursday, May 29, 2025 1:13 PM To: [email protected] <[email protected]> Subject: Re: CSRCMPSC Compression macro; Obtaining page-aligned storage using LE / Cobol This Message Is From an External Sender This message came from outside your organization. Allocate a big buffer. Address p Calculate p + 4096 / 4096 * 4096. Should give you he page aligned storage On Thu, May 29, 2025, 16:57 Richard Zierdt < [email protected]> wrote: > From assembly services reference manual for the CSRCMPSC macro: "Note that > the expansion dictionary must immediately follow the compression > dictionary, and both must be aligned on page boundaries." OK, cool. > > But if a Cobol program calls an (assembly) program that calls CSRCMPSC, it > (Cobol) must provide a dictionary on a page boundary. > > How can Cobol obtain page-aligned storage? LE service CEEGTST gets heap > storage, but not necessarily on a page boundary. Writing a > quick-and-dirty utility program in assembler would work. Just wondering if > I'm missing some LE, Cobol function, or equivalent service. > > Thanks > Richard Zierdt > > Confidentiality Warning/Avertissement de confidentialité: > > This message is intended only for the named recipients. This message may > contain information that is privileged or confidential. If you are not the > named recipient, its employee or its agent, please notify us immediately > and permanently destroy this message and any copies you may have. Ce > message est destiné uniquement aux destinataires dûment nommés. Il peut > contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas > le destinataire dûment nommé, son employé ou son mandataire, veuillez nous > aviser sans tarder et supprimer ce message ainsi que toute copie qui peut > en avoir été faite. > > ---------------------------------------------------------------------- > 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 Confidentiality Warning/Avertissement de confidentialité: This message is intended only for the named recipients. This message may contain information that is privileged or confidential. If you are not the named recipient, its employee or its agent, please notify us immediately and permanently destroy this message and any copies you may have. Ce message est destiné uniquement aux destinataires dûment nommés. Il peut contenir de l'information privilégiée ou confidentielle. Si vous n'êtes pas le destinataire dûment nommé, son employé ou son mandataire, veuillez nous aviser sans tarder et supprimer ce message ainsi que toute copie qui peut en avoir été faite. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
