cobol

80岁COBOL码农:扶我起来,这个bug我会修!

前提是你 提交于 2020-05-05 17:50:02
95%的 ATM 交易通过 COBOL 程序,80%的现场交易依赖于它们,超过 40%的银行仍然使用 COBOL 作为其系统的基础。由于年轻人懂 COBOL 的比较少,美国康涅狄格州劳工部正在召回经验丰富的退休 COBOL 人员。 来源:机器之心(ID: almosthuman2014) 参与:张倩、蛋酱 随着失业人数不断飙升,美国的失业系统已经不堪重负。上周,新泽西州州长发布了一份「紧急召集令」,急聘精通「上古语言」COBOL 的程序员,帮助修复已经使用了 40 多年的失业保险系统。 COBOL 是一门非常古老的编程语言,诞生于上世纪五六十年代,鼎盛时期是七十年代,现在多数学校都不再开设相关课程,所以很多年轻码农都不具备此技能。有个段子写道,美国旧金山湾区的一家科技公司,为了与银行客户进行业务衔接需要招聘 COBOL 程序员,谁知道来面试的程序员,最年轻的也已经 63 岁了。 在这用人之际,众多码农「前辈」们站了出来,包括一些退休人员。 一家位于得克萨斯州的职业介绍机构 Cobol Cowboys 也在积极牵线搭桥。该公司有一位成员还是 COBOL 语言开发者之一 Grace Hopper 的同事,年龄已经有 80 多岁了。 除此之外,大公司也有所行动,表示将开放 COBOL 免费课程,解决人手不足的困境。 上古语言迎来第二春? 这个「上古语言」的称号,COBOL 当之无愧。对于

80岁“上古语言”码农:“扶我起来,这个bug我会修”

跟風遠走 提交于 2020-04-20 16:49:27
  廉颇老矣,尚能码否?   文/张倩、蛋酱   来源:机器之心(ID:almosthuman2014)   随着失业人数不断飙升,美国的失业系统已经不堪重负。上周,新泽西州州长发布了一份“紧急召集令”,急聘精通“上古语言”COBOL 的程序员,帮助修复已经使用了 40 多年的失业保险系统。   COBOL 是一门非常古老的编程语言,诞生于上世纪五六十年代,鼎盛时期是七十年代,现在多数学校都不再开设相关课程,所以很多年轻码农都不具备此技能。有个段子写道,美国旧金山湾区的一家科技公司,为了与银行客户进行业务衔接需要招聘 COBOL 程序员,谁知道来面试的程序员,最年轻的也已经 63 岁了。   在这用人之际,众多码农“前辈”们站了出来,包括一些退休人员。   一家位于得克萨斯州的职业介绍机构 Cobol Cowboys 也在积极牵线搭桥。该公司有一位成员还是 COBOL 语言开发者之一 Grace Hopper 的同事,年龄已经有 80 多岁了。   除此之外,大公司也有所行动,表示将开放 COBOL 免费课程,解决人手不足的困境。    上古语言迎来第二春?   这个“上古语言”的称号,COBOL 当之无愧。对于 80 后程序员来说,你刚出生它就已经过时了。但由于存在稳定性好等优点,COBOL 一直是美国政府、商业和银行业务的支柱。   参与维护基于 COBOL

80岁“上古语言”码农:“扶我起来,这个bug我会修”

我怕爱的太早我们不能终老 提交于 2020-04-20 16:42:06
  廉颇老矣,尚能码否?   文/张倩、蛋酱   来源:机器之心(ID:almosthuman2014)   随着失业人数不断飙升,美国的失业系统已经不堪重负。上周,新泽西州州长发布了一份“紧急召集令”,急聘精通“上古语言”COBOL 的程序员,帮助修复已经使用了 40 多年的失业保险系统。   COBOL 是一门非常古老的编程语言,诞生于上世纪五六十年代,鼎盛时期是七十年代,现在多数学校都不再开设相关课程,所以很多年轻码农都不具备此技能。有个段子写道,美国旧金山湾区的一家科技公司,为了与银行客户进行业务衔接需要招聘 COBOL 程序员,谁知道来面试的程序员,最年轻的也已经 63 岁了。   在这用人之际,众多码农“前辈”们站了出来,包括一些退休人员。   一家位于得克萨斯州的职业介绍机构 Cobol Cowboys 也在积极牵线搭桥。该公司有一位成员还是 COBOL 语言开发者之一 Grace Hopper 的同事,年龄已经有 80 多岁了。   除此之外,大公司也有所行动,表示将开放 COBOL 免费课程,解决人手不足的困境。    上古语言迎来第二春?   这个“上古语言”的称号,COBOL 当之无愧。对于 80 后程序员来说,你刚出生它就已经过时了。但由于存在稳定性好等优点,COBOL 一直是美国政府、商业和银行业务的支柱。   参与维护基于 COBOL

科技爱好者周刊:第 102 期

