通过 JCL 或 REXX 调用 Netview 的 MEMSTOUT答案

【问题标题】：Calling Netview's MEMSTOUT via JCL or REXX通过 JCL 或 REXX 调用 Netview 的 MEMSTOUT
【发布时间】：2020-05-26 18:24:25
【问题描述】：

我有一个 JCL 作业来为消息自动化表编译多个 Netview REXX 执行程序：

********************************* 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'

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

理想的方法是什么？

计时器、路由命令、另一个 REXX 或 JCL 作业？

编辑：

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

MVS RO *ALL,%MEMSTOUT &MEMIN

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

即

//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 运行时错误。

【问题讨论】：

标签： mainframe jcl

【解决方案1】：

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

因为系统通常会立即执行一个in-stream命令被转换，命令的执行将不同步输入流中任何作业或作业步骤的执行。到将命令与作业处理同步，告诉操作员您要输入的命令以及何时发出命令，然后让操作员从控制台输入它们。

...表示该命令可能会在未命名的步骤执行 REXXC 之前执行。

您可以使用 IEBGENER 通过写信给 INTRDR 来提交工作，从而实现您的目标。这也将解决您的符号替换问题，因为您可以将 SYMBOLS 参数与流内数据一起使用。

也许是这样的......

//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

...这只是对您所写内容的徒手修改，但我认为您明白了。

【讨论】：