REXX命令获取卷上数据集的数据集列表（与3.4＆＃34; P＆＃34;打印数据集列表相当）

Question

问题出在标题中。

如何使用REXX命令获取卷上的数据集列表，以便我可以使用此列表。

感谢您的帮助！

马克

Answer 1

/* REXX */                                                               

  arg volume .                                                           

  address ISPEXEC                                                        

  if ispexec("LMDINIT LISTID(LID) VOLUME("volume")") >= 8 then exit 8    

  do while ispexec("LMDLIST LISTID(&LID) DATASET(DSNAME) STATS(YES)") = 0
    say dsname                                                           
  end                                                                    

  call ispexec "LMDFREE LISTID(&LID)"                                    

  exit 0                                                                 

ispexec:                                                                 
  arg cmd                                                                
  "CONTROL ERRORS RETURN"                                                
   cmd                                                                   
   res = rc                                                              
   if res >= 8 then do                                                   
     "SETMSG MSG(ISRZ002)"                                               
   end                                                                   
  "CONTROL ERRORS CANCEL"                                                
  return res