时间戳

首页 > 解决方案 > 如何跳过一行 COBOL？

cobol - 如何跳过一行 COBOL？

问题描述

我有一个 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 行之间有一个空格/空行。在这种情况下，底特律和珍妮特之间是一个空行。

标签： cobol

解决方案

任何一个

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

或者

WRITE LABEL-RECORD-OUT FROM SPACE

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

需要查看记录描述条目LABEL-RECORD-OUT以更清楚地说明上述内容将回答问题。

推荐阅读