Loading...
Select Version
LMSASSPA generiert das Verwaltungsrecht und die Standardwerte für den Elementschutz für die Bibliothek.
Name | Operation | Operanden |
name | LMSASSPA | [P=prefix,]MF={ D | C | L } |
prefix | Max. 3 Zeichen, die den Feldnamen vorangestellt werden sollen. |
D C L | Ein Pseudoabschnitt (DSECT) wird generiert. Ein Speicherbereich wird generiert (ohne CSECT-Anweisung). Es werden Konstanten definiert, die für die Initialisierung der Kontrollblöcke verwendet werden können. |
Auflösung von LMSASSPA
***********************************************************************
* *
* PROTECTION ATTRIBUTES (DSECT) *
* *
***********************************************************************
SPACE
&NAME DSECT
&P.PTRD DS CL1 PROT. TYPE INDI. FOR READ IN CL1' '
.* 'N': NO SPECIAL PROTECTION
.* 'Y': SPECIAL PROTECTION
.* 'G': PROTECTION BY GUARD
&P.PRDU DS CL1 READ INDICATOR FOR OWNER IN CL1' '
&P.PRDG DS CL1 READ INDICATOR FOR GROUP IN CL1' '
&P.PRDO DS CL1 READ INDICATOR FOR OTHERS IN CL1' '
&P.PRDP DS CL1 READ PASSWORD INDICATOR IN CL1' '
&P.PRDW DS FL4 READ PASSWORD IN FL4'0'
*
&P.PTWR DS CL1 PROT. TYPE INDI. FOR WRITE IN CL1' '
&P.PWRU DS CL1 WRITE INDICATOR FOR OWNER IN CL1' '
&P.PWRG DS CL1 WRITE INDICATOR FOR GROUP IN CL1' '
&P.PWRO DS CL1 WRITE INDICATOR FOR OTHERS IN CL1' '
&P.PWRP DS CL1 WRITE PASSWORD INDICATOR IN CL1' '
&P.PWRW DS FL4 WRITE PASSWORD IN FL4'0'
*
&P.PTEX DS CL1 PROT. TYPE INDI. FOR EXEC IN CL1' '
&P.PEXU DS CL1 EXEC INDICATOR FOR OWNER IN CL1' '
&P.PEXG DS CL1 EXEC INDICATOR FOR GROUP IN CL1' '
&P.PEXO DS CL1 EXEC INDICATOR FOR OTHERS IN CL1' '
&P.PEXP DS CL1 EXEC PASSWORD INDICATOR IN CL1' '
&P.PEXW DS FL4 EXEC PASSWORD IN FL4'0'
*
&P.PGRD DS CL18 READ GUARD IN CL18' '
&P.PGWR DS CL18 WRITE GUARD IN CL18' '
&P.PGEX DS CL18 EXEC GUARD IN CL18' '
*
*********** SOURCE CODE CONTROL ********************************
*
&P.PTHO DS CL1 IND. FOR HOLDER-AUTHORIZATION IN CL1' '
.* 'N': NO SPECIAL AUTHORIZATION
.* 'Y': SPECIAL AUTHORIZATION
.* 'G': AUTHORIZATION BY GUARD
&P.PHOU DS CL1 HOLDER INDICATOR FOR OWNER IN CL1' '
&P.PHOG DS CL1 HOLDER INDICATOR FOR GROUP IN CL1' '
&P.PHOO DS CL1 HOLDER INDICATOR FOR OTHERS IN CL1' '
&P.PHOP DS CL1 HOLDER PASSWORD INDICATOR IN CL1' '
&P.PHOW DS FL4 HOLDER PASSWORD IN FL4'0'
&P.PGHO DS CL18 HOLDER GUARD IN CL18' '
&P.RES1 DS CL84 FREE CL84' '
&P.PLNG EQU *-&P.PTRD PA LENGTH