
  PROCEDURE [XREF] fdp$create_cobol_description
    (    cobol_picture_symbols: fdt$cobol_picture_symbols;
         usage: fdt$usage;
     VAR cobol_description: fdt$cobol_description;
     VAR status: ost$status);

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

