cobol snippet