1

我想创建一些 Rexx 代码，允许我以任何格式分配新数据集，例如 PDS、Sequential 等。通过读取现有数据集的数据集信息，然后将这些参数应用于新分配。

例如，当我在 3.2 中输入数据集名称并按 Enter 时，我会收到以下信息：

Data Set Name . . . . : HLQ.ETE.CNTL                                

General Data                          Current Allocation               
 Management class . . : MC000101       Allocated blocks  . : 6         
 Storage class  . . . : SC002020       Allocated extents . : 1         
  Volume serial . . . : VOL007         Maximum dir. blocks : 11        
  Device type . . . . : 3390                                           
 Data class . . . . . : None                                       
  Organization  . . . : PO            Current Utilization              
  Record format . . . : FB             Used blocks . . . . : 5         
  Record length . . . : 80             Used extents  . . . : 1         
  Block size  . . . . : 27920          Used dir. blocks  . : 6         
  1st extent blocks . : 6              Number of members . : 35        
  Secondary blocks  . : 2                                              
  Data set name type  : PDS           Dates                            
                                       Creation date . . . : 2014/04/02
                                       Referenced date . . : 2014/07/01
                                       Expiration date . . : ***None***

所以在我的 Rexx 中，我想做两件事：

  1. 读取现有数据集分配参数，如上所示

  2. 使用读入参数分配新数据集

我会将此 Rexx 作为 JCL 批处理作业的一部分运行。

由于我已经研究了几天并且看不到这样做的方法，因此我将不胜感激。

4

3 回答 3

3

如果在ISPF下运行，则 SPF 命令DSINFO更易于使用，因为它会为您设置变量。

如果在 TSO 下运行，Kenny 对ListDsi的回答是正确的。

对于 ISPF DSINFO，您可以执行以下操作（变量包含 dsname）：

Address ispexec 'DSINFO DATASET('dsname')'

say 'dsn=' dsname
say 'volume=' ZDSVOL
say 'recfm=' ZDSRF

.....
于 2014-07-02T22:21:34.560 回答
2

但是，根据您的操作，我还会向您指出 DD LIKE 参数（用于 SMS 托管数据集）或 DCB= 选项，用于非 SMS 托管数据集。请参阅 http://pic.dhe.ibm.com/infocenter/zos/v1r11/topic/com.ibm.zos.r11.ieab600/xddlike.htm和http://pic.dhe.ibm.com/infocenter/zos /v1r11/topic/com.ibm.zos.r11.ieab600/iea2b690169.htm#dcbdsn用于文档。

与其编写自己的 REXX 来完成这项工作，不如利用内置工具？特别是因为你说无论如何你都会批量运行它？

于 2014-07-02T19:16:39.140 回答
2

您需要查看 TSO 函数 LISTDSI。这将为您提供所需的一切。 http://pic.dhe.ibm.com/infocenter/zos/v1r11/index.jsp?topic=/com.ibm.zos.r11.ikjb800/listdsi.htm

于 2014-07-02T15:56:37.197 回答