Automatic version incrementation with convention STD-TREE

/start-lms

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

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

LIBRARY IS CLEARED AND PREPARED

//modify-type-attributes type=s,convention=*std-tree --------------------   (3)

//show-type-attributes type=s -------------------------------------------   (4)

INPUT  LIBRARY= :1OSQ:$USER.BSP12.BIB
TYPE       = S
SUPER-TYPE = *NONE

BASE-TYPE  = S
CONVENTION = *STD-TREE

INIT-ELEM-P= *NONE

ADMINISTRAT= *NONE

STORAGE    = *NONE        WR-CONTROL = *NONE

//add to-element=library-element(element=test(version=*increment),type=s)   (5)

input1

*END

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

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

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

(1)	In addition to error messages, positive acknowledgments are also logged.
(2)	Library BSP12.BIB is opened for reading and writing; no S-type member is present.
(3)	Set up the convention STD-TREE for member type S.
(4)	Display type attributes for member type S as a check.
(5)	Create the first member via *SYSDTA. The member is created under type S with the name “test” through automatic version incrementation.

//add to-element=library-element(element=test(version=*increment),type=s)   (6) 

input1

*END

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

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

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

//add to-element=(element=test(version=*increment,base=1.1),type=s) ------  (7)

*END

INPUT  SYSDTA

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

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

%  LMS0095 INPUT DATA RECORDS MISSING

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

//add-element to-element=library-element(element=test(version=2.1),type=s - (8)

input1

*END

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

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

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

//add to-element=(element=test(version=*increment,base=1.1.1.*),type=s) --- (9)

input1

*END

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

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

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

//add to-element=(element=test(version=*highest-existing),type=s), -
//    write-mode=*any ---------------------------------------------------- (10)

input1

*END

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

OUTPUT ELEMENT= (S)TEST/002.001(0002)/2013-03-01

        ADD (S)TEST/002.001(0002)/2013-03-01 , OUTPUT REPLACED

(6)	Maintain the sequence with *INCREMENT, i.e. a second member with the same name and type but with a version incremented by one is created.
(7)	Open a side branch on version 1.1
(8)	Create a member with the same type and name, but with an explicitly specified version.
(9)	Maintain the side branch with prefix 1.1.1.
(10)	Overwrite the highest version with type A and name “test”.

//show-element-attributes -------------------------------------------------  (11) 

INPUT  LIBRARY= :1OSQ:$USER.BSP12.BIB
TYP NAME VERSION        (VAR#) DATE
(S) TEST 001.001 . . . . (0001) 2013-03-01

(S) TEST 001.001.001.001 (0001) 2013-03-01

(S) TEST 001.001.001.002 (0001) 2013-03-01

(S) TEST 001.002 . . . . (0001) 2013-03-01

(S) TEST 002.001 . . . . (0002) 2013-03-01

      5 (S)-ELEMENT(S) IN THIS TABLE OF CONTENTS

//end ---------------------------------------------------------------------  (12)

(11)	Output directory of library BSP12.BIB. The library contains five members with the same name and type but with differing version and variant numbers.
(12)	Terminate the LMS run.