LMSASSPA

LMSASSPA generates the administration privilege and default values for member protection in the library.

Name	Operation	Operands
name	LMSASSPA	[P=prefix,]MF={ D | C | L }

prefix	Up to 3 characters to be prefixed to the field names. The default value is the string PA.
D C L	A dummy section (DSECT) is generated. A storage area is generated (without CSECT statement). Constants are defined which can be used for initialization of the control blocks.

Expansion of 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