will ich gerne tun !

************************************************** ************************
H**** Name - MCPPGDHIST ****
H**** Function - Tägliche Bereinigung MCPPF2YJ / MCPPF5YJ ****
H**** Author - AM (BMN) am 03.08.2016 ****
H**** Copyright - AM (BMN) 2016 ****
H**** letzte Änd. - ****
H**** Release - 3.1 ****
************************************************** *************************
H CCSID(*GRAPH : *SRC) CCSID(*UCS2 : 1200)
H CCSID(*CHAR : *JOBRUN)
************************************************** *************************
**‚ E r s t e l l u n g s o p t i o n e n
************************************************** *************************
**GEN* BeginCreateOptions(SQLRPGLE)
**GEN* BeginCompileOptions
**GEN* SRTSEQ(*JOBRUN) LANGID(*JOBRUN) COMMIT(*NONE)
**GEN* EndCompileOptions
**GEN* BeginBindOptions
**GEN* EndBindOptions
**GEN* EndCreateOptions
************************************************** *************************
**‚ H - Specs ... Allgemeine Headerbestimmungen
************************************************** *************************
H/Copy ROTSFMODLE,ROTMDCPYR1
************************************************** *************************
**‚ F - Specs ... Dateibestimmungen
************************************************** *************************
************************************************** *************************
**‚ D - Specs ... Globale Deklarationen
************************************************** *************************
**‚Globale Importe
**================
D/COPY ROTSFMODLE,ROTMD$DTIO
D/COPY ROTSFMODLE,ROTMDSYSDS
D/COPY ROTSFMODLE,ROTMD$0003
D/COPY ROTSFMODLE,ROTMD$TIME
D/COPY ROTSFMODLE,ROTMD$$UFA unit feedback area
D/COPY ROTSFMODLE,ROTMD$$SFA SDS
D/COPY ROTSFMODLE,ROTMD$0022 Standard arrays
D/COPY ROTSFMODLE,ROTRHDLMSG
************************************************** *************************
**‚Interne Konstanten
**===================
************************************************** *************************
**‚Interne Strukturen
**==================
************************************************** *************************
**‚Arbeitsvariablen
**=================
D LoeschDatum 6 0
************************************************** *************************
**‚Redefinitionen für Nachrichten
**===============================
************************************************** *************************
**‚Interne Prozeduren
**===================
************************************************** *************************
D InitPgm PR N ExtProc('InitPgm')
D DoPgm PR ExtProc('DoPgm')
D LDatum Like(LoeschDatum)
************************************************** *************************
**‚ H a u p t r o u t i n e - Mainline **
************************************************** *************************
**
/Free
If InitPgm();
Exsr $Rttim;
Exsr $DatRue;
DoPgm(LoeschDatum);
EndIf;
*InLR = *On;
Return;
/End-Free
C************************************************* ************************
**‚ Subroutinen **
C************************************************* ************************
C*/COPY ROTSFMODLE,ROTMDSYSCN
C/COPY ROTSFMODLE,ROTMDDTD11
C/COPY ROTSFMODLE,ROTMDDTD12
C/COPY ROTSFMODLE,ROTMDERROR error handling rout
C/COPY ROTSFMODLE,ROTMDRTTIM time preparation
C/COPY ROTSFMODLE,ROTMDUSRAT user attach
C************************************************* ************************
C*04* $DATRUE - Vom Tagesdatum ein halbes Jahr rückrechnen ****
C************************************************* ************************
C $DATRUE BEGSR
C*
C* ein halbes Jahr zurückgehen
C*
C $006DT SUB 183 LoeschDatum
C*
C DATRUE$ ENDSR
C************************************************* ************************
**‚ DoPgm.. AHP-Datei bereinigen **
************************************************** *************************
**žFunktionsschnittstelle€ €
P DoPgm B
D DoPgm PI
D LDatum Like(LoeschDatum)
**žInterne Variablen€ €
**-------------------------------------------------------------------------
//žSätze ein halbes Jahr zurück löschen (MCPPF2YJ)
C/EXEC SQL
C+ Delete from ALEX/MCPPF2YJ where CrdtYJ < :LDatum
C/END-EXEC
//žSätze ein halbes Jahr zurück löschen (MCPPF5YJ)
C/EXEC SQL
C+ Delete from ALEX/MCPPF5YJ where CrdtYJ < :LDatum
C/END-EXEC
/Free
//žZurück zum Aufrufer:
Return;
/End-Free
**-------------------------------------------------------------------------
P DoPgm E
C************************************************* ************************
**‚ InitPgm ... Initialisierung des Programms **
************************************************** *************************
** Funktionsschnittstelle
P InitPgm B
D InitPgm PI N
** Interne Variablen
**-------------------------------------------------------------------------
/Free
//žZurück zum Aufrufer:
Return *ON;
/End-Free
**-------------------------------------------------------------------------
P InitPgm E


ANGEMECKERT wird im SQL-Delete-Statement das Feld LDatum !!!