SBP ' Example #1 - interrupting panel calls on A SELECTION BAR ' open file employee - or have it as top file ' note:: to terminate the program use Panel STOP or CTRL-BREAK (or CTRL-C) ' EVENT processing only involves locating which panel item was selected ' the action is taken outside of the eventprocess thus allowing panel to interrupt itself ' this is the only way to simulate panel in native mode ÿÿmain() ÿÿpansw%%,panid%% ÿÿkeypan%%(12) ÿ½ ****** this for panel keyboard equivs which are not trapped (see IAMH0109) ÿ½ ****** so they have to be trapped by key --- assignments below ÿ½ ÿ½ ****** note that CTRL-BREAK generates 203/3 and I decided to trap the 3 ÿ½ therefore it also responds to CTRL-C (thus restoring earlier functionality) keypan%%(1)ÿ32:keypan%%(2)ÿ3:keypan%%(3)ÿ189 keypan%%(4)ÿ181:keypan%%(5)ÿ177:keypan%%(6)ÿ179 keypan%%(7)ÿ178:keypan%%(8)ÿ182:keypan%%(9)ÿ186 keypan%%(10)ÿ63:keypan%%(11)ÿ61:keypan%%(12)ÿ42 pansw%%ÿ0:ÿ½ controls stopping FF and REWIND ÿ¡ÿ™ÿ""ÿpÿ´ÿ™ÿà,0"Employee" ÿ³ÿÿÿâÿƒPanProc() ÿ³ÿÿÿ¥ÿƒKeyproc() ÿ³ÿ_ÿwErrorTrap ÿÿÿtÿ³ ÿ¡ÿœÿ""ÿpÿâÿ³2,3,4,5,6,7,8,9,10,13,14:ÿâÿe1,12ÿ^ÿâÿ³2,3,4,5,6,7,8,9,10,11:ÿâÿe1,12,13,14 ÿØpansw%%ÿ2 ÿßÿ³ ÿ¡panid%%ÿpÿƒPannit():ÿ½ controls the panel calls ÿÙ ÿ’ÿÿ ErrorTrap: ÿ‚ÿe ÿÉÿæÿ& ÿæ8,10 #ÿ½ Key not found (8) #ÿ½ EOF(10) ÿ:ÿÊÿËÿ((ÿ&):ÿÏÿ›.5:ÿÊÿË"":pansw%%ÿ0 ÿæÿ^ ÿÂ"Error, "ÿÿ(ÿ&,"9999"),ÿ((ÿ&),2 panid%%ÿ2:ÿƒPannit() ÿ’ÿæ ÿ‚ÿ³:ÿyÿ± ÿ’ ÿÿKeyproc(t%,c%%,d$):ÿ½ only panel keys 1-12 processed panid%%ÿ0 ÿ›i%%ÿ1ÿq12 ÿ¡c%%ÿkeypan%%(i%%)ÿppanid%%ÿi%%:i%%ÿ99 ÿ±i%% ÿ¡c%%ÿ3ÿppanid%%ÿ2:ÿ½ CTRL-BREAK Generates 203 and 3, therefore CTRL-C acts as well pansw%%ÿ0 ÿ’ÿÿ ÿÿPanProc(t%,panbut%%):ÿ½ the PanelEvent Control panid%%ÿpanbut%%:pansw%%ÿ0 ÿ’ÿÿ ÿÿPannit():ÿ½ sample code for Rec Selection Only ÿÉÿæpanid%% ÿæ2ÿ½ Stop  ÿƒSelectCurrent()  pansw%%ÿ2  ÿâÿ³1,2,3,4,5,6,7,8,9,10,11,12,13,14 ÿæ3ÿ½ First  ÿƒSelectFirst() ÿæ4ÿ½ Rewind  pansw%%ÿ1  ÿØÿOÿB("")ÿ pansw%%ÿ0 (ÿƒSelectPrevious() (ÿ¡ÿB("")ÿpÿ’ÿØ  ÿÙ ÿæ5ÿ½ Previous  ÿƒSelectPrevious() ÿæ6ÿ½ Current  ÿƒSelectCurrent() ÿæ7ÿ½ Next  ÿƒSelectNext() ÿæ8ÿ½ FF  pansw%%ÿ1  ÿØÿOÿB("")ÿ pansw%%ÿ0 (ÿƒSelectNext() (ÿ¡ÿB("")ÿpÿ’ÿØ  ÿÙ ÿæ9ÿ½ Last  ÿƒSelectLast() ÿæ10ÿ½ ?  ÿƒSelectKey() ÿæ11ÿ½ =  ÿƒSelectFilter() ÿæ13ÿ½ FORM Up  ÿƒFormPrevPage() ÿæ14ÿ½ FORM Down  ÿƒFormNextPage() ÿ’ÿæ panid%%ÿ0 ÿ’ÿÿ