1 PACKAGE BODY GMF_DATE_FORMATER AS
2 /* $Header: gmfformb.pls 115.0 99/07/16 04:17:53 porting shi $ */
3
4 procedure FORMAT_DATE (datetoformat in date,
5 formattouse in varchar2,
6 formateddate out varchar2,
7 statuscode out number) IS
8
9 BEGIN
10
11 SELECT to_char(datetoformat,formattouse)
12 INTO formateddate
13 FROM sys.dual;
14
15 EXCEPTION
16 when others then
17 statuscode := SQLCODE;
18
19 END FORMAT_DATE;
20 END GMF_DATE_FORMATER;