REXX 命令获取卷上数据集的数据集列表（对比3.4 "P" for Print data set list）

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

REXX 命令获取卷上数据集的数据集列表（对比3.4 "P" for Print data set list）

REXX command to get the dataset list of the data sets on a volume (comparable with 3.4 "P" for Print data set list)

rexx