如何在大型机COBOL中"睡觉"？

在大型机COBOL中，"睡觉"通常指的是让程序暂停执行一段时间，以便其他程序或进程有机会执行。在COBOL中，可以使用PAUSE语句来实现这个目的。

以下是一个简单的示例：

IDENTIFICATION DIVISION.
PROGRAM-ID. SLEEPING-PROGRAM.

PROCEDURE DIVISION.
   DISPLAY "Starting sleeping program..."
   PAUSE 5 SECONDS
   DISPLAY "5 seconds have passed, continuing program..."
   STOP RUN.

在这个示例中，PAUSE 5 SECONDS语句会让程序暂停5秒钟，然后继续执行。

需要注意的是，PAUSE语句的实现方式取决于具体的大型机操作系统和COBOL编译器。在某些情况下，可能需要使用操作系统提供的特殊命令或系统服务来实现类似的功能。

相关·内容

如何在keras中添加自己的优化器(如adam等)

tensorflow-gpu\Lib\site-packages\tensorflow\python\keras 3、找到keras目录下的optimizers.py文件并添加自己的优化器找到optimizers.py中的...# 传入优化器名称: 默认参数将被采用 model.compile(loss=’mean_squared_error’, optimizer=’sgd’) 以上这篇如何在keras中添加自己的优化器...(如adam等)就是小编分享给大家的全部内容了，希望能给大家一个参考。

45K3 0

将 60 多年的 COBOL 语言重构为 Java，IBM 用 AI 工具解决大型机维护难

为解决该问题，IBM 周二宣布推出生成式 AI 工具推出 watsonx Code Assistant for Z 将 COBOL 代码重构为 Java 来实现云上古董大型机软件的现代化。...IBM 表示，现代化大型机应用程序将利用 AIOps、DevOps、API 和数据集成等学科，轻松将这些应用程序集成到混合云架构中。...IBM 表示，超过一半的财富 1000 强企业依靠大型机来处理信用卡和支付交易、航班预订并确保关键任务数据始终可用。...大约 68% 的高管表示大型机系统是其混合云的核心，但近 70% 的高管表示基于大型机的应用程序需要现代化。老化的 COBOL 系统已成为企业和政府面临的大问题。...在大流行初期，基于 COBOL 的州失业系统在申请增加的压力下变得紧张。这为由退休的 COBOL 程序员组成的咨询公司“COBOL Cowboys”带来了业务，他们在大型机危机中奋力救援。

2732 0

苦心20年制造的GnuCOBOL已经蓄势待发

GnuCOBOL 项目负责人 Simon Sobisch 在同一场 FOSDEM 演讲中说，当你使用 ATM 卡时，如果不是 Java，后台发生的很多事情都可能是 COBOL。...许多组织都有庞大的 COBOL 代码库，迁移起来很困难。但是，为什么要迁移呢?COBOL 快速而可靠。现在商业供应商主导着 COBOL 的部署。IBM 将 COBOL 捆绑在其大型机中。...Micro Focus 为 PC 提供 COBOL。富士通的 NetCOBOL 则可在 PC 和大型机上运行。...它可以编译为 C 代码(C89+)，从而使其非常可移植，从大型机到树莓派都可以运行，索比施说。...最后，GnuCOBOL 将是即将到来的 Google Summer of Code 中展示的语言之一，因此一整代新的码农将能说"这不仅仅是 COBOL，这是 GnuCOBOL。"

851 0

COBOL课程登顶GitHub后，我们找到了这门上古语言“传承人”：过时语言值得拯救吗

