工作空间面板定义

工作空间面板定义由一个打开和关闭节标记以及一组用于指定工作空间的全局属性和内容的关键字组成。 工作空间面板定义最多可包含 15 个子面板定义。 子面板定义指定子面板和数据查询的导航和显示选项。 可以使用链接将子面板链接到其他工作空间面板,以便目标工作空间中显示的数据反映链接自工作空间中的值。

工作区面板定义以 <WORKSPACE> 标记作为第一行非注释开始,以 <WORKSPACEEND> 标记结束。 除了一组指定工作空间全局设置的受支持关键字外,工作空间定义还可以包含以下节:
ALIASCOMMANDS
<ALIASCommands><ALIASEND> (命令)

在 ALIASCOMMANDS 节中, 使用 SET 语句定义了要在快速路径导航中使用的工作空间面板标识的别名。 缺省情况下,别名命令仅适用于当前面板。 要使别名持久存在,必须将作用域设置为 GLOBAL。 如果作用域是全局的,那么在设置别名后,它可供每个后续面板使用,直到更新或删除别名为止。 别名的 SET 语句还可以指定生成的工作空间是否始终以实时方式显示,即使用户在发出 alias 命令时处于历史记录方式也是如此。

使用 <ALIASEND> 可以防止后续 SET 语句生成别名变量而不是普通变量。

例如:

<ALIASCOMMANDS>
SET HEALTH=KPPASTO SCOPE=LOCAL REALTIME
<ALIASEND>
Onentry
<onentry><onentryend>

ONENTRY 节包含在 "正向" 导航期间装入工作空间时仅执行一次的 SET 语句。 这将阻止重新驱动语句,例如,在调用过滤器时。

子面板
<SUBPANEL>

子面板定义由 <SUBPANEL> 语句引入。 子面板不需要相应的 <SUBPANELEND> 语句。 出现新的 <SUBPANEL> 标记或 <WORKSPACEEND> 标记时,表示前一个子面板结束。

在每个子面板中,您可以控制子面板的类型 (摘要,详细信息,文本和操作) ,显示的行数和行数,查询的数据以及显示的列。 您可以指定可用的控件 (例如滚动和最小化以及最大化子面板) ,并定义用于向下钻取到其他工作空间或弹出面板的导航选项。 某些关键字的顺序受限制。

子面板可能包含多种类型的节:
ISPF
<ISPFPANEL><ISPFPANELEND>

ISPF 节支持标准 ISPF 语句的子集。 请参阅 支持的 ISPF 语句

PROLOG 和 EPILOG
<PROLOG><PROLOGEND> and <EPILOG><EPILOGEND>
PROLOG 和 EPILOG 节 (可选) 将 QUERY 关键字括起来,并允许定义局部变量以及使用 REXX EXECs 对查询的数据进行预处理和后处理。 PROLOG 和 EPILOG 节可以包含以下元素:
  • Set 命令
  • REXX EXEC 命令
  • ZOOMCOLS=&变量名 statements
行动
<ONACTION><ONACTIONEND>
当在正向导航期间首次显示工作空间时,将执行此节一次。 ONACTION 节可以包含以下元素:
  • SET 命令。

    当从子面板驱动操作时, ONACTION 节中编码的 SET 命令直接在键列分配之后执行 (请参阅 KEYCOLS)。

    与系统变量 ZFILTERnn一起使用时,可以使用 ONACTION 节中的 SET 命令为已使用 FILTERCOLS 关键字指定为合格的列创建过滤器。 例如:
    <ONACTION>
    SET ZFILTER01=CICSNAME=C*                               
    SET ZFILTER02=SOS=1
    SET ZFILTER03=TASKS>100
    <ONACTIONEND>
  • REXX exec 调用。 例如:
    <ONACTION>
    CALL MYREXX
    <ONACTIONEND>

示例

以下是简单工作空间面板定义的示例:
<WORKSPACE>
HEADER='Address Spaces for Service Class'
NAV1TEXT='Plex ID'
NAV2TEXT='SMF ID'
SET ZOMEGNAV2=''
SET ZOMEGLOCK1=NO
SET ZOMEGLOCK2=YES
IMBED=KM5NAV1

/********************************************************************/
/*                                                                  */
/*  SUBPANEL 1 - Address Spaces for Service Class                   */
/*                                                                  */
/********************************************************************/

<SUBPANEL>
HEADER='Service Class &CLSNAME' 
TYPE=SUMMARY  
/********************************************************************/ 
/*                       Data Query                                 */ 
/********************************************************************/  
QUERYTYPE=ROUTER 
QUERYMODE=LIVE 
QUERYREGTYPE=DRA  
QUERY='SELECT MADDSPC.ORIGINNODE,MADDSPC.ASNAME, 
MADDSPC.VSYSTEMNAM,MADDSPC.ASID,MADDSPC.ASRCNAME, 
MADDSPC.VELOCITY,MADDSPC.PAGERATE,MADDSPC.ASCSTOR, 
MADDSPC.ASESTOR,MADDSPC.IORATE,MADDSPC.CPUPCNT, 
MADDSPC.IFAPCNT,MADDSPC.IFCPCNT,MADDSPC.SUPPCNT, 
MADDSPC.SUCPCNT,MADDSPC.CLSNAME, 
FROM KM5.MADDSPC, 
WHERE ORIGINNODE='&PLEXORIG', 
AND MADDSPC.CLSNAME='&CLSNAME', 
ORDER BY VELOCITY DESC;'  
/********************************************************************/ 
/*                  Data Status                                     */ 
/********************************************************************/  
/********************************************************************/ 
/*                  Session Data Row Key Fields                     */ 
/********************************************************************/  
/********************************************************************/ 
/*                  Default list of fields to display               */ 
/********************************************************************/ 
STATICCOLS=2  
SORTCOLS='ASNAME,ASID,PAGERATE,ASCSTOR,ASESTOR,IORATE,CPUPCNT, 
IFAPCNT,IFCPCNT,SUPPCNT,SUCPCNT,VELOCITY'  

DISPLAYCOLS='ASNAME,ASID(HEXDISP),VSYSTEMNAM(W=4), 
ASRCNAME,CPUPCNT,VELOCITY,ASCSTOR,ASESTOR,IORATE, 
PAGERATE,IFAPCNT,IFCPCNT,SUPPCNT,SUCPCNT'  
/********************************************************************/ 
/*                  Navigation Options                              */ 
/********************************************************************/  
/* ACTION=ASNAME(?,"Help Assistance",KOCHELP1)  
/********************************************************************/ 
/*  SUBPANEL 1 END                                                  */ 
/********************************************************************/ 
<WORKSPACEEND>