TSSINSTX - need to find acid type GROUP or DEPT when in the command portion of the exit.

Document ID : KB000015591
Last Modified Date : 14/02/2018
Show Technical Document Details
Question:

TSSINSTX - need to find acid type GROUP or DEPT when in the command portion of the exit.

 

Answer:

MACRO library.
TXACTYPE refers to #AFLAGS macro:
* * #AFLAGS
* ACTYPE, SECTYPE FLAGS.
*
$ACA         EQU B'11100100' Bit=1=control acid
$ASCA       EQU B'10000000' Security c/acid
$ALSCA     EQU B'11000000' Local SCA (?)
$AVCA       EQU B'01000000' Divisional/client c/a
$ARCA       EQU B'00100000' Region c/a (was $AACA)
$AZCA       EQU B'00100000' Zone c/a (same as RCA)
$ADIV        EQU B'00010000' Division acid
$AREGION  EQU B'00001000' Region acid (was $ATCA)
$AZONE     EQU B'00001000' Zone acid (same as REGION)
$ADCA       EQU B'00000100' Departmental c/a
$ADEPT      EQU B'00000010' Department acid
$AGROUP   EQU B'00000101' Group acid
$APROF     EQU B'00000001' Profile acid
$AUSER     EQU B'00000000' User acid

So if acid type is x'80', it's an SCA.