■  VSAMの作成、修正・削除


1.VSAMの作成(ロード)
  ファイル定義を、VS(CREATE)として定義し、PUTします。

EX)
FILE FILEA
BANGO       1  4 A
FILE MASTER VS(CREATE)
JOB
    PUT MASTER FROM FILEA STATUS
    IF FILE-STATUS(MASTER) NOT ZERO
       DISPLAY SKIP 1 'RETURN-CD= ' FILE-STATUS(MASTER)
    END-IF
/*

 


2.VSAMの追加・修正・削除
  ファイル定義を、VS(UPDATE)として定義し、 WRITEします。

EX)
FILE FILEA
BANGO       1  4 A
KBN         *  1 N
FILE MASTER VS(UPDATE)
JOB
    READ MASTER KEY BANGO STATUS
    IF   FILE-STATUS(MASTER) = 16            ←NotFound
         WRITE MASTER ADD FROM FILEA STATUS           ←追加
         IF FILE-STATUS(MASTER) NOT ZERO
            DISPLAY SKIP 1 'RETURN-CD= ' FILE-STATUS(MASTER)
         END-IF
    ELSE
        IF FILE-STATUS(MASTER) = 0           ←Found
           IF  KBN  =  9
              WRITE MASTER UPDATE FROM FILEA STATUS  ←修正
                   IF FILE-STATUS(MASTER) NOT ZERO
                 DISPLAY SKIP 1 'RETURN-CD= ' FILE-STATUS(MASTER)
              END-IF
           ELSE
              WRITE MASTER DELETE FROM FILEA STATUS  ←削除
                   IF FILE-STATUS(MASTER) NOT ZERO
                 DISPLAY SKIP 1 'RETURN-CD= ' FILE-STATUS(MASTER)
              END-IF
           END-IF
        ELSE                                         ←エラー時
            IF FILE-STATUS(MASTER) NOT ZERO
               DISPLAY SKIP 1 'RETURN-CD= ' FILE-STATUS(MASTER)
            END-IF
        END-IF
    END-IF
/*

 

※この処理をするためには事前にVSAMのDEFINEをしておかなければいけません。
   VSAMのDEFINEは、ここを参考にしてください。


BEFORE PAGE

TOP PAGE