MODULE qcm$functions;
*copyc osd$default_pragmats

?? PUSH (LISTEXT := ON) ??
*copyc clt$work_area
*copyc cle$work_area_overflow
*copyc clt$data_value
*copyc ost$status
*copyc clt$parameter_list
?? POP ??


PROCEDURE [XDCL] qcp$functions
 ( parameter_list: clt$parameter_list;
 VAR work_area: ^clt$work_area;
 VAR result: ^clt$data_value;
 VAR status: ost$status);


PROCEND qcp$functions;
MODEND qcm$functions;
