SAVEIMS CALL (Commit IMS changes)

Figure 1. Syntax
(1)
Notes:

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