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
/*
|