MCH1210 Receiver value too small to hold result.

MCH1210 Receiver value too small to hold result.

To program . . . . . . . . . . : CVTRPGFRER
To library . . . . . . . . . : JPLTOOLDEV
To module . . . . . . . . . : CVTRPGFRER
To procedure . . . . . . . . : CONVERTD_SPEC
To statement . . . . . . . . : 602800

that is to say here

596000 BegSr subConstant;
...
602000 // Build the definition of the constant as we go.
...
602600 // Ends with a quote - reduce length.
602700 If %subst(%trim(DCLS.definition):%len(%trim(DCLS.def
602800 constantDef.length -= 1;
602900 EndIf;

while working line 293.00

 FMT D  DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++++++Comments++++++++++++
0291.00 d  Xlate64Space   c                   const('-                                                 
0292.00 d                                                                     -                        
0293.00 d                                                                     ')                       
0294.00                                                                                                

because

EVAL constantDef.length
CONSTANTDEF.LENGTH = 0

I have not found why.