Create simple.cpy

COBOL example