Index: zTryout/JCL/PersLijst.cls.xml
===================================================================
diff -u
--- zTryout/JCL/PersLijst.cls.xml	(revision 0)
+++ zTryout/JCL/PersLijst.cls.xml	(revision 1390)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JCL.PersLijst">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Lijst">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JCL.PersLijstD</DataLocation>
+<DefaultData>PersLijstDefaultData</DefaultData>
+<IdLocation>^zTryout.JCL.PersLijstD</IdLocation>
+<IndexLocation>^zTryout.JCL.PersLijstI</IndexLocation>
+<StreamLocation>^zTryout.JCL.PersLijstS</StreamLocation>
+<Data name="PersLijstDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: zTryout/JCL/Lijst.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Lijst.cls.xml	(revision 0)
+++ zTryout/JCL/Lijst.cls.xml	(revision 1390)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JCL.Lijst">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Lijst">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^zTryout.JCL.LijstS</StreamLocation>
+</Storage>
+</Class>
+</Export>
Index: zTryout/JCL/Routines.cls.xml
===================================================================
diff -u
--- zTryout/JCL/Routines.cls.xml	(revision 0)
+++ zTryout/JCL/Routines.cls.xml	(revision 1390)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JCL.Routines">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Go">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	kill arrRoutines
+	set Routine = ""
+	for  { set Routine = $order(^rMAC(Routine)) quit:Routine=""  do
+		set idxRoutine = $zconvert(Routine,"U")
+		if $data(arrRoutines(idxRoutine)) w Routine," ",arrRoutines(idxRoutine),!
+		set arrRoutines(idxRoutine)=Routine
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>