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 ')