assign oiReturnStatus = -98 viExtentCount = 0. DO viCnt = 1 TO EXTENT(vmMessage) : SET-SIZE(vmMessage[viCnt]) = 0. END. assign oiReturnStatus = 0.