Success, Mr. Sinclair! The event paragraphs have no reference to the control name. Therefore, no modification is need for different controls. Also, we will be able to use the Code Template (ctrl-J) settings in AcuBench to automatically insert the event paragraph code. === Working Storage === 77 ws-ef-control-id pic 9(10) value zero. 77 ws-ef-help-id pic 9(10) value zero. 77 ws-ef-handle usage handle of entry-field. === Event Procedures === F2Test-Ef-2-Ex-Other. if Key-Status = f2-key move control-id to ws-ef-control-id perform handle-a-lookup-request end-if . F2Test-Pb-2-Ev-Cmd-Clicked. compute ws-ef-control-id = event-control-id - 1 perform handle-a-lookup-request . === In the PDLOOKUP Copy Library === handle-a-lookup-request. set ws-ef-handle to handle of id ws-ef-control-id inquire ws-ef-control-id help-id in ws-ef-help-id initialize lk-lookup-area. * evaluate ws-ef-help-id here to set the lookup type set lk-lookup-unit-test to true. * end-evaluate. perform call-lookup. modify ws-ef-handle, VALUE = lk-lookup-value initialize ws-ef-handle. .
↧