Ed
Thanks you are correct was in bed when I saw the email
Just looked at the code had ASCENV=AR
> On Sep 4, 2023, at 11:39 PM, Joseph Reichman <reichman...@gmail.com> wrote:
>
> 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
