Send email with SNDSMTPEMM command with variables for the email addresses not all filled

Change this command to accept an email address with all *blanks, not as an error but as *none

Example :
SNDSMTPEMM RCP((&P1) (&P2) (&C1 *CC) (&C2 *CC)) SUBJECT(Email test) + NOTE(TEST)

With &P2 = *blanks  TCP5300 error and the email is not sent and we can't monitore this message, only the next (TCP5092)

Actually, I have 2 solutions to avoid the error :
1- To fill the variable with *blanks by the variable of an email address filled, but this address can appear a lot of times depending on the variables with blanks, also it's not clean to see the same address many times

Example with only &P1 and &C1 filled :
IF COND(&P2 = ‘ ‘) THEN(CHGVAR VAR(&P2) VALUE(&P1))
IF COND(&P2 = ‘ ‘) THEN(CHGVAR VAR(&P2) VALUE(&P1))
SNDSMTPEMM RCP((&P1) (&P2) (&C1 *CC) (&C2 *CC)) SUBJECT(‘Email test') NOTE(TEST)

So, we have 2 times the same addresses for *PRI and *CC (but not double in the sent)


2- To test all the cases between *PRI and *CC and *BCC for the RCP parameter, and for each of them, write the SNDSMTPEMM with only the variables filled

Example with only &P1 and &C1 filled :
SELECT
WHEN COND(&P2 = ' ' *and &C2 = ' ') THEN( +
SNDSMTPEMM RCP((&P1) (&C1 *CC)) SUBJECT('Email test') NOTE(TEST))
WHEN COND(&P2 = ' ' *and &C2 *ne ' ') THEN( +
SNDSMTPEMM RCP((&P1) (&C1 *CC) (&C2 *CC))
SUBJECT('Email test') NOTE(TEST))
WHEN COND(&P2 *ne ' ' *and &C2 = ' ') THEN( +
SNDSMTPEMM RCP((&P1) (&P2) (&C1 *CC))
SUBJECT('Email test') NOTE(TEST))
WHEN COND(&P2 *ne ' ' *and &C2 *ne ' ') THEN( +
SNDSMTPEMM RCP((&P1) (&P2) (&C1 *CC) (&C2
*CC)) SUBJECT('Email test') NOTE(TEST))
ENDSELECT

It needs a lot of lines of code to do a clean SNDSMTPEMM and above all, the email is not sent even to the right addresses if one of them is *blanks