search cancel

JTEC000668 : CA 1のTMCのマルチファイルVOLUMEのEXPDTフィールドを更新する方法を教えてください。

book

Article ID: 134673

calendar_today

Updated On:

Products

CA 1 Tape Management

Issue/Introduction

TMCのマルチファイルVOLUMEのEXPDTフィールドを更新する⽅法を教えてください。
これらを更新するユーティリティは、TMSUPDTEで正しいでしょうか。

Environment

Release:ALL
OS: z/OS

Resolution

TMCには、VOLUME情報が格納されているVOLUMEレコードと2ファイル⽬以降の情報が格納されているDSNBレコードがあります。
今回の要件としてはマルチファイルVOLUMEのEXPDTフィールドという事なので、DSNBコードを更新するTMSUDSNBユーティリティを使⽤します。

対応⽅法:

TMSUDSNBのサンプルJCLは、以下のライブラリーに格納されております。

・r11.5以前のバージョン:prefix.SAMPJCL(JOBUDSNB)
・r12.0以上        :prefix.CTAPJCL(TMSUDSNB)

サンプルJCL(r14.0)

以下のサンプルJCLでは、DSNB番号の0000020と0000003のデータセット名を検証して、正しい時のみEXPDTフィールドを2014/330へ変更します。

//TMSUDSNB JOB (ACCOUNT)                                               
//**------------------------------------------------------------------*
//**                                                                             *
//**       TMSUDSNB VERIFIES AND UPDATES DSNB RECORDS AND CONTROL     *
//**       RECORDS ON THE TMC DATA SET.                           *
//**                                                                             *
//**------------------------------------------------------------------*
//TMSUDSNB PROC AUDIT='CAI.CA1.AUDIT',                                 
//             PRM='TEST',                                             
//             SOUT='*',                                               
//             REGN='4M',                                              
//             TMC='CAI.CA1.TMC'                                       
//TMSUDSNB EXEC PGM=TMSUDSNB,REGION=&REGN,                             
//             PARM='&PRM'                                             
//TMSRPT   DD  SYSOUT=&SOUT                                            
//SYSUDUMP DD  SYSOUT=&SOUT                                            
//TMC      DD  DSN=&TMC,                                               
//             DISP=SHR                                                
//AUDIT    DD  DSN=&AUDIT,                                             
//             DISP=SHR                                                
//         PEND                                                        
//UDSNB    EXEC TMSUDSNB                                               
//TMSUDSNB.SYSIN DD *                                                  
PASSWORD=SYSTEM.PASSWORD        <<< CA1のマスターパスワードを指定します。
DSNB 0000020,NOVER                      <<< DSNB番号:0000020が対象であることを宣言
VER  DSN=TEST.FILESEQ2                 <<< DSN名がTEST.FILESEQ2であることを検証
REP  EXPDT=2019/330                   <<< EXPDTを2019/330に変更       
*                                                           
DSNB 0000003,NOVER                                          
VER  DSN=TEST.FILESEQ3                                      
REP  EXPDT=2019/330                                         
//

※DSNB番号が不明な場合には、CA1のISPFパネルかTMSBINQユーティリティのレポートよりCURDSNBの数値にて確認できます。




Additional Information

Old Japanese Knowledge document ID:JTEC000668

CA 1のその他のFAQについては、以下のリンクからご確認ください。

CA 1 FAQ一覧表

Attachments