Page Up/Down & Line Up/Down Issues in 9.2

We have the below code in screens which has been functioning correctly until we converted over to 9.2:

       MOVE-SCREEN.
           ACCEPT wHandle FROM WINDOW HANDLE.
           INQUIRE WINDOW wHandle SYSTEM HANDLE hWnd.
           MOVE GW_CHILD TO uCmd.
           CALL "@[DISPLAY]:GetWindow" USING BY VALUE hWnd
              BY VALUE uCmd
              GIVING bodyWnd.

           IF KEY-STATUS = 67
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_PAGEUP TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.
           IF KEY-STATUS = 68
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_PAGEDOWN TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.
           IF KEY-STATUS = 273
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_LINEUP TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.
           IF KEY-STATUS = 274
              MOVE WM_VSCROLL TO wMsg
              MOVE SB_LINEDOWN TO wParam
              MOVE LOW-VALUES TO lParam
              CALL "@[DISPLAY]:SendMessageA"
                 USING BY VALUE bodyWnd
                       BY VALUE wMsg
                       BY VALUE wParam
                       BY VALUE lParam
                 GIVING SendMessageReturn.

The logic performed a page up or page down or line up or line down for users on large screens.  As you can see in the code we are using this via thin client.


Thanks for any help.