《大型机学习002》由会员分享，可在线阅读，更多相关《大型机学习002（11页珍藏版）》请在金锄头文库上搜索。
1、大型机是一种计算机(personal computer/minicomputer/mainframe/supercomputer)Gcjjtfq i-iiOO canjdr鬥川口/ rMo& fmnTCEC CageSTI cablesSupport ElementsPowerSuppliesInternalBatteriescagesProcessor Books and MemoryHybrid Cooling大型机的优点：高速（皮秒级，10人-12）专注于大型数据的处理和数据存储高度的安全性批处理（ BATCH PROCESS）我们要学的：/COBOL（ Common Business-
2、Oriented Language 面向商业的通用语言）/JCL （ Job Control Language 工作控制语言）/VSAM （VIRTUAL STORAGE ACCESS METHOD 虚拟数据存取方法） /DB2 （ IBM Database II IBM 数据库）/CICS （CUSTOMER INFORMATION CONTROL SYSTEM 客户信息控制系统）COBOL(1)历史1957-ANSI-COBOLCOBOL68 74 8598（面向对象的）特性高级语言（high level）、用户友好性（user friendly）、移植性（translation）、结构化
3、语言（structered language） 编程过程一般过程：程序开始（类似于头文件）、变量定义、写处理指令（输入、计算、输出）、结束编程COBOL： IDENTIFICATION DIVISIO N （识别部）、ENVIRONMENT DIVISION 环境部、DATADIVISION 数据部、PROCEDURE DIVISION 过程部有些部可以省略，但是要按照顺序写。部的细分：divisionssections paragraphssentencesstatements编程格式：1-6序列列：为“标号区(sequence area)。可以填写6个数字。标号由程序编写者自定，标号应按由
4、小到 大的顺序，但不一定连续。标号区内可以写标号也可以不写标号(标号区空白)。标号对源程序的执行结果 没有任何影响。在程序编译时是按程序书写的顺讯进行的，而不是按标号大小顺序进行的。7 记录列：是续行标志区”(indicator area)。如果在第7列上写上连接符“-”，则表示本行是紧接在上一 行的后面。如果在第7列写“*”，则表示此行是注解行(comment)，即此行可由程序员任意写上自己所需的 内容，以对程序(或程序的一部分)作说明。它对程序的执行不起任何影响8-11 A区：称为“A区”(area A),第8列称“A区边界”。COBOL规定，程序中有些内容，例如部头、 节头、段头、层号0
5、1,层号77以及文件描述符FD等应从A区开始书写12-72 B 区:称“B区”。写程序中的正文部分，例如过程部(Procedure Division)中的句子只能从B区开始， 而不能写到 A 区去。73-80 为“注释区”。程序员如想对源程序的某些行作些简单说明，可写在这8列中，因此写源程序时注意 不应超过第72歹U，超过的部分在编译(Compile)时将被舍弃。COEOL Coding Foniit1-678-1112-7273-eriSequence columnIndicator columnAREA ArAREA BFIdentification crilumnoror(dont wr
6、ite in thisMARGIN ARMARGIN BRcolumn)1-3 page no.-continuation4-6 line no.+ comments1.Division nameSentences/comments2.Section name3.Paragraph name字符：保留字、自定义字符自定义要求：1-30 个字符a-z ,0-9,-(hyphen)不能以短横开始或结束至少有一个字母最好不要以数字开头错误的： 123、 JOKN.HENRY， WANG-， -ABC, ATEJ, ABC*DEF， 1999-9-9 正确的：ABC，RATEOF-PAYA1-2-3,
7、 1234ABC (不建议这样使用)，WANG-LI 元素：字符集： a-z ， 0-9 ，-特殊字符： . , () # $ -“ 数学字符：+ - * / * or人 逻辑运算符： and or not赋值运算符： = 关系运算符： = = not =识别部：（从第8 列开始写的）（给程序员提供程序的信息）/程序名,不能超过8 个字符！ /注意 /作者/：中/编写时间/间有/结束时间/空格IDENTIFICATION DIVISION.PROGRAM-ID. PGMName. AUTHOR. YourName. DATE-WRITTEN. DATE-COMPILED.=Optional例如
8、：IDENTIFICATION DIVISION.PROGRAM-ID. PRAM1.AUTHOR-NAME. CHRIS.DATE-WRITTEN. 04-08-2010.DATE-COMPILED. 04-08-2010.环境部：（程序的运行环境）ENVIROMENT DIVISITON.CONFIGURATION SECTION./配置节SOURCE-COMPUTER./编译计算机OBJECT-COMPUTER./执行计算机INPUT-OUTPUT SECTION./输入输出节FILE-CONTROL./文件控制SELECT .例如ENVIRONMENT DIVISION. CONFIG
9、URATION SECTION.SOURCE-COMPUTER. IBM-PC.OBJECT-COMPUTER. IBM-PC.INPUT-OUTPUT SECTION.FILE-CONTROL.SELECT EMP-FILE ASSIGN TO EMPLOY. /逻辑文件到物理文件数据部：（数据定义的地方）DATA DIVISION.FILE SECTION.FILE SECTION ENTRIES.WORKING-STORAGE SECTION.WS ENTEIES.例如：DATA DIVISION.WORKING-STORAGE SECTION.01 Numl PIC 9 VALUE Z
10、EROS. /给numl定义一个位的数字，初始值为0.01 Num2 PIC 9 VALUE ZEROS. /01 表示层号， PIC 表示绘制，也就是定义类型为后面的 XX01 Result PIC 99 VALUE ZEROS. /给result定义两个位的数字，初始值为0.处理部：(处理数据)PROCEDURE DIVISION一个简单的 COBOL 程序： IDENTIFICATION DIVISION. PROGRAM-ID. SAMPE1. AUTHOR. MICHAEL.DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 9(2).0
11、1 C PIC 9(2)./识别部/数据部/9(2)也就是 99，定义两位的数字/处理部/段名，自定义的。/要有这句话，结束运行。PROCEDURE DIVISION.COMPUTE-RESULT.ACCEPT A.COMPUT C = A*0.5.DISPLAY “C IS = ”C.STOP RUN.环境中的程序编写我们写以下最简单的 COBOL 程序 Identification division. Program-id. Sample2.Procedure division.Display-prompt.display “I did it”. stop run.按照 001的步骤，打开
12、虚拟机，进入初始界面。即进入如下界面：光标处输入3.2 （3.2等同于先输入3，进入下一界面后，再输入2）,右Ctrl，进入如下界面:红框部分是我们要填写的地方oData set name填写你将要创建的数据集的名称，规则为：你的用户名. 名称，注意，要加单引号！ Option处写a即可，意思为创建。确认（也就是右Ctrl）,出现如下界面:丈件（巳編辑（日查看（也通信（口 操作窗口 （创帮助（出XMoreCN0O09.TESTLIB匚1VLIHDEFI0F3=Exit18/025Ehmt日 Set NameAllo匚日tR New D日t日 Set3 o r- above above f or
13、Menu FlefList Util it(LIBRAFIV； HFSy PDSy or blank：!Management 匚Iass Storage 匚I ass Volume serial . Devi匚已 type .Data 匚Iass . Spa匚e units .(Blank fur (Blank fur (Blank fur (Generi匚 (Blank (BLKSyo r nt (In (In(ZeroF7=Ba 匚 k i丄i 日 r d F E；二 F o ri.j.a r dF3=S wa pErirrrc R：=ri z Data set name type : C
14、orrirriand =- Fl二HeIpF2=SplitF10=flctions F12=Canceldefault management 匚Iass) default storage 匚l日ew； system default .olurrieJ :t：:+： unit cir device address) :+：:*: for default data 匚Iass) TF!KSy CYLSy KEU MB, BYTES RECORDS)U)units) units) sequential data set J 半bhIEiASE DHTDOj110FpUUbLibfihfiyAverage recor-d unit Primary qua门tity Secondary qua门tity )i广口厂:十厂hl厂匚； 一 Re匚匚1广已 f广imt Record length 红框部分我们需要进行修改。 Record format 处 改成 FB，record length 写成长度，比如 80.确认。Invalid 己匚口已 length More:+此时，左上角出现就需要将 block size 改成 空 。改完后确认即可。此时，会返回到上一界面，但是文件已经创建好了。我们F3 一直退回到初始界面，输入3.4,进入如下界面:将光标定位到Dsname level，在此处
