Yes, control blocks are built in the key of the OPENer. That allows system code to OPEN DCB's that the application code cannot access (usually key 5). I noticed that when I had code that front ended OPEN and got PIC-4 for using TCB key.
On Wed, 25 Dec 2024 00:02:40 +0000 Richard Zierdt <richard.zie...@freschesolutions.com> wrote: :>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. The OPEN was done in zero but the PUT was done in non-zero? Or, perhaps, the OPEN was done non-zero and the PUT was done in zero - yes, that would work as all the storage required is already allocated.l :>No, this is not production code, dangers with key zero, etc, but it is educational. Do not run Key0 unless absolutely required for the minimum time required. There are instructions such as move with key that allow altering Key0 w/o being in key zero. Supervisor state is not that big a deal. -- Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
