Aufruf aus der Kennung eines systemglobalen Benutzerverwalters:
Es werden alle gruppenbezogenen Daten beliebiger Benutzergruppen bereitgestellt.
Aufruf aus der Kennung eines Gruppenverwalters:
Die volle Information über Gruppenmitglieder und Untergruppen zur Benutzergruppe des Gruppenverwalters kann angefordert werden.
Aufruf aus einer Benutzerkennung, die weder das Privileg Benutzerverwaltung besitzt, noch Gruppenverwalter ist:
Der Benutzer erhält über seine Benutzergruppe, die auf dem Home-Pubset der laufenden Sitzung hinterlegt ist, nur zwei Informationen:
den Namen der Benutzergruppenkennung
die Namen der Benutzerkennungen der Mitglieder seiner Gruppe (dies gilt wiederum nicht für Mitglieder von *UNIVERSAL)
Die Information über Benutzergruppen wird auf jedem Pubset im Benutzerkatalog abgelegt. Verantwortlich für die Verwaltung der Einträge für Benutzergruppen sind Gruppenverwalter und systemglobaler Benutzerverwalter.
Informationen über Benutzergruppen stellt der Makro SRMSUG aus dem Benutzerkatalog bereit.
Anwendung: Benutzermakro, Gruppenverwaltermakro, Systemverwaltermakro
Makrotyp: S-Typ (Standardform / E-Form / L-Form / C-Form / D-Form)
Makro | 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 |
Die Beschreibung der Parameter MF, PREFIX, MACID, PARAM siehe Handbuch „Makroaufrufe an den Ablaufteil“ [16].
XPAND
gibt die zu expandierenden Deklarationen an. Dieser Operand gilt nur bei MF=D oder MF=C.
=PARAM
Das Modell des Parameterbereichs.
=INFO
Die Modelle der Teilbereiche der Ausgabe.
AREA@
Adresse des Bereiches, in dem die Benutzergruppeninformation bereitgestellt werden soll.
= addr
Symbolischer Name der Adresse
AREALG
Definiert die Länge von AREA@. Die Länge, die zur Aufnahme der vollständigen Information benötigt wird, ist vom Wert des Operanden INFO abhängig. Wenn die spezifizierte Länge nicht ausreichend ist, werden die einzutragenden Daten abgeschnitten und der entsprechende Returncode wird gesetzt. Die jeweils benötigte Länge kann mit den durch den Parameter XPAND erzeugten Werten spezifiziert werden.
= length
Länge des Speicherbereiches.
VERSION
Gibt an, welche Ausgabebereiche generiert werden sollen. Die Ausgabebereiche werden in Abhängigkeit vom Operanden INFO generiert.
VERSION = 1 gilt ab SECOS V1.0A.
VERSION = 2 gilt ab SECOS V2.0A.
VERSION = 3 gilt ab SECOS V2.2A.
VERSION = 4 gilt ab SECOS V3.0A.
VERSION = 5 gilt ab SECOS V5.1A.
VERSION = 6 gilt ab SECOS V5.4A.
Der Operand VERSION muss bezüglich eines Funktionsaufrufs konsistent sein. Das heißt, dass der Wert von Version gleich bleiben muss, wenn Parameterbereiche einer Aufruffolge getrennt generiert werden (MF=E/L). Beim Generieren der zugehörigen DSECT, CSECT muss ebenfalls der gleiche Wert eingetragen werden.
GROUPID
Vereinbart die Benutzergruppenkennung, über die Information angefordert wird.
= *OWN
Information über die Benutzergruppe, der der Aufrufer zugeordnet ist, wird ausgegeben.
= *FIRST
Die Angabe von *FIRST ist nur in Verbindung mit ACTION = READNEXT zulässig.
Wenn der Aufrufer ein systemglobaler Benutzerverwalter ist, wird die Information für jede auf dem angegebenen Pubset eingetragene Benutzergruppe geliefert.
Ist der Aufrufer ein Gruppenverwalter, erhält er die volle Information über seine Benutzergruppe und alle hierarchisch darunter liegenden.
Ist der Aufrufer weder Gruppenverwalter noch systemglobaler Benutzerverwalter, erhält er nur Informationen über seine eigene Benutzergruppe.
= groupid
Benutzergruppenkennung (8 Zeichen).
MEMBER
Vereinbart das Benutzergruppenmitglied, über das Information angefordert wird.
= *FIRST
Die Angabe von *FIRST ist nur in Verbindung mit ACTION = READNEXT zulässig.
= userid
Benutzerkennung (8 Zeichen).
SUBGID
Vereinbart die Benutzergruppenkennung einer Untergruppe, über die Information angefordert wird.
= *FIRST
Die Angabe von *FIRST ist nur in Verbindung mit ACTION = READNEXT zulässig.
= groupid
Benutzergruppenkennung (8 Zeichen).
ACCOUNT
Vereinbart die Abrechnungsnummer, über die Informationen bereitgestellt werden sollen.
= *FIRST
Die erste Abrechnungsnummer einer Benutzergruppenkennung wird herangezogen. Der Operand ist nur unter Angabe von GROUPID und ACTION = READNEXT zulässig.
= account
Abrechnungsnummer (8 Zeichen)
ACTION
= READ
Daten aus dem Eintrag der unter GROUPID angegebenen Benutzergruppenkennung werden bereitgestellt.
= READNEXT
Die jeweils nächste Informationseinheit zu dem unter INFO= angeforderten Objekt wird bereitgestellt.
PVS
Vereinbart das PVS, aus dessen Benutzerkatalog Informationen über Benutzergruppen bereitgestellt werden sollen.
= *HOME
Die Informationen werden dem Home-Pubset entnommen.
= catid
Katalogkennung des Pubsets, dem die Information entnommen werden soll (4 Zeichen).
INFO
Vereinbart die Art der Information, die aus dem Benutzergruppeneintrag bereitgestellt werden soll.
= ATTRIBUT
Die Merkmale der Benutzergruppe werden ausgegeben.
= MEMBERS
Die Benutzerkennungen der Gruppenmitglieder werden bereitgestellt (je Aufruf eine Benutzerkennung). Der Operand ist nur unter Angabe von GROUPID und ACTION = READNEXT zulässig.
= SUBGROUP
Die Benutzergruppenkennungen der Untergruppen werden bereitgestellt (je Aufruf eine Benutzergruppenkennung). Der Operand ist nur unter Angabe von GROUPID und ACTION = READNEXT zulässig.
= ACCNTRES
Informationen über die Privilegien und Ressourcen der Abrechnungsnummern aus dem jeweiligen Gruppenpotential werden bereitgestellt.
= PROFILE
Die Profile-Ids der Benutzergruppe werden ausgegeben. Der Operand ist nur unter Angabe von GROUPID und ACTION = READ zulässig.
PARAM
Adresse der durch MF = L erzeugten Parameterliste (nur bei MF=E).
= (r)
Die Adresse steht im angegebenen Register
= addr
Symbolischer Name der Adresse (ausgerichtet auf Wortgrenze).
Parameterliste 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
Returncodes
Zusätzlich zu den Standardreturncodes können folgende Returncodes auftreten:
SC1 | Maincode | Erläuterung |
00 | 0000 | normale Ausführung |
00 | 0400 | logisches Dateiende nach READNEXT |
00 | 0800 | Eintrag abgeschnitten |
40 | 0004 | Operandenfehler |
40 | 0404 | AREA@: Ausrichtungsfehler |
00 | 0008 | Gruppeneintrag nicht gefunden |
00 | 0408 | Abrechnungsnummer nicht gefunden |
00 | 0808 | Benutzerkennung auf Pubset nicht gefunden |
00 | 1008 | Untergruppenkennung auf Pubset nicht gefunden |
40 | 000C | Pubset nicht verfügbar |
80 | 0010 | Betriebsmittelengpass |
20 | 00FF | Systemfehler |
Die Werte des SUBCODE1 entsprechen folgenden Vereinbarungen im Function-Header (FHDR):
X’00’ : ESMRFSP (FCT SUCCESSFUL)
X’04’ : ESMRAER (ALIGNEMENT ERROR)
X’20’ : ESMRIER (INTERNAL ERROR)
X’40’ : ESMRCAR (CORRECT AND RETRY)
X’80’ : ESMRWAR (WAIT AND RETRY)
Ausgabebereich 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
Ausgabebereich 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
Ausgabebereich 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
Ausgabebereich 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
Ausgabebereich 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
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
Ausgabebereich 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
Ausgabebereich 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
Ausgabebereich 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**
Ausgabebereich 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
Ausgabebereich 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
Hinweis
Da alle Profile-Ids auf einmal ausgegeben werden, ist ein Ausgabebereich in Vielfachen von SRMPPI# bereitzustellen.
Im Header der Profile-Id-Information wird die Anzahl der Profile-Ids abgelegt, die im Ausgabebereich gespeichert werden konnten. Wurde die Information abgeschnitten, kann die zusätzlich abgelegte Anzahl der für die betreffende Benutzergruppe aktuell gespeicherten Profile-Ids benutzt werden, um einen ausreichend dimensionierten Bereich bereitzustellen.
Beispiel
SRMSUG START
*--------------------------------------------------------------------*
* PROGRAMM: HANDBUCH-BEISPIEL FUER SRMSUG *
*--------------------------------------------------------------------*
SRMSUG RMODE ANY
SRMSUG AMODE ANY
GPARMOD 31
BALR 3,0
BCTR 3,0
BCTR 3,0
USING SRMSUG,3
*--------------------------------------------------------------------*
* SETZEN DER PARAMETERLISTE *
*--------------------------------------------------------------------*
LA 5,SRMAUGAT * BEGINN DES PARAMETERBEREICHES
ST 5,SRMSA@
LA 5,SRMAAT# * LAENGE DES PARAMETERBEREICHES
STH 5,SRMSALG
MVC SRMSGID,=CL8'SRPMGRP' * NAME DER BENUTZERGRUPPE
MVI SRMSINFO,SRMSIATT * INFO=ATTRIBUT
*--------------------------------------------------------------------*
* LESEN DER GRUPPENINFORMATIONEN FUER BENUTZERGRUPPE 'SRPMGRP' *
*--------------------------------------------------------------------*
SRMSUG MF=E,PARAM=SRMPL,VERSION=3
CLI SRMSMR1,SRMSOK * AUSWERTEN DES RETURNCODE
BNE FEHLER
* VERARBEITUNG DER GRUPPENINFOS
B ENDE
FEHLER EQU *
* ANDERE VERARBEITUNG
ENDE TERM
*--------------------------------------------------------------------*
* AUSGABEBEREICH MAKRO SRMSUG *
*--------------------------------------------------------------------*
DS 0F
SRMAUS SRMSUG MF=C,XPAND=INFO,INFO=ATTRIBUT,VERSION=3
*--------------------------------------------------------------------*
* PARAMETERBEREICH MAKRO SRMSUG *
*--------------------------------------------------------------------*
DS 0F
SRMPL SRMSUG MF=C,XPAND=PARAM,VERSION=3
ORG SRMSUGPL
SRMSUG MF=L,AREA@=0,AREALG=0,VERSION=3
END SRMSUG