文档章节

cobol学习之七逆向输出

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 238
阅读 10
收藏 0
点赞 2
评论 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的用法,如果不加的话会前后一致的赋值,输出结果和输入一样,加上以后会按照相同名称赋值。

© 著作权归作者所有

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

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

匿名 ⋅ 2009/04/12 ⋅ 1

COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

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

王练 ⋅ 2017/06/05 ⋅ 13

神经网络中 BP 算法的原理与 Python 实现源码解析

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

曾梓华 ⋅ 2017/05/18 ⋅ 0

《逆向分析实战》数据的存储及表示形式

本文摘自人民邮电出版社异步社区《逆向分析实战》一书,点击查看http://www.epubit.com.cn/book/details/4918 关注微信公众号【异步社区】每周送书 学习过计算机的读者都知道,计算机中的各种...

异步社区 ⋅ 01/14 ⋅ 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 ⋅ 0

软件逆向分析简介

本博客(http://blog.csdn.net/livelylittlefish)贴出作者(三二一、小鱼)相关研究、学习内容所做的笔记,欢迎广大朋友指正! 软件逆向分析简介 正向设计过程 在工程技术人员的一般概念中,...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

Linux系统Oracle 12cR2 RAC集群安装与维护管理(12.2)专题

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

风哥Oracle ⋅ 2017/06/20 ⋅ 0

Navicat Premium 数据库设计器和报表的作用是什么

Navicat Premium 作为一套常见的数据库管理工具,其功能非常的强大,包括存储过程、事件、触发器、函数、视图等。除了能配合Navicat其他工具,还能支持单一程序同时连接到 PostgreSQL、SQL S...

Navicat数据库管理工具 ⋅ 2016/06/23 ⋅ 0

COBOL语言诞生50周年

世界上大部分ATM机器都是使用COBOL语言处理事务,这一诞生于1959年的语言已满50周岁了。 经过50年的发展,COBOL(面向商业的通用语言)已成为银行和金融等领域最重要的工具:世界上75%的商业应...

红薯 ⋅ 2009/09/22 ⋅ 0

Do COBOL Applications Have a Future?

If you've been watching the COBOL space this past year, you have no doubt noticed that this legendary language has been the topic and target of many publications and reports wit......

Ed Airey ⋅ 2017/12/21 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JavaScript零基础入门——(八)JavaScript的数组

JavaScript零基础入门——(八)JavaScript的数组 欢迎大家回到我们的JavaScript零基础入门,上一节课我们讲了有关JavaScript正则表达式的相关知识点,便于大家更好的对字符串进行处理。这一...

JandenMa ⋅ 今天 ⋅ 0

sbt网络问题解决方案

转自:http://dblab.xmu.edu.cn/blog/maven-network-problem/ cd ~/.sbt/launchers/0.13.9unzip -q ./sbt-launch.jar 修改 vi sbt/sbt.boot.properties 增加一个oschina库地址: [reposit......

狐狸老侠 ⋅ 今天 ⋅ 0

大数据,必须掌握的10项顶级安全技术

我们看到越来越多的数据泄漏事故、勒索软件和其他类型的网络攻击,这使得安全成为一个热门话题。 去年,企业IT面临的威胁仍然处于非常高的水平,每天都会看到媒体报道大量数据泄漏事故和攻击...

p柯西 ⋅ 今天 ⋅ 0

Linux下安装配置Hadoop2.7.6

前提 安装jdk 下载 wget http://mirrors.hust.edu.cn/apache/hadoop/common/hadoop-2.7.6/hadoop-2.7.6.tar.gz 解压 配置 vim /etc/profile # 配置java环境变量 export JAVA_HOME=/opt/jdk1......

晨猫 ⋅ 今天 ⋅ 0

crontab工具介绍

crontab crontab 是一个用于设置周期性被执行的任务工具。 周期性执行的任务列表称为Cron Table crontab(选项)(参数) -e:编辑该用户的计时器设置; -l:列出该用户的计时器设置; -r:删除该...

Linux学习笔记 ⋅ 今天 ⋅ 0

深入Java多线程——Java内存模型深入(2)

5. final域的内存语义 5.1 final域的重排序规则 1.对于final域,编译器和处理器要遵守两个重排序规则: (1)在构造函数内对一个final域的写入,与随后把这个被构造对象的引用赋值给一个引用...

江左煤郎 ⋅ 今天 ⋅ 0

面试-正向代理和反向代理

面试-正向代理和反向代理 Nginx 是一个高性能的反向代理服务器,但同时也支持正向代理方式的配置。

秋日芒草 ⋅ 今天 ⋅ 0

Spring 依赖注入(DI)

1、Setter方法注入: 通过设置方法注入依赖。这种方法既简单又常用。 类中定义set()方法: public class HelloWorldOutput{ HelloWorld helloWorld; public void setHelloWorld...

霍淇滨 ⋅ 昨天 ⋅ 0

马氏距离与欧氏距离

马氏距离 马氏距离也可以定义为两个服从同一分布并且其协方差矩阵为Σ的随机变量之间的差异程度。 如果协方差矩阵为单位矩阵,那么马氏距离就简化为欧氏距离,如果协方差矩阵为对角阵,则其也...

漫步当下 ⋅ 昨天 ⋅ 0

聊聊spring cloud的RequestRateLimiterGatewayFilter

序 本文主要研究一下spring cloud的RequestRateLimiterGatewayFilter GatewayAutoConfiguration @Configuration@ConditionalOnProperty(name = "spring.cloud.gateway.enabled", matchIfMi......

go4it ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部