COBOL非常见知识点一

最新推荐文章于 2023-09-17 13:06:16 发布

bluelilyabc

最新推荐文章于 2023-09-17 13:06:16 发布

阅读量1.8k

点赞数 2

本文链接：https://blog.csdn.net/bluelilyabc/article/details/116528506

版权

1. ’advancing‘是‘前进’的意思，这里有换行和换页的用法。下列是还数字是换2行，3行的写法。

MOVE  H01-AREA       TO    OUT3-DTL. 
WRITE OUT3-FILE-REC  FROM  OUT3-REC  AFTER  ADVANCING  PAGE. 
MOVE  H02-AREA       TO    OUT3-DTL.
WRITE OUT3-FILE-REC  FROM  OUT3-REC  AFTER  ADVANCING  3. 
MOVE  H03-AREA       TO    OUT3-DTL.  
WRITE OUT3-FILE-REC  FROM  OUT3-REC  AFTER  ADVANCING  2.

2.DISPLAY '*******' ' ' with no advancing.的用法（with no advancing表示不进行常规的display换行操作）

000000 IDENTIFICATION   DIVISION.
000000 PROGRAM-ID.      STUDY-1.
000000 ENVIRONMENT      DIVISION.
000000 DATA             DIVISION.
000000 WORKING-STORAGE  SECTION.
000000  77    I         PIC   99.
000000  77    J         PIC   99.
000000  77    DA3       PIC   99.
000000  77    DA4       PIC   Z9.
000000  77    DA5       PIC   Z9.
000000  77    DA6       PIC   Z9.
000000*
000000 PROCEDURE        DIVISION.
000000 A10