The corrects program are:

***** The COMMAND – called DLTOLDSPLF *****
CMD PROMPT(‘Delete OLD Spool Files’)
PARM KWD(DIAS) TYPE(*DEC) LEN(3) MIN(1) +
PROMPT(‘Dias Para Reter Spool Files’)

***** The first CL – called DLTOLDSPLF *****
PGM PARM(&DIAS)
DCLF FILE(DLTOLDSPLF)
DCL VAR(&DIAS) TYPE(*DEC) LEN(3 0)
DCL VAR(&DIF) TYPE(*DEC) LEN(5 0)
DCL VAR(&DIFX) TYPE(*CHAR) LEN(5)
DCL VAR(&SYSDATE) TYPE(*CHAR) LEN(6)
DCL VAR(&CTDLT) TYPE(*DEC) LEN(5 0)
DCL VAR(&SPLNBRAUX) TYPE(*DEC) LEN(5 0)
DCL VAR(&CTDLTX) TYPE(*CHAR) LEN(5)
WRKSPLF SELECT(*ALL) OUTPUT(*PRINT)
CRTPF FILE(QTEMP/WRKSPLF) RCDLEN(170) SIZE(*NOMAX)
MONMSG MSGID(CPF7302)
CPYSPLF FILE(QPRTSPLF) TOFILE(QTEMP/WRKSPLF) +
SPLNBR(*LAST)
RUNQRY QRY(DLTOLDSPLF)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&SYSDATE)
CVTDAT DATE(&SYSDATE) TOVAR(&SYSDATE) TOFMT(*YMD) +
TOSEP(*NONE)
LER: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FIM))
OVRDBF FILE(DLTOLDSPLF) TOFILE(QGPL/DLTOLDSPLF)
CALL PGM(DIFDATA) PARM(&SYSDATE &SPLDAT &DIF)
CHGVAR VAR(&DIFX) VALUE(&DIF)
IF COND(&DIF *LE &DIAS) THEN(GOTO CMDLBL(LER))
CHGVAR VAR(&SPLNBRAUX) VALUE(&SPLNBR)
DLTSPLF FILE(&SPLFNAM) JOB(&JOBNBR/&USRNAM/&JOBNAM) +
SPLNBR(&SPLNBRAUX)
MONMSG MSGID(CPF0000)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA(‘Deletando o Spool ‘ *BCAT &JOBNAM +
*TCAT ‘/’ *TCAT &USRNAM *TCAT ‘/’ *TCAT +
&JOBNBR *BCAT ‘de’ *BCAT &SPLDDMMYY *BCAT +
‘No Sistema por mais de’ *BCAT &DIFX +
*BCAT ‘dias’) TOPGMQ(*EXT) MSGTYPE(*STATUS)
CHGVAR VAR(&CTDLT) VALUE(&CTDLT + 1)
GOTO CMDLBL(LER)
ERROR: DMPCLPGM
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(‘Erro No +
Programa, verifique O JobLog’) +
MSGTYPE(*ESCAPE)
RETURN
FIM: CHGVAR VAR(&CTDLTX) VALUE(&CTDLT)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&CTDLTX +
*BCAT ‘Spoolfiles Deletados’) MSGTYPE(*COMP)
ENDPGM

