精通COBOL--16.3.4 输出过程中的光标定位
来源:互联网 发布:c语言例题 编辑:程序博客网 时间:2024/06/08 18:43
前面曾讲到,CICS中默认的输出是以当前光标所在位置作为起始位置的。不过,光标的实际位置在程序中也是可以进行更改。若要在程序中更改光标的位置,需要提供更改后光标的位置值。在CICS支持的标准终端屏幕上,光标的位置值如图所示。
由上图可以看出,光标的位置值是一个一维数字,而并非由行数和列数形成的一个二维向量。通常在程序要求中只给出直观的行列数,需要通过计算将其转换为程序中的光标位置值。例如,以下代码将从屏幕中倒数第二行的第一列开始输出相应信息:
IDENTIFICATION DIVISION.
PROGRAM-ID. CURSORPGM.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
……
01 MSG PIC X(80).
*
PROCEDURE DIVISION.
……
MOVE ‘MESSAGE OUTPUT :’ TO MSG.
EXEC CICS SEND CONTROL CURSOR(1760) /*此处为光标定位*/
END-EXEC
EXEC CICS SEND FROM(MSG)
LENGTH(20)
END-EXEC.
……
EXEC CICS RETURN END-EXEC.
GOBACK.
这样,输出信息的位置便可由程序任意指定,而不必受之前光标所在位置的影响了。此外,如果在SEND命令中同时加上ERASE选项,则屏幕将被清屏,光标位置将被刷新。刷新后的光标位置为其初始位置,相应位置值为0。
- 精通COBOL--16.3.4 输出过程中的光标定位
- 精通COBOL--16.3.3 输入过程中的异常处理
- 精通cobol--第9章 COBOL中的表
- 精通COBOL--16.3 CICS在COBOL中的基本应用
- 精通COBOL--11.3.2 主调用程序中的调用过程
- 精通cobol--9.9.2 具体查找过程
- 精通COBOL--16.2 CICS编译处理过程
- 精通COBOL--16.5 CICS中的程序调用
- 精通COBOL--16.6 CICS中的MAP
- 精通COBOL--16.8 CICS中的队列
- 精通COBOL--16.3.1 基本程序结构
- 精通COBOL--16.3.2 使用CICS进行输入输出
- 精通cobol--9.9.4 查找方式小结
- 精通cobol--9.10.4 统计计算小结
- 精通cobol--9.15.4 变长表应用举例
- 精通COBOL--16.2.4 使用CEDF调试程序
- 精通cobol--9.2 下标表
- 精通cobol--9.11 索引表
- Pku acm 1466 Girls and Boys数据结构题目解题报告(十七)---- 匈牙利算法求二分图的最大匹配
- 信息系统监理之数据备份与灾难恢复
- 精通COBOL--16.3.3 输入过程中的异常处理
- 内部类的访问
- 如何紧急恢复SQL Server主数据库
- 精通COBOL--16.3.4 输出过程中的光标定位
- Hibernate-HQL
- 精通COBOL--16.3.5 获取CICS的终端信息
- SQL Server数据导入导出工具BCP详解
- w32.looked.i病毒清除办法
- 精通COBOL--16.3.6 获取CICS的时间信息
- extern用法详解(转)
- hibernate中文参数检索问题
- 精通COBOL--16.3.7 获取CICS的日期信息