Added macro FP that jumps to the PROCEDURE DIVISION of the current CO…

…BOL file.
michaelknigge · Oct 20, 2022 · 4154b9d · 4154b9d
1 parent dd842d1
commit 4154b9d
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/macros/fp.c b/macros/fp.c
@@ -0,0 +1,12 @@
+void fp(void)
+{
+   SpfService("cmd", "FIND 'PROCEDURE DIVISION' 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");
+}