F_SET_ZOOM_DATAWINDOW

// Function Name : f_set_zoom_datawindow
// Argument Name : apo_control, Arg Type : powerobject, Pass By : Value
//                            as_size, Arg Type : string, Pass By : Value
// Return Type :       (None)

DataWindow ldw_control
DataWindowChild ldwc_control
DataStore lds_control

CHOOSE CASE TypeOf( apo_control )
    CASE DataWindow!
         ldw_control = apo_control
         ldw_control.Modify('DataWindow.Zoom=' + as_size)
   CASE DataWindowChild!
       ldwc_control = apo_control
       ldwc_control.Modify('DataWindow.Zoom=' + as_size)
   CASE DataStore!
       lds_control = apo_control
       lds_control.Modify('DataWindow.Zoom=' + as_size)
   CASE ELSE
     // invalid argument type
      RETURN False
END CHOOSE

RETURN True