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
- H OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT)
- H BNDDIR('WFIBNDDIR')
- /IF DEFINED(*CRTBNDRPG)
- H DFTACTGRP(*NO) ACTGRP(*CALLER)
- /ELSE
- H NOMAIN
- D* SQL Communications area SQL
- D SQLCA DS SQL
- D SQLCAID 8A INZ(X'0000000000000000') SQL
- D SQLAID 8A OVERLAY(SQLCAID) SQL
- D SQLCABC 10I 0 SQL
- D SQLABC 9B 0 OVERLAY(SQLCABC) SQL
- D SQLCODE 10I 0 SQL
- D SQLCOD 9B 0 OVERLAY(SQLCODE) SQL
- D SQLERRML 5I 0 SQL
- D SQLERL 4B 0 OVERLAY(SQLERRML) SQL
- D SQLERRMC 70A SQL
- D SQLERM 70A OVERLAY(SQLERRMC) SQL
- D SQLERRP 8A SQL
- D SQLERP 8A OVERLAY(SQLERRP) SQL
- D SQLERR 24A SQL
- D SQLER1 9B 0 OVERLAY(SQLERR:*NEXT) SQL
- D SQLER2 9B 0 OVERLAY(SQLERR:*NEXT) SQL
- D SQLER3 9B 0 OVERLAY(SQLERR:*NEXT) SQL
- D SQLER4 9B 0 OVERLAY(SQLERR:*NEXT) SQL
- D SQLER5 9B 0 OVERLAY(SQLERR:*NEXT) SQL
- D SQLER6 9B 0 OVERLAY(SQLERR:*NEXT) SQL
- D SQLERRD 10I 0 DIM(6) OVERLAY(SQLERR) SQL
- D SQLWRN 11A SQL
- D SQLWN0 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN1 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN2 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN3 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN4 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN5 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN6 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN7 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN8 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWN9 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWNA 1A OVERLAY(SQLWRN:*NEXT) SQL
- D SQLWARN 1A DIM(11) OVERLAY(SQLWRN) SQL
- D SQLSTATE 5A SQL
- D SQLSTT 5A OVERLAY(SQLSTATE) SQL
- D* End of SQLCA SQL
- D SQLROUTE C CONST('QSYS/QSQROUTE') SQL
- D SQLOPEN C CONST('QSYS/QSQLOPEN') SQL
- D SQLCLSE C CONST('QSYS/QSQLCLSE') SQL
- D SQLCMIT C CONST('QSYS/QSQLCMIT') SQL
- D SQFRD C CONST(2) SQL
- D SQFCRT C CONST(8) SQL
- D SQFOVR C CONST(16) SQL
- D SQFAPP C CONST(32) SQL
- /ENDIF
- /Free
- // Set Sql Options
- //****ql Set Option Datfmt = *Iso
- //**** ,Timfmt = *Iso
- //**** ,Alwcpydta = *Yes
- //**** ,Closqlcsr = *Endmod
- //**** ,Commit = *None
- //**** ,Dlyprp = *Yes;
-
- //****ql Delete From Retrbtpf
- //**** Where Rrrsts <=
- //**** Timestamp(Current_Date, Time('00.00.00')) -2 Years;
- /END-FREE SQL
- C Z-ADD 4 SQLER6 SQL
- C CALL SQLROUTE SQL
- C PARM SQLCA SQL
- /FREE SQL
-
- *Inlr = *On;
- Return;
-
- /End-Free
|
|