14.3.3 4V AFMのSDBデータベースのレコードを更新する
4V MAMのSDBデータベースのレコードを更新します。
-
SDBデータベース種別:4V MAM
-
SDBデータベース名:MAB1
-
更新対象のレコード名:MAB101
■4V MAMのSDBデータベースの階層構造
■格納されているレコード実現値
手順
-
pdsdbexeコマンドを実行する
pdsdbexe -u '"User01"/"Pswd01"'
-
STARTコマンドを実行して個別開始する
START "MAB1" NEXT ? +----2----+----3----+----4----+----5----+----6----+----7----+----8 ACSMODE UPDATE NEXT ? +----2----+----3----+----4----+----5----+----6----+----7----+----8 ENQOPT EXCLUSIVE;
STARTコマンドの実行結果:
DIRECTORY CHECK DATE INFORMATION PDSDBDEF EXEC DATE : 2015-12-14 16:20:46.67 SDB DIRECTORY UPDATE DATE : 2015-12-14 16:20:49.16 ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 HiRDB SERVER VERSION INFORMATION SERVER VERSION : 09-60 KFPB64050-I DINF(GET DATE) command processing completed ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 START INFORMATION SDB DATABASE NAME "MAB1" HANDLE NUMBER : 1 ACSMODE : UPDATE ENQOPT : EXCLUSIVE AUTODEQ : NO RDAREAVAL : NO KFPB64050-I DINF(GET SDB SUMMARY) command processing completed KFPB64050-I DINF(GET SDB DETAIL) command processing completed KFPB64050-I START command processing completed
-
FETCHコマンドを実行して,更新対象レコードへの位置づけを行う
FETCH "MAB101" FIRST;
FETCHコマンドの実行結果:
FETCH INFORMATION FETCH DATA 1 "DBKEY_KN" 1 2 "PABTSQKY" 'AA00' 3 "USERDATA1" '0000' FETCH SERIAL NUM : 1 ROWID : X'240000001A00000000000100' SECOND INDEX KIND : NOUSE RECORD POINTER STATUS : FIRST KFPB64050-I FETCH command processing completed
-
MODIFYコマンドを実行して,レコードを更新する
MODIFY "MAB101" SET "USERDATA1" = 'MDFY';
-
更新対象のレコードが正しいかを確認する
MODIFY DATA 1 "USERDATA1" <BEFORE> '0000' <AFTER> 'MDFY' AGREE TO MODIFY ? [ENTER YES OR NO] YES ←上記の情報を確認後,YESを指定します。
MODIFYコマンドの実行結果:
MODIFY INFORMATION ROWID : X'240000001A00000000000100' KFPB64050-I MODIFY command processing completed
-
FETCHコマンドを実行して,レコードが更新されたことを確認する
FETCH "MAB101" FIRST;
FETCHコマンドの実行結果:
FETCH INFORMATION FETCH DATA 1 "DBKEY_KN" 1 2 "PABTSQKY" 'AA00' 3 "USERDATA1" 'MDFY' FETCH SERIAL NUM : 1 ROWID : X'240000001A00000000000100' SECOND INDEX KIND : NOUSE RECORD POINTER STATUS : FIRST KFPB64050-I FETCH command processing completed
-
COMMITコマンドを実行して,レコードの更新を確定する
COMMIT;
COMMITコマンドの実行結果:
KFPB64050-I COMMIT command processing completed
-
#EXITコマンドを実行して,pdsdbexeコマンドを終了する
#EXIT;
#EXITコマンドの実行結果:
KFPB64050-I DISCONNECT command processing completed KFPB64050-I #EXIT command processing completed KFPB64000-I The pdsdbexe terminated, return code = 0
- 参考
-
コマンド入力画面に表示されるプロンプトについては,「表14-2 入力画面で表示されるプロンプト」を参照してください。