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 [email protected] with the message: INFO IBM-MAIN
