第五章 COBOL基本语句(1)
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2013-10-28
COBOL语言程序设计
DISPLAY "Name is ", Initials SPACE Surname. DISPLAY "Date is " CurrentDay SPACE CurrentMonth SPACE CurrentYear. DISPLAY "Today is day " YearDay " of the year". DISPLAY "The time is " CurrentHour ":" CurrentMinute. STOP RUN.
2013-10-28
COBOL语言程序设计
例子1: 01 TAX-INFO. 03 NET-INCOME PIC S9(8)V99. 03 TAX-RATE PIC V999. EVALUATE NET-INCOME WHEN 0 THRU 12500 MOVE 0 TO TAX-RATE WHEN 12501 THRU 28000 MOVE 0.15 TO TAX-RATE WHEN 28001 THRU 50000 MOVE 0.28 TO TAX-RATE WHEN OTHER MOVE 0.33 TO TAX-RATE END-EVALUATE.
2013-10-28
COBOL语言程序设计
JCL文件：
//UR00203 JOB ACCT#,UR001,NOTIFY=UR002,MSGLEVEL=(1,1) //MYLIB JCLLIB ORDER=SYS1.PROCLIB //STEP1 EXEC PROC=IGYWCLG //COBOL.SYSIN DD DSN=UR002.COBOL.SOURCE(AANDD),DISP=SHR //SYSPRINT DD SYSOUT=* //GO.SYSIN DD * COUGHLANMS9476532LM511245M
COBOL语言程序设计
例子3 例子：根据操作符号，来进行加，减，乘，或者显示。 Evaluate Op-Code When 'A' Add 10 To Num When 'S' Subtract 10 From Num When 'M' Multiply 10 By Num When Other Display 'Code invalid' End-Evaluate
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
SET 语句 语法: SET condition-name-1 TO TRUE 例子: 02 END-FLAG PIC 9(1). 88 END-OF-FILE VALUE 1. 88 NOT-END-OF-FILE VALUE 0.
2013-10-28
COBOL语言程序设计
例子2:
01 TAX-INFO. 03 NET-INCOME PIC S9(8)V99. 03 TAX-RATE PIC V999. 03 EXEMPTIONS PIC 99. EVALUATE NET-INCOME ALSO TRUE WHEN 0 THRU 12500 ALSO ANY MOVE 0 TO TAX-RATE WHEN 12501 THRU 28000 ALSO EXEMPTIONS > 2 MOVE 0.10 TO TAX-RATE WHEN 12501 THRU 28000 ALSO ANY MOVE 0.15 TO TAX-RATE WHEN 28001 THRU 50000 ALSO EXEMPTIONS > 2 MOVE 0.18 TO TAX-RATE WHEN 28001 THRU 50000 ALSO ANY MOVE 0.25 TO TAX-RATE WHEN OTHER MOVE 0.33 TO TAX-RATE 2013-10-28 END-EVALUATE.
2013-10-28
COBOL语言程序设计
Enter student details using template below NNNNNNNNNNSSSSSSSCCCCGGGGS Name is MS COUGHLAN Date is 24 01 94 Today is day 024 of the year The time is 22:23
2013-10-28
COBOL语言程序设计
例子：
IDENTIFICATION DIVISION. PROGRAM-ID. ACC1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 A PIC 9(3). PROCEDURE DIVISION. ACCEPT A. DISPLAY ‘A=‘, A. STOP RUN.
SET END-OF-FILE TO TRUE.
2013-10-28
COBOL语言程序设计
EVALUATE 语句 语法: EVALUATE express-1 [ALSO express-2],… {WHEN {ANY|condition-1|[NOT] express-3 [THRU express4] } [ALSO {ANY|condition-1|[NOT] express-3 [THRU express4] } ,… statement-1 },… [WHEN OTHER statement-2] [END-EVALUATE] 为什么推荐总是使用 WHEN OTHER子句呢?
2013-10-28
1. 2. 3. 4. 5. 6. 7.
COBOL语言序设计
PROCEDURE DIVISION. DISPLAY ‘PLS INPUT A DAY ACCEPT DAY-NUM. IF MONDAY DISPLAY ‘MONDAY’. IF TUESDAY DISPLAY ‘TUESDAY’. IF WEDNEDAY DISPLAY ‘WEDNEDAY’. IF THURSDAY DISPLAY ‘THURSDAY’.
2013-10-28
COBOL语言程序设计
例子4 …… DATA DIVISION. WORKING-STORAGE SECTION. 01 DAY-NUM PIC 9. 88 MONDAY VALUE 88 TUESDAY VALUE 88 WEDNEDAY VALUE 88 THURSDAY VALUE 88 FRIDAY VALUE 88 SATURDAY VALUE 88 SUNDAY VALUE
2013-10-28
COBOL语言程序设计
5.2 流程控制语句
IF 语句 EVALUATE 语句 PERFORM 语句
2013-10-28
COBOL语言程序设计
IF 语句 语法: IF condition THEN statement-1 ELSE statement-2 END-IF. 例子: IF NUM1=1 THEN MOVE ZEROS TO NUM2 ELSE MOVE NUM1 TO NUM2 END-IF.
2013-10-28
COBOL语言程序设计
02 Grant PIC 9(4). 02 Gender PIC X. 01 CurrentDate. 02 CurrentYear PIC 99. 02 CurrentMonth PIC 99. 02 CurrentDay PIC 99. 01 DayOfYear. 02 FILLER PIC 99. 02 YearDay PIC 9(3).
2013-10-28
COBOL语言程序设计
01 CurrentTime. 02 CurrentHour PIC 99. 02 CurrentMinute PIC 99. 02 FILLER PIC 9(4). PROCEDURE DIVISION. Begin. DISPLAY "Enter student details using template below". DISPLAY "NNNNNNNNNNSSSSSSSCCCCGGGGS ". ACCEPT StudentDetails. ACCEPT CurrentDate FROM DATE. ACCEPT DayOfYear FROM DAY. ACCEPT CurrentTime FROM TIME.
2013-10-28
COBOL语言程序设计
2.DISPLAY语句：从计算机内存中输出到某一指定的输出设备上。 DISPLAY { 标识符1，常量1}[标识符2，常量2]…[UPON 助 忆名] DISPLAY T. DISPLAY T1,T2. DISPLAY ‘TODAY IS SUNDAY’. ACCEPT语句和DISPLAY语句不必定义文件,适用于少量的数 据输入输出。
2013-10-28
COBOL语言程序设计
嵌套 IF 语句 例子: IF NUM1 = 1 THEN IF NUM2 = 1 THEN MOVE ZEROS TO NUM3 ELSE MOVE NUM2 TO NUM3 END-IF ELSE DISPLAY ‘ERROR’ END-IF.
2013-10-28
2013-10-28
COBOL语言程序设计
TSO命令：
READY 输入命令： alloc dd(sysin) ds(*) 输入ispf 使用call命令调用ACC1模块即可在键盘上输入数据
2013-10-28
COBOL语言程序设计
例子：
IDENTIFICATION DIVISION. PROGRAM-ID. AANDD. AUTHOR. Michael Coughlan. DATA DIVISION. WORKING-STORAGE SECTION. 01 StudentDetails. 02 StudentName. 03 Surname PIC X(8). 03 Initials PIC XX. 02 StudentId PIC 9(7). 02 CourseCode PIC X(4).
COBOL语言程序设计
第五章 COBOL基本语句
5.1 5.2 5.3 5.4 5.5 基本输入输出语句 流程控制语句 字符串处理语句 子程序处理语句 文件处理语句
2013-10-28
COBOL语言程序设计
5.1 基本输入输出语句
1. ACCEPT语句：直接从终端键盘或系统指定的输入设备 上输入数据。 ACCEPT 标识符 [FROM 助忆名] 注：A.标识符(identifier)指的是能唯一地标识一个数据项的 数据名，不能唯一地标识一个数据项的数据名不是标 识符。标识符可以是组合项。
2013-10-28
COBOL语言程序设计
在ACCEPT语句中如不写FROM部分，如ACCEPT A ，则 表示从系统隐含指定的设备上读入一个数据给A。 如果不 想从指定的设备上输入，则要用FROM 选项, 这时“助忆名” 需要在环境部中事先说明和哪种外部设备相联系。如： – ENVIRONMENT DIVISION.（环境部） – CONFIGRATION SECTION.（配置节） – SPECIAL-NAMES.（专用名段） – CONSOLE IS ABC – 如在过程部中有 ACCEPT T FROM ABC。 则表 示要从控制台接收数据
2013-10-28
COBOL语言程序设计
JCL文件：
//UR00205 JOB ACCT#,UR002,NOTIFY=UR002,MSGLEVEL=(1,1) //STEP1 EXEC PROC=IGYWCL //STEP1LIB DD DSN=ADCD.ZOSV1R5.PROCLIB //COBOL.SYSIN DD DSN=UR002.COBOL.TEST(ACC1),DISP=SHR //LKED.SYSLMOD DD DSN=UR002.COBOL.LOAD(ACC1),DISP=SHR
COBOL语言程序设计
DISPLAY "Name is ", Initials SPACE Surname. DISPLAY "Date is " CurrentDay SPACE CurrentMonth SPACE CurrentYear. DISPLAY "Today is day " YearDay " of the year". DISPLAY "The time is " CurrentHour ":" CurrentMinute. STOP RUN.
2013-10-28
COBOL语言程序设计
例子1: 01 TAX-INFO. 03 NET-INCOME PIC S9(8)V99. 03 TAX-RATE PIC V999. EVALUATE NET-INCOME WHEN 0 THRU 12500 MOVE 0 TO TAX-RATE WHEN 12501 THRU 28000 MOVE 0.15 TO TAX-RATE WHEN 28001 THRU 50000 MOVE 0.28 TO TAX-RATE WHEN OTHER MOVE 0.33 TO TAX-RATE END-EVALUATE.
2013-10-28
COBOL语言程序设计
JCL文件：
//UR00203 JOB ACCT#,UR001,NOTIFY=UR002,MSGLEVEL=(1,1) //MYLIB JCLLIB ORDER=SYS1.PROCLIB //STEP1 EXEC PROC=IGYWCLG //COBOL.SYSIN DD DSN=UR002.COBOL.SOURCE(AANDD),DISP=SHR //SYSPRINT DD SYSOUT=* //GO.SYSIN DD * COUGHLANMS9476532LM511245M
COBOL语言程序设计
例子3 例子：根据操作符号，来进行加，减，乘，或者显示。 Evaluate Op-Code When 'A' Add 10 To Num When 'S' Subtract 10 From Num When 'M' Multiply 10 By Num When Other Display 'Code invalid' End-Evaluate
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
IF语句－条件名条件
2013-10-28
COBOL语言程序设计
SET 语句 语法: SET condition-name-1 TO TRUE 例子: 02 END-FLAG PIC 9(1). 88 END-OF-FILE VALUE 1. 88 NOT-END-OF-FILE VALUE 0.
2013-10-28
COBOL语言程序设计
例子2:
01 TAX-INFO. 03 NET-INCOME PIC S9(8)V99. 03 TAX-RATE PIC V999. 03 EXEMPTIONS PIC 99. EVALUATE NET-INCOME ALSO TRUE WHEN 0 THRU 12500 ALSO ANY MOVE 0 TO TAX-RATE WHEN 12501 THRU 28000 ALSO EXEMPTIONS > 2 MOVE 0.10 TO TAX-RATE WHEN 12501 THRU 28000 ALSO ANY MOVE 0.15 TO TAX-RATE WHEN 28001 THRU 50000 ALSO EXEMPTIONS > 2 MOVE 0.18 TO TAX-RATE WHEN 28001 THRU 50000 ALSO ANY MOVE 0.25 TO TAX-RATE WHEN OTHER MOVE 0.33 TO TAX-RATE 2013-10-28 END-EVALUATE.
2013-10-28
COBOL语言程序设计
Enter student details using template below NNNNNNNNNNSSSSSSSCCCCGGGGS Name is MS COUGHLAN Date is 24 01 94 Today is day 024 of the year The time is 22:23
2013-10-28
COBOL语言程序设计
例子：
IDENTIFICATION DIVISION. PROGRAM-ID. ACC1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 A PIC 9(3). PROCEDURE DIVISION. ACCEPT A. DISPLAY ‘A=‘, A. STOP RUN.
SET END-OF-FILE TO TRUE.
2013-10-28
COBOL语言程序设计
EVALUATE 语句 语法: EVALUATE express-1 [ALSO express-2],… {WHEN {ANY|condition-1|[NOT] express-3 [THRU express4] } [ALSO {ANY|condition-1|[NOT] express-3 [THRU express4] } ,… statement-1 },… [WHEN OTHER statement-2] [END-EVALUATE] 为什么推荐总是使用 WHEN OTHER子句呢?
2013-10-28
1. 2. 3. 4. 5. 6. 7.
COBOL语言序设计
PROCEDURE DIVISION. DISPLAY ‘PLS INPUT A DAY ACCEPT DAY-NUM. IF MONDAY DISPLAY ‘MONDAY’. IF TUESDAY DISPLAY ‘TUESDAY’. IF WEDNEDAY DISPLAY ‘WEDNEDAY’. IF THURSDAY DISPLAY ‘THURSDAY’.
2013-10-28
COBOL语言程序设计
例子4 …… DATA DIVISION. WORKING-STORAGE SECTION. 01 DAY-NUM PIC 9. 88 MONDAY VALUE 88 TUESDAY VALUE 88 WEDNEDAY VALUE 88 THURSDAY VALUE 88 FRIDAY VALUE 88 SATURDAY VALUE 88 SUNDAY VALUE
2013-10-28
COBOL语言程序设计
5.2 流程控制语句
IF 语句 EVALUATE 语句 PERFORM 语句
2013-10-28
COBOL语言程序设计
IF 语句 语法: IF condition THEN statement-1 ELSE statement-2 END-IF. 例子: IF NUM1=1 THEN MOVE ZEROS TO NUM2 ELSE MOVE NUM1 TO NUM2 END-IF.
2013-10-28
COBOL语言程序设计
02 Grant PIC 9(4). 02 Gender PIC X. 01 CurrentDate. 02 CurrentYear PIC 99. 02 CurrentMonth PIC 99. 02 CurrentDay PIC 99. 01 DayOfYear. 02 FILLER PIC 99. 02 YearDay PIC 9(3).
2013-10-28
COBOL语言程序设计
01 CurrentTime. 02 CurrentHour PIC 99. 02 CurrentMinute PIC 99. 02 FILLER PIC 9(4). PROCEDURE DIVISION. Begin. DISPLAY "Enter student details using template below". DISPLAY "NNNNNNNNNNSSSSSSSCCCCGGGGS ". ACCEPT StudentDetails. ACCEPT CurrentDate FROM DATE. ACCEPT DayOfYear FROM DAY. ACCEPT CurrentTime FROM TIME.
2013-10-28
COBOL语言程序设计
2.DISPLAY语句：从计算机内存中输出到某一指定的输出设备上。 DISPLAY { 标识符1，常量1}[标识符2，常量2]…[UPON 助 忆名] DISPLAY T. DISPLAY T1,T2. DISPLAY ‘TODAY IS SUNDAY’. ACCEPT语句和DISPLAY语句不必定义文件,适用于少量的数 据输入输出。
2013-10-28
COBOL语言程序设计
嵌套 IF 语句 例子: IF NUM1 = 1 THEN IF NUM2 = 1 THEN MOVE ZEROS TO NUM3 ELSE MOVE NUM2 TO NUM3 END-IF ELSE DISPLAY ‘ERROR’ END-IF.
2013-10-28
2013-10-28
COBOL语言程序设计
TSO命令：
READY 输入命令： alloc dd(sysin) ds(*) 输入ispf 使用call命令调用ACC1模块即可在键盘上输入数据
2013-10-28
COBOL语言程序设计
例子：
IDENTIFICATION DIVISION. PROGRAM-ID. AANDD. AUTHOR. Michael Coughlan. DATA DIVISION. WORKING-STORAGE SECTION. 01 StudentDetails. 02 StudentName. 03 Surname PIC X(8). 03 Initials PIC XX. 02 StudentId PIC 9(7). 02 CourseCode PIC X(4).
COBOL语言程序设计
第五章 COBOL基本语句
5.1 5.2 5.3 5.4 5.5 基本输入输出语句 流程控制语句 字符串处理语句 子程序处理语句 文件处理语句
2013-10-28
COBOL语言程序设计
5.1 基本输入输出语句
1. ACCEPT语句：直接从终端键盘或系统指定的输入设备 上输入数据。 ACCEPT 标识符 [FROM 助忆名] 注：A.标识符(identifier)指的是能唯一地标识一个数据项的 数据名，不能唯一地标识一个数据项的数据名不是标 识符。标识符可以是组合项。
2013-10-28
COBOL语言程序设计
在ACCEPT语句中如不写FROM部分，如ACCEPT A ，则 表示从系统隐含指定的设备上读入一个数据给A。 如果不 想从指定的设备上输入，则要用FROM 选项, 这时“助忆名” 需要在环境部中事先说明和哪种外部设备相联系。如： – ENVIRONMENT DIVISION.（环境部） – CONFIGRATION SECTION.（配置节） – SPECIAL-NAMES.（专用名段） – CONSOLE IS ABC – 如在过程部中有 ACCEPT T FROM ABC。 则表 示要从控制台接收数据
2013-10-28
COBOL语言程序设计
JCL文件：
//UR00205 JOB ACCT#,UR002,NOTIFY=UR002,MSGLEVEL=(1,1) //STEP1 EXEC PROC=IGYWCL //STEP1LIB DD DSN=ADCD.ZOSV1R5.PROCLIB //COBOL.SYSIN DD DSN=UR002.COBOL.TEST(ACC1),DISP=SHR //LKED.SYSLMOD DD DSN=UR002.COBOL.LOAD(ACC1),DISP=SHR