Procedure test
   Integer iRetVal iTabState iTabStates iMode iPages iPage
   Move 0 to iRetVal
   Move iTabState To iTabStates
   Move 3 to iMode
End_Procedure