
  PROCEDURE [XREF] ocp$crack_program_name (keyword: string (*);
        parameter: clt$value;
    VAR program_name: pmt$program_name;
    VAR status: ost$status);

