COBOLⅠ第5章 日期和PAGEの印刷中文翻译版.docx

COBOLⅠ第5章 日期和PAGEの印刷中文翻译版.docx

《COBOLⅠ第5章 日期和PAGEの印刷中文翻译版.docx》由会员分享，可在线阅读，更多相关《COBOLⅠ第5章 日期和PAGEの印刷中文翻译版.docx（11页珍藏版）》请在冰豆网上搜索。

COBOLⅠ第5章日期和PAGEの印刷中文翻译版

第5章日期与页数的打印

例题2-2

在第4章例题2-1中，追加了日期与页数的打印

⑴输入输出数据形式

（a）输入数据形式

输入文件

（b）输出数据形式

输入表

⑵处理基准

1将输入文件的记录作为明细行，1页打印25件。

2每页打印大标题及各个项目的小标题。

3隔1行打印。

4单价，输入数量，输入额，有效数字前无用的0消去，每3位加一个豆号。

5单价，输入额在有效数字的前1位加上货币符号。

日期与页数打印的顺序和PAD

5．2．1取出日期，打印

因为日期是计算机自动设置的，从作业区域取出日期。

将取出的日期传到大标题行，与大标题行同时打印。

日期只需在最开始时取出一次，保存在作业区域中。

但是，日期的取出和移动到大标题行的处理则在前处理中进行。

5．2．2页数的计数，打印

准备计算页数区域。

页数最初被设置为0，每次换页数值增加1。

将计算的页数移动到大标题行，与大标题一起打印。

页数的计算和向大标题行移动，要在每次换页时进行。

也就是说，在主处理的换页处理中，大标题行打印之前进行。

在前处理中，先要把页数的初始值设定为0。

5．2．3完成的例题的PAD

5．3DATADIVISION（WORKING_STORAGESECTION）

学习与例题2-1不同的部分。

在IDENTIFICATIONDIVISION中，程序的名字是PROG022、

ENVIRONMENTDIVISION与DATADIVISION的FILESECTION与例题2-1相同。

在WORKING-STORAGESECTION中保存日期与页数，追加大标题行的内容。

5．3．1取出日期的区域

取出的日期，年月日全体共6位数字。

在例题中，取出的日期，年，月，日，2位2位印刷，分别处理，事先在日期区域中保存。

5．3．2页数的区域

页数计数的区域，因为要用于计算，用PACK形式的定义。

需要的位数，由页数的最大数决定。

定义成3位，可以计到999。

5．3．3大标题行区域

日期与页数都在大标题行上一同打印。

对日期与页数进行编辑，将有效数字前不用的0用空格转换。

5．4PROCEDUREDIVISION

5．4．1取出日期

取出计算机中设置的日期，使用ACCEPT。

（ⅰ）数据名

指定将取出的日期存入区域的数据名

（ⅱ）日期，年，月，日各2位，全体共6位的数字项目。

（ⅲ）取出数据的项目，英数字项目，数字项目，数字编辑项目还有集团项目。

（ⅳ）年为西历年号的后2位，月01～12，日01～31。

（ⅴ）DATE：

计算机里设置的日期。

5．4．2页数计数，打印

作业区域中保的页数初始值被设定为0，每次换页增加1。

页数向大标题行移动之后打印。

5，6总结

○取出日期

用ACCEPT语句，取出计算机内的日期。

○页数的计数，打印

每次换页数页数都增加1。

页数向大标题行传送打印。