  PROCEDURE [XREF] ocp$generate alias 'ocpgen' (
    parameter_list: clt$parameter_list;
    VAR status: ost$status);

*copyc OST$STATUS
*copyc CLT$NAME
