{
{   The purpose of this request is to validate COBOL data.
{
{       FDP$VALIDATE_COBOL_DATA (P_FORM_STATUS, P_FORM_VARIABLE_DEFINITION,
{         P_PROGRAM_VARIABLE, P_VALID_STRING, VARIABLE_STATUS)
{
{ P_FORM_STATUS: (input)  A pointer to the form status data.
{
{             P_FORM_VARIABLE_DEFINITION (input) A pointer to the form variable
{               definition.
{
{ P_PROGRAM_VARIABLE: (input)  A pointer to the program variable.
{
{ P_VALID_STRING: (output)  A pointer to the valid string.  IF NIL no valid
{       string applies.
{
{ VARIABLE_STATUS: (output)  This parameter specifies the status of the
{       variable.
{
{       value:  fdc$no_error fdc$invalid_integer fdc$invalid_real
{             fdc$invalid_string
