PGM PARM(&PFAD)
DCLF FILE(DSPDOCFIL)
DCL VAR(&PFAD) TYPE(*CHAR) LEN(30)
DCL VAR(&BISDAT) TYPE(*CHAR) LEN(6)
DCL VAR(&BISJUL) TYPE(*CHAR) LEN(7)
DCL VAR(&DOCDAT) TYPE(*CHAR) LEN(7)
DCL VAR(&BISJUN) TYPE(*DEC) LEN(7 0)
DCL VAR(&DOCDAN) TYPE(*DEC) LEN(7 0)

DSPFLR FLR(&PFAD) TYPE(*DOC) OUTPUT(*OUTFILE) +
OUTFILE(DSPDOCFIL) OUTMBR(*FIRST *REPLACE)

TAATOOL/ADDDAT DAYS(-365) TOVAR(&BISDAT)

CVTDAT DATE(&BISDAT) TOVAR(&BISJUL) FROMFMT(*JOB) +
TOFMT(*LONGJUL) TOSEP(*NONE)
CHGVAR VAR(&BISJUN) VALUE(&BISJUL)

START: RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE))
CVTDAT DATE(&LASTRV) TOVAR(&DOCDAT) FROMFMT(*DMY) +
TOFMT(*LONGJUL) TOSEP(*NONE)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(START))
CHGVAR VAR(&DOCDAN) VALUE(&DOCDAT)
IF COND(&DOCDAN *LE &BISJUN) THEN(DO)
DLTDLO DLO(&DOCNAM) FLR(&FLRNAM)
MONMSG MSGID(CPF0000)
ENDDO
GOTO CMDLBL(START)

ENDE: CLRPFM FILE(DSPDOCFIL)
ENDPGM


Das gabs vor langer Zeit mal