Make PRINT-CONFIG more informative about program structure.

2018-09-10 14:48:55 -06:00 · 2018-09-10 14:48:55 -06:00 · 3576df48f7
parent 4b55932740
commit 3576df48f7
1 changed files with 2 additions and 1 deletions
--- a/PRINTCNF.COB
+++ b/PRINTCNF.COB
@ -109,7 +109,8 @@
           READ PROGRAM-CODE RECORD
               AT END MOVE 10 TO STATE.
           IF NOT DONE THEN
-               DISPLAY PROGRAM-IP, ".", INSTRUCTION-RECORD
+               DISPLAY PROGRAM-IP, ".", INSTRUCTION-RECORD, ".",
+                       PREV-IP, ".", NEXT-IP
               IF NEXT-IP OF PROGRAM-RECORD IS EQUAL TO 0 THEN
                   MOVE 10 TO STATE
               ELSE