这里写目录标题
- 零 大型机应用场景
- 1 IBM官方网站
- 1.1 保险业务
- 1.2 证券业务
- 1.3 银行业务
- 2 日语
- 2.1 常见口语
- 一 Cobol 古董
- 1 cobol 语言的前景
- 1.1 tiobe编程网站排名
- 1.2 cobol (Common Business-Oriented Language)
- 2 环境安装及开发工具
- 1.1 VScode + Gnucobol
- 1.2 线上环境
- 1.3 opencobolIDE来编写
- 3 运行一些实例代码
- 3.1 输出HelloWorld
- 3.2 计算两数之和
- 3.3 计算阶乘
- 3.5 判断一个数是奇数还是偶数
- 二 大机系统(IBM在线课程)
- 1 Computer Architecture(计算机体系架构)
- 2 TSO操作系统的使用
- 3 jcl语句
零 大型机应用场景
1 IBM官方网站
1.1 保险业务
语言不会死去,只会慢慢凋零
主要是维护系统,重写代价太高,不一定成功,预算几千万起步
几十万几百万的并发数据,怎么保障稳定性
如果重构,原本的业务逻辑需要看懂
1.2 证券业务
商业用,1959年出生,64岁高龄,商业银行,证券机构用的比较多
1.3 银行业务
2 日语
2.1 常见口语
- 日文:こんにちは。谐音:空你七哇,中文意思:你好。
- 日文:おはようございます。谐音: 哦哈哟郭杂一吗死,中文意思:
- 日文:こんばんは。谐音:空搬哇,中文意思:晚上好。
- 日文:お休みなさい。谐音:哦丫思咪
- 日文:お久しぶりです。谐音:哦黑萨西不离德死,中文意思:好久不见。
- 日文:ありがどうございます。谐音:啊离嘎多郭杂一嘛死,中文意思:谢谢。
- 日文:どういたしまして。谐音:多一他西吗西特,中文意思:不用谢。
- 日文:こちらこそ。谐音:阔其啦阔说,中文意思:彼此彼此。
- 日文:お帰りなさい。谐音:哦卡厄里一,中文意思:你回来啦。
- 日文:ただいま。谐音:他大姨妈,中文意思:我回来了。
- 日文:始めまして。谐音:哈机没吗西特,中文意思:初次见面。
- 日文:すみません。谐音:思咪吗神,中文意思:对不起。
- 你好——口你七哇(白天)、袄哈有(早上)、空帮哇(晚上)
- 谢谢——阿里嘎脱
- 再见——撒腰那拉(这个不常用)
- 再见——八一八一or甲or甲阿内or甲马塔or马塔内or扫屋甲
- 没关系——卡马依马散 多依塔洗马洗帖(te)(对方说谢谢时用)
- 是!不是!——害!依——挨!
- 行!不行!——依——内!打咩!
- 对不起——死米马散!or狗埋!
- 不知道——希腊那依
- 这是什么?——口来挖囊打卡?
- 妈妈——欧卡桑
- 爸爸——欧多桑
- 哥哥——欧尼桑
- 姐姐——欧内桑
- 弟弟——欧偷偷
- 妹妹——依毛偷
- 爷爷辈——欧吉依桑
- 奶奶辈——欧巴阿桑
- 阿姨辈——欧巴桑
- 叔叔辈——欧吉桑
- 一到十——一起、你、桑、有、锅、楼哭、娜娜、哈气、哭、九
- 太贵了!——塔卡依内!
- 这个多少钱?——口来依哭拉跌(de)死卡?
- 我也不好意思——口七啦口扫
- 好吃——袄依洗衣
- 我要开动啦——依塔大ki马死
- 我吃饱啦——锅七锁撒马跌洗他
- 为什么?——多无洗帖?or囊跌?or哪在?
- 小心——阿布那依
- 生日快乐——烫叫比偶咩跌偷
- 圣诞快乐——库里斯马死欧咩跌偷(按英语那样读就行)
- 最近忙吗?——依马锅楼一扫嘎洗衣跌死卡?
- 你多大了?——阿纳塔哇囊撒依跌死卡?
- 我回来啦——他大姨妈
- 你回来啦——欧卡挨里
- 我走啦——依帖ki马死
- 你走好——依帖拉瞎依
- 好久不见了——偶嘿撒洗不利
- 你身体还好吗?——欧赶ki跌死卡?
- 你要去哪?——多口挨(e)依哭诺卡?
- 您是哪位?——多奇拉撒马
- 别吵!——萨瓦古纳
- 不要放在心上——ki你洗那哭帖毛依依
- 没怎么样——囊跌毛那依
- 不,没事——依呀,打依叫不
- 不必担心——新拜洗那哭帖毛依依有
- 明白了——哇卡他
- 你说谎——五锁刺ki
- 去哪?——多口挨?
- 别过来——口那依跌
- 是个什么样的人?——多那嘿(hi)头跌死卡?
- 原来如此——那炉火多(阿笠博士和原田常用语
呵呵) - 好可怕——口哇依那
- 这样可以吗?——口累跌打依叫不
- 真有趣——欧毛洗楼依内
- 很郁闷——武器空跌依鲁
- 糟透了——咱咱打咩
- 怎么样?——多无?
- 真厉害——丝锅依!丝给(男用)
- 该死——哭扫
- 好漂亮——ki来(re)依打内
- 真可怜——卡瓦伊扫
- 真可爱——卡瓦伊依内
- 别哭了——那卡那依跌
- 我请客——欧锅炉腰
- 胡说——五锁
- 不!——依呀
- 游戏结束——给母欧巴
- 太好了——腰卡他
- 再来一遍——毛五一起多
- 烦人——无路撒依。or无路赛爱那
- 、色鬼——死开百(be)依
- 活该——扎马米洛
- 小气鬼——开七
- 傻冒——阿霍(修次和服部常用
嘻嘻)or阿霍哭撒依 - 笨蛋——巴卡
- 混蛋——巴卡雅洛
- 万岁——帮扎依
- 真可恶——马塔哭
- 真的吗?——混偷?or马吉?
- 我爱你——阿姨洗帖路
- 我喜欢你——死ki打腰
- 真可笑——欧卡洗衣
- 那又怎么样——扫(so)屋洗帖那你
- 果然如此——哑怕里扫屋打(柯南常用语
嘿嘿) - 气死了——母卡次哭
- 吹牛——活啦不ki
- 没问题——蒙打那依
一 Cobol 古董
1 cobol 语言的前景
1.1 tiobe编程网站排名
语言不会死去,只会慢慢凋零
主要是维护系统,重写代价太高,不一定成功,预算几千万起步
几十万几百万的并发数据,怎么保障稳定性
如果重构,原本的业务逻辑需要看懂
- COBOL是第一个广泛使用的高级编程语言。它是一种类似英语的,对用户友好的语言。所有指令都可以用简单的英语单词进行编码。
- COBOL也被用作自文档化语言。
- COBOL可进行海量数据的处理。
- COBOL与以前的版本兼容。
- COBOL能有效提示错误信息,因此,解决错误更容易。
E:\下载\谷歌下载\COBOL-master
1.2 cobol (Common Business-Oriented Language)
商业用,1959年出生,64岁高龄,商业银行,证券机构用的比较多,80%美国
95%银行卡用cobol写的,一个程序能跑五十年,缺乏cobol人才
cobol求职机会是php1%
2 环境安装及开发工具
1.1 VScode + Gnucobol
Vscode插件,ibm z editor + cobol language support
首先下载这个软件
1.2 线上环境
Online COBOL Compiler - cobol (tutorialspoint.com)
这个网站可以用来运行一些cobol片段
1.3 opencobolIDE来编写
1,下载opencobol gnucobol 解压到某一路径
2,配置环境变量
COB_CFLAGS:-I”%COB_MAIN_DIR%\include”
COB_CONFIG_DIR:%COB_MAIN_DIR%\config
COB_COPY_DIR:%COB_MAIN_DIR%\copy
COB_LDFLAGS:-L”%COB_MAIN_DIR%\lib”
COB_LIBRARY_PATH:%COB_MAIN_DIR%\extras
COB_MAIN_DIR:D:\gnucobol3.1 (opencobol路径)
并把D:\gnucobol3.1\bin (opencobol bin的路径)添加到path中
重启
3,使用
cmd 进入cbl文件所在目录
运行 cobc -x 文件名 例如 cobc -x hello.cbl 即可得到hello.exe文件
直接在cmd中运行 hello 输出 hello world
hello.cbl文件内容
IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
DISPLAY ‘hello world’.
运行 cobc 文件名 可得到 xxx.dll文件
将dll文件放入opencobol下的extras文件夹下可作为子文件在hello中调用
3 运行一些实例代码
3.1 输出HelloWorld
这个主要是打印的效果:
要点是,记住四个DIVISION
IDENTIFICATION DIVISION
ENVIRONMENT DIVISION
DATA DIVISION
PROCEDURE DIVISION
IDENTIFICATION DIVISION.
PROGRAM-ID. 'HELLOWORLD'.
ENVIRONMENT DIVISION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Hello world!"
STOP RUN.
000001*今天写第一行cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. LoveYou.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
DISPLAY "Hello world,I still TEST BINARY-DOUBLE!".
3.2 计算两数之和
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM1 PIC S9(3)V9(2).
01 WS-NUM2 PIC PPP999.
01 WS-NUM3 PIC S9(3)V9(2) VALUE -123.45.
01 WS-NAME PIC A(6) VALUE 'ABCDEF'.
01 WS-ID PIC X(5) VALUE 'A121$'.
PROCEDURE DIVISION.
DISPLAY "WS-NUM1 : "WS-NUM1.
DISPLAY "WS-NUM2 : "WS-NUM2.
DISPLAY "WS-NUM3 : "WS-NUM3.
DISPLAY "WS-NAME : "WS-NAME.
DISPLAY "WS-ID : "WS-ID.
STOP RUN.
3.3 计算阶乘
第一种方法,没有输入值,全靠定义
IDENTIFICATION DIVISION.
PROGRAM-ID. FACTORIAL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(2).
01 WS-FACTORIAL PIC 9(9) VALUE 1.
01 WS-COUNTER PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
DISPLAY "Enter a number: "
ACCEPT WS-NUM.
PERFORM UNTIL WS-COUNTER > WS-NUM
COMPUTE WS-FACTORIAL = WS-FACTORIAL * WS-COUNTER
ADD 1 TO WS-COUNTER
END-PERFORM.
DISPLAY "Factorial of ", WS-NUM, " is: ", WS-FACTORIAL.
STOP RUN.
第二种方法,输入一个任意的整形数,计算阶乘
注意两个输入区域的区别
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. FACTORIAL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(2).
01 WS-FACTORIAL PIC 9(9) VALUE 1.
01 WS-COUNTER PIC 9(2) VALUE 1.
PROCEDURE DIVISION.
DISPLAY "Enter a number: "
ACCEPT WS-NUM.
PERFORM UNTIL WS-COUNTER > WS-NUM
COMPUTE WS-FACTORIAL = WS-FACTORIAL * WS-COUNTER
ADD 1 TO WS-COUNTER
END-PERFORM.
DISPLAY "Factorial of ", WS-NUM, " is: ", WS-FACTORIAL.
STOP RUN.
3.5 判断一个数是奇数还是偶数
第一个方法,没有输入值,全靠定义
IDENTIFICATION DIVISION.
PROGRAM-ID. ODD-EVEN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(3) VALUE 25.
PROCEDURE DIVISION.
IF WS-NUM MOD 2 = 0
DISPLAY WS-NUM " is an Even Number."
ELSE
DISPLAY WS-NUM " is an Odd Number."
END-IF.
STOP RUN.
第二个方法,有输入值,也有定义
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
* 只是支持输入英文哈,其他语言都不支持,毕竟是小软件
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. ODD-EVEN-DETERMINER.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT-NUMBER PIC 9(5).
01 RESULT-MESSAGE PIC X(30).
PROCEDURE DIVISION.
MAIN-LOGIC.
DISPLAY "Enter a number: ".
ACCEPT INPUT-NUMBER.
IF FUNCTION MOD(INPUT-NUMBER, 2) = 0
MOVE "Even Number" TO RESULT-MESSAGE
ELSE
MOVE "Odd Number" TO RESULT-MESSAGE
END-IF.
DISPLAY RESULT-MESSAGE.
STOP RUN.
二 大机系统(IBM在线课程)
1 Computer Architecture(计算机体系架构)
计算机体系结构包括,指令集体系结构,微服务体系结构的设计与实现
2 TSO操作系统的使用
主要是记住tso的一些命令
3 jcl语句
内部设计