Code:
- //========================================================================*
- // PROGRAM NAME...: RET65PRG TEMPLATE: FRE80ARG
- // AUTHOR.........: Matt Tyler
- // DATE...........: 09/26/2008
- // PCR#...........: 09089 01
- // FUNCTION/DESC..: Rebates - Purge older than 2 years
- //------------------------------------------------------------------------
- // MODIFICATIONS:
- //------------------------------------------------------------------------
- // MOD# PCR# PGMR DATE DESCRIPTION
- // /M01 MM/DD/YY Changes...
- //========================================================================*
- /Copy Qcpysrc,Hspecle
- /Free
- // Set Sql Options
- Exec Sql Set Option Datfmt = *Iso
- ,Timfmt = *Iso
- ,Alwcpydta = *Yes
- ,Closqlcsr = *Endmod
- ,Commit = *None
- ,Dlyprp = *Yes;
-
- Exec Sql Delete From Retrbtpf
- Where Rrrsts <=
- Timestamp(Current_Date, Time('00.00.00')) -2 Years;
-
- *Inlr = *On;
- Return;
-
- /End-Free
|
|