Automatische Versionserhöhung bei Konvention NONE

Das Element test wird immer unter gleichem Namen, aber mit unterschiedlichem Aufnahmeverfahren, in die Bibliothek aufgenommen.

/start-lms

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

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

LIBRARY IS CLEARED AND PREPARED

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

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

BASE-TYPE  = S
CONVENTION = *NONE

INIT-ELEM-P= *NONE

ADMINISTRAT= *NONE

STORAGE    = *NONE        WR-CONTROL = *NONE

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

input1

*END

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

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

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

(1)	Zusätzlich zu Fehlermeldungen werden auch Erfolgsmeldungen protokolliert.
(2)	Die Bibliothek BSP10.BIB wird zum Lesen und Schreiben geöffnet; es ist kein Element vom Typ S vorhanden.
(3)	Anzeigen der Typattribute für den Elementtyp S zur Kontrolle. Der Elementtyp S hat die Konvention NONE.
(4)	Erzeugen des ersten Elements über *SYSDTA. Das Element wird unter Typ S mit Namen test über die automatische Versionserhöhung erzeugt.

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

input2

*END

INPUT  SYSDTA
OUTPUT ELEMENT= (S)TEST/002(0001)/2013-03-01

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

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

input3

*END

INPUT  SYSDTA
OUTPUT ELEMENT= (S)TEST/A001(0001)/2013-03-01

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

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

input4

*END

INPUT  SYSDTA
OUTPUT ELEMENT= (S)TEST/A002(0001)/2013-03-01

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

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

input5

*END

INPUT  SYSDTA
OUTPUT ELEMENT= (S)TEST/002(0002)/2013-03-01

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

//show-element-attributes -----------------------------------------------   (9)

INPUT  LIBRARY= :1OSQ:$USER.BSP10.BIB
TYP NAME VER  (VAR#) DATE        NAME VER  (VAR#) DATE
(S) TEST A001 (0001) 2013-03-01   TEST A002 (0001) 2013-03-01
(S) TEST 001  (0001) 2013-03-01   TEST 002  (0002) 2013-03-01
      4 (S)-ELEMENT(S) IN THIS TABLE OF CONTENTS

//end -------------------------------------------------------------------  (10)

(5)	Weiterführen der Sequenz mit *INCREMENT, d.h. es wird ein zweites Element mit gleichem Namen und Typ, aber um eins erhöhter Version erzeugt.
(6)	Explizites Einrichten der Version A001.
(7)	Erzeugen eines weiteren Elementes über die automatische Versionserhöhung; das Element setzt auf Version mit Präfix A* auf.
(8)	Überschreiben der höchsten Version mit Typ S und Namen test.
(9)	Inhaltsverzeichnes der Bibliothek BSP10.BIB.
(10)	Beenden des LMS-Laufs.