Schutzattribute vergeben und anzeigen

Für eine Bibliothek und bestimmten Elementen in dieser Bibliothek sollen spezifische Schutzrechte vergeben werden.

/start-lms

//modify-logging-parameters logging=*maximum ----------------------------   (1) 

//open-library library=bsp9.bib,mode=*update ----------------------------   (2)

LIBRARY IS CLEARED AND PREPARED

//modify-library-attributes administration=(user=*owner), -
//            init-elem-protection=(read=(user=*owner), -
//                                write=(user=*owner,password= ́P ́),-
//                                exec=(user=*owner)) -------------------   (3)

//show-library-attributes -----------------------------------------------   (4)

INPUT  LIBRARY= :1OSQ:$USER.BSP9.BIB
READ-PASS  = *NONE       READ-USER  = *OWNER    -    -

WR-PASS    = *YES        WR-USER    = *OWNER    -    -

EXEC-PASS  = *NONE       EXEC-USER  = *OWNER    -    -

ADMIN-PASS = *NONE       ADMIN-USER = *OWNER    -    -

FILE-SIZE  = 12          FREE-SIZE  = 4           FORMAT = NK2   UPAM-PROT = N

ACCESS-DATE= *NONE       WR-CONTROL = *NONE       STORAGE=*NONE

//modify-type-attributes type=d, -
//          init-elem-protection=(read=(user=(*owner,*group)), -
//                                write=(user=*owner)) ------------------   (5)

(1)	Zusätzlich zu Fehlermeldungen werden auch Erfolgsmeldungen protokolliert.
(2)	Die Bibliothek BSP9.BIB wird zum Lesen und Schreiben geöffnet.
(3)	Es wird das Administrationsrecht für den Bibliothekseigentümer ’USER’ vergeben. Nur dieser darf Elemente anlegen, löschen oder umbenennen. Es wird eine initialer Elementschutz eingestellt. Für alle Elementtypen, für die nichts spezielleres eingestellt ist, werden Elemente mit diesem Schutz angelegt.
(4)	Ausgabe der Bibliotheksattribute.
(5)	Für Typ D wird ein spezieller initialer Elementschutz eingestellt: das Leserecht erhält der Eigentümer und die Gruppe, das Schreibrecht der Eigentümer der Bibliothek.

//add-element to-element=(element=test,type=s) ---------------------------  (6) 

input1

*END

INPUT  SYSDTA
OUTPUT LIBRARY= :1OSQ:$USER.BSP9.BIB

OUTPUT ELEMENT= (S)TEST/@(0001)/2013-03-01

        ADD (S)TEST/@(0001)/2013-03-01

//add-element to-element=(element=test,type=d) ---------------------------  (7)

input1

*END

INPUT  SYSDTA
OUTPUT LIBRARY= :1OSQ:$USER.BSP9.BIB

OUTPUT ELEMENT= (D)TEST/@(0001)/2013-03-01

        ADD (D)TEST/@(0001)/2013-03-01

//copy-element element=(element=test,type=s), -
//            to-element=(element=test2,type=s) --------------------------  (8)

INPUT  LIBRARY= :1OSQ:$USER.BSP9.BIB
OUTPUT LIBRARY= :1OSQ:$USER.BSP9.BIB

        COPY (S)TEST/@(0001)/2013-03-01 AS (S)TEST2/@(0001)/2013-03-01

//modify-element-protection element=(element=test2,type=s), -
//                        new-protection=(read=(user=*all)) --------------  (9)

OUTPUT LIBRARY= :1OSQ:$USER.BSP9.BIB

        MODIFY (S)TEST2/@(0001)/2013-03-01

(6)	Es wird ein Element mit dem Namen TEST vom Typ S angelegt. Die Eingabe erfolgt über *SYSDTA. Das Element erhält automatisch den für die Bibiliothek geltenden Schutz (siehe (3)).
(7)	Es wird ein weiteres Element unter dem gleichen Namen, aber mit Typ D angelegt. Die Eingabe für dieses Element erfolgt ebenfalls über *SYSDTA. Das Element erhält den Schutz, der für alle Elemente des Typs D vereinbart ist (siehe (5)).
(8)	Das Element TEST vom Typ S wird kopiert. Das neue Element soll TEST2 heißen. Der Typ wird beibehalten.
(9)	Das Element TEST2 erhält einen neuen Schutz; das Leserecht wird auf alle Anwender ausgeweitet.

//show-element-attributes element=(element=*(version=*)), -

//                      information=*maximum -----------------------------  (10) 

INPUT  LIBRARY= :1OSQ:$USER.BSP9.BIB
TYPE       = D
NAME       = TEST
VERSION    = @                                 VARIANT    = 0001
USER-DATE  = 2013-03-01   CRE-DATE   = 2013-03-01   MOD-DATE   = 2013-03-01
USER-TIME  =   10:33:06   CRE-TIME   =   10:33:06   MOD-TIME   =   10:33:06
STORAGE    = *FULL
STATE      = *FREE
ELEM-SIZE  = 1
READ-PASS  = *NONE       READ-USER  = *OWNER *GROUP  -
WR-PASS    = *NONE       WR-USER    = *OWNER   -     -

      1 (D)-ELEMENT(S) IN THIS TABLE OF CONTENTS

TYPE       = S
NAME       = TEST
VERSION    = @                                      VARIANT    = 0001
USER-DATE  = 2013-03-01   CRE-DATE   = 2013-03-01   MOD-DATE   = 2013-03-01
USER-TIME  =   10:33:06   CRE-TIME   =   10:33:06   MOD-TIME   =   10:33:06
STORAGE    = *FULL
STATE      = *FREE
ELEM-SIZE  = 1
READ-PASS  = *NONE       READ-USER  = *OWNER   -     -
WR-PASS    = *YES        WR-USER    = *OWNER   -     -
EXEC-PASS  = *NONE       EXEC-USER  = *OWNER   -     -

TYPE       = S
NAME       = TEST2
VERSION    = @                                      VARIANT    = 0001
USER-DATE  = 2013-03-01   CRE-DATE   = 2013-03-01   MOD-DATE   = 2013-03-01
USER-TIME  =   10:33:06   CRE-TIME   =   10:33:06   MOD-TIME   =   10:33:06
STORAGE    = *FULL
STATE      = *FREE
ELEM-SIZE  = 1
READ-PASS  = *NONE       READ-USER  = *OWNER *GROUP *OTHERS
WR-PASS    = *YES        WR-USER    = *OWNER   -     -
EXEC-PASS  = *NONE       EXEC-USER  = *OWNER   -     -
      2 (S)-ELEMENT(S) IN THIS TABLE OF CONTENTS
------------------------------------------------------------------------------

      3 ELEMENT(S) IN THIS TABLE OF CONTENTS

//end --------------------------------------------------------------------  (11)

(10)	Alle Elemente werden mit ihren Schutzattributen angezeigt.
(11)	Der LMS-Lauf wird beendet.