Macro called under the user ID of a global user administrator:
The macro supplies all group-related data for any user group.
Macro called under the user ID of a group administrator:
The macro supplies comprehensive information on the group members and subgroups of the group administrator’s own group.
Macro called under a nonprivileged user ID (i.e. neither group administrator nor global administrator):
The macro supplies only two items of information on the caller’s own user group on the home pubset of the current session, namely:
the group ID
the user IDs which are members of the same group (not supplied if the caller is a member of the group *UNIVERSAL).
Information about the user groups existing on a pubset is always stored in the pubset’s user catalog. The group entries in this catalog are managed by the group administrators and the global user administrators.
The group information stored in the user catalog is supplied by the SRMSUG macro.
Domain: ordinary user, group administrator, system administration
Macro type: type S (standard form / E form / L form / C form / D form)
Macro | Operanden |
SRMSUG | MF=C / D / L / E ,PREFIX = p / S ,XPAND = PARAM / INFO ,AREA@ = addr ,AREALG = length ,VERSION = 1 / 2 / 3 / 4 / 5 / 6 ,GROUPID = *FIRST / groupid ,MEMBER = *FIRST / userid ,SUBGID = *FIRST / groupid ,ACCOUNT = *FIRST / account ,ACTION = READ / READNEXT ,PVS = *HOME / catid ,INFO = ATTRIBUT / MEMBERS / SUBGROUP /ACCNTRES / PROFILE ,PARAM =(r) / addr |
For a description of the MF, PREFIX, MACID, PARAM parameters refer to the “Executive Macros” manual [16].
XPAND
specifies the declarations to expand. This operand only applies if MF=D or MF=C.
=PARAM
The model of the parameter area.
=INFO
The models of the parts of the output.
AREA@
Address of the area in which the group information is to be supplied.
=addr
Symbolic name of the address.
AREALG
defines the length of AREA@. The length required to accommodate the complete information depends on the value of the INFO operand. If the length specified here is insufficient, the information supplied is truncated; this is indicated by the value of the return code. The appropriate length can be generated by means of the specification for the XPAND operand.
=length
Length of the area.
VERSION
specifies which output areas are to be generated. The output areas are generated depending on the value specified for the operand INFO.
VERSION = 1 applies as of SECOS V1.0A.VERSION = 2 applies as of SECOS V2.0A.VERSION = 3 applies as of SECOS V2.2A.VERSION = 4 applies as of SECOS V3.0A.VERSION = 5 applies as of SECOS V5.1A.VERSION = 6 applies as of SECOS V5.4A.
The operand VERSION must be consistent within one function call, i.e. the value specified for VERSION must remain the same if the parameter areas of a sequence of calls are generated separately (MF=E/L). The same value must also be specified when generating the related DSECT, CSECT.
GROUPID
specifies the group ID on which information is requested.
=*OWN
Information is requested about the group of which the caller is a member.
=*FIRST
This specification is permitted only in conjunction with ACTION = READNEXT.
If the macro is called by a global user administrator, information on each user group existing on the specified pubset is supplied.
If the macro is called by a group administrator, comprehensive information on this administrator’s own group and all its subgroups is supplied.
Any other nonprivileged user is only supplied with information about his own user group.
=groupid
Group ID (8 characters).
MEMBER
specifies the group member on which information is requested.
=*FIRST
This specification is permitted only in conjunction with ACTION = READNEXT.
=userid
User ID (8 characters).
SUBGID
specifies the group ID of a subgroup on which information is requested.
=*FIRST
This specification is permitted only in conjunction with ACTION = READNEXT.
=groupid
Group ID (8 characters).
ACCOUNT
specifies the account number on which information is requested.
=*FIRST
Information is to be supplied on the first account number of a user ID.
This specification is permitted only in conjunction with GROUPID and ACTION = READNEXT.
=account
Account number (8 characters).
ACTION
=READ
The information supplied is to be taken from the entry for the user group specified via the GROUPID operand.
=READNEXT
The next item of information on the object specified via INFO= is to be supplied.
PVS
Pubset from whose user catalog information on user groups is to be supplied.
=*HOME
The information is to be taken from the home pubset.
=catid
4-character catalog ID of the pubset from whose SRPM file information on user groups is to be supplied.
INFO
defines the type of information to be supplied from the specified group entry.
=ATTRIBUT
The group attributes are to be supplied.
=MEMBERS
The user IDs which are members of the group are to be supplied (one user ID per macro call). This specification is permitted only in conjunction with GROUPID and ACTION = READNEXT.
=SUBGROUP
The group IDs of the subgroups are to be supplied (one group ID per macro call). This specification is permitted only in conjunction with GROUPID and ACTION = READNEXT.
=ACCNTRES
Information on the privileges and resources of the account numbers recorded in the group potential is supplied.
=PROFILE
The profile IDs of the user group are to be supplied.
This specification is permitted only in conjunction with GROUPID and ACTION = READNEXT.
PARAM
Address of the parameter list generated by means of MF=L (permissible only if MF=E applies).
=(r)
The address can be found in the specified register.
=addr
Symbolic name of the address (aligned on a word boundary).
Parameter list SRMSUG MF=D,XPAND=PARAM
SRMSUG DSECT ,
*,##### PREFIX=S, MACID=RMS #####
**
SRMSUGPL DS 0F SHOW USERGROUP PL
SRMSFHDR FHDR MF=(C,SRMS),EQUATES=NO
SRMSFHDR DS 0A
SRMSFHE DS 0XL8 0 GENERAL PARAMETER AREA HEADER
*
SRMSIFID DS 0A 0 INTERFACE IDENTIFIER
SRMSFCTU DS AL2 0 FUNCTION UNIT NUMBER
* BIT 15 HEADER FLAG BIT,
* MUST BE RESET UNTIL FURTHER NOTICE
* BIT 14-12 UNUSED, MUST BE RESET
* BIT 11-0 REAL FUNCTION UNIT NUMBER
SRMSFCT DS AL1 2 FUNCTION NUMBER
SRMSFCTV DS AL1 3 FUNCTION INTERFACE VERSION NUMBER
*
SRMSRET DS 0A 4 GENERAL RETURN CODE
SRMSSRET DS 0AL2 4 SUB RETURN CODE
SRMSSR2 DS AL1 4 SUB RETURN CODE 2
SRMSSR1 DS AL1 5 SUB RETURN CODE 1
SRMSMRET DS 0AL2 6 MAIN RETURN CODE
SRMSMR2 DS AL1 6 MAIN RETURN CODE 2
SRMSMR1 DS AL1 7 MAIN RETURN CODE 1
SRMSFHL EQU 8 8 GENERAL OPERAND LIST HEADER LENGTH
*
**
** SRPM SPECIFIC RETURN CODE IN &P.RMSMR1
**
SRMSOK EQU X'00' OK
SRMSINV EQU X'04' INVALID
SRMSNFD EQU X'08' NOT FOUND
SRMSPNA EQU X'0C' PVS NOT AVAILABLE
SRMSRES EQU X'10' SHORTAGE OF RESOURCES
SRMSSYS EQU X'FF' SYSTEM ERROR
**
** SRPM SPECIFIC RETURN CODE IN &P.RMSMR2
** | MR1:
SRMSEOF EQU X'04' LOGICAL EOF | OK
SRMSCUT EQU X'08' ENTRY CUTTED | OK
SRMSPL EQU X'00' PARAMETERLIST | INV
SRMSAR@ EQU X'04' AREA@ | INV
SRMSGRP EQU X'00' GROUP ENTRY | NFD
SRMSACC EQU X'04' ACCOUNTNUMBER | NFD
SRMSUID EQU X'08' USERID/MEMBERID | NFD
**
**
SRMSA@ DS A ADDRESS OF INFORMATION AREA
SRMSALG DS H LENGTH OF INFORMATION AREA
SRMSACT DS X ACTION CODE:
SRMSARD EQU X'01' READ
SRMSANXT EQU X'02' READ NEXT
SRMSINFO DS X INFORMATION:
SRMSIATT EQU X'01' ATTRIBUTES OF USERGROUP
SRMSIMEM EQU X'02' MEMBERS OF USERGROUP
SRMSISUB EQU X'03' GROUPIDS OF SUBGROUPS
SRMSIRES EQU X'04' RESOURCES AND PRIVILEGES
SRMSIPID EQU X'05' PROFILE_IDS
SRMSACC# DS CL8 ACCOUNT NUMBER
SRMSMBR DS CL8 MEMBER ID
SRMSSUB DS CL8 SUBGROUP ID
SRMSGID DS CL8 USERGROUP
SRMSPVS DS CL4 PVS
**
SRMSUG# EQU *-SRMSUGPL LENGTH OF PARAMETER LIST *V103
Return codes
The following return codes may occur in addition to the standard return codes:
SC1 | Maincode | Meaning |
00 | 0000 | Normal execution |
00 | 0400 | Logical end-of-file after READNEXT |
00 | 0800 | Entry truncated |
40 | 0004 | Operand error |
40 | 0404 | AREA@: alignment error |
00 | 0008 | Group entry could not be found |
00 | 0408 | Account number could not be found |
00 | 0808 | User ID could not be found on this pubset |
00 | 1008 | Subgroup ID could not be found on this pubset |
40 | 000C | Pubset not accessible |
80 | 0010 | Resources bottleneck |
20 | 00FF | System error |
The values of SUBCODE1 correspond to the following values defined in the function header (FHDR):
X’00’ : ESMRFSP (FCT SUCCESSFUL)
X’04’ : ESMRAER (ALIGNMENT ERROR)
X’20’ : ESMRIER (INTERNAL ERROR)
X’40’ : ESMRCAR (CORRECT AND RETRY) X’80’ : ESMRWAR (WAIT AND RETRY)
Output area SRMSUG MF=D,XPAND=INFO,INFO=ATTRIBUT,VERSION=1
SRMAUG DSECT ,
*,##### PREFIX=S, MACID=RMA #####
**
SRMAUGAT DS 0F SHOW USERGROUP ATTRIBUTES
**
SRMAGID DS CL8 GROUP IDENTIFICATION
SRMAGUNI EQU ' ' UNIVERSAL GROUP
SRMAUPPR DS CL8 UPPER GROUP
** GUNI EQU ' ' UNIVERSAL GROUP
SRMAADM DS CL8 GROUP ADMINISTRATOR
SRMAADNO EQU ' ' GROUP WITHOUT GROUP ADMIN
SRMAMGMG DS H MAX GROUP MEMBERS GROUP
SRMAMGMS DS H MAX GROUP MEMBERS SYSTEM *V103
SRMAMSGG DS H MAX SUB GROUPS GROUP
SRMAMSGS DS H MAX SUB GROUPS SYSTEM *V103
SRMAPSLI DS F PUBLIC SPACE LIMIT *V106
SRMAADDR DS H ADDRESS SPACE LIMIT
SRMARPAG DS H RESIDENT PAGES
SRMAACRC DS H MAX ACCOUNT RECORDS
SRMATOP DS 0X TEST OPTIONS:
SRMATRDP DS X READ PRIVILEGE
SRMATWRP DS X WRITE PRIVILEGE
SRMATMOD DS X MODIFICATION BY:
SRMATMAD EQU 1 ADMINISTRATOR
SRMATMUS EQU 2 USER
SRMAATH DS X ADM AUTHORITY:
SRMAARES EQU 1 MANAGE RESOURCES
SRMAAMEM EQU 2 MANAGE MEMBERS
SRMAAGRP EQU 3 MANAGE GROUPS
SRMATPIG DS X TPIGNORE (TAPE ACCESS):
SRMATPN EQU 1 NO (STD): MSG NOT IGNORED
SRMATPY EQU 2 YES: ERROR MSG IGNORED
SRMATPRD EQU 3 READ: ERROR MSG IGNORED - INPUT
SRMATPBP EQU 4 BYPASS LABEL
SRMATPAL EQU 5 ALL ERROR MSG IGNORED
SRMAIND1 DS X INDICATOR BYTE 1:
SRMAACNL EQU X'80' MAX ACCOUNT RECORDS:
** S: NO LIMIT
** R: VALID
SRMAENF EQU X'40' ENFORCEMENT:
** S: PERMITTED
** R: NOT PERMITTED
SRMAAUDT EQU X'20' AUDIT:
** S: ALLOWED
** R: NOT ALLOWED
SRMACSTM EQU X'10' CSTMP MAKRO:
** S: ALLOWED
** R: NOT ALLOWED
**
SRMAAT# EQU *-SRMAUGAT LENGTH OF ATTRIBUTES ENTRY *V103
Output area SRMSUG MF=D,XPAND=INFO,INFO=ATTRIBUT,VERSION=2
SRMAUG DSECT ,
*,##### PREFIX=S, MACID=RMA #####
****************************************************************** V205
* V E R S I O N = 0 0 2 * V205
****************************************************************** V205
SRMAUGAT DS 0F SHOW USERGROUP ATTRIBUTES V205
** V205
SRMAGID DS CL8 GROUP IDENTIFICATION V205
SRMAGUNI EQU ' ' UNIVERSAL GROUP V205
SRMAUPPR DS CL8 UPPER GROUP V205
** GUNI EQU ' ' UNIVERSAL GROUP V205
SRMAADM DS CL8 GROUP ADMINISTRATOR V205
SRMAADNO EQU ' ' GROUP WITHOUT GROUP ADMIN V205
SRMAGPF DS CL7 USER GROUP PREFIX V205
SRMAMPF DS CL7 GROUP MEMBER PREFIX V205
SRMAANY EQU ' ' NO PREFIX SPECIFIED V205
SRMARES1 DS CL2 RESERVED V205
SRMAMGMG DS H MAX GROUP MEMBERS GROUP V205
SRMAMGMS DS H MAX GROUP MEMBERS SYSTEM V205
SRMAMSGG DS H MAX SUB GROUPS GROUP V205
SRMAMSGS DS H MAX SUB GROUPS SYSTEM V205
SRMAPSLI DS F PUBLIC SPACE LIMIT V205
SRMAADDR DS H ADDRESS SPACE LIMIT V205
SRMARPAG DS H RESIDENT PAGES V205
SRMAACRC DS H MAX ACCOUNT RECORDS V205
SRMARES2 DS CL2 RESERVED V205
SRMAFIL DS F FILE NUMBER LIMIT V205
SRMAJVL DS F JV NUMBER LIMIT V205
SRMATMSL DS F TEMPORARY SPACE LIMIT V205
SRMAPSE DS X PUBLIC SPACE EXCESS/ENFORCEMENT V205
SRMAPSEN EQU 1 NO V205
SRMAPSET EQU 2 TEMPORARILY ALLOWED V205
SRMAPSEY EQU 3 YES V205
SRMATUN DS X DMS TUNING RESOURCES V205
SRMATUNN EQU 1 NONE V205
SRMATUNC EQU 2 CONCURRENT USE V205
SRMATUNE EQU 3 EXCLUSIVE USE V205
SRMATOP DS 0X TEST OPTIONS: V205
SRMATRDP DS X READ PRIVILEGE V205
SRMATWRP DS X WRITE PRIVILEGE V205
SRMATMOD DS X MODIFICATION BY: V205
SRMATMCO EQU 1 CONTROLLED V205
SRMATMUN EQU 2 UNCONTROLLED V205
SRMAATH DS X ADM AUTHORITY: V205
SRMAARES EQU 1 MANAGE RESOURCES V205
SRMAAMEM EQU 2 MANAGE MEMBERS V205
SRMAAGRP EQU 3 MANAGE GROUPS V205
SRMATPIG DS X TPIGNORE (TAPE ACCESS): V205
SRMATPN EQU 1 NO (STD): MSG NOT IGNORED V205
SRMATPY EQU 2 YES: ERROR MSG IGNORED V205
SRMATPRD EQU 3 READ: ERROR MSG IGNORED - INPV205
SRMATPBP EQU 4 BYPASS LABEL V205
SRMATPAL EQU 5 ALL ERROR MSG IGNORED V205
SRMAIND1 DS X INDICATOR BYTE 1: V205
SRMAACNL EQU X'80' MAX ACCOUNT RECORDS: V205
** S: NO LIMIT V205
** R: VALID V205
SRMAAUDT EQU X'20' AUDIT: V205
** S: ALLOWED V205
** R: NOT ALLOWED V205
SRMACSTM EQU X'10' CSTMP MAKRO: V205
** S: ALLOWED V205
** R: NOT ALLOWED V205
** V205
SRMAAT# EQU *-SRMAUGAT LENGTH OF ATTRIBUTES ENTRY V205
Output area SRMSUG MF=D,XPAND=INFO,INFO=ATTRIBUT,VERSION=3
SRMAUG DSECT ,
*,##### PREFIX=S, MACID=RMA #####
****************************************************************** V310
* V E R S I O N = 0 0 3 * V310
****************************************************************** V310
SRMAUGAT DS 0F SHOW USERGROUP ATTRIBUTES V310
** V310
SRMAGID DS CL8 GROUP IDENTIFICATION V310
SRMAGUNI EQU ' ' UNIVERSAL GROUP V310
SRMAUPPR DS CL8 UPPER GROUP V310
** GUNI EQU ' ' UNIVERSAL GROUP V310
SRMAADM DS CL8 GROUP ADMINISTRATOR V310
SRMAADNO EQU ' ' GROUP WITHOUT GROUP ADMIN V310
SRMAGPF DS CL7 USER GROUP PREFIX V310
SRMAMPF DS CL7 GROUP MEMBER PREFIX V310
SRMAANY EQU ' ' NO PREFIX SPECIFIED V310
SRMARES1 DS CL2 RESERVED V310
SRMAMGMG DS H MAX GROUP MEMBERS GROUP V310
SRMAMGMS DS H MAX GROUP MEMBERS SYSTEM V310
SRMAMSGG DS H MAX SUB GROUPS GROUP V310
SRMAMSGS DS H MAX SUB GROUPS SYSTEM V310
SRMAPSLI DS F PUBLIC SPACE LIMIT V310
SRMAADDR DS H ADDRESS SPACE LIMIT V310
SRMARPAG DS H RESIDENT PAGES V310
SRMAACRC DS H MAX ACCOUNT RECORDS V310
SRMARES2 DS CL2 RESERVED V310
SRMAFIL DS F FILE NUMBER LIMIT V310
SRMAJVL DS F JV NUMBER LIMIT V310
SRMATMSL DS F TEMPORARY SPACE LIMIT V310
SRMAPSE DS X PUBLIC SPACE EXCESS/ENFORCEMENT V310
SRMAPSEN EQU 1 NO V310
SRMAPSET EQU 2 TEMPORARILY ALLOWED V310
SRMAPSEY EQU 3 YES V310
SRMATUN DS X DMS TUNING RESOURCES V310
SRMATUNN EQU 1 NONE V310
SRMATUNC EQU 2 CONCURRENT USE V310
SRMATUNE EQU 3 EXCLUSIVE USE V310
SRMATOP DS 0X TEST OPTIONS: V310
SRMATRDP DS X READ PRIVILEGE V310
SRMATWRP DS X WRITE PRIVILEGE V310
SRMATMOD DS X MODIFICATION BY: V310
SRMATMCO EQU 1 CONTROLLED V310
SRMATMUN EQU 2 UNCONTROLLED V310
SRMAATH DS X ADM AUTHORITY: V310
SRMAARES EQU 1 MANAGE RESOURCES V310
SRMAAMEM EQU 2 MANAGE MEMBERS V310
SRMAAGRP EQU 3 MANAGE GROUPS V310
SRMATPIG DS X TPIGNORE (TAPE ACCESS): V310
SRMATPN EQU 1 NO (STD): MSG NOT IGNORED V310
SRMATPY EQU 2 YES: ERROR MSG IGNORED V310
SRMATPRD EQU 3 READ: ERROR MSG IGNORED - INPV310
SRMATPBP EQU 4 BYPASS LABEL V310
SRMATPAL EQU 5 ALL ERROR MSG IGNORED V310
SRMAIND1 DS X INDICATOR BYTE 1: V310
SRMAACNL EQU X'80' MAX ACCOUNT RECORDS: V310
** S: NO LIMIT V310
** R: VALID V310
SRMAAUDT EQU X'20' AUDIT: V310
** S: ALLOWED V310
** R: NOT ALLOWED V310
SRMACSTM EQU X'10' CSTMP MAKRO: V310
** S: ALLOWED V310
** R: NOT ALLOWED V310
SRMAPHYS EQU X'08' PHYSICAL ALLOCATION: V310
** S: ALLOWED V310
** R: NOT ALLOWED V310
SRMAWRKL DS F WORK SPACE LIMIT V310
** V310
SRMAAT# EQU *-SRMAUGAT LENGTH OF ATTRIBUTES ENTRY V310
Output area SRMSUG MF=D,XPAND=INFO,INFO=ATTRIBUT,VERSION=4
SRMAUG DSECT ,
*,##### PREFIX=S, MACID=RMA #####
****************************************************************** V400
* V E R S I O N = 0 0 4 * V400
****************************************************************** V400
SRMAUGAT DS 0F SHOW USERGROUP ATTRIBUTES V400
** V400
SRMAGID DS CL8 GROUP IDENTIFICATION V400
SRMAGUNI EQU ' ' UNIVERSAL GROUP V400
SRMAUPPR DS CL8 UPPER GROUP V400
** GUNI EQU ' ' UNIVERSAL GROUP V400
SRMAADM DS CL8 GROUP ADMINISTRATOR V400
SRMAADNO EQU ' ' GROUP WITHOUT GROUP ADMIN V400
SRMAGPF DS CL7 USER GROUP PREFIX V400
SRMAMPF DS CL7 GROUP MEMBER PREFIX V400
SRMAANY EQU ' ' NO PREFIX SPECIFIED V400
SRMARES1 DS CL2 RESERVED V400
SRMAMGMG DS H MAX GROUP MEMBERS GROUP V400
SRMAMGMS DS H MAX GROUP MEMBERS SYSTEM V400
SRMAMSGG DS H MAX SUB GROUPS GROUP V400
SRMAMSGS DS H MAX SUB GROUPS SYSTEM V400
SRMAPSLI DS F PUBLIC SPACE LIMIT V400
SRMAADDR DS H ADDRESS SPACE LIMIT V400
SRMARPAG DS H RESIDENT PAGES V400
SRMAACRC DS H MAX ACCOUNT RECORDS V400
SRMARES2 DS CL2 RESERVED V400
SRMAFIL DS F FILE NUMBER LIMIT V400
SRMAJVL DS F JV NUMBER LIMIT V400
SRMATMSL DS F TEMPORARY SPACE LIMIT V400
SRMAPSE DS X PUBLIC SPACE EXCESS/ENFORCEMENT V400
SRMAPSEN EQU 1 NO V400
SRMAPSET EQU 2 TEMPORARILY ALLOWED V400
SRMAPSEY EQU 3 YES V400
SRMATUN DS X DMS TUNING RESOURCES V400
SRMATUNN EQU 1 NONE V400
SRMATUNC EQU 2 CONCURRENT USE V400
SRMATUNE EQU 3 EXCLUSIVE USE V400
SRMATOP DS 0X TEST OPTIONS: V400
SRMATRDP DS X READ PRIVILEGE V400
SRMATWRP DS X WRITE PRIVILEGE V400
SRMATMOD DS X MODIFICATION BY: V400
SRMATMCO EQU 1 CONTROLLED V400
SRMATMUN EQU 2 UNCONTROLLED V400
SRMAATH DS X ADM AUTHORITY: V400
SRMAARES EQU 1 MANAGE RESOURCES V400
SRMAAMEM EQU 2 MANAGE MEMBERS V400
SRMAAGRP EQU 3 MANAGE GROUPS V400
SRMATPIG DS X TPIGNORE (TAPE ACCESS): V400
SRMATPN EQU 1 NO (STD): MSG NOT IGNORED V400
SRMATPY EQU 2 YES: ERROR MSG IGNORED V400
SRMATPRD EQU 3 READ: ERROR MSG IGNORED - INPV400
SRMATPBP EQU 4 BYPASS LABEL V400
SRMATPAL EQU 5 ALL ERROR MSG IGNORED V400
SRMAIND1 DS X INDICATOR BYTE 1: V400
SRMAACNL EQU X'80' MAX ACCOUNT RECORDS: V400
** S: NO LIMIT V400
** R: VALID V400
SRMAAUDT EQU X'20' AUDIT: V400
** S: ALLOWED V400
** R: NOT ALLOWED V400
SRMACSTM EQU X'10' CSTMP MAKRO: V400
** S: ALLOWED V400
** R: NOT ALLOWED V400
SRMAPHYS EQU X'08' PHYSICAL ALLOCATION: V400
** S: ALLOWED V400
** R: NOT ALLOWED V400
SRMAWRKL DS F WORK SPACE LIMIT V400
** V400
SRMABAGN DS CL18 GUARD_NAME FOR EXTENDED V400
** BASIC-ACL-ACCESS V400
SRMABAGO EQU ' ' *BY-GROUP-ONLY V400
SRMARES4 DS CL2 RESERVED V400
** V400
SRMAAT# EQU *-SRMAUGAT LENGTH OF ATTRIBUTES ENTRY V400
Output area SRMSUG MF=D,XPAND=INFO,INFO=ATTRIBUT,VERSION=5
SRMSUG5 DSECT ,
*,##### PREFIX=S, MACID=RMA #####
****************************************************************** V402
* V E R S I O N = 0 0 5 * V402
****************************************************************** V402
SRMAUGAT DS 0F SHOW USERGROUP ATTRIBUTES V402
** V402
SRMAGID DS CL8 GROUP IDENTIFICATION V402
SRMAGUNI EQU ' ' UNIVERSAL GROUP V402
SRMAUPPR DS CL8 UPPER GROUP V402
** GUNI EQU ' ' UNIVERSAL GROUP V402
SRMAADM DS CL8 GROUP ADMINISTRATOR V402
SRMAADNO EQU ' ' GROUP WITHOUT GROUP ADMIN V402
SRMAGPF DS CL7 USER GROUP PREFIX V402
SRMAMPF DS CL7 GROUP MEMBER PREFIX V402
SRMAANY EQU ' ' NO PREFIX SPECIFIED V402
Output area SRMSUG MF=D,XPAND=INFO,INFO=ATTRIBUT,VERSION=5
SRMARES1 DS CL2 RESERVED V402
SRMAMGMG DS H MAX GROUP MEMBERS GROUP V402
SRMAMGMS DS H MAX GROUP MEMBERS SYSTEM V402
SRMAMSGG DS H MAX SUB GROUPS GROUP V402
SRMAMSGS DS H MAX SUB GROUPS SYSTEM V402
SRMAPSLI DS F PUBLIC SPACE LIMIT V402
SRMAADDR DS H ADDRESS SPACE LIMIT V402
SRMARPAG DS H RESIDENT PAGES V402
SRMAACRC DS H MAX ACCOUNT RECORDS V402
SRMARES2 DS CL2 RESERVED V402
SRMAFIL DS F FILE NUMBER LIMIT V402
SRMAJVL DS F JV NUMBER LIMIT V402
SRMATMSL DS F TEMPORARY SPACE LIMIT V402
SRMAPSE DS X PUBLIC SPACE EXCESS/ENFORCEMENT V402
SRMAPSEN EQU 1 NO V402
SRMAPSET EQU 2 TEMPORARILY ALLOWED V402
SRMAPSEY EQU 3 YES V402
SRMATUN DS X DMS TUNING RESOURCES V402
SRMATUNN EQU 1 NONE V402
SRMATUNC EQU 2 CONCURRENT USE V402
SRMATUNE EQU 3 EXCLUSIVE USE V402
SRMATOP DS 0X TEST OPTIONS: V402
SRMATRDP DS X READ PRIVILEGE V402
SRMATWRP DS X WRITE PRIVILEGE V402
SRMATMOD DS X MODIFICATION BY: V402
SRMATMCO EQU 1 CONTROLLED V402
SRMATMUN EQU 2 UNCONTROLLED V402
SRMAATH DS X ADM AUTHORITY: V402
SRMAARES EQU 1 MANAGE RESOURCES V402
SRMAAMEM EQU 2 MANAGE MEMBERS V402
SRMAAGRP EQU 3 MANAGE GROUPS V402
SRMATPIG DS X TPIGNORE (TAPE ACCESS): V402
SRMATPN EQU 1 NO (STD): MSG NOT IGNORED V402
SRMATPY EQU 2 YES: ERROR MSG IGNORED V402
SRMATPRD EQU 3 READ: ERROR MSG IGNORED - INPV402
SRMATPBP EQU 4 BYPASS LABEL V402
SRMATPAL EQU 5 ALL ERROR MSG IGNORED V402
SRMAIND1 DS X INDICATOR BYTE 1: V402
SRMAACNL EQU X'80' MAX ACCOUNT RECORDS: V402
** S: NO LIMIT V402
** R: VALID V402
SRMAAUDT EQU X'20' AUDIT: V402
** S: ALLOWED V402
** R: NOT ALLOWED V402
SRMACSTM EQU X'10' CSTMP MAKRO: V402
** S: ALLOWED V402
** R: NOT ALLOWED V402
SRMAPHYS EQU X'08' PHYSICAL ALLOCATION: V402
** S: ALLOWED V402
** R: NOT ALLOWED V402
SRMAHAUD EQU X'04' HARDWARE AUDIT V402
** S: ALLOWED V402
** R: NOT ALLOWED V402
SRMALAUD EQU X'02' LINKAGE AUDIT V402
** S: ALLOWED V402
** R: NOT ALLOWED V402
SRMAWRKL DS F WORK SPACE LIMIT V402
** V402
SRMABAGN DS CL18 GUARD_NAME FOR EXTENDED V402
** BASIC-ACL-ACCESS V402
SRMABAGO EQU ' ' *BY-GROUP-ONLY V402
SRMARES4 DS CL2 RESERVED V402
SRMAADSL DS F ADDRESS SPACE LIMIT V402
SRMAREPA DS F RESIDENT PAGES V402
SRMACRSL DS F CRYPTO SESSION LIMIT V402
** V402
SRMAAT# EQU *-SRMAUGAT LENGTH OF ATTRIBUTES ENTRY V402
END
=X'1801272327557865' CONSISTENCY CONSTANT FOR AID
Output area SRMSUG MF=D,XPAND=INFO,INFO=ATTRIBUT,VERSION=6
SRMSUG6 DSECT ,
*,##### PREFIX=S, MACID=RMA #####
****************************************************************** V403
* V E R S I O N = 0 0 6 * V403
****************************************************************** V403
SRMAUGAT DS 0F SHOW USERGROUP ATTRIBUTES V403
** V403
SRMAGID DS CL8 GROUP IDENTIFICATION V403
SRMAGUNI EQU ' ' UNIVERSAL GROUP V403
SRMAUPPR DS CL8 UPPER GROUP V403
** GUNI EQU ' ' UNIVERSAL GROUP V403
SRMAADM DS CL8 GROUP ADMINISTRATOR V403
SRMAADNO EQU ' ' GROUP WITHOUT GROUP ADMIN V403
SRMAGPF DS CL7 USER GROUP PREFIX V403
SRMAMPF DS CL7 GROUP MEMBER PREFIX V403
SRMAANY EQU ' ' NO PREFIX SPECIFIED V403
SRMARES1 DS CL2 RESERVED V403
SRMAMGMG DS H MAX GROUP MEMBERS GROUP V403
SRMAMGMS DS H MAX GROUP MEMBERS SYSTEM V403
SRMAMSGG DS H MAX SUB GROUPS GROUP V403
SRMAMSGS DS H MAX SUB GROUPS SYSTEM V403
SRMAPSLI DS F PUBLIC SPACE LIMIT V403
SRMAADDR DS H ADDRESS SPACE LIMIT V403
SRMARPAG DS H RESIDENT PAGES V403
SRMAACRC DS H MAX ACCOUNT RECORDS V403
SRMARES2 DS CL2 RESERVED V403
SRMAFIL DS F FILE NUMBER LIMIT V403
SRMAJVL DS F JV NUMBER LIMIT V403
SRMATMSL DS F TEMPORARY SPACE LIMIT V403
SRMAPSE DS X PUBLIC SPACE EXCESS/ENFORCEMENT V403
SRMAPSEN EQU 1 NO V403
SRMAPSET EQU 2 TEMPORARILY ALLOWED V403
SRMAPSEY EQU 3 YES V403
SRMATUN DS X DMS TUNING RESOURCES V403
SRMATUNN EQU 1 NONE V403
SRMATUNC EQU 2 CONCURRENT USE V403
SRMATUNE EQU 3 EXCLUSIVE USE V403
SRMATOP DS 0X TEST OPTIONS: V403
SRMATRDP DS X READ PRIVILEGE V403
SRMATWRP DS X WRITE PRIVILEGE V403
SRMATMOD DS X MODIFICATION BY: V403
SRMATMCO EQU 1 CONTROLLED V403
SRMATMUN EQU 2 UNCONTROLLED V403
SRMAATH DS X ADM AUTHORITY: V403
SRMAARES EQU 1 MANAGE RESOURCES V403
SRMAAMEM EQU 2 MANAGE MEMBERS V403
SRMAAGRP EQU 3 MANAGE GROUPS V403
SRMATPIG DS X TPIGNORE (TAPE ACCESS): V403
SRMATPN EQU 1 NO (STD): MSG NOT IGNORED V403
SRMATPY EQU 2 YES: ERROR MSG IGNORED V403
SRMATPRD EQU 3 READ: ERROR MSG IGNORED - INPV403
SRMATPBP EQU 4 BYPASS LABEL V403
SRMATPAL EQU 5 ALL ERROR MSG IGNORED V403
SRMAIND1 DS X INDICATOR BYTE 1: V403
SRMAACNL EQU X'80' MAX ACCOUNT RECORDS: V403
** S: NO LIMIT V403
** R: VALID V403
SRMAAUDT EQU X'20' AUDIT: V403
** S: ALLOWED V403
** R: NOT ALLOWED V403
SRMACSTM EQU X'10' CSTMP MAKRO: V403
** S: ALLOWED V403
** R: NOT ALLOWED V403
SRMAPHYS EQU X'08' PHYSICAL ALLOCATION: V403
** S: ALLOWED V403
** R: NOT ALLOWED V403
SRMAHAUD EQU X'04' HARDWARE AUDIT V403
** S: ALLOWED V403
** R: NOT ALLOWED V403
SRMALAUD EQU X'02' LINKAGE AUDIT V403
** S: ALLOWED V403
** R: NOT ALLOWED V403
SRMANSTU EQU X'01' NET-STORAGE-USAGE V403
** S: ALLOWED V403
** R: NOT ALLOWED V403
SRMAWRKL DS F WORK SPACE LIMIT V403
** V403
SRMABAGN DS CL18 GUARD_NAME FOR EXTENDED V403
** BASIC-ACL-ACCESS V403
SRMABAGO EQU ' ' *BY-GROUP-ONLY V403
SRMARES4 DS CL2 RESERVED V403
SRMAADSL DS F ADDRESS SPACE LIMIT V403
SRMAREPA DS F RESIDENT PAGES V403
SRMACRSL DS F CRYPTO SESSION LIMIT V403
** V403
SRMAAT# EQU *-SRMAUGAT LENGTH OF ATTRIBUTES ENTRY V403
END
=X'1801272328427865' CONSISTENCY CONSTANT FOR AID
Output area SRMSUG MF=D,XPAND=INFO,INFO=MEMBERS
SRMMUG DSECT ,
*,##### PREFIX=S, MACID=RMM #####
**
SRMMUGMB DS 0F SHOW USERGROUP MEMBERS
**
SRMMUID DS CL8 USERID OF MEMBER
**
SRMMMB# EQU *-SRMMUGMB LENGTH OF ONE MEMBER ENTRY *V103
Output area SRMSUG MF=D,XPAND=INFO,INFO=SUBGROUP
SRMRUG DSECT ,
*,##### PREFIX=S, MACID=RMM #####
**
SRMGUGSG DS 0F SHOW USERGROUP SUBGROUP
**
SRMGGID DS CL8 GROUPID OF SUBGROUP
**
SRMGSG# EQU *-SRMGUGSG LENGTH OF ONE SUBGROUP ENTRY *V103**
Output area SRMSUG MF=D,XPAND=INFO,INFO=ACCNTRES
SRMRUG DSECT ,
*,##### PREFIX=S, MACID=RMR #####
**
SRMRUGAC DS 0F SHOW USERGROUP ACCNTRES
**
SRMRACT DS CL8 ACCOUNT NUMBER
SRMRCPU DS F CPU TIME LIMIT
SRMRSCLA DS CL1 SPOOLOUT-CLASS
SRMRPRI DS CL1 MAXIMUM RUN PRIORITY
SRMRTYPL DS X LIMIT OF TASK TYPE (MAX-ALLOW-C):
SRMRTSTD EQU 1 STD
SRMRTTP EQU 2 TP
SRMRTSYS EQU 3 SYS
SRMRIND1 DS X INDICATOR BYTE 1:
SRMRNTL EQU X'80' NTL INFORMATION (NO-CPU-LIMIT):
** S: NTL ALLOWED
** R: NTL NOT ALLOWED
SRMREXP EQU X'40' EXPRESS INFO (START-IMMEDIATE):
** S: EXPRESS ALLOWED
** R: EXPRESS NOT ALLOWED
SRMRNHD EQU X'20' INHIBIT DEACTIVATION:
** S: INHIBIT DEACT. ALLOWED
** R: INHIBIT DEACT. NOT ALL.
**
SRMRAC# EQU *-SRMRUGAC LENGTH OF ONE ACC ENTRY *V103
Output area SRMSUG MF=D,XPAND=INFO,INFO=PROFILE
SRMPHD DSECT ,
*,##### PREFIX=S, MACID=RMP #####
** *V104
SRMPUGPH DS 0F SHOW USERGROUP PROFILE_IDS *V104
** HEADER INFORMATION *V104
SRMPNPT DS H NR. OF PROFILE_IDS TRANSFERRED *V104
** INTO CALLERS AREA *V104
SRMPNPA DS H NR. OF PROFILE_IDS ACTUALLY *V104
** ASSOCIATED WITH USER-GROUP *V104
** *V104
SRMPPH# EQU *-SRMPUGPH LENGTH OF HEADER INFORMATION *V104
**
*LABEL IDLKG ID=UG,SECT=&MF,P=&P,SCD=RMP,VER=&VERSION,ALIGN=F V205
MFCHK DNAME=RMPUG,MF=D,PREFIX=S,MACID=RMP,DMACID=RMP, V311C
ALIGN=F
SRMPUG DSECT ,
*,##### PREFIX=S, MACID=RMP #####
** *V104
SRMPUGPI DS 0F SHOW USERGROUP PROFILE_IDS
**
SRMPPID DS CL54 PROFILE_ID
**
SRMPPI# EQU *-SRMPUGPI LENGTH OF ONE PROFILE_ID *V103
END
Note
Since all profile IDs are output together, the output area should be a multiple of SRMPPI#.
The header of the profile ID information indicates the number of profile IDs actually entered in the output area. If the information was truncated, the additionally indicated number of profile IDs currently stored for this user group can be used to provide an area that is sufficiently large.
Example
SRMSUG START
*--------------------------------------------------------------------*
* ROGRAM: MANUAL EXAMPLE FOR SRMSUG *
*--------------------------------------------------------------------*
SRMSUG RMODE ANY
SRMSUG AMODE ANY
GPARMOD 31
BALR 3,0
BCTR 3,0
BCTR 3,0
USING SRMSUG,3
*--------------------------------------------------------------------*
* SET UP THE PARAMETER LIST *
*--------------------------------------------------------------------*
LA 5,SRMAUGAT * START OF PARAMETER AREA
ST 5,SRMSA@
LA 5,SRMAAT# * LENGTH OF PARAMETER AREA
STH 5,SRMSALG
MVC SRMSGID,=CL8'SRPMGRP' * NAME OF USER GROUP
MVI SRMSINFO,SRMSIATT * INFO=ATTRIBUT
*--------------------------------------------------------------------*
* READ THE GROUP INFORMATION FOR USER GROUP 'SRPMGRP' *
*--------------------------------------------------------------------*
SRMSUG MF=E,PARAM=SRMPL,VERSION=3
CLI SRMSMR1,SRMSOK * CHECK RETURN CODE
BNE FEHLER
* PROCESS GROUP INFO
B ENDE
FEHLER EQU *
* ERROR HANDLING
ENDE TERM
*--------------------------------------------------------------------*
* OUTPUT AREA FOR MACRO SRMSUG *
*--------------------------------------------------------------------*
DS 0F
SRMAUS SRMSUG MF=C,XPAND=INFO,INFO=ATTRIBUT,VERSION=3
*--------------------------------------------------------------------*
* PARAMETER AREA FOR MACRO SRMSUG *
*--------------------------------------------------------------------*
DS 0F
SRMPL SRMSUG MF=C,XPAND=PARAM,VERSION=3
ORG SRMSUGPL
SRMSUG MF=L,AREA@=0,AREALG=0,VERSION=3
END SRMSUG