>You'll need to give the details of the method including prototype. It
>likely has nothing to do with the actual return value itself.  If your
>using abc class methods be sure you have _abcdllmode_ and _abclinkmode_
>set
>----------------------------------
>Jim Kane
>Team SoftVelocity
>Productive Software Solutions
>Cant find the message?
>Get Organized, Get ForKeeps
>www.fkeeps.com

> Prototype
> (string,*string,*long,<long>,string),Long
> Parameters
> (TRAType,*ScrVar,*BUMId,UserID,Lookup)
> Return Value
> LOC:ReturnValue

> Code calling this procedure

> Init
>   !--- Setup the Screen to display the BUMID
>   If PTX:BUMID ~= 0
>    a#=SelectBNU(PTX:TRAType,lv:Analysis,PTX:BUMID,Glo:UsrID,'N')
>   End !if

> Capture Variable Accepted Button
>     !---Check if What has been captured is Found in the BUM ID
>     ThisWindow.Update    ! Update the Buffers from the Screen
>     Save# = PTX:BUMID    ! Save Previous Value of BUMID
>     PTX:BUMID = 0        ! Reset it for Lookup Purposes
>     If SelectBNU(PTX:TRAType,lv:Analysis,PTX:BUMID,Glo:UsrID,'N') ~=
> Level:Benign
>        Message('This is Not a Valid BUM Code. Please capture a Correct
> value or |use the Lookup to Assist you.')
>        Select(?)
>        Cycle
>     End

> Event Button Accepted "..."
>  !--- Force a Selection of the BNU Codes for the system
>  SelectBNU(PTX:TRAType,lv:Analysis,PTX:BUMID,Glo:UsrID,'Y')

> Thanks
> JVZ

> >> If it is 0 0r Benign THEN big Problem!!!!

> >You'll need to give the details of the method including prototype. It
> >likely has nothing to do with the actual return value itself.  If your
> >using abc class methods be sure you have _abcdllmode_ and _abclinkmode_
> >set
> >----------------------------------
> >Jim Kane
> >Team SoftVelocity
> >Productive Software Solutions
> >Cant find the message?
> >Get Organized, Get ForKeeps
> >www.fkeeps.com

> Johan van Zyl - Somerset West - South Africa

> DenTec2000 - Short Term Insurance Broker Applications - Pastel Dealer
> Hospital Plan - Premium, Debit Order and Claims Management
> Retirement Planning Calc - Download form our web site.
> Using CPD 2.110, CW5EEb ABC
> File Manager 2, Wise Installation
> Clarion/Pastel Accounting Systems discussion list
> to join: http://cwpastel.listbot.com

> Clarion/MS SQL Discussion List
> to join: http://clarionmssql.listbot.com or http://www.jvz.co.za/mssql

>-Mike

>(p.s. Add ,PROC to your prototype to avoid the "calling function as
>procedure" compiler error)

>> Prototype
>> (string,*string,*long,<long>,string),Long
>> Parameters
>> (TRAType,*ScrVar,*BUMId,UserID,Lookup)
>> Return Value
>> LOC:ReturnValue

>> Code calling this procedure

>> Init
>>   !--- Setup the Screen to display the BUMID
>>   If PTX:BUMID ~= 0
Causes error
>>    a#=SelectBNU(PTX:TRAType,lv:Analysis,PTX:BUMID,Glo:UsrID,'N')
>>   End !if

>> Capture Variable Accepted Button
>>     !---Check if What has been captured is Found in the BUM ID
>>     ThisWindow.Update    ! Update the Buffers from the Screen
>>     Save# = PTX:BUMID    ! Save Previous Value of BUMID
>>     PTX:BUMID = 0        ! Reset it for Lookup Purposes

>> Thanks
>> JVZ

>> >> If it is 0 0r Benign THEN big Problem!!!!

>> >You'll need to give the details of the method including prototype. It
>> >likely has nothing to do with the actual return value itself.  If your
>> >using abc class methods be sure you have _abcdllmode_ and _abclinkmode_
>> >set
>> >----------------------------------
>> >Jim Kane
>> >Team SoftVelocity
>> >Productive Software Solutions
>> >Cant find the message?
>> >Get Organized, Get ForKeeps
>> >www.fkeeps.com

>> Johan van Zyl - Somerset West - South Africa

>> DenTec2000 - Short Term Insurance Broker Applications - Pastel Dealer
>> Hospital Plan - Premium, Debit Order and Claims Management
>> Retirement Planning Calc - Download form our web site.
>> Using CPD 2.110, CW5EEb ABC
>> File Manager 2, Wise Installation
>> Clarion/Pastel Accounting Systems discussion list
>> to join: http://cwpastel.listbot.com

>> Clarion/MS SQL Discussion List
>> to join: http://clarionmssql.listbot.com or http://www.jvz.co.za/mssql

>if ptx is a file and the file is not open yet, that may be the problem.
>Also in your parameter list, it is unusual to have have *something as a
>prameter name.
>----------------------------------
>Jim Kane
>Team SoftVelocity
>Productive Software Solutions
>Cant find the message?
>Get Organized, Get ForKeeps
>www.fkeeps.com

>Ok, From the number of !message( statements I assume the gpf is not
>occurring until the actual return() statement.  I also assume that the gpf
>is occurring regardless of weather BumID is 0 or <>0 (i.e. both lookup
>blocks).

> 1. If change all of the Level:Benign references to Level:Notify do you
>still GPF?
NO

> 2. Change the return value in the prototype from Long to Byte (and the
>declaration of LOC:ReturnValue to match)

> >Johan,

> >Ok, From the number of !message( statements I assume the gpf is not
> >occurring until the actual return() statement.  I also assume that the
gpf
> >is occurring regardless of weather BumID is 0 or <>0 (i.e. both lookup
> >blocks).
> It does not iccur when I pass a BumID that does not exist in BUM File
> or when BUMId=0 an dthe ScrVar does not exist in the BUM File i.e.
> when it returns level:notify it does not give an error.
> It only gives an error when BUMID <>0 but contains a value that exists
> in BUM File AND also when BUMID =0 and ScrVar contains a value that
> exists in BUM file i.e. when level:benign (or LOC:ReturnValue=0) it
> giv ethe error.
> > But I still think that there is something else going on. Please
> >test the following:

> > 1. If change all of the Level:Benign references to Level:Notify do you
> >still GPF?
> NO

> > 2. Change the return value in the prototype from Long to Byte (and the
> >declaration of LOC:ReturnValue to match)
> Did that - still Illegal Operation
> > 3. If BumID is 0, move ScrVar into a local string so the ParseScrVarIn
> >routine isn't working against the variable passed by reference.
> Here is what the routine does - do you think it can have an influence?
> ParseScrVarIn ROUTINE
>       !message('ParseScrVarIn ROUTINE')
>       If sub(ScrVar,len(clip(ScrVar)),1)<>'/'
>         ScrVar=Clip(ScrVar)&'/'
>       end
>       Clear(LOC:FL[])
>       LOC:Count=0
>       LOC:SS=1
>       loop i#=1 to len(clip(ScrVar))
>           If Sub(ScrVar,i#,1)='/'
>               LOC:Count+=1
>               LOC:FL[LOC:Count]=ScrVar[LOC:SS : i#-1]
>               LOC:SS=i#+1
>               LOC:Fl[LOC:count]=left(LOC:Fl[LOC:count])
>           end
>       end
>       !Message(ScrVar&' In Routine')
>       BUM:Level1=LOC:FL[1]
>       BUM:Level2=LOC:FL[2]
>       BUM:Level3=LOC:FL[3]
>       BUM:Level4=LOC:FL[4]
>       BUM:Level5=LOC:FL[5]
>       BUM:Level6=LOC:FL[6]
>       BUM:Level7=LOC:FL[7]
>       BUM:Level8=LOC:FL[8]
>       BUM:Level9=LOC:FL[9]
>       BUM:Level10=LOC:FL[10]

> >-Mike

> Johan van Zyl - Somerset West - South Africa

> DenTec2000 - Short Term Insurance Broker Applications - Pastel Dealer
> Hospital Plan - Premium, Debit Order and Claims Management
> Retirement Planning Calc - Download form our web site.
> Using CPD 2.110, CW5EEb ABC
> File Manager 2, Wise Installation
> Clarion/Pastel Accounting Systems discussion list
> to join: http://cwpastel.listbot.com

> Clarion/MS SQL Discussion List
> to join: http://clarionmssql.listbot.com or http://www.jvz.co.za/mssql