working-storage section. 77 hmenu pic s9(9) comp-4. ... screen section. ...   03 screen-1-tc-1 Tab-Control      pop-up menu hmenu      line 26.8      column 32.4      size 20.4 cells       lines 12.8 cells       id 8      bitmap-width 16      . ... *> Use w$menu in procedure division to build the pop-up menu ...  |