LMSASSLA

LMSASSLA generates the administration privilege for the library.

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

prefix	Up to 3 characters to be prefixed to the field names. The default value is the string LA.
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 LMSASSLA

***********************************************************************
*                                                                     *
*        LIBRARY ATTRIBUTES (DSECT)                                   *
*                                                                     *
***********************************************************************
        SPACE
&NAME    DSECT
&P.PTAD  DS    CL1                     PROT. TYPE INDI. FOR ADMIN    IN  CL1' '
.*                                     'N': NO SPECIAL PROTECTION
.*                                     'Y': SPECIAL PROTECTION
.*                                     'G': PROTECTION BY GUARD
&P.PADU  DS    CL1                     ADMIN INDICATOR FOR OWNER     IN  CL1' '
&P.PADG  DS    CL1                     ADMIN INDICATOR FOR GROUP     IN  CL1' '
&P.PADO  DS    CL1                     ADMIN INDICATOR FOR OTHERS    IN  CL1' '
&P.PADP  DS    CL1                     ADMIN PASSWORD INDICATOR      IN  CL1' '
&P.PADW  DS    FL4                     ADMIN PASSWORD                IN  FL4'0'
&P.PGAD  DS    CL18                    ADMIN GUARD                   IN  CL18' '
*
&P.STOR  DS    CL1                     STORAGE FORM FOR LIBRARY      IN  CL1' '
.*                                     ' ': UNCHANGE
.*                                     'S': STD ( FULL OR DELTA )
.*                                     'V': FULL  ELEMENT
.*                                     'D': DELTA ELEMENT
&P.WRCT  DS    CL1                     WRITE-CONTROL FOR LIBRARY     IN  CL1' '
.*                                     ' ': UNCHANGE
.*                                     'A': ACTIVATE
.*                                     'D': DEACTIVATE
&P.ADAT  DS    CL1                     ACCESS DATE                   IN  CL1' '
.*                                     ' ': UNCHANGE
.*                                     'N': NONE (DONT KEEP)
.*                                     'K': KEEP
&P.RES1  DS    CL34                    FREE                              CL34' '
&P.PLNG  EQU   *-&P.PTAD                LA LENGTH