如何跳过一行 COBOL？

Question

我有一个 Cobol 项目，一切正常，打印也很好，只是我不知道如何在地址之间跳过一行。

操作代码：

200-PROCESS-ONE-RECORD.
   MOVE NAME-IN TO LEFT-LABEL-OUT
   MOVE SPACES TO BLANK-OUT
   MOVE NAME-IN TO RIGHT-LABEL-OUT
   MOVE SPACES TO BLANK-A-OUT
   WRITE LABEL-RECORD-OUT
   
   MOVE ADDRESS-IN TO LEFT-LABEL-OUT
   MOVE SPACES TO BLANK-OUT
   MOVE ADDRESS-IN TO RIGHT-LABEL-OUT
   MOVE SPACES TO BLANK-A-OUT
   WRITE LABEL-RECORD-OUT
   
   MOVE CITY-STATE-ZIP-IN TO LEFT-LABEL-OUT
   MOVE SPACES TO BLANK-OUT
   MOVE CITY-STATE-ZIP-IN TO RIGHT-LABEL-OUT
   MOVE SPACES TO BLANK-A-OUT
   WRITE LABEL-RECORD-OUT

目前打印如下：

IAN HENDERSON                      IAN HENDERSON
1309 SPRINGBANK ST.                1309 SPRINGBANK ST.
DETROIT     MI 48024               DETROIT     MI 48024
JANET LEASA                        JANET LEASA
12700 GRATIOT ST.                  12700 GRATIOT ST.
WARREN      MI 48077               WARREN      MI 48077

我需要在第 3 行和第 4 行之间有一个 space/empty 行。在本例中，底特律和珍妮特之间有一个空行。

Answer 1

两者都

MOVE SPACE TO LABEL-RECORD-OUT
WRITE LABEL-RECORD-OUT

或者

WRITE LABEL-RECORD-OUT FROM SPACE

需要空行的地方。这符合您显示的代码中的模式。

需要查看 LABEL-RECORD-OUT 的记录描述条目才能更清楚地知道上面的内容可以回答问题。

如何跳过一行 COBOL？

How do I skip a line COBOL?

cobol