我们能把REXX SQL输出值拉到ISPF面板中吗？

Question

我已经创建了一个REXX程序，用于从表中获取3列。

我保留了临时变量来保存SQL值(根据输入获取自动数据类型)，如下所示：

 ADDRESS DSNREXX "EXECSQL FETCH C1 INTO :IN, :CR, :TN"

现在我创建了一个小组，但我只知道我们分配了选项。就像施舍一样

 %option_name

但没有关于如何显示那些REXX程序变量屏幕的书籍或在线论坛。

有一些论坛只用于调用具有自己功能的面板。

Answer 1

在ISPF面板中，任何8个字符的rexx变量都可以使用&var.格式显示，也可以用字段定义字符(例如_表示输入字段)作为前缀。例如：

Rexx：

 v1 = '...'
 v2 = '..'
 v3 = '.'

ISPF小组：

)body
+  V1 = &v1.        Display the value (... will be displayed)  
+  v2 :_V2     +    Allow the user to update v2

请参阅http://publib.boulder.ibm.com/infocenter/zvm/v5r4/index.jsp?topic=/com.ibm.zvm.v54.dmsa3/ispfpan.htm

样例ispf面板定义

)BODY
%---------------------------  EMPLOYEE RECORDS  ------------------------------
%COMMAND ===>_ZCMD
%
%EMPLOYEE SERIAL: &EMPSER
+
+   TYPE OF CHANGE%===>_TYPECHG  +  (NEW, UPDATE, OR DELETE)
+
+   EMPLOYEE NAME:
+     LAST   %===>_LNAME          +
+     FIRST  %===>_FNAME          +
+     INITIAL%===>_I+
+
+   HOME ADDRESS:
+     LINE 1 %===>_ADDR1                                    +
+     LINE 2 %===>_ADDR2                                    +
+     LINE 3 %===>_ADDR3                                    +

如果显示的行超过1行，您可能会发现

• 将返回的行添加到ISPF表
• 使用TBDISPL服务显示表。
• 注意:用于表显示面板的必须包括)表中数据的模型部分

如果要使用ISPF表，请参阅http://rexxpertise.blogspot.com.au/2011/11/ispf-tables-defining-and-building.html中的TBCREATE和TBADD示例。

也适用于复杂示例ISPF表

看看问题

有关ISPF的一般信息可在以下网址查阅：

• OS/390 V2R5.0-V2R7.0 ISPF示例
• OS/390 V2R10.0 ISPF对话框开发人员指南和参考
• OS/390 V2R10.0 ISPF服务指南