Create R18 1003(dp)