fixes with connection

Author: Evgeny Shvarov

.gitignore

@@ -1,2 +1,2 @@
 .DS_Store
-.gff
+

.vscode/launch.json

@@ -5,7 +5,7 @@
         "type": "objectscript",
         "request": "launch",
         "name": "ObjectScript Debug Class", 
-        "program": "##class(Sample.Person).Test()",
+        "program": "##class(PackageSample.ObjectScript).Test()",
       },
       {
         "type": "objectscript",

.vscode/settings.json

@@ -1,7 +1,7 @@
 {
     "objectscript.conn.active": true,
     "objectscript.conn.version": 3,
-    "objectscript.conn.ns": "DNA",
-    "objectscript.conn.port": 57773,
+    "objectscript.conn.ns": "USER",
+    "objectscript.conn.port": 52773, 
     "objectscript.export.addCategory": true
 }

Dockerfile

@@ -23,7 +23,7 @@ RUN iris start $ISC_PACKAGE_INSTANCENAME quietly EmergencyId=sys,sys && \
             " If 'sc do \$zu(4, \$JOB, 1)\n" \
             " zn \"%sys\"" \
             " write \"Create web application ...\",!" \
-            " set webName = \"/csp/dna\"" \
+            " set webName = \"/csp/user\"" \
             " set webProperties(\"NameSpace\") = \"USER\"" \
             " set webProperties(\"Enabled\") = 1" \
             " set webProperties(\"IsNameSpaceDefault\") = 1" \

src/cls/PackageSample/ObjectScript.cls

@@ -2,6 +2,7 @@ Class PackageSample.ObjectScript
 {
 ClassMethod Test() As %Status
 {
+    set a=42
     return "It works!"
 }
 

src/cls/PackageSample/PersistentClass.cls

@@ -1,6 +1,7 @@
 Class PackageSample.PersistentClass Extends %Persistent
 {
-property Test as %VarString;
+
+Property Test As %VarString;
 
 ClassMethod CreateRecord() As %Status
 {
@@ -9,4 +10,22 @@ ClassMethod CreateRecord() As %Status
     return objPC.%Save()
 }
 
-}
+Storage Default
+{
+<Data name="PersistentClassDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Test</Value>
+</Value>
+</Data>
+<DataLocation>^PackageSample.PersistentClassD</DataLocation>
+<DefaultData>PersistentClassDefaultData</DefaultData>
+<IdLocation>^PackageSample.PersistentClassD</IdLocation>
+<IndexLocation>^PackageSample.PersistentClassI</IndexLocation>
+<StreamLocation>^PackageSample.PersistentClassS</StreamLocation>
+<Type>%Storage.Persistent</Type>
+}
+
+}