GRP6125

Quando *DAY, *MONTH, *YEAR, UDAY, UMONTH ou UYEAR estiver especificado como a entrada do nome de campo (posições 32-37 de uma especificação de saída), o código de edição Y não será válido (posição 38). A entrada Código de Edição (posição 38) não é válida quando um literal de caracteres ou uma constante nomeada está especificada na entrada Constante (posições 45-70). O padrão da entrada Código de Edição são espaços em branco.

Remova o código de edição Y. Compile novamente.entrada (posições 32-37). Compile novamente.