SAVEIMS CALL (Commit IMS changes)
Returns zero if successful, otherwise nonzero.
IEB example using SAVEIMS
⋮
$$FILEM IEB
⋮
$$FILEM PROC=*
filerc = GETIMS('SEGMENT=SUBURB NEXT',
OUTREC = OVERLAY('1968',outrec,19)
filerc = REPLIMS('SEGMENT=SUBURB')
filerc = SAVEIMS()
⋮