当然，这和COBOL本身的优点是分不开的，除了业务支持外，系统的简洁性、代码的可读性、可靠性，以及处理大量数据的能力，这些都使COBOL得以在商业环境中脱颖而出。...文章中，Jeremy还总结了COBOL与其他现代语言的7大不同之处： 大型机。...想认真开发COBOL，大型机是不可少的，网上虽然能找到一些模拟器，比如GnuCOBOL，但真实数据存在于大型机上，需要访问才能进行真正的COBOL开发；程序可读性。...在COBOL中没有太多“松散的”编程，这也是不被允许的，每件事情都要有意义，看似很无情，但也是个好事；作业。...既然COBOL与现代语言的差异如此明显，那么它又是如何在语言“野蛮生长”的年代仍保持着如此顽强的生命力呢？对此，Jeremy表示，大概是因为COBOL的表现一直很优秀吧。

8074 0

60多岁的COBOL，50岁的码农：今天仍有8000亿行代码！

更重要的是，几乎一半的受访开发人员实际上预计，其组织中的 COBOL 数量将在未来 12 个月内增加，而类似比例的人表示，他们预计 COBOL 应用程序至少还能再存在十年。...新泽西州州长菲尔·墨菲（Phil Murphy）呼吁志愿者掌握如何使用这门已有数十年历史的计算机编程语言，因为该州的许多系统仍在较旧的大型机上运行，底层支持正是COBOL。...该州有 36.2万名居民申请失业，已有 40 年历史的大型机一度因缺乏合格的运维人员而不堪重负。...许多大企业仍然使用流利的 COBOL，该语言擅长在大型机上执行大规模的批处理和事务处理操作。...此外，存款账户、卡网络、ATM、抵押服务、贷款分类记账等服务背后都有COBOL的身影。目前，尽管 COBOL 在新一代开发人员中已基本过时，但许多企业并不打算放弃该语言。

7522 0

【DB笔试面试511】如何在Oracle中写操作系统文件，如写日志？

题目部分如何在Oracle中写操作系统文件，如写日志？答案部分可以利用UTL_FILE包，但是，在此之前，要注意设置好UTL_FILE_DIR初始化参数。...image.png 其它常见问题如下表所示：问题答案 Oracle中哪个包可以获取环境变量的值？可以通过DBMS_SYSTEM.GET_ENV来获取环境变量的当前生效值。...在CLIENT_INFO列中存放程序的客户端信息；MODULE列存放主程序名，如包的名称；ACTION列存放程序包中的过程名。该包不仅提供了设置这些列值的过程，还提供了返回这些列值的过程。...如何在存储过程中暂停指定时间？ DBMS_LOCK包的SLEEP过程。例如：“DBMS_LOCK.SLEEP(5);”表示暂停5秒。 DBMS_OUTPUT提示缓冲区不够，怎么增加？...如何在Oracle中写操作系统文件，如写日志？可以利用UTL_FILE包，但是，在此之前，要注意设置好UTL_FILE_DIR初始化参数。

28.8K3 0

基础架构是代码：COBOL和Go的故事【programming（Go）】

COBOL仍然是大型主机的主要语言。从它的历史中Go可以学到什么来主宰云计算？ image.png 过去的挑战也会再次出现。...在本周的Command Line Heroes播客（S3E5）中，伴随着编程语言和平台的变化，这个想法又将出现人们的脑海里。...在大型机计算时代，COBOL 主宰了整个领域。如今的 COBOL 语言但是今天呢？随着大型机的衰落和为 Web 和云设计的更新、更具创新性的语言的兴起，COBOL又位于何处？...考虑到 COBOL 在商业世界中的持续重要性，了解 COBOL 可能是一个很好的职业选择。由于专门从事 COBOL 语言的人数有限，顶级 COBOL 程序员甚至可以期望赚到六位数的收入。...这意味着Go，这个看似微不足道的玩家，在自由和开放源码软件中的使用量已经接近现存最流行语言的十分之一。” 在我之前的两份工作中，我的团队（重新）编写了Go中的基础架构软件，以参与这一不朽的浪潮。

6830 0

美国政府机构争抢80岁 COBOL 程序员？

