精通COBOL－－16.3.4 输出过程中的光标定位

前面曾讲到，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。