I don’t know if used sysstate macro but let me check i would assume the default
value is primary
> On Sep 4, 2023, at 11:33 PM, Ed Jaffe <edja...@phoenixsoftware.com> wrote:
>
> On 9/4/2023 6:09 PM, Joseph Reichman wrote:
>> Can someone explain to me why the last instruction in the LOCASCB MACRO is
>> SAC X'200'
>
> When all else fails, just look at the code. It's a self-service activity!
>
> Here is how the LOCASCB macro is coded:
>
> | AIF ('&SYSASCE' EQ 'P').NOAR1 @L2A
> | SAC 0 @L2A
> |.NOAR1 ANOP @L2A
> | BALR 14,15 .ENTER THE LOCASCB ROUTINE
> | AIF ('&SYSASCE' EQ 'P').NOAR2 @L2A
> | SAC X'200' @L2A
> |.NOAR2 ANOP @L2A
>
> You can plainly see that if your program is running with SYSSTATE ASCENV=P
> then no SAC instructions are generated. Otherwise, LOCASCB issues SAC 0
> before the BALR and SAC 512 upon return.
>
>
> --
> Phoenix Software International
> Edward E. Jaffe
> 831 Parkview Drive North
> El Segundo, CA 90245
> https://www.phoenixsoftware.com/
>
>
> --------------------------------------------------------------------------------
> This e-mail message, including any attachments, appended messages and the
> information contained therein, is for the sole use of the intended
> recipient(s). If you are not an intended recipient or have otherwise
> received this email message in error, any use, dissemination, distribution,
> review, storage or copying of this e-mail message and the information
> contained therein is strictly prohibited. If you are not an intended
> recipient, please contact the sender by reply e-mail and destroy all copies
> of this email message and do not otherwise utilize or retain this email
> message or any or all of the information contained therein. Although this
> email message and any attachments or appended messages are believed to be
> free of any virus or other defect that might affect any computer system into
> which it is received and opened, it is the responsibility of the recipient
> to ensure that it is virus free and no responsibility is accepted by the
> sender for any loss or damage arising in any way from its opening or use.
>
> ----------------------------------------------------------------------
> 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
