rexx - ボリューム上のデータ・セットのデータ・セット・リストを取得する 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