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