Команда REXX для получения списка наборов данных наборов данных на томе (сравнимо с 3,4 "P" для списка наборов данных "Печать")

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