IEB example using REPLIMS

⋮
$$FILEM IEB
⋮
$$FILEM PROC=*
filerc = VIEWIMS('TPLDSN=HFM.IMS.IVP.TEMPLATE')
filerc = GETIMS('SEGMENT=SUBURB NEXT USING_VIEW')

 /* Replace a segment using OUTREC */
OUTREC = OVERLAY('6168',outrec,19)
filerc = REPLIMS('SEGMENT=SUBURB')

 /* Replace a segment using SET */
rtrc=REPLIMS('SEGMENT=SUBURB ',
             'SET #POST-CODE=6168')