文档章节

cobol学习之四字典案例

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 453
阅读 16
收藏 0

代码功能:

输入一个字母,输出相匹配的单词。

通过对定义好的数据进行重定义,对每个单词进行分割成第一个字母和后面的9个字母,使用循环进行匹配。

代码如下:

000010 IDENTIFICATION			DIVISION.
000020  PROGRAM-ID.			SAMPLE01-2.
000030 DATA				DIVISION.
000040  WORKING-STORAGE			SECTION.
000050  01  WORD-VALUES.
000060      03				PIC X(10) VALUE 'apple'.
000070      03				PIC X(10) VALUE 'black'.
000080      03				PIC X(10) VALUE 'cobol85'.
000090      03				PIC X(10) VALUE 'dog'.
000100      03				PIC X(10) VALUE 'eye'.
000110      03				PIC X(10) VALUE 'fault'.
000120      03				PIC X(10) VALUE 'good'.
000130      03				PIC X(10) VALUE 'head'.
000140      03				PIC X(10) VALUE 'idea'.
000150      03				PIC X(10) VALUE 'junior'.
000160      03				PIC X(10) VALUE 'king'.
000170      03				PIC X(10) VALUE 'love'.
000180      03				PIC X(10) VALUE 'medium'.
000190      03				PIC X(10) VALUE 'node'.
000200      03				PIC X(10) VALUE 'open'.
000210      03				PIC X(10) VALUE 'pig'.
000220      03				PIC X(10) VALUE 'quite'.
000230      03				PIC X(10) VALUE 'result'.
000240      03				PIC X(10) VALUE 'success'.
000250      03				PIC X(10) VALUE 'teacher'.
000260      03				PIC X(10) VALUE 'understand'.
000270      03				PIC X(10) VALUE 'version'.
000280      03				PIC X(10) VALUE 'world'.
000290      03				PIC X(10) VALUE 'xylophone'.
000300      03				PIC X(10) VALUE 'yes'.
000310      03				PIC X(10) VALUE 'zoo'.
000320      03				PIC X(10) VALUE '**error**'.
000330  01  WORD-TABLE REDEFINES  WORD-VALUES.
000340	    03  WORD-ITEM OCCURS 27 TIMES.
000350		05  FIRST-CHARACTER 	PIC X.
000360		05 			PIC X(9).
000370  01  WORD-INDEX			PIC 9(3).
000380  01  INPUT-CHARACTER		PIC X.
000390  01  REQUEST-MESSAGE		PIC X(42)
000400	    VALUE  'ENTER ONE CHARACTER OF ALPHABETIC-LOWER.=>'.
000410 PROCEDURE			DIVISION.
000411  DATA-INPUT			SECTION.
000412	   DISPLAY REQUEST-MESSAGE WITH NO ADVANCING.
000413	   ACCEPT  INPUT-CHARACTER.
000414	SEARCH-WORD			SECTION.
000415	   PERFORM TEST BEFORE
000416			VARYING WORD-INDEX FROM 1 BY 1
000417			UNTIL WORD-INDEX > 26
000418		IF INPUT-CHARACTER = FIRST-CHARACTER (WORD-INDEX)
000419		THEN 
000420		    EXIT PERFORM
000421		ELSE 
000422		    CONTINUE
000423		END-IF
000424	   END-PERFORM.
000425	WORD-OUTPUT			SECTION.
000426	   DISPLAY WORD-ITEM (WORD-INDEX).
000427	   EXIT PROGRAM.
000428 END PROGRAM SAMPLE01-2.

PERFORM 循环语句,对单词进行循环查找,如果找到和输入字母和里面定义好的相匹配的单词的第一个字母,就输出下标对应的单词,在cobol中下标从1开始

本文转载自:http://blog.csdn.net/bq1073100909/article/details/41148659

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

《纽约时报》6月4日发表了 COBOL 编程语言的联合设计师 Jean Sammet 的讣告: Jean E. Sammet 于 5 月 20 日在马里兰去世,享年 89 岁。Jean E. Sammet 是 COBOL 语言最早的工程师和联合设计...

王练
2017/06/05
1K
13
玩转Google开源C++单元测试框架Google Test系列(gtest)(总)

前段时间学习和了解了下Google的开源C++单元测试框架Google Test,简称gtest,非常的不错。 我们原来使用的是自己实现的一套单元测试框架,在使用过程中,发现越来越多使用不便之处,而这样不...

元谷
2013/12/18
0
0
Python为什么这么火?

人生苦短,我用Python!对于学习Python的人来说肯定特别熟悉,当然这要归功于python强大的功能:它能把复杂的语言简单化,满足企业运维日常的数据分析和运维系统的管理,编写自动化运维平台,...

让往事随风
2016/05/03
509
2
SonarQube COBOL 3.2 发布

SonarQube COBOL 3.2 发布了。 主要改进内容: Bug 修复: [COBOL-1320] - PerformThruProcedureNamingConvention: remove default for prefix [COBOL-1326] - A failure on a file should n......

达尔文
2016/09/23
446
0
DotNET企业架构应用实践-系统架构与性能-在业务中实例使用缓存与缓存查询-附上视频

回顾与说明 本文是DotNET企业架构应用实践系列中的一篇文章,同时也是一步一步教你使用AgileEAS.NET基础类库进行应用开发系统中的一篇文章,所以本文应该还有一个副标题“一步一步教你使用A...

agilelab
2010/10/22
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

RobotFramework之Process

Process Library version: 3.0.4 Library scope: global Named arguments: supported Introduction Robot Framework test library for running processes. This library utilizes Python's s......

海盐宝宝
刚刚
0
0
easyui的textbox赋值问题,不能用$('#text').val('text');赋值

下面来看看easyui的各种验证框赋值的方式: <input name="text" id="text" class="easyui-numberbox" > <input name="text" id="text" class="easyui-textbox" > <input name="text" id="tex......

无小农
3分钟前
0
0
弹性工作制的魔咒

简评:你找到了一份完美的工作 —— 可以提前离开公司,还可以在晚上从家里回复邮件。既然如此,你为什么还会有那么强的负罪感呢? 或许是弹性工作制魔咒在作祟。 很多享受弹性工作制的人会始...

极光推送
10分钟前
0
0
KAFKA介绍(分布式架构)

Kafka是一个分布式的、可分区的、可复制的消息系统。它提供了普通消息系统的功能,但具有自己独特的设计。这个独特的设计是什么样的呢? 首先让我们看几个基本的消息系统术语: Kafka将消息以...

明理萝
16分钟前
0
1
os::NodeHandle::subscribe回调函数绑定对象

void Foo::callback(const std_msgs::Empty::ConstPtr& message){}Foo foo_object;ros::Subscriber sub = handle.subscribe("my_topic", 1, &Foo::callback, &foo_object); 参考: ht......

itfanr
17分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部