文档章节

cobol学习之七逆向输出

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

输入:0123456789

输出:9876543210

严格要求10位,cobol必须严格要求位数。

代码如下:

000010 IDENTIFICATION                 DIVISION.
000020  PROGRAM-ID.                   STUDY6-103.
000030 ENVIRONMENT                    DIVISION.
000040 DATA                           DIVISION.
000050  WORKING-STORAGE                       SECTION.
000060 01                             W-DATA PIC X(10).
000070 01 W-DATA-1 REDEFINESW-DATA.
000080       03                         WA PIC X.
000090       03                         WB PIC X.
000100       03                         WC PIC X.
000110       03                         WD PIC X.
000120       03                         WE PIC X.
000130       03                         WF PIC X.
000140       03                         WG PIC X.
000150       03                         WH PIC X.
000160       03                         WI PIC X.
000170       03                         WJ PIC X.
000180 01 W-DATA-2.
000190       03                         WJ PIC X.
000200       03                         WI PIC X.
000210       03                         WH PIC X.
000220       03                         WG PIC X.
000230       03                         WF PIC X.
000240       03                         WE PIC X.
000250       03                         WD PIC X.
000260       03                         WC PIC X.
000270       03                         WB PIC X.
000280       03                         WA PIC X.
000290 PROCEDURE                      DIVISION.
000300     ACCEPT W-DATA.
000310     MOVE <span style="color:#cc0000;">CORR</span> W-DATA-1 TO W-DATA-2.
000320     DISPLAY W-DATA-2.
000330     STOP RUN.
000340


此次主要联系CORR的用法,如果不加的话会前后一致的赋值,输出结果和输入一样,加上以后会按照相同名称赋值。

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

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
商用编程语言--COBOL

COBOL(面向商业的通用语言,又称为企业管理语言、数据处理语言等,Common Business Oriented Langauge)是最早的高级编程语言之一,是世界上第一个商用语言。 COBOL是一种面向数据处理的、面...

匿名
2009/04/12
10.8K
1
COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

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

王练
2017/06/05
1K
13
神经网络中 BP 算法的原理与 Python 实现源码解析

最近这段时间系统性的学习了BP算法后写下了这篇学习笔记,因为能力有限,若有明显错误,还请指出 目录 什么是梯度下降和链式求导法则 神经网络的结构 BP算法中的执行流程(前向传递和逆向更新...

曾梓华
2017/05/18
0
0
Linux系统Oracle 12cR2 RAC集群安装与维护管理(12.2)专题

风哥Linux系统Oracle 12cR2 RAC集群安装与维护管理(12.2)专题包括内容: Oracle数据库12cR2(项目实战之一):在Windows上安装Oracle12.2 Oracle数据库12cR2(项目实战之五):Oracle12.2 ...

风哥Oracle
06/29
0
0
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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Go语言_通神之路(2)

1、包 每个Go程序都是由包构成,从main包开始运行,就是我上一篇讲到的,都是从main函数开始执行,但是必须在main包下面! package mainimport ( "fmt" "math/rand")func ...

木九天
昨天
2
0
51.php-fpm的pool 慢日志 open_basedir 进程管理

12.21 php-fpm的pool 12.22 php-fpm慢执行日志(测试时报错) 12.23 open_basedir 12.24 php-fpm进程管理 12.21 php-fpm的pool: php-fpm里的pool也叫池子,咱们之前加入过www的配置,这个w...

王鑫linux
昨天
0
0
java内存模型概述

1、Java虚拟机运行时数据分区图 程序计数器:线程私有,是一块较小的内存空间,它是当前线程所执行的字节码文件的行号指示器 java虚拟机栈:线程私有,其生命周期与线程相同,这也就是我们平...

京一
昨天
0
0
shell学习之test语法

因为if-then语句不能测试退出状态码之外的条件,所以提供了test, 如果test命令中列出的条件成立,test命令就会退出并返回退出状态码0;如果条件不成立,test命令就会退出并返回非零的退出状态...

woshixin
昨天
0
0
openJDK之如何下载各个版本的openJDK源码

如果我们需要阅读openJDK的源码,那么需要下载,那么该去哪下载呢? 现在JDK已经发展到版本10了,11已经处于计划中,如果需要特定版本的openJDK,它们的下载链接在哪呢? 1.openJDK的项目 链接...

汉斯-冯-拉特
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部