2

我有一个想要作为批处理作业运行的 Rexx 程序。我怎样才能做到这一点？

这是我的程序：-

/* Rexx – HELLO – Write Hello World */
Say "hello World"

该程序位于PDSHELLO中作为成员。 ME.USER.EXEC

我安装的有效工作卡是（我们的环境包括ISPF/PDF，而不是 ROSCOE）：-

//MYJOB    JOB ,,CLASS=1,MSGCLASS=H,NOTIFY=&SYSUID

笔记！这是作为教程编写的

4

3 回答 3

7

您可以通过多种方式通过批处理运行程序。我将介绍 3 种方式，所有这些方式都因环境而异（即它们可以使用的方式。）

方法 1 - 在 Rexx 环境中运行程序。

这需要运行程序IRXJCL并通过PARM字段传递程序的名称（即 PDS 的成员名称）（您也可以传递参数；通过 PARSE ARG 语句访问它们）。

IRXJCL（通常）需要 3 个DDNAME，它们是SYSEXEC（程序所在的 PDS）、SYSTSIN（这可以反映终端输入）和SYSTSPRT（这是发送终端输出的地方）。

这是可以根据上面提供的信息工作的JCL：-

//MYJOB    JOB ,,CLASS=1,MSGCLASS=H,NOTIFY=&SYSUID
//*-------------------------------------------------------------------
//RUNPROG  EXEC PGM=IRXJCL,PARM=’HELLO’
//*
//*        RUN OUR REXX PROGRAM CALLED HELLO
//*
//SYSEXEC  DD DSN=ME.USER.EXEC,DISP=SHR
//SYSTSIN  DD DUMMY
//SYSTSPRT DD SYSOUT=*
//*-------------------------------------------------------------------

这种方法虽然最简单（只需几行 JCL），但限制最大的是它不允许使用 TSO/E 服务，例如 TSO/E 命令和大多数 TSO/E 外部函数。

但是，由于 IRXJCL 是 Rexx 处理器，因此无需让 TSO/E 知道它是 Rexx 程序（第一行必须包含 REXX）。

方法 2 - 从 TSO/E 环境运行程序

这需要运行本示例中使用的 TSO/E 批处理程序IKJEFT01之一。替代品是IKJEFT1A和IKJEFT1B。可以通过此方法使用 TSO/E 服务和命令（例如，在此方法末尾使用 TIME 命令注释）

可以在为命令执行编写 JCL 中找到有关程序之间差异的全面信息

IKJEFT01的 JCL类似于方法 1 中使用的 JCL 。可以编码一个额外的DDNAME SYSPROC 。SYSPROC是CLISTS所在的DDNAME；除了 SYSEXEC 之外，您还可以在此处找到 Rexx 程序（这不是必需的，建议两者都已编码，并且 SYSEXEC 用于 Rexx 程序，SYSPROC 用于 CLISTS）。

Rexx 位于区分 Rexx 程序与CLIST的第一行的要求（由 TSO/E 处理器）。因此，如果通过 SYSEXEC 找到/定位了 Rexx 程序，如果我没记错的话，这否定了要求）。

另一个建议是始终在 Rexx 程序的第一行中包含 REXX>

EXEC 语句调用IKJEFT01程序而不是IRXJCL。PARM可用于指定第一个命令（因此也是我们的 HELLO 程序）。但是，至于前台，您可以通过终端指定它，即SYSTSIN DDNAME。

这是一些适用于第二种方法的 JCL；注意 HELLO 程序是通过SYSTSIN DDNAME作为流内数据调用的：-

//MYJOB    JOB ,,CLASS=1,MSGCLASS=H,NOTIFY=&SYSUID
//*-------------------------------------------------------------------
//RUNPROG  EXEC PGM=IKJEFT01
//*
//*        RUN OUR REXX PROGRAM CALLED HELLO IN A TSO/E ENVIRONMENT
//*
//SYSPROC  DD DSN=ME.USER.CLIST,DISP=SHR
//SYSEXEC  DD DSN=ME.USER.EXEC,DISP=SHR
//SYSTSIN  DD *
 HELLO
//SYSTSPRT DD SYSOUT=*
//*-------------------------------------------------------------------

例如，如果使用以下内容（即将 TIME 作为另一行添加到 SYSTSIN），则将运行 TSO/E TIME 命令（这将导致时间显示到 SYSTSPRT）。

//SYSTSIN  DD *
     HELLO
     TIME

方法 3 - 在 ISPF 环境中运行程序

此方法使用IKJEFT01程序（有关 IKJEFT1A/B 替代方案，请参见方法 2）。但是，它随后使用ISPSTART命令在ISPF环境中运行程序；启用ISPF服务（例如文件剪裁（骨架）ISPF 表等）。

