Granting and displaying protection attributes

Specific protection attributes are to be granted for a library and for certain members in this library.

/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)	In addition to error messages, positive acknowledgments are also logged.
(2)	Library BSP9.BIB is opened for reading and writing.
(3)	Administration authorization is granted for the library owner ’USER’. Only he/she may create, delete or rename members. Initial member protection is set. For all member types for which nothing more specific is set, members are created with this protection.
(4)	Output the library attributes.
(5)	A specific initial member protection is set for type D: read authorization is granted to the owner and the group, write authorization is granted to the owner of the library.

//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)	An S-type member having the name TEST is created. The input is performed via *SYSDTA. The member automatically receives the protection applying to the library (see (3)).
(7)	A further member is created under the same name but as type D. The input for this member is also performed via *SYSDTA. The member receives the protection defined for all D-type members (see (5)).
(8)	S-type member TEST is copied. The new member is to be called TEST2. The type remains the same.
(9)	Member TEST2 receives new protection; read authorization is extended to all users.

//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)	All members are displayed with their protection attributes.
(11)	The LMS run is terminated.