{
{   The purpose of this request is to move a screen variable to a program
{ variable.
{
{       FDP$MOVE_TO_PROGRAM_VARIABLE (P_FORM_STATUS, P_FORM_VARIABLE,
{         P_SCREEN_VARIABLE, P_PROGRAM_VARIABLE, VARIABLE_STATUS, STATUS)
{
{ P_FORM_STATUS: (input)  A pointer to the form status data.
{
{             P_FORM_VARIABLE (input) A pointer to the form variable to move.
{
{ P_SCREEN_VARIABLE: (input)  A pointer to the character screen variable data.
{
{ P_PROGRAM_VARIABLE: (output)  A pointer to store the program variable.
{
{ VARIABLE_STATUS: (output)  This parameter specifies the status of the
{       variable.
{
{       Value:  fdc$no_error
{               fdc$invalid_bdp_data
{               fdc$invalid_integer
{               fdc$invalid_real
{               fdc$overflow
{               fdc$loss_of_significance
{               fde$cobol_nonblk_outside_paren
{               fdc$nonblk_outside_parentheses
{               fdc$no_scientific_notation
{               fdc$invalid_character_entered
{               fdc$too_many_signs
{               fdc$no_plus_or_minus_now
{               fdc$c_without_r
{               fdc$no_cr_or_db_now
{               fdc$d_without_b
{               fdc$gr_18_right_of_point
{               fdc$gr_18_left_of_point
{               fdc$too_many_decimal_points
{               fdc$nonblk_after_trailing_sign
{               fdc$floating_number_too_big
{               fdc$invalid_overpunch_sign
{               fdc$invalid_separate_sign
{
{ STATUS: (output) This parameter specifies the name of the variable to set
{       to indicate the status of the request.
{
{       condition identifiers: fde$bad_data_value
{                              fde$feature_not_implemented
{