***** The second CL – called DIFDATA *****
PGM PARM(&DATA1 &DATA2 &DIF)
DCL VAR(&DATA1) TYPE(*CHAR) LEN(6)
DCL VAR(&DATA2) TYPE(*CHAR) LEN(6)
DCL VAR(&DATA1J) TYPE(*CHAR) LEN(5)
DCL VAR(&DATA2J) TYPE(*CHAR) LEN(5)
DCL VAR(&DIF) TYPE(*DEC) LEN(5 0)
DCL VAR(&DIFDIA) TYPE(*DEC) LEN(5 0)
DCL VAR(&DIFANO) TYPE(*DEC) LEN(5 0)
DCL VAR(&ANO1) TYPE(*DEC) LEN(4 0)
DCL VAR(&DIA1) TYPE(*DEC) LEN(3 0)
DCL VAR(&ANO2) TYPE(*DEC) LEN(4 0)
DCL VAR(&DIA2) TYPE(*DEC) LEN(3 0)
CVTDAT DATE(&DATA1) TOVAR(&DATA1J) FROMFMT(*YMD) +
TOFMT(*JUL) TOSEP(*NONE)
CVTDAT DATE(&DATA2) TOVAR(&DATA2J) FROMFMT(*YMD) +
TOFMT(*JUL) TOSEP(*NONE)
CHGVAR VAR(&ANO1) VALUE(%SST(&DATA1J 1 2))
CHGVAR VAR(&ANO2) VALUE(%SST(&DATA2J 1 2))
CHGVAR VAR(&DIA1) VALUE(%SST(&DATA1J 3 3))
CHGVAR VAR(&DIA2) VALUE(%SST(&DATA2J 3 3))
IF COND(%SST(&DATA1 1 1) *GE ’8′) THEN(CHGVAR +
VAR(&ANO1) VALUE(&ANO1 + 1900))
ELSE CMD(CHGVAR VAR(&ANO1) VALUE(&ANO1 + 2000))
IF COND(%SST(&DATA2 1 1) *GE ’8′) THEN(CHGVAR +
VAR(&ANO2) VALUE(&ANO2 + 1900))
ELSE CMD(CHGVAR VAR(&ANO2) VALUE(&ANO2 + 2000))
CHGVAR VAR(&DIFDIA) VALUE(&DIA1 – &DIA2)
CHGVAR VAR(&DIFANO) VALUE(&ANO1 – &ANO2)
IF COND(&DIFDIA *LT 0) THEN(DO)
CHGVAR VAR(&DIFANO) VALUE(&DIFANO – 1)
CHGVAR VAR(&DIFDIA) VALUE(&DIFDIA + 365)
ENDDO
CHGVAR VAR(&DIF) VALUE((&DIFANO * 365) + &DIFDIA)
ENDPGM

