Hitachi

ノンストップデータベース HiRDB Version 10 構造型データベース機能


14.3.3 4V AFMのSDBデータベースのレコードを更新する

4V MAMのSDBデータベースのレコードを更新します。

■4V MAMのSDBデータベースの階層構造

[図データ]

■格納されているレコード実現値

[図データ]

手順

  1. pdsdbexeコマンドを実行する

     pdsdbexe -u '"User01"/"Pswd01"'
  2. 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
  3. 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
  4. MODIFYコマンドを実行して,レコードを更新する

     MODIFY "MAB101" SET "USERDATA1" = 'MDFY';
  5. 更新対象のレコードが正しいかを確認する

     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
  6. 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
  7. COMMITコマンドを実行して,レコードの更新を確定する

     COMMIT;

    COMMITコマンドの実行結果:

     KFPB64050-I COMMIT command processing completed
  8. #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-3 入力画面で表示されるプロンプト」を参照してください。