Does anyone have an example of a menu display with mouse cursor selection

[dcutaia]

Hello,

Does anyone have an example of a menu system that utilizes cursor controls to select the menu item.

For example: Selection

Payroll

Order Entry

TimeCard Entry

User can take mouse and click on entry to select menu item.

Thanks,

DAC

[dcutaia]

Re: Does anyone have an example of a menu display with mouse cursor selection

Can I use MOUBTN to control the mouse in the green screen with menus?
DAC

[Scott M]

Re: Does anyone have an example of a menu display with mouse cursor selection

Here is a sample, was written before my time but it is short and pretty simple and you will get the concept.

DDS:

     A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
      *****************************************************************
     A          R MAIN
      *****************************************************************
      *
     A                                      OVERLAY
     A                                  1 60DATE
     A                                      EDTCDE(Y)
     A                                  1 70TIME
     A                                  4 26'SHOP MASTER MENU'
     A                                      DSPATR(UL)
     A            MAINSEL1       2Y 0B  6 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'ADD/UPDATE A WORK ORDE-
     A                                      R')
     A            MAINSEL2       2Y 0B  8 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'ADD/UPDATE PURCHASE OR-
     A                                      DERS')
     A            MAINSEL3       2Y 0B 10 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'RECEIVE A PURCHASE ORD-
     A                                      ER')
     A            MAINSEL4       2Y 0B 12 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'VEHICLE PROFILE PROGRA-
     A                                      M')
     A            MAINSEL5       2Y 0B 14 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'SHOP REPORTS PROGRAM')
     A            MAINSEL6       2Y 0B 16 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'SHOP FILE UPDATE MENU')
     A            MAINSEL7       2Y 0B 18 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'SHOP LABEL PRINT PGM')
     A            MAINSEL9       2Y 0B 22 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'EXIT')
     A            MAINSEL8       2Y 0B 20 20PSHBTNFLD
     A                                      PSHBTNCHC(1 'ARCHIVE/RETRIEVE RECOR-
     A                                      DS')

RPG:

     H
      *   Shop Menu.
      *
      *  Added Archive/Retrieve shop records program to menu.
      *********************************************************************
      *
     FSHDMASTER CF   E             workstn
      *
      *
     d no              c                   const('0')
      *
      ************************************************************
      *
     c                   eval      mainsel1 = 0
     c                   eval      mainsel2 = 0
     c                   eval      mainsel3 = 0
     c                   eval      mainsel4 = 0
     c                   eval      mainsel5 = 0
     c                   eval      mainsel6 = 0
     c                   eval      mainsel7 = 0
     c                   eval      mainsel8 = 0
     c                   eval      mainsel9 = 0
      *
     c                   dow       mainsel8 = 0
      *
     c                   exfmt     main
      * Process selected action
     c                   select
      * add/update a work order
     c                   when      mainsel1 = 1
     c                   call      'SHC008'
      * add/update purchase orders
     c                   when      mainsel2 = 1
     c                   call      'SHC004'
      * receive a purchase order
     c                   when      mainsel3 = 1
     c                   call      'SHC006'
      * vehicle profile program
     c                   when      mainsel4 = 1
     c                   call      'SHC015'
      * shop reports program
     c                   when      mainsel5 = 1
     c                   call      'SHC021'
      * shop file update menu
     c                   when      mainsel6 = 1
     c                   call      'SHPFILES'
      * shop labels print
     c                   when      mainsel7 = 1
     c                   call      'SHOPLABELC'
      * Archive/Retrieve Shop Records...
     c                   when      mainsel8 = 1
     c                   call      'XSHP0220'
      * exit
     c                   when      mainsel9 = 1
     c                   leave
     c                   endsl
      *
     c                   eval      mainsel1 = 0
     c                   eval      mainsel2 = 0
     c                   eval      mainsel3 = 0
     c                   eval      mainsel4 = 0
     c                   eval      mainsel5 = 0
     c                   eval      mainsel6 = 0
     c                   eval      mainsel7 = 0
      *
     c                   enddo
      *
     c                   eval      *inlr = *on