IEB example using GETIMS USING_VIEW

⋮
$$FILEM IEB
⋮
$$FILEM PROC=*
filerc = VIEWIMS('TPLDSN=HFM.IMS.IVP.TEMPLATE')
 /* Retrieve the next IMS segment from the view */
filerc = GETIMS('NEXT USING_VIEW')