{
{   The purpose of this request is to transfer a program record to form
{ storage.  Form storage holds the values Screen Formatting uses to update the
{ screen or to reurn to a program.  If a fdp$get_record was then executed,
{ Screen Formatting would return the values set by the fdp$replace_record
{ request.  You cannot put a record to a pushed form.
{ A fdp$read_forms request or a fdp$show_forms request updates the
{ screen using the values from form storage.
{
{       FDP$REPLACE_RECORD (FORM_IDENTIFIER, P_WORK_AREA, WORK_AREA_LENGTH,
{         VARIABLE_STATUS, STATUS)
{
{ FORM_IDENTIFIER: (input)  This parameter specifies the form identifier for
{       the instance of the form.
{
{ P_WORK_AREA: (input)  This parameter specifies the work_area for the form
{       record.
{
{ WORK_AREA_LENGTH: (input)  This parameter specifies the number of cells in
{       the work_area.
{
{ VARIABLE_STATUS (output) This parameter specifies the ordinal
{       which gives the status of the variable.
{
{       value:  fdc$invalid_integer
{               fdc$invalid_real
{               fdc$invalid_string
{               fdc$loss_of_significance
{               fdc$no_error
{               fdc$output_format_bad
{               fdc$gr_18_right_of_point
{               fdc$gr_18_left_of_point
{               fdc$too_many_decimal_points
{               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$form_has_no_variables
{                              fde$form_pushed
{                              fde$invalid_form_identifier
{                              fde$no_space_available
{                              fde$work_area_invalid
{
