如何在OMVS环境下使用LISTDSI获取z/OS数据集信息

OMVS环境默认不直接提供ISPF/TSO REXX的LISTDSI服务，但可以通过以下几种方式获取z/OS数据集的属性信息：

1. 在OMVS REXX中直接调用TSO LISTDSI #

如果你的REXX脚本运行在支持TSO上下文的OMVS环境中（比如TSO会话内的OMVS窗口、通过BPXBATCH执行的脚本），可以切换到TSO地址空间调用LISTDSI：

/* OMVS REXX调用LISTDSI示例 */
address tso
'DROPFILE'  /* 清理之前LISTDSI生成的变量 */
"LISTDSI '"SYS1.PARMLIB"'",
IF RC = 0 THEN DO
  SAY "数据集名: " DSN
  SAY "记录长度: " LRECL
  SAY "块大小: " BLKSIZE
  SAY "空间单位: " SPACEU
  SAY "已用空间(磁道): " USED
  SAY "总分配空间(磁道): " TRKS
END
ELSE SAY "LISTDSI执行失败，返回码RC=" RC

注意：纯后台OMVS进程（如守护进程）可能无法访问TSO环境，此方法不适用。

2. 解析OMVS Shell的listds命令输出 #

OMVS Shell提供了listds命令，输出格式与TSO LISTDSI类似，可以在REXX中捕获并解析其输出：

/* OMVS REXX解析listds输出示例 */
target_ds = "'USER.TEST.DATASET'"
cmd = "listds " || target_ds
address omvs cmd

IF RC = 0 THEN DO
  DO line OVER OUTPUT
    PARSE VAR line field ':' value
    SELECT
      WHEN field = "Data Set Name" THEN SAY "数据集名: " STRIP(value)
      WHEN field = "Record Length" THEN SAY "记录长度: " STRIP(value)
      WHEN field = "Block Size" THEN SAY "块大小: " STRIP(value)
      WHEN field = "Space Units" THEN SAY "空间单位: " STRIP(value)
      WHEN field = "Used Tracks" THEN SAY "已用磁道数: " STRIP(value)
      WHEN field = "Allocated Tracks" THEN SAY "分配磁道数: " STRIP(value)
    END
  END
END
ELSE SAY "listds命令执行失败，返回码RC=" RC

3. 使用z/OS系统服务（BPXWDYN） #

通过BPXWDYN系统服务分配数据集后，可调用LISTDSI获取属性，适合需要程序化控制的场景：

/* OMVS REXX使用BPXWDYN获取数据集信息示例 */
target_ds = "USER.PROD.DATASET"
address syscall

/* 分配数据集 */
"BPXWDYN 'ALLOC DA('target_ds') SHR MSG(2)'"
IF RC = 0 THEN DO
  /* 调用LISTDSI */
  "BPXWDYN 'LISTDSI'"
  SAY "数据集名: " DSN
  SAY "记录格式: " RECFM
  SAY "块大小: " BLKSIZE
  /* 释放数据集 */
  "BPXWDYN 'FREE DA('target_ds')'"
END
ELSE SAY "数据集分配失败，返回码RC=" RC

内容的提问来源于stack exchange，提问作者Lionel B Dyck