***** The Query – called DLTOLDSPLF *****
5722QU1 V5R3M0 040528 IBM Query for AS/400 18:50:53 Page 1
Query . . . . . . . . . . . . . . . . . DLTOLDSPLF
Library . . . . . . . . . . . . . . . QGPL
Query text . . . . . . . . . . . . . . Extrai dados de WRKSPLF *ALL
Query CCSID . . . . . . . . . . . . . . 65535
Query language id . . . . . . . . . . . ENU
Query country or region id . . . . . . US
*** . is the decimal separator character for this query ***
Collating sequence . . . . . . . . . . Hexadecimal
Processing options
Use rounding . . . . . . . . . . . . Yes (default)
Ignore decimal data errors . . . . . No (default)
Ignore substitution warnings . . . . Yes
Use collating for all compares . . . Yes
Selected files
ID File Library Member Record Format
T01 WRKSPLF QTEMP *FIRST WRKSPLF
Result fields
Name Expression Column Heading Len Dec
SPLFNAM SUBSTR(WRKSPLF,2,10)
USRNAM SUBSTR(WRKSPLF,13,10)
PRTDEV SUBSTR(WRKSPLF,24,10)
USRDTA SUBSTR(WRKSPLF,35,10)
STATUS SUBSTR(WRKSPLF,46,3)
TOTPAG SUBSTR(WRKSPLF,51,5)
SPLDAT SUBSTR(WRKSPLF,89,2)||
SUBSTR(WRKSPLF,86,2)||
SUBSTR(WRKSPLF,83,2)
SPLTIM SUBSTR(WRKSPLF,92,8)
SPLNBR SUBSTR(WRKSPLF,102,5)
JOBNAM SUBSTR(WRKSPLF,108,10)
JOBNBR SUBSTR(WRKSPLF,119,6)
QNAM SUBSTR(WRKSPLF,126,10)
QLIB SUBSTR(WRKSPLF,137,10)
SPLDDMMYY SUBSTR(WRKSPLF,83,2)|| ‘/’ ||
SUBSTR(WRKSPLF,86,2)|| ‘/20′ ||
SUBSTR(WRKSPLF,89,2)
IBM Query for AS/400 27/06/08 18:50:53 Page 2
Select record tests
AND/OR Field Test Value (Field, Numbers, or ‘Characters’)
SPLFNAM NLIST ’5722SS1 V’ ‘File ‘
AND SPLFNAM NLIST ‘ * ‘ ‘ ‘
Ordering of selected fields
Field Sort Ascending/ Break Field
Name Priority Descending Level Text
SPLFNAM
USRNAM
PRTDEV
USRDTA
STATUS
TOTPAG
SPLDAT 10 A
SPLTIM
SPLNBR
JOBNAM
JOBNBR
QNAM
QLIB
SPLDDMMYY
Report column formatting and summary functions
Summary functions: 1-Total, 2-Average, 3-Minimum, 4-Maximum, 5-Count Overrides
Field Summary Column Dec Null Dec Numeric
Name Functions Spacing Column Headings Len Pos Cap Len Pos Editing
SPLFNAM 0 SPLFNAM 10
USRNAM 2 USRNAM 10
PRTDEV 2 PRTDEV 10
USRDTA 2 USRDTA 10
STATUS 2 STATUS 3
TOTPAG 2 TOTPAG 5
SPLDAT 2 SPLDAT 6
SPLTIM 2 SPLTIM 8
SPLNBR 2 SPLNBR 5
JOBNAM 2 JOBNAM 10
JOBNBR 2 JOBNBR 6
QNAM 2 QNAM 10
QLIB 2 QLIB 10
SPLDDMMYY 2 SPLDDMMYY 10
IBM Query for AS/400 27/06/08 18:50:53 Page 3
Selected output attributes
Output type . . . . . . . . . . . . . . Database file
Form of output . . . . . . . . . . . . Detail
Line wrapping . . . . . . . . . . . . . No
Database file output
File . . . . . . . . . . . . . . . . . DLTOLDSPLF
Library . . . . . . . . . . . . . . . QGPL
Member . . . . . . . . . . . . . . . . *FILE
Data in file . . . . . . . . . . . . . Replace file
For a new file:
Authority . . . . . . . . . . . . . . *ALL
Text about
the file . . . . . . . . . . . . . Extrai dados de WRKSPLF *ALL
Print definition . . . . . . . . . . . No
Output file record format
Output record length . . . . . . . . . 113
Field list:
Field Begin Len Dec Null Data Type Text
SPLFNAM 1 10 Character SUBSTR(WRKSPLF,2,10)
USRNAM 11 10 Character SUBSTR(WRKSPLF,13,10)
PRTDEV 21 10 Character SUBSTR(WRKSPLF,24,10)
USRDTA 31 10 Character SUBSTR(WRKSPLF,35,10)
STATUS 41 3 Character SUBSTR(WRKSPLF,46,3)
TOTPAG 44 5 Character SUBSTR(WRKSPLF,51,5)
SPLDAT 49 6 Character SUBSTR(WRKSPLF,89,2)|| SUBSTR(WRKSPLF,86
SPLTIM 55 8 Character SUBSTR(WRKSPLF,92,8)
SPLNBR 63 5 Character SUBSTR(WRKSPLF,102,5)
JOBNAM 68 10 Character SUBSTR(WRKSPLF,108,10)
JOBNBR 78 6 Character SUBSTR(WRKSPLF,119,6)
QNAM 84 10 Character SUBSTR(WRKSPLF,126,10)
QLIB 94 10 Character SUBSTR(WRKSPLF,137,10)
SPLDDMMYY 104 10 Character SUBSTR(WRKSPLF,83,2)|| ‘/’ || SUBSTR(WRKSPLF,86
* * * * * E N D O F Q U E R Y P R I N T * * * * *

PS: “Sharing we generate knowledge”

Regards,
Roberto

I see our friend Sloopy has also just answered. Thinking about it, his answer is probably a better option, then you shouldn’t need to change your CL program.

Regards,

Martin.

Now I know what you mean.

I suggest you add an extra variable for your parameter :-
DCL VAR(&DIASIN) TYPE(*CHAR) LEN(3)

Then at the start of your program :-
CHGVAR VAR(&DIAS) VALUE(&DIASIN)

This should then take the alphanumeric parameter and put it into the decimal variable &DIAS.

Regards,

Martin.

I think what it is, you have created a command called DLTOLDSPLF.

This command uses your CL program.

Your CL program has a number-of-days parameter &DIAS which is defined as decimal, 3 digits.

BUT, I suspect that the command declares this parameter as a character value of length 3.

Change the command source to declare the parameter as :

PARM KWD(DIAS) TYPE(*DEC) LEN(3)….

….and now the comand will match up with the CL.

Regards,

Sloopy

change
I know where this CL is wrong

to
I DON’T know where this CL is wrong

When I use my CL with this parameter DLTOLDSPLF ’099’ or ’99′ or other with 2 or 3 characters, I receive that error on the DUMP.

When use your sugestion with this parameter DLTOLDSPLF X’099F’ the process works normally.

Now I don’t know what I do, cause I know where this CL is wrong, or a help to implement this CL to run normally all days.

Thanks again and sorry , my english is not good.

Regards,
silvarb

I’m afraid I don’t understand the question. Can you explain what you mean?

Regards,

Martin.