  PROCEDURE [XREF] fdp$move_cobol_data
    (    source_cobol_description: fdt$cobol_description;
         source_data_p: ^string ( * );
         destination_cobol_description: fdt$cobol_description;
         destination_data_p: ^string ( * );
     VAR status: ost$status);


?? PUSH (LISTEXT := ON) ??
*copyc fde$condition_identifiers
*copyc fdt$cobol_description
*copyc ost$status
?? POP ??
