精通COBOL--16.3.2 使用CICS进行输入输出
来源:互联网 发布:c语言例题 编辑:程序博客网 时间:2024/05/18 02:59
基于CICS的COBOL程序最基本的功能便是输入和输出。在CICS中,输入是通过RECEIVE命令实现的,而输出则是通过SEND命令实现的。下面分别予以讲解。
1.使用RECEIVE命令进行输入
使用RECEIVE命令进行输入时,关键需要指定输入的存储位置以及输入数据的长度。例如,以下代码将通过终端接受输入数据,并存放在变量INAREA中:
IDENTIFICATION DIVISION.
PROGRAM-ID. INPGM.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INFLDS.
05 INLEN PIC S9(4) USAGE IS COMP.
01 INAREA.
05 DATA-1 PIC X(5).
05 FILLER PIC XX.
05 DATA-2 PIC X(5).
……
*
PROCEDURE DIVISION.
MOVE 12 TO INLEN.
EXEC CICS RECEIVE INTO(INAREA)
LENGTH(INLEN)
END-EXEC.
……
EXEC CICS RETURN END-EXEC.
GOBACK.
以上RECEIVE命令中,LENGTH选项用于指定所接受数据的最大长度。当输入数据长度小于该长度时,CICS将接受输入数据的实际长度;当输入数据长度大于该长度时,CICS将会产生一个异常。
在VS COBOL Ⅱ中,LENGTH选项则不用指定。VS COBOLⅡ中有一个专门的地址寄存器,CICS将根据该寄存器判断接受数据的长度。
2.使用SEND命令进行输出
同RECEIVE命令类似,使用SEND命令进行输出关键需要指定输出数据的存储位置,以及数据长度。例如,以下代码将输出一段“HELLO WORLD”字符:
IDENTIFICATION DIVISION.
PROGRAM-ID. OUTPGM.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
……
01 MSG PIC X(80).
*
PROCEDURE DIVISION.
……
MOVE ‘HELLO WORLD’ TO MSG.
EXEC CICS SEND FROM(MSG)
LENGTH(20)
END-EXEC.
……
EXEC CICS RETURN END-EXEC.
GOBACK.
需要注意的是,使用SEND命令进行输出时,LENGTH选项中应该为实际数据,而并非变量。这点和RECEIVE命令是有所不同的。此外,输出数据的起始位置在默认情况下,将为当前光标在屏幕中的位置。关于CICS屏幕中的光标,将在后面详细讲解到。
- 精通COBOL--16.3.2 使用CICS进行输入输出
- 精通COBOL--16.3 CICS在COBOL中的基本应用
- 精通COBOL--第16章 CICS扩展
- 精通COBOL--16.1.1 CICS简介
- 精通COBOL--16.1.3 CICS的基本操作
- 精通COBOL--16.2 CICS编译处理过程
- 精通COBOL--16.2.1 CICS程序编译流程
- 精通COBOL--16.5 CICS中的程序调用
- 精通COBOL--16.6 CICS中的MAP
- 精通COBOL--16.7 CICS对于文件的操作
- 精通COBOL--16.8 CICS中的队列
- 精通COBOL--16.3.5 获取CICS的终端信息
- 精通COBOL--16.3.6 获取CICS的时间信息
- 精通COBOL--16.3.7 获取CICS的日期信息
- 精通COBOL--16.1.2 CICS中的交易和任务
- 精通cobol--9.6.2 如何进行直接查找
- 精通cobol--9.12.2 使用SET语句对索引进行算术运算
- 精通COBOL--16.5.2 使用XCTL命令进行程序调用
- jmf方面的中文资料
- css定位问题(转载)
- 精通COBOL--16.3.1 基本程序结构
- 为什么在上传的图片上写文字不清晰??
- NetBeans IDE 6.1 is Available NOW!
- 精通COBOL--16.3.2 使用CICS进行输入输出
- 如何对SQL Server中的tempdb“减肥”
- Pku acm 1466 Girls and Boys数据结构题目解题报告(十七)---- 匈牙利算法求二分图的最大匹配
- 信息系统监理之数据备份与灾难恢复
- 精通COBOL--16.3.3 输入过程中的异常处理
- 内部类的访问
- 如何紧急恢复SQL Server主数据库
- 精通COBOL--16.3.4 输出过程中的光标定位
- Hibernate-HQL