通过JCL或REXX调用Netview的MEMSTOUT

Question

我有一个JCL任务来为编译多个Netview REXX execs：

********************************* Top of Data ******************************
//REXXCOMP  JOBCARD
//*--------------------------------------------------------------------     
//*                                                                         
//* BATCH REXX COMPILE                                                      
//*                                                                         
//*--------------------------------------------------------------------     
//REXXCOMP PROC                                                             
//         EXEC REXXC,OPTIONS='XREF OBJECT'                                 
//REXX.SYSIN DD DSN=SYSAOC.PRODNETV.EXECS(&MEMIN),DISP=SHR               
//REXX.SYSCEXEC DD DSN=SYSAOC.PRODNETV.CEXEC(&MEMIN),DISP=SHR            
//         PEND                                                             
//*--------------------------------------------------------------------     
//S01 EXEC REXXCOMP,MEMIN='MEMBER01'                                        
//S02 EXEC REXXCOMP,MEMIN='MEMBER02'                                        
//S03 EXEC REXXCOMP,MEMIN='MEMBER03'                                        
//S04 EXEC REXXCOMP,MEMIN='MEMBER04'                                        
//S05 EXEC REXXCOMP,MEMIN='MEMBER05'                                        
//S06 EXEC REXXCOMP,MEMIN='MEMBER06'                                        
//S07 EXEC REXXCOMP,MEMIN='MEMBER07'                                        
//S08 EXEC REXXCOMP,MEMIN='MEMBER08'                                        
//S09 EXEC REXXCOMP,MEMIN='MEMBER09'                                        
//S10 EXEC REXXCOMP,MEMIN='MEMBER10'                                        

我想为这个作业创建另一个程序来触发NCCF命令：MEMSTOUT &MEMIN

最理想的方法是什么？

一个定时器，一个路由命令，另一个REXX或JCL作业？

编辑：

理想情况下，我希望将以下命令添加到PROC中

MVS RO *ALL,%MEMSTOUT &MEMIN

在我们的商店，将Netview命令(%)路由到所有LPARS。

即

//REXXCOMP PROC                                                        
//         EXEC REXXC,OPTIONS='XREF OBJECT'                            
//REXX.SYSIN DD DSN=SYSAOC.PRODNETV.EXECS(&MEMIN),DISP=SHR          
//REXX.SYSCEXEC DD DSN=SYSAOC.PRODNETV.CEXEC(&MEMIN),DISP=SHR       
//       COMMAND  'RO *ALL,%MEMSTOUT ''&MEMIN''                                
//         PEND                                                                  

我只是不知道如何在命令中包含符号。继续获取JCL运行时错误。

Answer 1

你不能以这种方式做你想做的事。根据文档..。

由于系统通常在转换后立即执行流中命令，因此命令的执行将与输入流中的任何作业或作业步骤的执行同步，而不是。若要将命令与作业处理同步，请告诉操作员您希望输入的命令以及何时发出命令，并让操作员从控制台输入命令。

命令可能在未命名的步骤执行REXXC之前执行的...meaning。

您可以通过使用IEBGENER通过写信给INTRDR提交一份工作来完成您的目标。这也解决了您的符号替换问题，因为您可以在instream数据中使用符号参数。

也许是这样的..。

//REXXCOMP PROC                                                        
//         EXPORT SYMLIST=*
//         EXEC REXXC,OPTIONS='XREF OBJECT'                            
//REXX.SYSIN DD DSN=SYSAOC.PRODNETV.EXECS(&MEMIN),DISP=SHR          
//REXX.SYSCEXEC DD DSN=SYSAOC.PRODNETV.CEXEC(&MEMIN),DISP=SHR       
//SUBCMD   EXEC PGM=IEBGENER
//SYSUT1   DD  *,DLM=$$,SYMBOLS=JCLONLY
//jobname  JOB job-parameters
//       COMMAND  'RO *ALL,%MEMSTOUT ''&MEMIN''                                
//*
$$
//SYSUT2   DD SYSOUT=(A,INTRDR)
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*
//         PEND                                                                  

...which只是对你所写的东西的徒手修改，但我认为你明白了。