Cobol Write After 0