【问题标题】:Can we pull REXX SQL output values into ISPF panel?我们可以将 REXX SQL 输出值拉入 ISPF 面板吗?
【发布时间】:2014-09-12 10:50:58
【问题描述】:

我创建了一个 REXX 程序来从表中获取 3 列。

我保留了临时变量来保存 SQL 值(根据输入采用自动数据类型) 就像:

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

现在我已经创建了一个面板,但我只知道我们分配了选项。 这就像给予一样

 %option_name

但是还没有任何书籍或在线论坛介绍如何将这些 REXX 程序变量显示到屏幕上。

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

【问题讨论】:

  • 您是否要在 Ispf 面板上显示 ???,我不明白 %option_name 的相关性。请注意,我使用 ISPF 已经有一段时间了。

标签: rexx ispf


【解决方案1】:

在 ISPF 面板中,任何 8 个字符的 rexx 变量都可以使用 &var. 格式或在其前面加上字段定义字符(例如 _ 表示输入字段)显示。例如

雷克斯:

 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 服务显示表格。
  • 注意:对于表格显示面板,您必须为表格中的数据添加一个 )Model 部分

如果您想使用 ISPF 表,请参阅 http://rexxpertise.blogspot.com.au/2011/11/ispf-tables-defining-and-building.html 以获取 TBCREATETBADD 的示例

也适用于complicated example ISPF Table


看看question

一般 ISPF 信息可在以下位置获得:

【讨论】:

猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 2019-09-07
  • 1970-01-01
相关资源
最近更新 更多