CICS-辅助键

CICS（Customer Information Control System）是一个基于事务的处理系统，通常用于处理交易型应用程序，比如ATM。CICS系统提供了一组辅助键，可以让程序员更方便地编写和调试CICS应用程序。

CICS辅助键

以下是CICS提供的一些辅助键：

| 辅助键 | 描述 | | ------------ | --------------------------------------------------- | | PF1 | 显示帮助信息。 | | PF3 | 取消当前任务。 | | PF4 | 聚焦到上一个字段或选项。 | | PF5 | 刷新屏幕或文本字段。 | | PF6 | 向下滚动屏幕或文本字段。 | | PF7 | 向上滚动屏幕或文本字段。 | | PF8 | 向左滚动屏幕或文本字段。 | | PF9 | 向右滚动屏幕或文本字段。 | | PF10 | 显示当前剩余消息。 | | PF11 | 切换大小写字母输入状态。 | | PF12 | 备份或取消更改。 | | PA1 | 打开CICS系统控制台。 | | PA2 | 显示CICS系统控制台的活动会话。 | | PA3 | 强制取消当前任务的执行。 | | PA4 | 显示CICS事件处理程序的地址。 | | PA5 | 显示当前CICS子系统中活动任务的列表。 | | PA6 | 显示系统监视数据。 | | PA7 | 显示任务统计信息。 | | PA8 | 显示资源的使用情况。 | | PA9 | 显示CICS通道管理器资源的使用情况。 | | PA10 | 显示CICS存储资源的使用情况。 |

代码示例

以下是使用PF1辅助键显示帮助信息的示例代码：

EXEC CICS RECEIVE
        INTO (ws-rec)
        MAPSET ('MAP1')
        MAP (ws-map)
        ERASE
        RESP (ws-resp)
END-EXEC.
IF (ws-resp = DFHRESP(NORMAL))
   DISPLAY 'Press PF1 for Help'.

以上代码中，当用户在MAP1地图上执行屏幕输入之后，会进入EXEC CICS RECEIVE语句。如果执行成功，程序会检查响应码ws-resp是否为DFHRESP(NORMAL)。如果是，程序将显示一个提示信息告诉用户可以按PF1键获取帮助信息。