Cobol Write After Advancing