Question

official guide表示要使用CMD（your_statement）函数，但我一直收到无法识别的关键字错误。我正在尝试自定义ISPF主选项菜单，我需要编辑面板，这样当你按'R'时它会运行一个Rexx exec。以下是我正在使用的面板中的一些代码：

 %                                                                  
 %                      ******************                          
 %                      *                *                          
 %                      * $2  %Edit      *                          
 %                      * $3  %Utility   *                          
 %                      * $6  %Command   *                          
 %                      * $SD %SDSF      *                          
 %                      * $D  %Datasets  *                          
 %                      * $X  %eXit      *                          
 %                      * $R  %REXX      *                          
 %                      *                *                          
 %                      ******************                          
 )PROC                                                              
   &ZSEL = TRANS ( TRUNC (&ZCMD,'.')                                
                 2,'PGM(ISREDIT) PARM(P,ISREDM01) SCRNAME(EDIT)'    
                 3,'PANEL(ISRUTIL) SCRNAME(UTIL)'                   
                 D,'PGM(ISRUDL) PARM(ISRUDLP) SCRNAME(DSLIST)'      
                 6,'PGM(ISRPTC) SCRNAME(CMD)'                       
                 SD,'PGM(ISFISP) NOCHECK NEWAPPL(ISF) SCRNAME(SDSF)'
                 R,'CMD(TSO EXEC 'IBM####.REXX(REXXSYSC)')'         
               ' ',' '                                              
                 X,'EXIT'                                           
                 *,'?' )                                            
   &NEXTOPT = .TRAIL                                                
 )END

当我尝试将命令语句分配给'R'时发生错误。我的猜测是引用是干扰的，但TSO命令必须使用这些引用来指定Rexx exec的位置。从指定的文件夹运行这个Rexx exec应该是什么正确的语法？很抱歉代码的缩进有点搞砸......

Answer 1

从某些非常简要测试中，看来REXXSYSC必须驻留在一个库中，该库位于ISPF会话的SYSPROC或SYSEXEC级联中，然后语法为

R,'CMD(%REXXSYSC)'

Answer 2

虽然现在要回答这个问题已经很晚了，但我觉得我可能会添加一两个指针，这对于寻找类似解决方案的人来说可能很有用。

要检查包含源REXX代码的库是否包含在SYSPROC / SYSEXEC中，我们可以触发以下命令：

TSO ISRDDN

您可以轻松验证您的库是否存在。如果没有，则必须包含它，以便可以直接执行目标命令。下面的链接说明了如何将库附加到SYSEXEC / SYSPROC

http://ibmmainframes.com/about48417.html

请注意，SYSEXEC / SYSPROC中的库非常敏感，Z / OS管理员不会高兴看到有人未经授权试图偷偷摸摸进入它！

感谢。

如何在z / OS中调用dialog panel命令？

2 个答案: