LMSASSLA

LMSASSLA generiert das Administrationsrecht für die Bibliothek.

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

prefix	Max. 3 Zeichen, die den Feldnamen vorangestellt werden sollen. Standardwert ist die Zeichenfolge LA.
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 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