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

《COBOLⅠ-第5章 日期和PAGEの印刷(中文翻译版)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章日期与页数的打印例题2-2在第4章例题2-1中，追加了日期与页数的打印⑴输入输出数据形式（a）输入数据形式输入文件（b）输出数据形式输入表⑵处理基准①将输入文件的记录作为明细行，1页打印25件。②每页打印大标题及各个项目的小标题。③隔1行打印。④单价，输入数量，输入额，有效数字前无用的0消去，每3位加一个豆号。⑤单价，输入额在有效数字的前1位加上货币符号。日期与页数打印的顺序和PAD5．2．1取出日期，打印因为日期是计算机自动设置的，从作业区域取出日期。将取出的日期传到大标题行，与大标题行

2、同时打印。日期只需在最开始时取出一次，保存在作业区域中。但是，日期的取出和移动到大标题行的处理则在前处理中进行。105．2．1页数的计数，打印准备计算页数区域。页数最初被设置为0，每次换页数值增加1。将计算的页数移动到大标题行，与大标题一起打印。页数的计算和向大标题行移动，要在每次换页时进行。也就是说，在主处理的换页处理中，大标题行打印之前进行。在前处理中，先要把页数的初始值设定为0。105．2．1完成的例题的PAD10105．2DATADIVISION(WORKING_STORAGESECTI

3、ON)学习与例题2-1不同的部分。在IDENTIFICATIONDIVISION中，程序的名字是PROG022、ENVIRONMENTDIVISION与DATADIVISION的FILESECTION与例题2-1相同。在WORKING-STORAGESECTION中保存日期与页数，追加大标题行的内容。5．2．1取出日期的区域取出的日期，年月日全体共6位数字。在例题中，取出的日期，年，月，日，2位2位印刷，分别处理，事先在日期区域中保存。5．2．2页数的区域页数计数的区域，因为要用于计算，用PAC

4、K形式的定义。需要的位数，由页数的最大数决定。定义成3位，可以计到999。5．2．3大标题行区域日期与页数都在大标题行上一同打印。对日期与页数进行编辑，将有效数字前不用的0用空格转换。105．2PROCEDUREDIVISION5．2．1取出日期取出计算机中设置的日期，使用ACCEPT。（ⅰ）数据名指定将取出的日期存入区域的数据名（ⅱ）日期，年，月，日各2位，全体共6位的数字项目。（ⅲ）取出数据的项目，英数字项目，数字项目，数字编辑项目还有集团项目。（ⅳ）年为西历年号的后2位，月01～12，日0

5、1～31。（ⅴ）DATE：计算机里设置的日期。105．2．1页数计数，打印作业区域中保的页数初始值被设定为0，每次换页增加1。页数向大标题行移动之后打印。1010105，6总结○取出日期用ACCEPT语句，取出计算机内的日期。○页数的计数，打印每次换页数页数都增加1。页数向大标题行传送打印。10