Added macro FW that jumps to the WORKING-STORAGE SECION of the curren…

…t COBOL file.
michaelknigge · Oct 20, 2022 · 984f7f2 · 984f7f2
1 parent 4154b9d
commit 984f7f2
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/macros/fw.c b/macros/fw.c
@@ -0,0 +1,12 @@
+void fw(void)
+{
+   SpfService("cmd", "FIND 'WORKING-STORAGE SECTION' 8 FIRST QUIET");
+
+   if(SpfService("query", "find_string_count", NULL) == 0)
+      return;
+
+   SpfService("cmd", "DOWN");
+   SpfService("cmd", "RESET FIND");
+   SpfService("cmd", "RECOLOR");
+   SpfService("cmd", "CURSOR");
+}