m.SelItem = 5 activate popup porder BAR (m.SelItem)>
>select promhead >define popup porder in screen from 2,5 to 22,75 margin shadow mover FOOTER 'PRESS ESC TO EXIT' >@0,0 SAY PADC('MOVE HIGHLIGHT TO PROMOTION YOU WISH TO MOVE & PRESS CTLR KEY',WCOLS()) >@1,0 SAY PADC('HOLD CTRL KEY DOWN & MOVE TO NEW POSITION- RELEASE KEYS',WCOLS()) >x=1 >scan > repl sess_order with x > define bar x of porder prompt str(session,6)+'³'+rate+subrate+"³"+dtoc(opening)+"³"+dtoc(closing)+"³"+desc > x=x+1 >endscan >x=x-1 >activate popup porder >