磁盘顺序文件 
 
1＞              OPEN语句 

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

查看更多...

Tags: COBOLCOBOL NOTESNOTES

字符处理 

一．STRING　语句 

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

查看更多...

Tags: COBOLCOBOL NOTESNOTES

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

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

查看更多...

Tags: 软件外包软件外包 问题问题

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: COBOLCOBOL 语法语法 文法文法

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

查看更多...

Tags: COBOLCOBOL 语法语法 文法文法

     计息是银行的一项重要业务，包括日常代理客户收、付计算客户利息和年度计息等。目前，这些工作大多数是在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: COBOLCOBOL 数据类型数据类型 转换转换

        用法子句(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: COBOLCOBOL

       其实很想在这里每天记录一下自己的工作内容,进度.也可以说成是记录自己的成长吧.但签了保密协议,所以不能够在这说些什么.
       这几天做的事情就是修改source.按照日方发来的式样书,变更书上的要求做东西.说起来不难,但似乎做起来遇到的问题不少.这使得我不得不去问其他的人.真正看着要求做东西这还是头一回.
      PS:怎么觉得自己语言上越来越贫乏了........

查看更多...

Tags: 项目项目