CLIST能访问PDS成员和GDG文件吗？

Question

例如，我需要检查GDG文件中的字符串，以检查文件: AAA.BBB.CCC.DDD(0)中的'ABCDEFG‘。

如果是，将此字符串'ABCDEFG‘追加到PDS成员的底部：

ABD.EFG.HIG(人名)

如果这两个文件都是PSD文件，没有问题，虽然我更改为GDG和PDS成员，它没有工作。

我的Clist程序不能分配gdg文件，也不能附加到member.It中，当我将文件分配给SHR时，也不能附加到成员的越权。国防部对成员文件不起作用。

Answer 1

clist可以访问GDG，但您必须将文件名从gdg相对引用(0)转换为完全限定的数据集名称。在您的示例中，您需要将文件引用为: AAA.BBB.CCC.DDD.G1234V00 (其中G1234V00是最新的版本标识符)。

通常，您可以编写一个例程在dataset上运行一个LISTCAT命令，SYSTRAPing输出，然后将完全限定的名称解析为一个CLIST变量。

示例：

PROC 0

  /* This illustrates a basic clist method using SYSTRAP */
  /* to extract a fully qualified GDG dataset name       */ 

     CONTROL NOFLUSH NOPROMPT NOLIST NOCONLIST NOSYMLIST NOMSG MAIN 

  /* Target dataset name */
     SET GDG = 'RAPP.RAP000.YQ.TAX.YQINFO.BK'                       

  /* SET SYSTRAP LIMIT and execute IDCAMS LISTC command */
     SET &SYSOUTTRAP = 300                                          
     LISTC ENTRIES(&GDG)                                            

  /* Calculate line number of last entry in LISTC results */
     SET &I = &SYSOUTLINE-21

  /* calculate ending position of GDG name in report */
     SET &L = &LENGTH(&GDG) + 23

  /* extract SYSTRAP data into clist string variable */
     SET &C = &&SYSOUTLINE&I

  /* substring data from SYSTRAP line into clist variable and list */
     SET &D = &SUBSTR(17:&L,&STR(&C))                               
     WRITE &D                                                       
END 

示例输出..。

RAPP.RAP000.YQ.TAX.YQINFO.BK.G8203V00