
  PROCEDURE [INLINE] osp$unpack_status_identifier
    (    condition: ost$status_condition_code;
     VAR identifier: ost$status_identifier);

?? PUSH (LISTEXT := ON) ??

    VAR
      code_breakdown: record
        identifier: ost$status_identifier,
        number: ost$status_condition_number,
      recend;

    #UNCHECKED_CONVERSION (condition, code_breakdown);
    identifier := code_breakdown.identifier;

  PROCEND osp$unpack_status_identifier;

*copyc ost$status_condition_code
*copyc ost$status_condition_number
*copyc ost$status_identifier
?? POP ??
