IEB example using ISRTIMS
⋮
$$FILEM IEB
⋮
$$FILEM PROC=*
filerc = VIEWIMS('TPLDSN=FMN.IMS.IVP.TEMPLATE')
filerc = GETIMS('SEGMENT=SUBURB NEXT USING_VIEW')
/* Insert using OUTREC */
OUTREC = "FLOREAT RESERVE"
filerc = ISRTIMS('SEGMENT=NSTREET')
/* Insert using SET */
filerc = ISRTIMS('SEGMENT=NSTREET ',
' SET #2=FLOREAT PARK ')