Likerec usage

Hi, probably it's very simple but I don't see where is the problem.

The compiler complaines (RNF7595 The result data structure does not include
a subfield in position 1 for a record format) on the chain (mugogge02l and
mugogge03l). The 3 record formats are exactly the same.


Dcl-f mugogge01l disk keyed usage(*input) usropn rename(gogge:gogge1);
Dcl-f mugogge02l disk keyed usage(*input) usropn rename(gogge:gogge2);
Dcl-f mugogge03l disk keyed usage(*input) usropn rename(gogge:gogge3);


Dcl-Proc v_Gogge;

Dcl-Pi *n ind;
Oggetto like(genclass) const;
xGogge likerec(gogge1:*all);
End-pi;

if %scan(%subst(Oggetto:1:1):'0123456789') > 0;
chain (Oggetto) mugogge01l xGogge;
Else;
chain Oggetto mugogge03l xGogge;
if not %found();
chain (Oggetto) mugogge02l xGogge;
Endif;
EndIf;

return %found();

end-proc;

Best regards
--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco