SAVEIMS 呼び出し (IMS 変更のコミット)

(1)

正常に行われればゼロを戻し、そうでなければゼロ以外を戻します。

IEB の SAVEIMS 使用例

⋮
$$FILEM IEB
⋮
$$FILEM     PROC=*

filerc = GETIMS('SEGMENT=SUBURB NEXT',

OUTREC = OVERLAY('1968',outrec,19)
filerc = REPLIMS('SEGMENT=SUBURB')
filerc = SAVEIMS()
⋮