新冠疫情的蔓延，让美国的失业人数达到 1700 万，而美国至少有 12 个州的失业救济系统运行在已经有 60 年历史、使用 COBOL 编程语言的大型机上。...虽然用今天的眼光看，COBOL 的设计已经非常笨拙，但在刚诞生的时候，这绝对是一种革命性的编程语言。 COBOL 在金融部门、联邦政府以及大型企业 / 机构中备受青睐。...究其原因，出色的可扩展性、批处理功能以及数学精度成为 COBOL 的致胜之道。它被广泛安装在世界各地的大型机中，长久扎根并蓬勃发展，如同顽固的杂草，COBOL 似乎永远无法被彻底消灭。...image.png 关于COBOL的统计数据：目前，全球仍有 2200 亿行 COBOL 代码被持续使用。 COBOL 在全部银行系统基础设施中占据 43%。...Hinshaw 说，在担任兼职顾问的 20 位“牛仔”中，有许多已经达到退休年龄，尽管有些“年轻人”： “我称他们为年轻人，但他们也已经 50 多岁了。”

7952 0

大机平台工程：设计思维推动变革

平台团队运行着一些会话，在这些会话中，他们倾听了不同开发人员组、质量工程师以及任何与大型机交互的人员的意见。...皮卡德表示，“但我们还希望解决下一代问题，并为他们提供工具功能，这意味着他们可以成为下一代继续支持、维护和提升大型机能力的人。” 产生的问题包括：我们如何在大机上获得 CI/CD？...我们如何在云端获取大型机？在虚拟化环境中，当只有足够的容量来运行某些工作负载时，我们如何才能解决该工作流程争用？我们如何鼓励平台采用？我们如何鼓励下一代大机工程师？...它提出了“Leslie”这个角色，她既能用 COBOL 编码，也能用 Python 编码，并且可以在绿色屏幕和 GUI 之间切换。...他们可以使用自动单元测试，该测试突出显示 COBOL 代码以显示哪些代码已测试或未测试。漏洞在管道中较早被扫描出来。

1291 0

COBOL老矣，尚能饭否？近80%企业计划彻底淘汰那些古早编程语言

「我们的目标是摆脱大型机。」Mohanram 说道。...但是，COBOL 程序员的短缺并不是唯一的问题。在编程语言和软件开发的高速世界中，COBOL 已经成为一个陈旧的（尽管仍然相当可靠）的机器。...「我们在 COBOL 中实施更改的速度很慢，人们开始寻找变通办法，」Mohanram 说，这造成了所谓「技术债务」的积累。...IBM 的大型机运行着世界上大部分的 COBOL 代码，拥有一个致力于推进该技术的整个团队，因此客户可以继续使用该语言。...Sweat 说，他认为退出 COBOL 是一种增长趋势。两年前，他采访过的潜在客户中只有一半希望将他们的系统迁移到不同的编程语言。现在， 75% 到 80% 已经希望摆脱 COBOL。

4164 0

这个上古语言最近火了，80岁码农再就业；《终结者》里的代码也是它

而这些失业救济系统正是基于COBOL的大型机系统，（因为COBOL稳定性强，替换成本高，所以一直沿用），很多州已经几十年都没有更新了。于是，COBOL程序员就成了“香饽饽”。 ?...为什么COBOL火了 COBOL看似一夜之间火了，但其实是因为疫情的突然爆发，基于COBOL的失业系统崩溃，才使得COBOL需求激增。...除了政府使用COBOL程序以外，在美国的商业、金融方面，COBOL系统确是众多系统的根基。...据路透社报道： 43%的银行系统都是基于COBOL构建； 80%的面对面交易中都是用COBOL; 95%的ATM刷卡都依赖于COBOL代码； ? 这样来看，COBOL怎么不稳？...此外，在过去五年中，COBOL的普及率呈上升趋势。虽然在过去的30年中，总体下降幅度很大。 ? 看那个图中那根励志的蓝线，是不是有点想法。这个事情告诉我们，程序员锻炼好身体，挺重要的。你说呢？

