  PROCEDURE [XREF] ocp$output_date (date: ^ost$date;
        end_of_line: boolean;
    VAR valid_foramt: boolean);
