PROCEDURE [XREF] fdp$make_cobol_description
  (    cobol_picture_symbols: fdt$cobol_picture_symbols;
       cobol_usage_keyword:   fdt$cobol_usage_keyword;
       sign:     boolean;
       leading:  boolean;
       separate:  boolean;
   VAR cobol_description: fdt$cobol_description;
   VAR status:   ost$status);

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

