generate CONTINUE statements to prevent empty generated paragraphs

neopragma · Mar 28, 2019 · 9c98255 · 9c98255
1 parent 98fbe4e
commit 9c98255
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/main/cobol/ZUTZCPC.CBL b/src/main/cobol/ZUTZCPC.CBL
@@ -454,6 +454,8 @@
            05  STATEMENT-SPACER             PIC X(11) VALUE SPACES.
            05  PARAGRAPH-END-MARKER         PIC X(12) 
                                             VALUE '           .'.
+           05  PARAGRAPH-EMPTY-PREVENTER    PIC X(19) 
+                                            VALUE '           CONTINUE'.
            05  BEFORE-PARAGRAPH-HEADER      PIC X(17) 
                                             VALUE '       UT-BEFORE.'.
            05  AFTER-PARAGRAPH-HEADER       PIC X(17) 
@@ -4367,6 +4369,8 @@
                MOVE BEFORE-EACH-STATEMENT(BEFORE-EACH-IX) TO TEST-LINE
                PERFORM 9420-WRITE-TEST-LINE    
            END-PERFORM
+           MOVE PARAGRAPH-EMPTY-PREVENTER TO TEST-LINE
+           PERFORM 9420-WRITE-TEST-LINE        
            MOVE PARAGRAPH-END-MARKER TO TEST-LINE
            PERFORM 9420-WRITE-TEST-LINE        
            .
@@ -4386,6 +4390,8 @@
                MOVE AFTER-EACH-STATEMENT(AFTER-EACH-IX) TO TEST-LINE    
                PERFORM 9420-WRITE-TEST-LINE
            END-PERFORM
+           MOVE PARAGRAPH-EMPTY-PREVENTER TO TEST-LINE
+           PERFORM 9420-WRITE-TEST-LINE        
            MOVE PARAGRAPH-END-MARKER TO TEST-LINE
            PERFORM 9420-WRITE-TEST-LINE        
            .