■  カタログのコピー例


//STEP1EXECPGM=IDCAMS 
//SYSPRINTDDSYSOUT=* 
//SYSINDD* 
 DEF USERCATALOG -
  (NAME(COPYUCAT) -
  ICFCATALOG -
  MASTERPW(UCATMPW) -
  UPDATEPW(UCATUPW) -
  FOR(365) -
  CYLINDERS(20 10) -
  VOLUME(338000) )
/*    
//STEP2EXECPGM=IDCAMS 
//SYSPRINTDDSYSOUT=* 
//SYSINDD* 
 REPRO NOMERGECAT -
  INDATASET(MYCAT) -
  OUTDATASET(COPYUCAT/UCATMPW)
 EXPORT -
  MYCAT -
  DISCONNECT
/*    
//STEP3EXECPGM=IDCAMS 
//STEPCATDDDSNAME=COPYUCAT,DISP=OLD 
//SYSPRINTDDSYSOUT=* 
//SYSINDD* 
 LISTCAT NAMES
/*    
//STEP4EXECPGM=IDCAMS 
//SYSPRINTDDSYSOUT=* 
//SYSINDD* 
 DEF ALIAS -
  (NAME(MYCAT) -
  RELATE(COPYUCAT) )
/*    


<STEP1>
ユーザー・カタログCOPYUCATをボリューム338000にDEFINE USERCATALOGコマンド を使って定義します。このパラメーターは次の通りです。
<STEP2>
REPRO NOMERGECATコマンドは、MYCATの内容をCOPYUCATにコピーします。アクセス方式サービス は、個々のカタログをキー順データ・セットとして扱い、個々のレコードをコピーします。 MYCATを統合カタログ機能カタログとして記述するMYCATの最初の3レコードは、 COPYUCATにコピーされません。MYCATからCOPYUCATへの項目のコピーは、レコード4 から (すなわち、COPYUCAT の 3個の自己記述レコードの後から) 開始されます。
REPROコマンドのパラメーターは、次の通りです。
EXPORTコマンドは、MYCATのユーザー・カタログ結合子をマスター・カタログから除去します。 MYCATのカタログされたオブジェクトは、システムで使用不能になります。 (STEP4 は、MYCATをCOPYUCAT に関連付ける別名項目を構築します。 これによってカタログされたオブジェクトがシステムで再度使用可能になります。)


<STEP3>
LISTCATコマンドは、新しいカタログCOPYUCATにある個々の項目の名前をリストし ます。STEPCAT DD ステートメントは、リストするカタログを識別します。
LISTCATは、カタログをオープンしたときに、カタログが空であるジョブ・ステップは稼動す ることはできません。LISTCAT がカタログの内容を正しく反映するように、LISTCAT は別のジ ョブ・ステップで稼動しました。


<STEP4>
クセス方式サービスが、MYCAT 項目を COPYUCAT に関連付ける別名項目を構築しま す。


原典:日本アイ・ビー・エム株式会社
      SC26-4906-02
      DFSMS/MVS Version 1 Release 3
      Access Method Services
      for the Integrated Catalog Facility
      (一部改変)

BEFORE PAGE

TOP PAGE