Again, thanks to everyone for your suggestions. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of John McKown Sent: Friday, June 30, 2017 1:26 PM To: [email protected] Subject: Re: Assembler program
On Fri, Jun 30, 2017 at 11:52 AM, PINION, RICHARD W. < [email protected]> wrote: > I need a program or snippet of code that determines if the program is > being executed from a TSO user or a batch job. > FIRST TENNESSEE > > EXTRACT macro: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieaa200/iea3a2_Description6.htm Perhaps something like: EXTRACT ANSWERS,'S',FIELDS=(TSO,PSB) LT R5_32,@PSB JZ NOTTSO NOT TSO L R4_32,@TSO CLI 0(R4_32),0 JE BATCH_TMP * RUNNING TSO FOREGROUND ... BATCH_TMP DS 0H * RUNNING TSO IN BATCH ... NOTTSO DS 0H * NOT TSO ADDRESS SPACE. ... ANSWERS DS 0F @TSO DS A @PSB DS A -- Veni, Vidi, VISA: I came, I saw, I did a little shopping. Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
