{
{   The purpose of this request is to get the current value of the form record
{ and transfer it to the program.  The form cannot be pushed.
{
{       FDP$GET_RECORD (FORM_IDENTIFIER, P_WORK_AREA, WORK_AREA_LENGTH,
{         VARIABLE_STATUS, STATUS)
{
{ FORM_IDENTIFIER: (input)  This parameter 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 to be used for the record transfer.
{
{ VARIABLE_STATUS: (output)  This parameter specifes an ordinal which gives the
{       status of the variable.
{
{       Value:  fdc$no_error
{               fdc$invalid_string
{               fdc$invalid_real
{               fdc$invalid_integer
{               fdc$invalid_bdp_data
{               fdc$no_digits
{               fdc$loss_of_significance
{               fdc$underflow
{               fdc$indefinite
{               fdc$overflow
{               fdc$infinite
{               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$form_has_no_variables
{                               fde$invalid_form_identifier
{                               fde$work_area_invalid
{                               fde$system_error
{
