QRG6125

Quando *DAY, *MONTH, *YEAR, UDAY, UMONTH ou UYEAR é especificado como a entrada Nome do Campo (posições 32 a 37 de uma especificação Saída), o Código de Edição Y não é válido (posição 38).

Remova o código de edição Y. Compile novamente.