2004年12月_expert2000

12月 11月

原创 COBOL文件操作

要在COBOL中使用文件，要在3个不同的部中放上信息。环境部，要有程序使用的每个文件的文件控制项目(FILE-CONTROL)。这个项目将程序中使用的文件名与程序外的实际文件联系起来。这些项目还定义文件的组织和访问方式。数据部，要有每个文件的文件描述符(FD)项目，就是数据定义。过程部，放上处理语句，OPEN,READ,WRITE,DELETE等。环境部

2004-12-17 15:46:00 8778 4

原创 COBOL子程序调用

内部子程序 IDENTIFICATION DIVISION. PROGRAM-ID. PROC-A. ENVIRONMENT DIVISION. ... DATA DIVISION. ... PROCEDURE DIVISION. ... IDENTIFICATION DIVISION. PROGRAM-ID. PROC-B.

2004-12-16 18:02:00 3456 2

原创 COBOL中数组操作

下面是数组的例子： 01 RECORD-X. 03 MONTH OCCURS 12 TIMES. 05 NAME PIC X(12). 05 DAYS OCCURS 31 TIEMS. 07 COMMENT PIC X(20). 07 TEMP-H

2004-12-15 17:13:00 6341 2

原创 COBOL语法和文法(2)

ACCEPT 从键盘或其他输入设备读取数据。 ACCEPT A FROM DEV. 从DEV读取数据到A，也可以省略FROM DEV，表示从键盘读取。 ACCEPT A FROM DATE/DAY/DAY-OF-WEEK/TIME.读取日期，表示为6个字符，如990909（1999年9月9日）。读取当前日期在年度（前2位）中为第几天（后3位），表示为6个字符，如19

2004-12-15 17:10:00 4290

原创 COBOL语法和文法(1)

REDEFINES 可以用不同的变量描述同一内存。 01 PART_RECODE USAGE DISPLAY 03 PART-TYPE PICTURE... 03 PART_TYPE_A. 05 PART_NUMBER PICTURE... 05 PART_COST PICTURE... 03 PART_TYPE_B REDEF

2004-12-15 17:02:00 3277

原创 COBOL程序格式

cobol源程序的格式如下：每行开头有6个字符的序号区。可以输入000010，000020等表示行，也可以不输。序号区后面是一个字符（第7位）的指示符区，如第一行所示。可以用*和/表示注释，_表示续行，D表示调试。指示符区后面是4个字符（8~11位）的A区。可以放入部，节，段标题，段名，层指示符和层号01与77，关键字DECLARATIVES和

2004-12-08 16:03:00 3837 7