{
{   The purpose of this request is to create a COBOL description for use by
{ FDP$MOVE_COBOL_DATA.
{
{       FDP$CREATE_COBOL_DESCRIPTION ( COBOL_PICTURE_SYMBOLS,
{         COBOL_USAGE_KEYWORD, DESTINATION, STATUS )
{
{ COBOL_PICTURE_SYMBOLS: (input)  This parameter contains the characters
{       comprising the PICTURE, followed by a blank character.
{
{ COBOL_USAGE_KEYWORD: (input)  This parameter corresponds to the COBOL USAGE
{       clause.
{
{ DESTINATION: (output)  This parameter will be set to the description of the
{       item, so that FDP$MOVE_COBOL_DATA can use it to move data.
{
{ STATUS: (output) This parameter specifies the request status.
{       CONDITIONS:
{             fde$cobol_bad_picture
{             fde$cobol_binary_means_numeric
{             fde$cobol_comp_1_means_no_pic
{             fde$cobol_comp_2_means_no_pic
{             fde$cobol_cr_db_must_be_right
{             fde$cobol_packed_means_num_pic
{             fde$cobol_float_must_be_left
{             fde$cobol_illegal_pic_char
{             fde$cobol_insert_left_of_float
{             fde$cobol_item_too_big
{             fde$cobol_nondigit_rep_count
{             fde$cobol_not_9p9
{             fde$cobol_not_both_v_and_p
{             fde$cobol_not_p9p
{             fde$cobol_no_multiple_points
{             fde$cobol_no_rep_after_point
{             fde$cobol_no_rep_for_cr_db
{             fde$cobol_right_flt_means_all
{             fde$cobol_sign_needs_s
{             fde$cobol_s_must_be_first
{             fde$cobol_too_many_digits
{             fde$cobol_too_many_vs
{             fde$cobol_two_floating
{             fde$cobol_two_signs
{             fde$cobol_unbal_parens
{             fde$cobol_unknown_usage
{             fde$cobol_wrong_sign_vs_usage
{
{
