[COBOL400-L] How to handle function/pageup/pagedown/enter keys in cobol400

[cobol400-l@xxxxxxxxxxxx]

hi all,

how do we handle/convert this rpgile statements in cobol400  

     fScrn07    CF   E             WorkStn Sfile(Scrsfl1:RecNum2)
     f                                     infds(info)

     Dinfo             ds
     D cfkey                 369    369
      *
      * Constants and stand alone fields
      *
     dExit             C                   const(X'33')
     dCancel           C                   const(X'3C')
     dEnter            C                   const(X'F1')
     D @PAGEUP         C                   X'F4'
     D @PAGEDWN        C                   X'F5'

     C                   Select
      *
      * If ENTER key is pressed
      *
      *
     C                   when      (cfkey = enter)
     c                   exsr       enter_subroutine 
      *
     C                   when      (cfkey = exit)
     c                   exsr       exit_subroutine 
      *
     C                   when      (cfkey = cancel)
     c                   exsr       enter_subroutine 
      *
     C                   when      (cfkey = @PAGEUP)
     c                   exsr       enter_subroutine 
      *
     C                   when      (cfkey = @PAGEdown)
     c                   exsr       enter_subroutine 
      *
     c                   endsl
      *

any related links, or sample source code links,topics will do

MANY THANKS IN ADVANCE!!!
GODBLESS!!!