5022 0

80岁COBOL码农：「扶我起来，这个bug我会修。」

参与维护基于 COBOL 的系统工作的公司表示，95％的 ATM 交易通过 COBOL 程序，80％的现场交易依赖于它们，超过 40％的银行仍然使用 COBOL 作为其系统的基础。...作为一门古老的语言，COBOL 似乎越来越缺人，从 Cobol Cowboys 近几年的发展就可以看出来。...由于年轻人懂 COBOL 的比较少，美国康涅狄格州劳工部正在召回经验丰富的退休 COBOL 人员。该部门的一位沟通人士表示，这些系统并不是全自动的，运行过程中的多个点都需要手动调整。...最近几周，有很多资深程序员向 Cobol Cowboys 咨询，如何将自己的 COBOL 技能付诸实践。随着编程语言的迭代，像 Cobol Cowboys 这样的公司或许会越来越「炙手可热」。...北伊利诺伊大学的学生 Attarwala 在学校里的研究项目正是大型机，他看到州长在新闻发布会上的发言之后就联系了新泽西州方面。

5222 0

保险业SAP转型：奠定坚实的基础

如何在这种快节奏的现实中满足客户的需求，降低成本，加速增长？首先，让我们考虑一下数字化转型成功是什么样子的，以及如何实现它。在这篇文章中，我们将解释如何克服数字化转型障碍并促进创新。...过时的大型机系统和自定义编码的应用程序被认为无法满足业务或消费者的未来需求。保险公司面临三大新挑战:保险科技、人工智能和物联网一直到今天，保险公司仍在努力实现数字化转型。...“由于能够将物联网产生的行为数据与外部因素(如驾驶行为数据和社区安全统计数据)相结合，保险公司将继续采用预测分析来评估风险，并根据行为数据设定保险费率。”...具体到保险领域，大型机和诸如COBOL和Assembler之类的语言仍然很流行。这些都是正在消亡的技能，但由于缺乏投资回报率和风险增加，公司害怕转向ERP或其他现代替代方案。...许多保险公司已经(至少部分地)从大型机系统转移到SAP ERP系统上。

2145 0

python0085_ASCII之父_Bemer_COBOL_数据交换网络

编码进化回忆上次内容上次回顾了字符编码的进化过程 IBM 在数字化过程中作用非常大IBM 的 BCDIC 有黑历史 6-bit的 BCDIC 直接进化成 8-bit的 EBCDIC补全了...无奈不同的编码实在折磨他够呛也没有合适的转码程序更重要的是没有编码的声明不知道对方用的是什么编码就好像你能听到声音但不知道去用哪国语言来翻译大型机市场不止 IBM一家 Honeywellunivac...提供可执行程序1959年 IBM 定制了编程语言COBOL Common Business-Oriented Language面向商业的通用语言 Bemer 参与了COBOL的制定程序被写在ibm...的卡片上是一种自记录式的语言COBOL - 电传打字机输入输出设备变成了电传打字机存储设备变成了磁带可COBOL语言到底长什么样子呢？...经理层支持但是又得干很多具体的事务大型商业机构(特别是银行) 不光要记录自己的数据彼此的交易记录也需要被记录商务过程需要程序化无人化Bemer 开始在专业杂志上发请求寻求支持期待行业中

2992 0

一场疫情，炸出了退休的COBOL程序员

今天看到一篇文章，新泽西州州长菲尔·墨菲在每天的冠状病毒简报中，做出了不寻常的公开呼吁：该州正在寻找懂得COBOL的程序员志愿者。这又是什么情况？...新生代程序员没人去学习COBOL语言，而老一代程序员渐渐老去，COBOL语言如同众多的其它程序设计语言一样，即将消失在历史的长河中。新泽西州还不是唯一依赖COBOL的州。...被认为淘汰的COBOL语言，其实并未退出历史舞台。 2017年，路透社调查发现，全球目前仍有2200亿行COBOL代码，占据活跃代码的80%，大约95%的ATM交易通过COBOL程序。...由于COBOL程序员的匮乏，导致人们对像COBOL Cowboys这样的初创公司越来越有兴趣，这些公司由年长、经验丰富的程序员组成。...那是因为中国的计算机信息化比美国晚得多，COBOL是大型机时代的产物，而计算机在中国蓬勃发展，已经是微机时代和互联网时代了。

