!*** MODULE $ISSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  $PERSONA_CREATE, $PERSONA_CREATE_INT itemlist item codes
 !  These item codes must match the TLV item codes in [LIB]PSBDEF.SDL
 ! 
 ! -
 ! +
 !  At the time of this modules creation there are four CHP$ item codes which
 !  must have the same value as their ISS$ counterparts. They are as follows:
 ! 
 !  ISS$_WORKPRIV   = CHP$_PRIV       = 3
 !  ISS$_CLASS      = CHP$_CLASS      = 5
 !  ISS$_ADD_RIGHTS = CHP$_ADD_RIGHTS = 7
 !  ISS$_UIC        = CHP$_UIC        = 22
 ! 
 !  This is to preserve backward comptibility with $CREATE_USER_PROFILE.
 ! -
	PARAMETER ISS$_FLAGS = '00000001'X	 !  1  Persona flags
	PARAMETER ISS$_ARBFLAGS = '00000002'X	 !  2  Unused
	PARAMETER ISS$_WORKPRIV = '00000003'X	 !  3  Working privileges
	PARAMETER ISS$_MODE = '00000004'X	 !  4  Access mode
	PARAMETER ISS$_WORKCLASS = '00000005'X	 !  5  Working classification
	PARAMETER ISS$_RIGHTS = '00000006'X	 !  6  Rights
	PARAMETER ISS$_ADD_RIGHTS = '00000007'X	 !  7  Add to the Rights
	PARAMETER ISS$_ADD_AUTHRIGHTS = '00000008'X  !  8  Add to the AuthRights
	PARAMETER ISS$_USERNAME = '00000009'X	 !  9  Username
	PARAMETER ISS$_ACCOUNT = '0000000A'X	 !  10 Account
	PARAMETER ISS$_NOAUDIT = '0000000B'X	 !  11 No Audit setting
	PARAMETER ISS$_AUTHPRIV = '0000000C'X	 !  12 Authorized privileges
	PARAMETER ISS$_PERMPRIV = '0000000D'X	 !  13 Permanent privileges
	PARAMETER ISS$_IMAGE_WORKPRIV = '0000000E'X  !  14 Image working privileges
	PARAMETER ISS$_ENABLED = '0000000F'X	 !  15 Rights enabled mask
	PARAMETER ISS$_AUTHRIGHTS = '00000010'X	 !  16 Authorized rights
	PARAMETER ISS$_MINCLASS = '00000011'X	 !  17 Minimum classification
	PARAMETER ISS$_MAXCLASS = '00000012'X	 !  18 Maximum classification
	PARAMETER ISS$_UID = '00000013'X	 !  19 UID
	PARAMETER ISS$_PERSONA_ID = '00000014'X	 !  20 Persona ID
	PARAMETER ISS$_PRINCIPAL = '00000015'X	 !  21 Principal Name
	PARAMETER ISS$_UIC = '00000016'X	 !  22 UIC
	PARAMETER ISS$_SWITCH_EXTENSION = '00000017'X  !  23 Switch Extension directive
	PARAMETER ISS$_PRIMARY_EXTENSION = '00000018'X  !  24 PSB Primary Extension
	PARAMETER ISS$_EXTENSION_COUNT = '00000019'X  !  25 Count of valid extensions
	PARAMETER ISS$_EXTENSION_ARRAY = '0000001A'X  !  26 Array of valid extension IDs
	PARAMETER ISS$_RIGHTS_INDEX = '0000001B'X  !  27 Rights Chain Index - sets the
 !      chain for all rights list 
 !      operations. 
	PARAMETER ISS$_INPUT_DATA = '0000001C'X	 !  28 Generic buffer for IN/OUT query
	PARAMETER ISS$_POSIX_UID = '0000001D'X	 !  29 POSIX User ID
	PARAMETER ISS$_POSIX_GID = '0000001E'X	 !  30 POSIX Group ID
	PARAMETER ISS$_MIN_ITEM_CODE = '00000001'X
	PARAMETER ISS$_MAX_ITEM_CODE = '0000001E'X
 ! +
 !  Bits within item code ISS$_FLAGS
 ! -
	PARAMETER ISS$M_FLAG_PERMANENT = '00000001'X
	PARAMETER ISS$M_FLAG_SECAUDIT = '00000002'X
	STRUCTURE /ISSFLAGSDEF/
	UNION
	    MAP
	        PARAMETER ISS$S_FLAG_PERMANENT = 1
	        PARAMETER ISS$V_FLAG_PERMANENT = 0
	        PARAMETER ISS$S_FLAG_SECAUDIT = 1
	        PARAMETER ISS$V_FLAG_SECAUDIT = 1
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! ISSFLAGSDEF
 !  Codes that represent common attributes that are normally
 !  present in all persona extensions
	PARAMETER ISS$_COMMON_FLAGS = '00000400'X  !  Flags
	PARAMETER ISS$_COMMON_USERNAME = '00000401'X  !  Username
	PARAMETER ISS$_COMMON_ACCOUNT = '00000402'X  !  Account
	PARAMETER ISS$_DOMAIN = '00000403'X	 !  Domain
	PARAMETER ISS$_COMMON_PRINCIPAL = '00000404'X  !  principal
	PARAMETER ISS$_DOI = '00000405'X
	PARAMETER ISS$_EXTENSION = '00000406'X	 !  Extension name
	PARAMETER ISS$_MAKE_TLV = '00000407'X	 !  For NSA$MAKE_TLV
	PARAMETER ISS$_MIN_COMMON_ITEM_CODE = '00000400'X
	PARAMETER ISS$_MAX_COMMON_ITEM_CODE = '00000407'X
 !  Codes that represent attributes specific to each persona extension.
 !  These codes are shared by all extensions.
 !  NT Persona extension item codes
	PARAMETER ISS$_NT_TOKEN = '00002000'X	 !  token
	PARAMETER ISS$_NT_SECURITY_SUBJECT = '00002001'X  !  securtiy context
	PARAMETER ISS$_NT_FLAGS = '00002002'X
	PARAMETER ISS$_NT_USER_REFCOUNT = '00002003'X
	PARAMETER ISS$_NT_PRINCIPAL = '00002004'X
	PARAMETER ISS$_NT_CREDENTIALS = '00002005'X  !  access token + security context
	PARAMETER ISS$_NT_NT_OWF_PASSWORD = '00002006'X  ! 
	PARAMETER ISS$_NT_LM_OWF_PASSWORD = '00002007'X  ! 
	PARAMETER ISS$_NT_UNPACK_CRED_SIZE = '00002008'X
	PARAMETER ISS$_NT_TOKEN_TOKENID = '00002009'X
	PARAMETER ISS$_NT_TOKEN_IMPERSONATELEVEL = '0000200A'X
	PARAMETER ISS$_NT_TOKEN_AUTHENTICATIONID = '0000200B'X
	PARAMETER ISS$_NT_TOKEN_USERANDGROUPCOUNT = '0000200C'X
	PARAMETER ISS$_NT_TOKEN_VARIABLELENGTH = '0000200D'X
	PARAMETER ISS$_NT_TOKEN_USERANDGROUPS = '0000200E'X
	PARAMETER ISS$_NT_TOKEN_USERANDGROUPS_SID = '0000200F'X
	PARAMETER ISS$_NT_TOKEN_PRIMARYGROUP = '00002010'X
	PARAMETER ISS$_NT_TOKEN_PRIVILEGES = '00002011'X
	PARAMETER ISS$_NT_TOKEN_DEFAULTDACL = '00002012'X
	PARAMETER ISS$_NT_TOKEN_UNIXUID = '00002013'X
	PARAMETER ISS$_NT_TOKEN_UNIXGID = '00002014'X
	PARAMETER ISS$_NT_TOKEN_GIDINFO = '00002015'X
	PARAMETER ISS$_NT_TOKEN_GIDINFO_GIDS = '00002016'X
	PARAMETER ISS$_NT_TOKEN_UNIXNAME = '00002017'X
	PARAMETER ISS$_NT_TOKEN_DOMAINNAME = '00002018'X
	PARAMETER ISS$_NT_TOKEN_USERNAME = '00002019'X
	PARAMETER ISS$_NT_TOKEN_USERSESSIONKEY = '0000201A'X
	PARAMETER ISS$_NT_TOKEN_LMSESSIONKEY = '0000201B'X
	PARAMETER ISS$_NT_TOKEN_VARIABLEPART = '0000201C'X
	PARAMETER ISS$_NT_TOKEN_GROUP_LIST = '0000201D'X
	PARAMETER ISS$_NT_TOKEN_PRIVILEGES_LIST = '0000201E'X
	PARAMETER ISS$_NT_SECURITY_SIGNATURE = '0000201F'X
	PARAMETER ISS$_NT_SECURITY_SMBUID = '00002020'X
	PARAMETER ISS$_NT_SECURITY_PROCESSAUDITID = '00002021'X
	PARAMETER ISS$_NT_SECURITY_PROCESSID = '00002022'X
	PARAMETER ISS$_NT_SECURITY_LOGONID = '00002023'X
	PARAMETER ISS$_NT_SECURITY_LOGONTYPE = '00002024'X
	PARAMETER ISS$_NT_SECURITY_SUBJECTFLAGS = '00002025'X
	PARAMETER ISS$_NT_SECURITY_CONTEXT_OTHER = '00002026'X
	PARAMETER ISS$_MIN_NT_ITEM_CODE = '00002000'X
	PARAMETER ISS$_MAX_NT_ITEM_CODE = '00002026'X
 ! +
 !  Bits within item code ISS$_ENABLED
 ! -
	PARAMETER ISS$M_ENABLED_PERSONA = '00000001'X
	PARAMETER ISS$M_ENABLED_SUBSYSTEM = '00000002'X
	PARAMETER ISS$M_ENABLED_IMAGE = '00000004'X
	PARAMETER ISS$M_ENABLED_SYSTEM = '00000008'X
	PARAMETER ISS$M_ENABLED_TEMPORARY = '00000010'X
	STRUCTURE /ISSENABLEDDEF/
	UNION
	    MAP
	        PARAMETER ISS$S_ENABLED_PERSONA = 1
	        PARAMETER ISS$V_ENABLED_PERSONA = 0
	        PARAMETER ISS$S_ENABLED_SUBSYSTEM = 1
	        PARAMETER ISS$V_ENABLED_SUBSYSTEM = 1
	        PARAMETER ISS$S_ENABLED_IMAGE = 1
	        PARAMETER ISS$V_ENABLED_IMAGE = 2
	        PARAMETER ISS$S_ENABLED_SYSTEM = 1
	        PARAMETER ISS$V_ENABLED_SYSTEM = 3
	        PARAMETER ISS$S_ENABLED_TEMPORARY = 1
	        PARAMETER ISS$V_ENABLED_TEMPORARY = 4
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! ISSENABLEDDEF
 !  ARB_SUPPORT constants
	PARAMETER ISS$C_ARB_UNSPECIFIED = -1
	PARAMETER ISS$C_ARB_NONE = '00000000'X
	PARAMETER ISS$C_ARB_CLEAR = '00000001'X
	PARAMETER ISS$C_ARB_READ_ONLY = '00000002'X
	PARAMETER ISS$C_ARB_FULL = '00000003'X
	PARAMETER ISS$C_ARB_FORCE = '00000004'X	 !  Ignore multiple usermode persona check
	PARAMETER ISS$C_ARB_MAX_CODE = '00000004'X
	PARAMETER ISS$C_ARB_MIN_CODE = '00000000'X
 !  Reserved Persona Ids
	PARAMETER ISS$C_ID_NATURAL = '00000001'X
	PARAMETER ISS$C_ID_POSIX_REAL = -2
	PARAMETER ISS$C_ID_IMAGE_PERSONA = -2
 ! +
 !  Persona services control flags
 ! -
	PARAMETER ISS$M_IMP_FLAGS = '0000007F'X
	PARAMETER ISS$M_ASSUME_NODEREF_OLD = '00010000'X
	PARAMETER ISS$M_ASSUME_NOREF_NEW = '00020000'X
	PARAMETER ISS$M_CREATE_DEFPRIV = '00000008'X
	PARAMETER ISS$M_CREATE_DEFCLASS = '00000010'X
	PARAMETER ISS$M_CREATE_AUTHPRIV = '00000020'X
	PARAMETER ISS$M_NOACCESS = '00100000'X
	STRUCTURE /ISSSRVCFLG/
	UNION
 ! 
 !  Common flags
 ! 
	    MAP
	        PARAMETER ISS$S_IMP_FLAGS = 7
	        PARAMETER ISS$V_IMP_FLAGS = 0		 !  Previously defined IMP flags
	    BYTE %FILL (1)
	    END MAP
 ! 
 !  ASSUME service control flags
 ! 
	    MAP
	        PARAMETER ISS$S_ASSUME_NODEREF_OLD = 1
	        PARAMETER ISS$V_ASSUME_NODEREF_OLD = 16	 !  Do not drop a reference to
 !  the old (pre-ASSUME) persona
	        PARAMETER ISS$S_ASSUME_NOREF_NEW = 1
	        PARAMETER ISS$V_ASSUME_NOREF_NEW = 17	 !  Do not add a reference to
 !  the new (post-ASSUME) persona
	    BYTE %FILL (1)
	    END MAP
 ! 
 !  CREATE service control flags
 ! 
	    MAP
	        PARAMETER ISS$S_CREATE_DEFPRIV = 1
	        PARAMETER ISS$V_CREATE_DEFPRIV = 3	 !  Create psb w/ def. privs.
	        PARAMETER ISS$S_CREATE_DEFCLASS = 1
	        PARAMETER ISS$V_CREATE_DEFCLASS = 4	 !  Create psb w/ def. class.
	        PARAMETER ISS$S_CREATE_AUTHPRIV = 1
	        PARAMETER ISS$V_CREATE_AUTHPRIV = 5	 !  Create psb w/ auth. privs.
 !  and the assume flags.
	        PARAMETER ISS$S_NOACCESS = 1
	        PARAMETER ISS$V_NOACCESS = 20		 !  When set, do not access
 !  the SYSUAF or RIGHTSLIST.
 !  This is similar to 
 !       CREATE_USER_PROFILE.
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! ISSSRVCFLG
 !  NT TLV version number 
	PARAMETER ISS$K_NT_VERSION_1 = '00000001'X
!DEC$ END OPTIONS