0001.00　　*データ読み取り
0002.00　　　　MOVE　GD-KEYCOD　　　　　TO　MDB-KEY-KEYCOD.
0003.00　　　　MOVE　ZERO　　　　　　　 TO　BTRV-STS.
0004.00　　　　
0005.00　　　　MOVE　MDB-KEY-KEYCOD　　 TO　MDBKEYCOD OF MSDBF.
0006.00　　　　READ　MSDBF
0007.00　　　　　　　INVALID KEY
0008.00　　　　　　　　　　MOVE　4　　　TO　BTRV-STS
0009.00　　　　END-READ.
0010.00　　　　PERFORM　FLSTS-CVT.
0011.00　　　　IF ( BTRV-OK )
0012.00　　　　　　MOVE MDBDATA　　　　 TO　GD=DATA
0013.00　　　　END-IF.                           
              
            

              
0001.00　　*データ書き込み
0002.00　　　　MOVE　GD-KEYCOD 　　　　TO　MDB-KEY-KEYCOD.
0003.00　　　　MOVE　ZERO　　　　　　　TO　BTRV-STS.
0004.00　　　　
0005.00　　　　MOVE　MDB-KEY-KEYCOD　　TO　MDBKEYCOD OF MSDBF.
0006.00　　　　READ　MSDBF
0007.00　　　　　　　INVALID KEY
0008.00　　　　　　　　　　MOVE　4　　 TO　BTRV-STS
0009.00　　　　END-READ.
0010.00　　　　PERFORM　FLSTS-CVT.
0011.00　　　　EVALUATE　TRUE
0012.00　　　　　*データが存在しないので新規登録する(WRITE)
0013.00　　　　　WHEN　BTRV-INVALID
0014.00　　　　　　MOVE　ZERO　　　　　TO　BTRV-STS
0015.00　　　　　　WRITE　MSDBF-DDS-REC
0016.00　　　　　　　　　INVALID KEY
0017.00　　　　　　　　　　　　MOVE　4　TO　BTRV-STS
0018.00　　　　　　END-WRITE
0019.00　　　　　　PERFORM　FLSTS-CVT
0020.00　　　　
0021.00　　　　　*データが存在したので上書き登録する(REWRITE)
0022.00　　　　　WHEN　BTRV-OK
0023.00　　　　　　MOVE　ZERO　　　　　TO　BTRV-STS
0024.00　　　　　　REWRITE　MSDBF-DDS-REC
0025.00　　　　　　　　　INVALID KEY
0026.00　　　　　　　　　　　　MOVE　4　TO　BTRV-STS
0027.00　　　　　　END-REWRITE
0028.00　　　　　　PERFORM　FLSTS-CVT
0029.00　　　　END-EVALUATE