Security Database Information and DSECTs › #SECRB
#SECRB
COPY #SECRB
*********************************************************************
*** ***
*** Security Request Block ***
*** ***
*** COPYRIGHT (C) 2007 CA technologies. ALL RIGHTS RESERVED. ***
*** ***
*** ***
*** ***
*********************************************************************
Offset Value
000000 SECRB DSECT 04/05/94
000000 SRBFUNC DS XL1 Function code
000001 SRBSCREL DS XL1 SRB release level
*
SRBPINT #FLAG X'80' Processing is INTERNAL
000002 SRBPINTI DS 0XL1
00080 SRBPINTM EQU X'80'
SRBPEXT #FLAG X'40' Processing is EXTERNAL
000002 SRBPEXTI DS 0XL1
00040 SRBPEXTM EQU X'40'
SRBUSRR #FLAG X'20' Requester is in USER-MODE
000002 SRBUSRRI DS 0XL1
00020 SRBUSRRM EQU X'20'
SRBSECR #FLAG SRBPINTM+SRBPEXTM Entity secured somehow
000002 SRBSECRI DS 0XL1
000C0 SRBSECRM EQU SRBPINTM+SRBPEXTM
000002 SRBPFLG DS XL1 Processing flag
*
SRBXFPR #FLAG X'80' Preprocessing exit in control
000003 SRBXFPRI DS 0XL1
00080 SRBXFPRM EQU X'80'
SRBXFPO #FLAG X'40' Postprocessing exit in control
000003 SRBXFPOI DS 0XL1
00040 SRBXFPOM EQU X'40'
SRBXFAB #FLAG X'20' Call aborted by exit
000003 SRBXFABI DS 0XL1
00020 SRBXFABM EQU X'20'
SRBXFS3 #FLAG X'10' Exit says skip EXIT3
000003 SRBXFS3I DS 0XL1
00010 SRBXFS3M EQU X'10'
SRBXSGN #FLAG X'08' External signon call to exit 29
000003 SRBXSGNI DS 0XL1
00008 SRBXSGNM EQU X'08'
000003 SRBXFLG DS XL1 Exit flags
*
000004 SRBERMSG DS PL4 Error message id
000008 SRBERTXT DS CL80 Full message text
000058 ORG SRBERTXT Redefine for use during SIGNON
000008 SRBCRYOP DS XL8 Encrypted old password
000010 SRBCRYNP DS XL8 Encrypted new password
000018 ORG
*
000058 SRBXRTNC DS 0XL4 Return/reason codes
000058 SRBXR15 DS XL2 R15 return code
00004 SRBXURES EQU 4 Resource unknown or undefined
00004 SRBXUUSR EQU 4 User id unknown
00008 SRBXNACC EQU 8 Access denied
0000C SRBXINVP EQU 12 Invalid parm list
00010 SRBXPWVF EQU 16 Password validation failure
*
Offset Value
00005A SRBXR0 DS XL2 R0 reason code
00004 SRBXDBE EQU 4 Database access error
00008 SRBXNSRT EQU 8 SRTT missing
0000C SRBXNMS EQU 12 Multiple SIGNON not allowed
00010 SRBXNNPW EQU 16 Password cannot be changed
00005C SRBXINST DS A Pointer to feedback area
00060 SRBLNG2 EQU *-SECRB Length of the fixed portion of SRB
00018 SRBLNG2F EQU ((SRBLNG2)+3)/4
000060 SRBOPP DS 0F Start of SRB extensions
*----------------------------------------------------------------------
*
* SRB extension for SIGNON/SIGNOFF
*
*----------------------------------------------------------------------
000060 SRBSGSON DS A Pointer to SIGNON element
000064 SRBSGLTF DS A Address of signed on LTE (XFR SGON)
000068 SRBSGLTT DS A Address of LTE signing on
00006C SRBSGUSL DS XL1 Length of user ID
00006D SRBSGUSR DS CL18 User ID
00007F SRBSGGRL DS XL1 Length of group
000080 SRBSGGRP DS CL18 Group
000092 SRBSGPSL DS XL1 Length of password
000093 SRBSGPSW DS CL8 password
00009B SRBSGNPL DS XL1 Length of new password
00009C SRBSGNPS DS CL8 New password
0000A4 SRBSGACC DS CL32 Accounting information
*
SRBSGPC #FLAG X'80' Skip password checking
0000C4 SRBSGPCI DS 0XL1
00080 SRBSGPCM EQU X'80'
SRBSGPT #FLAG X'40' Password already encrypted
0000C4 SRBSGPTI DS 0XL1
00040 SRBSGPTM EQU X'40'
SRBSGSM #FLAG X'20' Suppress SIGNOFF message
0000C4 SRBSGSMI DS 0XL1
00020 SRBSGSMM EQU X'20'
SRBSGCP #FLAG X'10' Copy SIGNON from specified LTE
0000C4 SRBSGCPI DS 0XL1
00010 SRBSGCPM EQU X'10'
SRBSGJU #FLAG X'08' Signon with user-id from jobcard
0000C4 SRBSGJUI DS 0XL1
00008 SRBSGJUM EQU X'08'
0000C4 SRBSGFG1 DS XL1 FLAG 1
*----------------------------------------------------------------------
* The following fields are returned by SIGNON
*----------------------------------------------------------------------
0000C5 SRBSGSPR DS CL18 System profile module name
0000D7 SRBSGUPR DS CL18 User profile module name
000E9 SRBSGLEN EQU *-SECRB Length of SRB for SIGNON/SIGNOFF
0003B SRBSGLNF EQU (SRBSGLEN+3)/4
0000E9 ORG SRBOPP RESET
*----------------------------------------------------------------------
*
* SRB extension for password encryption
*
*----------------------------------------------------------------------
000060 SRBCRUSL DS XL1 User ID length
000061 SRBCRUSR DS CL18 User ID
000073 SRBCRPSL DS XL1 Plaintext password length
000074 SRBCRPSW DS CL8 Plaintext password
00007C SRBCRYPS DS CL8 Encrypted password
00084 SRBCRLEN EQU *-SECRB Length of SRB for pswd encryption
00021 SRBCRLNF EQU (SRBCRLEN+3)/4
000084 ORG SRBOPP RESET
*----------------------------------------------------------------------
*
Offset Value
* SRB extension for security check, bulk check and AM check
*
*----------------------------------------------------------------------
000060 SRBSCSON DS A Pointer to SIGNON element
SRBSCNL #FLAG X'80' LOG=NO requested
000064 SRBSCNLI DS 0XL1
00080 SRBSCNLM EQU X'80'
000064 SRBSCFLG DS X Option flags
000065 DS XL3 Reserved
000068 SRBRSTTA DS A Pointer to SRTT entry
00006C SRBACAHA DS 0A Pointer to AM header
00006C SRBSCRLA DS A Pointer to resource list
000070 SRBSCLCT DS H Entry count (if list request)
000072 SRBSCFNU DS 0H Application function number
000072 SRBSCATG DS H Security category
000074 SRBSCAUT DS XL6 Desired authorities (see #SECACAB)
00007A SRBRSTYP DS CL4 Resource type
00007E SRBSCRNL DS XL1 Resource name length
00007F SRBSCRNM DS CL32 Resource name
00009F SRBSCDVL DS XL1 Length of version or ddname
0000A0 SRBSCVER DS 0CL8 Version number (character)
0000A0 SRBSCDDN DS CL8 DDname - programs only
0000A8 SRBSCDBL DS XL1 Length of database name
0000A9 SRBSCDBN DS CL8 Database name
0000B1 SRBSCSCL DS XL1 Length of SQL schema name
0000B2 SRBSCSCM DS CL18 SQL schema name
0000C4 SRBSCSSL DS XL1 Length of subschema name
0000C5 SRBSCSSN DS CL8
000CD SRBSCLEN EQU *-SECRB Length of SRB for SECHECK
00034 SRBSCLNF EQU (SRBSCLEN+3)/4
0000CD ORG SRBOPP RESET
*----------------------------------------------------------------------
* ADD NEXT FUNCTION HERE
*----------------------------------------------------------------------
Copyright © 2014 CA.
All rights reserved.
|
|