fix CobolResolve.java

Author: tsh-hashimoto

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

@@ -549,15 +549,6 @@ private static void cancelCallStackList(CobolCallStackList p) {
             return;
         }
 
-        // プログラムをキャンセル
-        String programName = p.getName();
-        if (programName != null) {
-            CobolRunnable runnable = callTable.get(programName);
-            if (runnable != null && !runnable.isActive()) {
-                runnable.cancel();
-            }
-        }
-
         // 子プログラムを再帰的にキャンセル
         if (p.getChildren() != null) {
             cancelCallStackList(p.getChildren());
@@ -569,6 +560,13 @@ private static void cancelCallStackList(CobolCallStackList p) {
             cancelCallStackList(p.getSister());
             p.setSister(null);
         }
+
+        // 自分自身をキャンセル
+        try {
+            cobCancel(p.getName());
+        } catch (CobolStopRunException e) {
+            e.printStackTrace();
+        }
     }
 
     /**