Designing the Procedure Logic › Group View Manipulation › DISPLAY Statement › Bring a Row to the Top with DISPLAY

Bring a Row to the Top with DISPLAY

 --- EVENT ACTION account_new_ok
|     --- CREATE account
|    |    SET type TO input account type
|    |    SET description TO input account description
|    |    SET number TO input account number
|    |--- WHEN successful
|    |   
|    |    GET ROW HIGHLIGHTED IN export_account STARTING AT  1 GIVING
|    |        SUBSCRIPT OF export_account
|    |     --- IF SUBSCRIPT OF export_account IS EQUAL TO 0
|    |     --- SET SUBSCRIPT OF export_account TO LAST OF export_account
|    |    ADD EMPTY ROW TO export_account AFTER SUBSCRIPT OF
|    |        export_account
|    |    SET SUBSCRIPT OF export_account TO SUBSCRIPT OF ex port_account +1
|    |    MOVE input account TO export_line account
|    |    HIGHLIGHT export_account AT SUBSCRIPT OF export_account
|    |    DISPLAY export_account WITH SUBSCRIPT OF export_account ROW AT TOP
|    |    EXIT STATE IS enter_new_account
|    |--- WHEN already exists
|    |    EXIT STATE IS system_error_invalid_account WITH ROLLBACK
|    |--- WHEN permitted value violation
|    |    EXIT STATE IS system_error_invalid_values WITH ROLLBACK
|     ---
 ---

In the sample code, as new accounts are added, the last one added is brought to the top of the list and highlighted. The next account will be added to the list next the account at the top, unless the user has highlighted another account for the new one to follow.