TMCのマルチファイルVOLUMEのEXPDTフィールドを更新する⽅法を教えてください。
これらを更新するユーティリティは、TMSUPDTEで正しいでしょうか。
Release:ALL
OS: z/OS
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=®N,
// 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の数値にて確認できます。
Old Japanese Knowledge document ID:JTEC000668
CA 1のその他のFAQについては、以下のリンクからご確認ください。
CA 1 FAQ一覧表