1.3K1 0

云技术如何改变业务灾难恢复计划？

尽管业务灾难恢复计划转向云计算，但传统灾难恢复(DR)的关键要素，如位置和测试仍然很重要。...云备份是转型过程中的第一步，内部部署和站外磁带使得在线云存储成为可能。简单化的云备份方法使人们陷入了在哪里恢复的困境。人们仍然需要找到可以正常运行，并能够获取数据给他们的应用程序。...基于云计算恢复所谓的遗留应用程序是非常困难的，尤其是在大型机上运行COBOL程序。实现全云恢复的一个中间步骤可能是在电信设施签订备用安排。...从备份中恢复，甚至是灾难恢复，可能只涉及几个文件的恢复。搜索磁带是非常耗时的，基于硬盘驱动器的存储在云中允许个别文件被迅速拉取，从而改变恢复的方式。...由于电源或天气问题，数据中心业务可能会关闭，因此需要确保一个数据副本位于另一个地理区域的数据中心，并注意邻近建筑物中的多个区域。

1.1K6 0

大厂公敌“李跳跳”无限期停止更新；国产集成开发环境工具 CEC-IDE 引关注；华为辟谣网传3.2万名科学家正式移籍 | Q资讯

科技公司 OpenAI 向中东寻求千亿美元融资据腾讯新闻《深网》报道，一位中东创投圈知情人士向其透露，OpenAI 首席执行官山姆·奥特曼（Sam Altman）下半年奔赴阿联酋首都阿布扎比等地寻求融资...当天下午，有网友发现，不止“李跳跳”，多款同类的开屏广告跳过 App 如 “ 大圣净化 ” 、“ 一指禅 ”、 “ 叮小跳 ” 均收到了来自该集团的律师函。多数平台目前已进入“停运状态”。...IBM 利用人工智能将 COBOL 代码转译成 Java COBOL 是最古老的编程语言之一，其历史可追溯到 1959 年左右。...IBM Research 首席科学家 Ruchir Puri 表示，Code Assistant for IBM Z 旨在帮助企业重构其大型机应用程序，最好能同时保持性能和安全性。...“除了代码转换，代码助手还支持完整的应用现代化生命周期，帮助开发人员在现代架构中理解、重构、转换和验证翻译后的代码。”

2143 0

从传统到腾讯云都要经历哪些阶段

4483 0

Facebook AI 用深度学习实现编程语言转换，代码库迁移不再困难！

新智元报道来源：Facebook AI 编辑：舒婷【新智元导读】从旧式编程语言（例如COBOL）到现代替代语言（例如Java或C ++）的代码库迁移是一项艰巨的任务，Facebook AI开发了...从旧式编程语言（例如COBOL）到现代语言（例如Java或C ++）的代码库迁移是一项艰巨的任务，需要源语言和目标语言方面的专业知识。...例如，COBOL至今仍在全球大型机系统中广泛使用，因此公司，政府和其他组织通常必须选择，是手动翻译其代码库，还是致力于维护使用可追溯到1950年代的语言编写的代码。...自我监督的培训对于在编程语言转换中特别重要。传统的监督学习方法依赖于大规模并行数据集的训练，但是对于从COBOL到C ++或从C ++到Python来说，并不适用。...seq2seq模型发挥了大作用在自然语言中，即使在越来越依赖自动化机器翻译系统的专业翻译人员中，神经机器翻译的最新进展也被广泛接受。

1.5K3 0

从传统到云：企业正经历现代化的3个阶段

3151 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云