Re: Informix 4gl pgm to reformat dates to Month dd, yyyy
This is a multipart message in MIME format
--------------InterScan_NT_MIME_Boundary
Content-Type: text/plain; charset=ISO-8859-1
Content-transfer-encoding: quoted-printable
Can't you do this by setting the GL_DATETIME environment variable to=20
"%B %e, %iY", or doesn't this work with 4GL=2E It doesn't work in=20
dbaccess (but will soon), but works in ESQL/C=2E
=20
Davin
______________________________ Reply Separator ____________________________=
_____
Subject: Informix 4gl pgm to reformat dates to Month dd, yyyy
Author: PC {kirbyramz@aol=2Ecom} at INTERNET
Date: 27/01/98 16:41
I was not able to find any formatting that would format dates to show the=20
month
spelled out so I wrote the following pgm=2E
If there is any other programs that already do the same please reply=2E
=20
Kirby Ramsey, Visual Services Inc=2E, Bloomfield Hills, MI
=20
=20
=20
=20
function date_rtn(in_date)=20
define prt_date char(8),=20
in_date date,=20
prt_mth,prt_day char(2),=20
prt_yr char(4),=20
prt_month char(10),=20
print_date,=20
new_db,sw_type char(20)=20
=20
let prt_date =3D in_date using "mmddyyyy"=20
let prt_mth =3D prt_date[1,2]=20
let prt_day =3D prt_date[3,4]=20
let prt_yr =3D prt_date[5,8]=20
=20
if prt_day[1,1] =3D "0" then=20
let prt_day =3D " ", prt_day[2,2]=20
end if=20
=20
call date_month(prt_mth) returning prt_month=20
=20
let print_date =3D prt_month clipped," ",prt_day,", ",prt_yr=20
=20
return(print_date)=20
=20
end function=20
=20
function date_month(prt_mth)=20
=20
define prt_mth char(2),=20
prt_month char(10)=20
=20
if prt_mth =3D "01" then=20
let prt_month =3D "January"=20
end if=20
if prt_mth =3D "02" then=20
let prt_month =3D "February"=20
end if=20
if prt_mth =3D "03" then=20
let prt_month =3D "March"=20
end if=20
if prt_mth =3D "04" then=20
let prt_month =3D "April"=20
end if=20
if prt_mth =3D "05" then=20
let prt_month =3D "May"=20
end if=20
if prt_mth =3D "06" then=20
let prt_month =3D "June"=20
end if=20
if prt_mth =3D "07" then=20
let prt_month =3D "July"=20
end if=20
if prt_mth =3D "08" then=20
let prt_month =3D "August"=20
end if=20
if prt_mth =3D "09" then=20
let prt_month =3D "September"=20
end if=20
if prt_mth =3D "10" then=20
let prt_month =3D "October"=20
end if=20
if prt_mth =3D "11" then=20
let prt_month =3D "November"=20
end if=20
if prt_mth =3D "12" then=20
let prt_month =3D "December"=20
end if=20
=20
return(prt_month)=20
=20
end function=20
=20
**********************************************************************
DST International Tel:+44 181 390 5000 www=2Edstinternational=2Eco=2Eu=
k=20
This message and any attachments to it is intended only for the=20
individual or company to which it is addressed and may contain=20
information which is privileged, confidential or prohibited from=20
disclosure or unauthorised use=2E If the recipient of this=20
transmission is not the intended recipient, or the employee or agent=20
responsible for delivering such materials to the intended recipient,=20
you are hereby notified that any use, any form of reproduction,=20
dissemination, copying, disclosure, modification, distribution and/or=20
publication of this e-mail message or its attachments other than by=20
its intended recipient is strictly prohibited by the sender=2E =20
If you have received it in error, please notify us immediately by=20
telephone on the number above and destroy the message and all copies=20
in your possession=2E
**********************************************************************
--------------InterScan_NT_MIME_Boundary--