Added macro FL that jumps to the LINKAGE SECION of the current COBOL …

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