| working-storage section. 77 hmenu pic s9(9) comp-4. ... screen section. ...   03 screen-1-la-1 Label      line 4.3      column 36.7      size 12.4 cells       lines 2.9 cells       id 4      pop-up menu hmenu      title "R-Click Menu"      . ... *> Use w$menu in procedure division to build the pop-up menu ... |