I would expect problems if the references to a DCB are in different keys. But, then, I would also expect the documentation to discuss the issue.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Richard Zierdt <richard.zie...@freschesolutions.com> Sent: Tuesday, December 24, 2024 7:02 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Interesting OPEN - CLOSE behavior in Key 0 External Message: Use Caution Bind Authorized, MODE AMODE(31),RMODE(24) Modeset KEY=ZERO OPEN (SYSPRINT,OUTPUT),MODE=31 CLOSE SYSPRINT,MODE=31 Runs fine. However, OPEN (SYSPRINT,OUTPUT),MODE=31 Modeset KEY=ZERO CLOSE SYSPRINT,MODE=31 Returns IEA705I ERROR DURING FREEMAIN SYS CODE = 30A-18 CSBROPEN OPEN2 00 IEA705I 00FC1B80 008D2AA0 008D2AA0 00000300 00000188 00006DD8 IEF450I CSBROPEN OPEN2 - ABEND=S30A U0000 REASON=00000018 "18 = The system could not find a private area subpool." Well, I wasn't looking for one, but somehow changing mode from NZERO to ZERO between OPEN and CLOSE caused a problem. BTW, a PUT macro worked fine anywhere after OPEN. No, this is not production code, dangers with key zero, etc, but it is educational. Happy Holidaze, everyone 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 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
