SAVEIMS CALL (Commit IMS changes)

Syntax

^{(explicit id svimsjl)
svimsjl} SAVEIMS()

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()
⋮

¹ After issuing this call, the position in the IMS database is lost. You will need to re-establish your position within the IMS database using the IEB functions.