[亡魂溺海] 提交于 2020-04-17 17:53:32
这里记录每周值得分享的科技内容,周五发布。 本杂志开源(GitHub: ruanyf/weekly ),欢迎提交 issue,投稿或推荐你的项目。 周刊讨论区的帖子 《谁在招人?》 ,提供大量就业信息,欢迎访问或发布工作/实习岗位。 封面 3月26日,位于武汉的东风日产汽车厂复工,员工午餐保持距离。(法新社) 本周观点:工作热情从何而来? BBC 报道 ,一位新加坡心理学家发明了《工作热情测量表》,可以测量一个人对自己的工作有多大的热情。 工作热情很重要, 如果没有热情,干什么都不会出色。 特朗普就说过:"没有热情,你就没有能量。没有能量,你什么都没有。" 工作热情有很多来源:经济收入、职业前景、社会荣誉......据说,《工作热情测量表》可以测量这些诱因,对你的刺激有多大。 我有一个简单的方法,根本不需要什么心理测试,就能知道你最有工作热情的事情是什么。 你只需要问自己一个问题:即使没有报酬,你也会去干的工作是什么? 如果一种工作根本得不到报酬,你也愿意去做,这就是你最喜欢、最有热情的事情,千万要珍惜。 JK.罗琳写《哈利波特》第一卷时,根本不知道能否出版,她就是有写的冲动,每天去咖啡馆的角落写到天黑。理查德·斯托曼是 GCC 和 Emacs 的作者,写完以后就把代码开源了,所有人都可以免费用,尽管那时他还没地方住,只能睡在办公室里面。 他们的工作热情之高,已经不需要金钱激励了

COBOL's EVALUATE: How to have an empty WHEN OTHER clause?

故事扮演 提交于 2020-03-25 16:12:08
问题 EVALUATE MyValue WHEN 1 DISPLAY "My value is 1" WHEN 2 DISPLAY "My value is 2" WHEN OTHER * Actually I don't need to do anything END-EVALUATE I think to have read somewhere that a COBOL application will crash for an EVALUATE where the WHEN clauses do not cover the value of the evaluated variable, if there is no WHEN OTHER statement present. So, in order to avoid the crash, I wanted to add this empty WHEN OTHER . Under which circumstances is this necessary, and if so, is this approach correct?

Income Tax Logic Questions

家住魔仙堡 提交于 2020-01-25 20:32:28
问题 I'm having some trouble figuring out the logic behind this. I need to display a report calculating balance, interest and principal per month until the balance is zero. As an example, if input is months=12, balance=25000, rate=4.5%, output should look like this: months balance interest principal 1 $25000.00 $93.75 $2,040.71 2 $22,959.29 $86.10 $2,048.36 ....... 12 $2,126.53 $7.97 $2,126.49 I'm not sure what to write after DISPLAY col-hdr and before STOP RUN . Any ideas? IDENTIFICATION DIVISION

Concatenate string by its length COBOL

眉间皱痕 提交于 2020-01-23 06:58:41
问题 Need to concatenate 4 strings to a destination variable in cobol. Like, 01 WS-S1 X(10) VALUE "HI ". 01 WS-S2 X(10) VALUE "HOW ". 01 WS-S3 X(10) VALUE "ARE ". 01 WS-S4 X(10) VALUE "YOU?". to a resultant string "HI HOW ARE YOU?" Can anyone please help me out? 回答1: Here is a working example of the STRING verb that does what you are looking for: IDENTIFICATION DIVISION. PROGRAM-ID. EXAMPLE. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-S1 PIC X(10) VALUE 'HI '. 01 WS-S2 PIC X(10) VALUE 'HOW '. 01

COBOL COMP-3 number format issue

别来无恙 提交于 2020-01-16 05:38:07
问题 I have a cobol "tape format" dump which has a mixture of text and number fields. I'm reading the file in C# as a binary array (array of byte). I have the copy book and the formats are lining up fine on the text fields. There are a number of COMP-3 fields as well. The data in those fields doesnt seem to match any BCD format. I know what the data should be and I have the raw bytes of the COMP-3. I tried converting to EBCDIC first which yielded no better results. Any thoughts on how a COMP-3

How do you pass a parameter back from an external assembler subroutine to a cobol program?

拜拜、爱过 提交于 2020-01-15 04:01:06
问题 I am trying to pass back a parameter from an external subroutine written in assembler. The calling routine is in cobol, and the parameters to the external assembler routine look like this: 01 CALCSHRS-PARMS. 05 CS-DEPOSIT-AMT PIC 9(5)V99 COMP-3. 05 CS-SHARE-PRC PIC 9(3)V99 COMP-3. 05 CS-SHARE-AMT PIC 9(9)V99 COMP-3. The call looks like this: CALL 'CALCSHRS' USING CS-DEPOSIT-AMT CS-SHARE-PRC CS-SHARE-AMT. The routine uses the CS-DEPOSIT-AMT and the CS-SHARE-PRC to calculate the CS-SHARE-AMT,

What is a control break? (COBOL)

旧城冷巷雨未停 提交于 2020-01-11 12:27:11
问题 OK so I'm taking an online COBOL class now and this week the content is control break and control field... For previous lectures I can understand easily but I have no idea what this lecture talks about. What is a control field and what's the usage? Thanks. Here are the lecture websites: http://flashserver.ait.iastate.edu/shchang/cobol/chapter10/chapter10u1/index.html http://flashserver.ait.iastate.edu/shchang/cobol/chapter10/chapter10u2/index.html http://flashserver.ait.iastate.edu/shchang