如何阅读 MVS 系统目录以检索 GDG 信息？答案

【问题标题】：How To Read MVS System Catalog To Retrieve GDG Information?如何阅读 MVS 系统目录以检索 GDG 信息？
【发布时间】：2015-12-16 14:51:34
【问题描述】：

我在大型机上有一份工作 (JCL)，我想以编程方式检索系统目录（API 调用）中特定 GDG 文件的最近相对代号...然后我可以在其中以编程方式挖掘调用返回的结果以找出相对代数。这类似于在 GDG 基本文件名上执行 TSO 3.4，在该文件名上可以看到最新的代号。 IDCAMS 似乎不会以对程序友好的格式返回信息。谢谢！

示例：GDG 基本名称：TEST.FILE

GDG 世代：

TEST.FILE.G0010V00

TEST.FILE.G0011V00

TEST.FILE.G0012V00

【问题讨论】：

标签： dataset system catalog zos mvs

【解决方案1】：

看看IGGCSI00，目录界面。您可以从任何程序（REXX、CLIST、COBOL、汇编程序、PL/I）调用它，它提供了很大的灵活性。当然，就像许多 IBM 灵活的解决方案一样，总是有些迟钝。

网上有很多例子，但是SYS1.SAMPLIB(IGGCSIRX)中的示例程序非常好。

【讨论】：

【解决方案2】：

以编程方式（在汇编语言中），您可以使用 LOCATE SVC，并通过 CAMLST 指定参数列表来获取您正在寻找的信息——这是一个参考：https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.idas300/s3099.htm——那里的示例仅显示如何使用它来获取卷列表，但我在 80 年代初期使用它来获取与相对索引号相对应的 G-V-（世代版本）子名限定符——通过 GDG 基础 DSNAME，你得到所有的 gens——如果您想查看这方面的一些主题，可以搜索 bit.listserv.ibm-main——您还可以使用术语“Generation Index Pointer Entry”（GIPE）搜索在线 IBM 手册，这是相关的控制块...

【讨论】：

【解决方案3】：

您的选择包括：

IDCAMS/TSO Listcat 并编写程序重新格式化
Rexx ListDsi 命令

特别是对于 ListDsi，您可以在 JCL 中拥有以下内容

//MYGDG  DD DSN=my.gdg(0),DISP=SHR

在 rexx 程序中

x = ListDsi("MYGDG FILE")

say SYSDSNAME

您也可以使用后台 ISPF 服务，但这样做太过分了

**注意：*要运行rexx，你需要运行TSO

//* job statement 
//TSOBATCH EXEC PGM=IKJEFT1A,DYNAMNBR=200 
//SYSEXEC  DD  DSN=userid.REXX.EXEC,DISP=SHR 
//SYSPRINT DD  SYSOUT=* 
//SYSTSPRT DD  SYSOUT=* 
//MYGDG    DD  DSN=my.gdg(0),DISP=SHR
//SYSTSIN  DD  * 
PROFILE PREFIX(userid) /* specifying a userid*/ 
%MYREXX

【讨论】：

根据要求，PGM=IRXJCL 可能是更好的选择。