The solution is to follow the instructions from the CPD0783 message. What happens when you do what the message says? — Tom

@Tom:

CPD0783 30  Variable &RCDCOUNT for parameter NBRCURRCD must be TYPE(*DEC), LEN(10,0).
 
After getting the above error I changed the code to
 
DCL VAR(&RCDCOUNT) TYPE(*DEC) LENGTH(10 0) VALUE(0)
 
However after changing the type of variable i got the following error:
 
* CPD0776 30  Variable &RCDCOUNT for parameter MSG must be *CHAR.

You’ll pobably need two variables, one *DEC 10 0, the second *CHAR 10
three commands
1.  Get the number of records into the *DEC 10 0
2.  Change the value of the character field to the value in the *DEC field
3.  Send the message
Phil

The error messages include the source line numbers where the errors are found. You should be able to see that the two errors are on two different lines. They happen at different times depending on how you define &RCDCOUNT.
 
The RTVMBRD command can only place its numeric results into numeric variables. But SNDMSG can only use character variables for its message text variables.
 
The solution is to have two variables, one for each command. Convert the value in the numeric variable into a character value in a second variable. That will satisfy both commands.
 
Phil gave the basic sequence. BTW, every one of us ran into the same problem when we were learning.
 
Tom

PGM                                                       DCL        VAR(&RCDCNT1) TYPE(*DEC) LEN(10 0)             DCL        VAR(&RCDCNT) TYPE(*CHAR) LEN(10) VALUE(’0′)    RTVMBRD    FILE(ARCPGM/BATCHPF) NBRCURRCD(&RCDCNT1)       CHGVAR     VAR(&RCDCNT) VALUE(&RCDCNT1)                   SNDMSG     MSG(&RCDCNT) TOUSR(ARCUSER)                    ENDPGM                                                    Please try this code