COBOL-大型机
文章平均质量分 59
自信的微笑
这个作者很懒,什么都没留下…
展开
-
ABEND U4038
ABEND U4038: 数据文件名与环境部输入输出节有SELECT语句定义的文件名不一致。原创 2012-05-26 23:43:56 · 2229 阅读 · 0 评论 -
MOVE语句。
通过MOVE语句的复制操作,可以实现变量的赋值,参数传递的功能。 1.单个数据复制时,直接将源数据名称放到前面,将目标数据项放到后面。通过TO连接。如: MOVE '12' TO A. MOVE '34' TO B. 当进行复制操作的两个数据名称相同时,要指明数据项所在的数据组名。如: MOVE DAY TO IN DATA1 TO DAY IN DATA2.原创 2012-05-18 23:05:28 · 1387 阅读 · 2 评论 -
基本数据类型
COBOL的数据类别主要分为:常量,变量,直接数,结构体。 变量:值可以改变的数据。常量分为:普通常量,象征常量。普通常量通过valu语句定义;而象征常量可直接使用。普通常量的的好处:1,在程序中不用每次写出具体的数值。2,更改数据可直接在valu语句后更改。象征常量: 象征常量的原创 2012-05-19 22:54:29 · 918 阅读 · 0 评论 -
1加到100
IDENTIFICATION DIVISION.PROGRAM-ID. ADD1.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION.01 A PIC 9(3).01 SUMA PIC 9(4).PROCEDURE DIVISION. MOVE 1 TO A.原创 2012-05-19 22:25:20 · 586 阅读 · 0 评论 -
生活小常识
室内烟味。把泡过的废茶叶渣晒干,放在房间的角落里,利用茶叶的物 理吸附原理去除烟味;还可以用毛巾蘸上稀释了的醋,在室内挥舞数下,对去除烟味也有一定效果;如果用喷雾器喷洒稀醋,效果会更好。 卫生间下水道返味。首先,检查下水道是否通畅,有无异物影响排水。如果有堵塞,可以往下水道里倒适量的碱,这对去除管道内的油脂和铁锈比较有效。其次,如果下水道没有堵塞,但是却返异味,可以利用水密封原理,原创 2012-06-09 13:41:46 · 678 阅读 · 1 评论 -
编辑格式
编辑格式输出类型。1.日期格式。 用于对年月日表示的数据进行格式输出。通常使用反斜杠‘/’将年,月,日分隔。如:。。。DATA DIVISION.WORKING-STORAGE SECTION.01 TEST-DATE PIC 9(8).01 EDITED-DATE PIC 9(4)/99/99.PROCEDURE DIVISION.原创 2012-05-20 22:04:33 · 416 阅读 · 0 评论 -
bit,byte,half-word,word,dword的联系
bit:位byte:字节word:字长half-word:半字dword:双字1 word = 2 byte1 byte = 8 bit 1 dword = 4 byte half-word = 2 byte ebcdic码 32bits = 4 byte EBCDIC码= extended binary coded decimate interchang原创 2012-06-10 22:19:19 · 2092 阅读 · 2 评论 -
选择结构
COBOL中选择结构的语句主要为IF和EVALUATE语句。zero和88层也常用来简化代码。 IDENTIFICATION DIVISION.PROGRAM-ID. IF1. ENVIRONMENT DIVISION.DATA DIVISION. WORKING-STORAGE SECTION. 01 NUM1 PIC 9 VALUE 1. 01原创 2012-05-21 21:57:55 · 426 阅读 · 0 评论 -
逻辑运算
逻辑运算时建立在多种关系运算的基础上的,常用在流程控制的条件判断里。运算结果只有两种,要么真,要么假。三种类型:逻辑与,逻辑或,逻辑非。COBOL中逻辑与用AND表示。如:IDENTIFICATION DIVISION.PROGRAM-ID. AND1.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTIO原创 2012-05-22 22:47:50 · 618 阅读 · 0 评论 -
IF语句的嵌套
有一堆物品,数量为10。有两个包,大包可装8个,小包可以装3个。若大包1次能装完,显示OK,否者继续执行,剩下的用小包装,装下显示OK,否者显示ERRORIDENTIFICATION DIVISION.PROGRAM-BAG.ENVIRONMENT DIVISION. DATA DIVISION.WORKING-STORAGE SECTION. 01 BIG PIC原创 2012-05-23 22:17:40 · 764 阅读 · 0 评论 -
evaluate语句
evaluate语句用于控制多分支选择结构流程。IDENTIFICATION DIVISION.PROGRAM-ID. EVA.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION.01 DSA PIC 9.PROCEDURE DIVISION. ACCEPT DSA.原创 2012-05-23 22:24:55 · 2440 阅读 · 0 评论 -
conditional judgment
88层主要是为方便对多重条件编码的。在数据部定义,层号名为88.使用88层要注意:1,88层条件名通常在变量下定义。2,88层条件名定义时不适用PIC语句。3,88层条件名定于需要VALUE语句。此时,VALUE是在表赋值!!代表对应的变量内容为该值时,条件名为真。如:IDENTIFICATION DIVISION.PROGRAM-ID. T88.ENVIRONME原创 2012-05-23 22:39:09 · 396 阅读 · 0 评论 -
perform语句
如:1到10的奇数和相加。用线外perform和线上perform。IDENTIFICATION DIVISION.PROGRAM-ID. ADD1.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION.01 A PIC 9(2).01 SUMA PIC 9(2).PROCEDURE DIVISIO原创 2012-05-25 23:36:05 · 1485 阅读 · 0 评论 -
READ1.
IDENTIFICATION DIVISION.PROGRAM-ID. READ1.ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTROL. SELECT DSA ASSIGN TO STUDENT.DATA DIVISION.FILE SECTION.FD DSA.01 DSA-DSA.原创 2012-05-18 23:30:45 · 773 阅读 · 0 评论 -
IDCAMS
IDCAMS=integrated catalog access method sevices:集成编目访问方法服务IDCAMS的功能:1,定义主编目和用户编目2,定义VSAM数据集3,定义VSAM数据集记录4,定义VSAM数据集执行备份操作5,显示编目中的记录6,删除数据集等。 AMS=access method sevices :访问方法服务AMS的功能原创 2012-05-29 22:15:57 · 860 阅读 · 0 评论 -
什么是PERFORM语句?
perform语句是过程部中的语句,它能将程序的控制权转交给指定程序,当程序执行完后,程序的控制权有转到下一条执行语句。perform语句共5种形式:1,基本perform2,perform xxx N times3,perform xxx until yyy4,perform xxx varying5,内嵌perform原创 2012-05-26 23:49:40 · 677 阅读 · 0 评论 -
DISPLAY1语句代码。
IDENTIFICATION DIVISION.PROGRAM-ID. DIAPLAY1.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION.01 DISPLAY-DATA. 05 DISPLAY-DATA1 PIC X(11). 05 DISPLAY-DATA2 PIC X(5).原创 2012-05-13 17:32:58 · 554 阅读 · 0 评论 -
COBOL语言编写<hello world>
编写一个COBOL程序需要创建3个数据集,如:CN0010.COBOL.CBOL:存放COBOL源代码。CN0010.COBOL.JCL:存放编译连接和调用的JCL代码。(编译连接:compile,调用:gohell)CN0010.COBOL.LOADLIB:用于生成加载模块。 (recfm=u,lrecl=0,blksize=32760)COBOL源代码编写完成后,必须先提交c原创 2012-05-12 23:35:37 · 1795 阅读 · 0 评论 -
COBOL简介
COBOL=common business oriented languageCOBOL是一种面向数据处理,面向文件,面向过程的高级编程语言,是一种功能强大而又极为冗长的语言。 COBOL由四个部组成:identification division 标识部:用于描述程序本身的相关信息。environment division 环境部:用于指定程序与外部系统之间的对应关系。d原创 2012-05-12 23:10:11 · 1519 阅读 · 0 评论 -
DISPLAY2语句代码。
IDENTIFICATION DIVISION.PROGRAM-ID. DISPLAY2.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION.01 DISPLAY-DATA. 05 DISPLAY-DATA PIC X(10). 05 DISPLAY-AUTHOR PIC X(5).原创 2012-05-13 17:40:39 · 591 阅读 · 0 评论 -
ACCEPT语句
ACCEPT语句用于接收数据。可从终端接收数据,也可接收系统产生的相应数据。 IDENTIFICATION DIVISION.PROGRAM-ID. ACCEPT1.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION.01 INPUT-DATA. 05 INPUT-NUM1 PIC X(3).原创 2012-05-14 22:32:10 · 768 阅读 · 0 评论 -
ACCEPT语句2
使用ACCEPT语句通常主要用于接收系统相应的时间或日期,有如下几种格式:DATE:月份计算的日期,格式为YYMMDD。YY:年份 MM:月份 DD:月中对应的天数若是接收8位长度的日期,使用格式YYYYMMDDTIME:具体时间,格式为HHMMSSHH。DAY-OF-WEEK:一周的星期数,格式为PIC 9,范围1~7。DAY:一年中的绝对天数,格式为YYDDD。ID原创 2012-05-14 22:32:59 · 1054 阅读 · 0 评论 -
zero简化选择结构编码
ZERO是象征常量,代表数字0和字符'O'。因此在选择结构中的条件判断中使用数字或字符‘0’时,用zero代替更方便。使用zero后不用理会是数字0还是字符‘o’。如:IDENTIFICATION DIVISION.PROGRAM-ID. ZERO1.ENVIRONMENT DIVISION.DATA DIVISION.WORKING-STORAGE SECTION原创 2012-06-04 12:50:02 · 746 阅读 · 0 评论 -
使用FILLER注意
FILLER:占用记录位置(通常使用VALUE对句进行赋初值)类型为9时,以0填充;类型为X时,以空格填充。 使用在程序中,通常为了将记录分开,便于查看。如:01 PRINT-P. 05 FILLER PIC X(6). 当作为第一个输出时,写入文件或是在终端查看时,,会出现乱码! 05 YR-MON-DAY-P PIC原创 2012-06-05 22:06:05 · 1066 阅读 · 0 评论 -
查询练习(三)
在上述基础上排除20的部门的员工select ename,sal,deptno,job from emp where job in(select jobfrom emp where deptno=10) and deptno select ename,sal,deptno,job from emp where job in(select jobfrom emp where dept原创 2012-06-06 22:19:46 · 651 阅读 · 0 评论 -
常用语句
DISPLAY语句:用于对数据实现输出操作。ACCEPT语句:用于接收数据。 既可以从终端接收数据也可以接收系统产生的数据。 有两种赋值方式:1.使用'value‘ 2.使用move to 主要用于接收系统相应的日期或时间数据。 DAT原创 2012-05-16 22:53:16 · 287 阅读 · 0 评论 -
基本运算
COBOL的三大基本运算:算数运算,关系运算,逻辑运算。算数运算包括加减乘除及以上的复合运算。 运算结果溢出:当结果数据长度超过保存结果数据的变量所定义的长度。(on size error)ROUNDED:四舍五入。ADD:加。 1.使用ADD语句完成。 2.直接通过运算符号'+'SUBTRACT:减。 1.使用SUBTRACT语句完成。 2.直接通过运算符原创 2012-05-17 22:54:37 · 609 阅读 · 0 评论 -
层号
1层是最高层,49层是最低层。 66层是为特殊描述符项目保留的(重命名)77层项目用于某个组的数据项,如程序中的临时变量。 88层定义条件名(分支选择)99层常用于定义用来存储文件是否读到最后一条记录的标志变量 COBOL程序中的数据项的定义从层号开始,01层是最高层,49层是最低层。 77层项目用于某个组的数据项,如程序中的临时变量。 66层是为特原创 2012-06-17 21:36:45 · 1666 阅读 · 0 评论