COBOL NOTES（三）

作者:习惯有你日期:2007-05-15

磁盘顺序文件

1＞ OPEN语句

　除了可以用INPUT　OUTPUT方式找开文件外，还可以用I－O方式，即被打开的文件既可以输入，也可以输出

Tags: {216}{223}

分类: | 固定链接 | 评论: 0 | 引用: -6 | 查看次数: 1657

COBOL NOTES（二）

作者:习惯有你日期:2007-05-15

字符处理

一．STRING　语句

77　　A　　PIC　　X（3）　　VALUE　‘ABC’。

Tags: {216}{223}

分类: | 固定链接 | 评论: 1 | 引用: -2 | 查看次数: 2813

软件外包项目(对日)常见问题探讨

作者:习惯有你日期:2007-05-15

软件外包已经成为全球IT行业的大趋势，当前软件发包方主要来自欧美和日本。我国对日软件外包具备很多竞争优势，中国各地如北京、上海、大连、西安、杭州、合肥等城市的对日软件外包正在迅速发展，并逐渐形成产业规模，中小规模的软件企业纷纷建立对日软件出口联盟。
　　对日软件外包相对技术难度不高，但是质量要求相当苛刻，外包项目失败的例子不少。以下就对日软件外包常见的一些问题进行简单探讨，希望与同行的朋友更多交流，总结经验，共同成功。

　　1、日方SE认为理所当然的地方，很多细节不会在式样书中明确写出，或者说日方SE完全按照在日本国做项目设计的习惯写式样书；由于中日文化和思维习惯的差异，可能导致中国软件开发人员对这些习惯问题理解有误。

Tags: {221}{222}

分类: | 固定链接 | 评论: 0 | 引用: -2 | 查看次数: 1787

COBOL语法和文法(2)

作者:习惯有你日期:2007-05-15

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个字符，如1994年4月1日表示为94091。

Tags: {216}{219}{220}

分类: | 固定链接 | 评论: 1 | 引用: -2 | 查看次数: 3327

COBOL语法和文法(1)

作者:习惯有你日期:2007-05-15

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

Tags: {216}{219}{220}

分类: | 固定链接 | 评论: 0 | 引用: -4 | 查看次数: 2286

COBOL语言数据类型转换方法

作者:习惯有你日期:2007-05-15

计息是银行的一项重要业务，包括日常代理客户收、付计算客户利息和年度计息等。目前，这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行，该系统联机程序和联机计息程序是用IBM 370汇编语言实现的。为方便汇编语言读写，在VSAM文件存储的数据中，数据存放格式进行了特殊的定义。如日期存放采用X(3)型，01年03月15日，存入EBCD码为X‘010315’。在进行年度计息时，为了实现各种复杂的运算工作，一般采用COBOL语言来实现各种运算。而采用COBOL语言读取X(3)型数据时，读出的是字符型数据，不能直接进行运算，必须转换为COBOL数据类型的数据后才能进行相应处理。如刚才的X‘010315’，需要转换为内部十进制数据X‘0010315C’。本文介绍一种用COBOL语言实现字符型X(3)与内部十进制数据相互转换的方法。
由X(3)型转换为内部十进制
由于日期数据总是大于零，在COBOL语言的工作单元节定义变量DATE－FIRST后，再追加定义COBOL语言的最小数据单元X‘000C’，即十进制12。由于重定义DATE－CASE为DATE－CHANGE后，DATE－CHANGE是原日期数据的1000倍，于是要在过程部将DATE－CHANGE除以1000。
首先，在COBOL程序WORKING－STORAGE SECTION. 中定义如下内容：
WORKING－STORAGE SECTION.

Tags: {216}{217}{218}

分类: | 固定链接 | 评论: 0 | 引用: -4 | 查看次数: 2086

COBOL NOTES

作者:习惯有你日期:2007-05-15

用法子句(USAGE子句) 使用用法(USAGE)子句可以使程序设计者自由选挥数据杯内存中的存放形式。譬如，数据项A和B是需要多次进行运算，如果用外部十进制形式则来回转换会大大降低运算速度，这时，可以选择A和B为定点二进制形式或内部浮点形式．如果数据项C和D轻加运算次数少，而且需要多次打印出C和D的结果，这时用外部十进制比较适合，因为它最适合打印的要求，不必再进行转换。 USAGE IS DISPLAY/COMP DISPLAY (标准数据形式。一个字节放一字符) COMP 定点二近制形式 COMP-1：内部短浮点形式 COMP-2：内部长浮点形式 COMP-3：内部十进制形式如果对组合项描述为某一种存放形式，则表示这个组合项的下属各初等项都是这种形式。 USAGE子句指定的数据存放形式不应与PIC子句指定的数据类型矛盾．长、短浮点形式己确定了内存的长度，不应再用PIC子句．用WRITE语句输出时，是直接按内存中存放数据形式输出(不加转换的)．这是和用DISPLAY语句时不同的．

Tags: {216}

分类: | 固定链接 | 评论: 0 | 引用: -2 | 查看次数: 1898