midrange.com code scratchpad
Name:
Base source
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
09/26/2008 07:38:26 pm
IP:
Logged
Description:
This is the basic source for the SQLRPGLE program that performs only a SQL DELETE
Code:
  1.       //========================================================================*
  2.       // PROGRAM NAME...: RET65PRG                        TEMPLATE: FRE80ARG
  3.       // AUTHOR.........: Matt Tyler
  4.       // DATE...........: 09/26/2008
  5.       // PCR#...........: 09089 01
  6.       // FUNCTION/DESC..: Rebates - Purge older than 2 years
  7.       //------------------------------------------------------------------------
  8.       //    MODIFICATIONS:
  9.       //------------------------------------------------------------------------
  10.       // MOD#  PCR#    PGMR   DATE   DESCRIPTION
  11.     € // /M01               MM/DD/YY Changes...
  12.       //========================================================================*
  13.       /Copy Qcpysrc,Hspecle
  14.       /Free
  15.        // Set Sql Options
  16.        Exec Sql Set Option Datfmt = *Iso
  17.                           ,Timfmt = *Iso
  18.                           ,Alwcpydta = *Yes
  19.                           ,Closqlcsr = *Endmod
  20.                           ,Commit = *None
  21.                           ,Dlyprp = *Yes;
  22.  
  23.        Exec Sql  Delete From Retrbtpf
  24.                  Where Rrrsts <=
  25.                     Timestamp(Current_Date, Time('00.00.00')) -2 Years;
  26.  
  27.        *Inlr = *On;
  28.        Return;
  29.  
  30.       /End-Free       
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css