ISPF 环境具有额外的要求，即需要分配ISPF库才能启动 ISPF 环境。至少将提供的ISPF库分配给ddnames ISPPLIB（ISPF 面板）、ISPMLIB（ISPF 消息）和ISPTLIB（ISPF 表）。ISPPROF是 ISPF 为会话保存一些配置文件数据的地方，因此临时存储就足够了（如果不是总是可以使用 UNIT=SYSDA，则通常可用）。

请注意，您可能至少会分配安装系统库（TSO/E 命令 LISTA 可能用于从前台会话中确定这些库）。或者，问你当地友好的系统程序员。下面分别是 SYS1.ISPPLIB、SYS1.ISPMLIB 和 SYS1.ISPTLIB。

这是一些适用于第三种方法的 JCL。请注意，HELLO 作为参数传递给 ISPSTART 命令。

//MYJOB    JOB ,,CLASS=1,MSGCLASS=H,NOTIFY=&SYSUID
//*-------------------------------------------------------------------
//RUNPROG  EXEC PGM=IKJEFT01
//*
//*        RUN OUR REXX PROGRAM HELLO IN A TSO/E/ISPF ENVIRONMENT
//*
//SYSPROC  DD DSN=ME.USER.CLIST,DISP=SHR
//SYSEXEC  DD DSN=ME.USER.EXEC,DISP=SHR
//ISPPLIB  DD DSN=SYS1.ISPPLIB,DISP=SHR
//ISPMLIB  DD DSN=SYS1.ISPMLIB,DISP=SHR
//ISPTLIB  DD DSN=SYS1.ISPTLIB,DISP=SHR
//ISPPROF  DD UNIT=SYSDA,SPACE=(CYL,(10,1)),
//            RECFM=FB,LRECL=80,BLKSIZE=0
//SYSTSIN  DD *
 ISPSTART CMD(HELLO)
//SYSTSPRT DD SYSOUT=*
//*-------------------------------------------------------------------

请注意，这并不全面，它只是一个概述，足以让您开始批量运行 Rexx 程序。

于 2016-08-10T08:17:42.993 回答
2

对上述答案的附加评论。如果您希望使用 ISPF 服务运行 REXX exec，以下技术说明可能会有所帮助...

http://www.ibm.com/support/docview.wss?uid=swg21023990

确保将 ISPPROF 文件连接为 ISPTLIB 中的第一个文件。该示例使用一个临时文件，该文件对作业来说是唯一的。如果 REXX exec 提供表服务，您可能需要 ISPTABL DD。我建议对 ISPPROF 和 ISPTABL 使用相同的文件，并首先在 ISPTLIB 中将其连接起来。如果需要保存表，这可以是一个永久文件，但是它不应该被其他作业或 TSO 用户使用，以避免入队错误。

正如之前的更新所述，他的回答对于简单的 REXX 执行者来说已经足够了。

于 2016-08-10T15:34:59.777 回答
1

MikeT对答案的更多评论......

假设您希望 JCL 是自包含的：您希望将 REXX exec 作为 JCL 中的流内数据集包含在内，而不是引用存储在 PDS 成员中的 REXX exec。

这是“技巧”（对于 IRXJCL；我没有用其他程序测试过这个技巧）：指定一个空 (X'00') 字节作为语句PARM属性的值。EXEC

要指定空字节，请使用 z/OS ISPF 编辑器HEX ON：

//REXX     EXEC PGM=IRXJCL,PARM=' '
66DCEE44444CECC4DCD7CDEDCD6DCDD7707
1195770000057530774E997133B7194ED0D

例如，如果您PARM=' '使用空格作为值输入，则使用 . 改写该4空格的十六进制值0。

这是一个示例作业步骤，其中包含一个流内 REXX exec，它处理同一作业中上一步的输出：

//* PARM value is a single X'00' byte                          
//REXX     EXEC PGM=IRXJCL,PARM=' '                            
//SYSEXEC  DD   DATA,DLM=$$                                    
/*                                                             
   Transposes first line of input CSV into one record per field
   Reads CSV from ddname SYSTSIN.                              

   Writes output to ddname SYSTSPRT.                           
*/                                                             
columnSeparator = ","                                          

/* Get the header row */                                       
parse pull row                                                 
/* Get column names */                                         
do i = 1 until row = ""                                        
  parse value row with columnName "," row                      
  say columnName                                               
end                                                            
exit 0                           
$$                               
//SYSTSIN  DD  DSN=&&CSV,DISP=OLD
//SYSTSPRT DD  SYSOUT=*

笔记：

  • 在这种情况下，REXX exec 的第一行不需要包含字符串“REXX”
  • DLM=$$使您能够使用 REXX 注释语法 ( /*) 而不会过早结束流内数据集
  • &&CSV指上一个作业步骤创建的 CSV 文件（未显示）

我使用这种“in-stream REXX”技术，主要用于临时执行人员将批处理程序的输出转换为我真正想要的。这种技术对于演示和快速反弹想法很有用；其他开发人员可以在 SDSF 输出中的 JCL 中原位查看 REXX 代码，对其进行调整，然后提交调整后的版本。

于 2016-11-21T07:45:53.170 回答