結果 : function current date in cobol example