fix CobolResolve.java

Author: tsh-hashimoto

libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/call/CobolResolve.java

@@ -549,6 +549,14 @@ private static void cancelCallStackList(CobolCallStackList p) {
             return;
         }
 
+        // 自分自身をキャンセル
+        try {
+            System.out.println("cobCancel: " + p.getName());
+            cobCancel(p.getName());
+        } catch (CobolStopRunException e) {
+            e.printStackTrace();
+        }
+
         // 子プログラムを再帰的にキャンセル
         if (p.getChildren() != null) {
             cancelCallStackList(p.getChildren());
@@ -560,13 +568,6 @@ private static void cancelCallStackList(CobolCallStackList p) {
             cancelCallStackList(p.getSister());
             p.setSister(null);
         }
-
-        // 自分自身をキャンセル
-        try {
-            cobCancel(p.getName());
-        } catch (CobolStopRunException e) {
-            e.printStackTrace();
-        }
     }
 
     /**