
  PROCEDURE [XREF] jmp$read_category_data
    (VAR category_data: jmt$job_category_data;
     VAR data_p: ^SEQ ( * );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc jmt$job_category_data
*copyc ost$status
?? POP ??
