Pushbutton method size limit?

[jlockley]

Pdx gives an out an out of memory error on the pushbutton method below if it is expanded to about 31Kb. The error comes at the 16kb point. the functioning script is 19kb. Is there a size limit on methods?

if not, what else could be causing the error? BDE is maximized. Obviously not a ram or space issue.

Thx.

(btw, I am unable to switch to another db until there is a method of transporting Blob fields, so please do not advise to do it.)

method pushButton(var eventInfo Event)

var
stNAME String
stlocation String
stTITLE String
stPARTNER String
stENTRY_DATE Anytype
stTelephone String
stFax String
stWphone String
stCell_pgr String
ste_mail String
stweb_site String
stAddress String
stCity String
stState String
stZip String
stCountry String
stInformation String
stPreferred_Location String
stLocation_Type String
stRestaurant String
stREST_S String
stWinery String
stR_STAR String
stR_CORP String
stCLUB String
stCL_TOP String
stHOT String
stTop_Hotel String
stConvention_Ctr String
stCasino String
stInn_Bed_Breakfast String
stLodge_Guest_Ranch String
stMaritime String
stHOT_UNIT String
stLuxury_Resort String
stRd String
stCOMM String
stCTG String
stFS String
stDELI_HRM String
stFamily String
stChain String
stQuick_Serve String
stRetail String
stBAKERY_RTL String
stBakery_Comm String
stBKRY_WHLS String
stDOM String
stSchool String
stQUAL String
stSEAT_NR String




quQuery Query
tvResults tableView
endvar

;parameters

stNAME = fldNAME.value
stLOCATION = fldlocation.value
stTITLE = fldtitle.value
stPARTNER = fldPARTNER.value
stENTRY_DATE = fldentry_Date'value
stTelephone = fldtelephone'value
stFax = fldfax.value
stWphone = fldwphone'value
stCell_pgr = fldcell_Pgr'value
ste_mail = flde_Mail'value
stweb_site = fldweb_Site'value
stAddress = fldaddress'value
stCity = fldcity'value
stState = fldstate'value
stZip = fldzip'value
stCountry = fldcountry'value
stInformation = fldinformation'value
stPreferred_Location = fldpreferred_Location'value
stLocation_Type = fldlocation_Type'value
stRestaurant = fldRestaurant'value
stREST_S = fldREST_S'value
stWinery = fldWinery'value
stR_VOL = fldR_Vol
;...new
stR_STAR = fldr_Star'value
stR_CORP = fldR_Corp'value
stCLUB = fldCLUB'value
stCL_TOP = fldCL_TOP'value
stHOT = fldHOT'value
stTop_Hotel = fldTop_Hotel'value
stConvention_Ctr = fldConvention_Ctr'value
stCasino = fldCasino'value
stInn_Bed_Breakfast = fldinn_Bed_Breakfast'value
stLodge_Guest_Ranch = fldLodge_Guest_Ranch'value
stMaritime = fldMaritime'value
stHOT_UNIT = fldhot_Unit'value
stLuxury_Resort = fldluxury_Resort'value
stRd = fldrd'value
stCOMM = fldcomm'value
stCTG = fldctg'value
stFS = fldfs'value
stDELI_HRM = flddeli_Hrm'value
stFamily = fldfamily'value
stChain = fldchain'value
stQuick_Serve = fldquick_Serve'value
stRetail = fldretail'value
stBAKERY_RTL = fldbakery_Rtl'value
stBakery_Comm = fldbakery_Comm'value
stBKRY_WHLS = fldbkry_Whls'value
stDOM = flddom'value
stSchool = fldschool'value
stQUAL = fldqual'value
stSEAT_NR = fldseat_Nr'value
:===parameters
if StNAME.isBlank() then
StNAME = "Check"
else
StNAME = "Check " + StNAME
endif
;.................
if stLOCATION.isBlank() then
stLOCATION = "Check"
else
stLOCATION = "Check " + stLOCATION
endif
;.................
if stTITLE.isBlank() then
stTITLE = "Check"
else
stTITLE = "Check " + stTITLE
endif
;.................
if stPARTNER.isBlank() then
stPARTNER = "Check"
else
stPARTNER = "Check " + stPARTNER
endif
;.................
if stENTRY_DATE.isBlank() then
stENTRY_DATE = "Check"
else
stENTRY_DATE = "Check " + stENTRY_DATE
endif
if stTelephone.isBlank() then
stTelephone = "Check"
else
stTelephone = "Check " + stTelephone
endif


if stFax.isBlank() then
stFax = "Check"
else
stFax = "Check " + stFax
endif

if stWphone.isBlank() then
stWphone = "Check"
else
stWphone = "Check " + stWphone
endif

if stCell_pgr.isBlank() then
stCell_pgr = "Check"
else
stCell_pgr = "Check " + stCell_pgr
endif

if ste_mail.isBlank() then
ste_mail = "Check"
else
ste_mail = "Check " + ste_mail
endif

if stweb_site.isBlank() then
stweb_site = "Check"
else
stweb_site = "Check " + stweb_site
endif

if stAddress.isBlank() then
stAddress = "Check"
else
stAddress = "Check " + stAddress
endif

if stCity.isBlank() then
stCity = "Check"
else
stCity = "Check " + stCity
endif

if stState.isBlank() then
stState = "Check"
else
stState = "Check " + stState
endif

if stZip.isBlank() then
stZip = "Check"
else
stZip = "Check " + stZip
endif

if stCountry.isBlank() then
stCountry = "Check"
else
stCountry = "Check " + stCountry
endif
if stInformation.isBlank() then
stInformation = "Check"
else
stInformation = "Check " + stInformation
endif
if stPreferred_Location.isBlank() then
stPreferred_Location = "Check"
else
stPreferred_Location = "Check " + stPreferred_Location
endif
if stLocation_Type.isBlank() then
stLocation_Type = "Check"
else
stLocation_Type = "Check " + stLocation_Type
endif
if stRestaurant.isBlank() then
stRestaurant = "Check"
else
stRestaurant = "Check " + stRestaurant
endif

if stREST_S.isBlank() then
stREST_S = "Check"
else
stREST_S = "Check " + stREST_S
endif
if stWinery.isBlank() then
stWinery = "Check"
else
stWinery = "Check " + stWinery
endif

if stR_VOL.isBlank() then
stR_VOL = "Check"
else
stR_VOL = "Check " + stR_VOL
endif

if stR_STAR.isBlank() then
stR_STAR = "check"
else
stR_STAR = "check " + stR_STAR
endif


if stR_CORP.isBlank() then
stR_CORP = "Check"
else
stR_CORP = "Check " + stR_CORP
endif

if stCLUB.isBlank() then
stCLUB = "Check"
else
stCLUB = "Check " + stCLUB
endif

if stCL_TOP.isBlank() then
stCL_TOP = "Check"
else
stCL_TOP = "Check " + stCL_TOP
endif

if stHOT.isBlank() then
stHOT = "Check"
else
stHOT = "Check " + stHOT
endif

if stTop_Hotel.isBlank() then
stTop_Hotel = "Check"
else
stTop_Hotel = "Check " + stTop_Hotel
endif



if stConvention_Ctr.isBlank() then
stConvention_Ctr = "Check"
else
stConvention_Ctr = "Check " + stConvention_Ctr
endif

if stCasino.isBlank() then
stCasino = "Check"
else
stCasino = "Check " + stCasino
endif

if stInn_Bed_Breakfast.isBlank() then
stInn_Bed_Breakfast= "Check"
else
stInn_Bed_Breakfast = "Check " + stInn_Bed_Breakfast
endif

if stLodge_Guest_Ranch.isBlank() then
stLodge_Guest_Ranch = "check" else
Lodge_Guest_Ranch = "Check" + stLodge_Guest_Ranch
endif

if stMaritime.isBlank() then
stMaritime = "Check"
else
stMaritime = "Check " + stMaritime
endif

if stHOT_UNIT.isBlank() then
stHOT_UNIT = "Check"
else
stHOT_UNIT = "Check " + stHOT_UNIT
endif

if stLuxury_Resort.isBlank() then
stLuxury_Resort = "Check"
else
stLuxury_Resort = "Check " + stLuxury_Resort
endif

if stRd.isBlank() then
stRd = "Check"
else
stRd = "Check " + stRd
endif

if stCOMM.isBlank() then
stCOMM = "Check"
else
stCOMM = "Check " + stCOMM
endif

if stCTG.isBlank() then
stCTG = "Check"
else
stCTG = "Check " + stCTG
endif

if stFS.isBlank() then
stFS = "Check"
else
stFS = "Check " + stFS
endif

if stDELI_HRM.isBlank() then
stDELI_HRM = "Check"
else
stDELI_HRM = "Check " + stDELI_HRM
endif


if stFamily.isBlank() then
stFamily = "Check"
else
stFamily = "Check " + stFamily
endif

if stChain.isBlank() then
stChain = "Check"
else
stChain = "Check " + stChain
endif

if stQuick_Serve.isBlank() then
stQuick_Serve = "Check"
else
stQuick_Serve = "Check " + stQuick_Serve
endif

if stRetail.isBlank() then
stRetail = "Check"
else
stRetail = "Check " + stRetail
endif

if stBAKERY_RTL.isBlank() then
stBAKERY_RTL = "Check"
else
stBAKERY_RTL = "Check " + stBAKERY_RTL
endif



if stBakery_Comm.isBlank() then
stBakery_Comm = "Check"
else
stBakery_Comm = "Check " + stBakery_Comm
endif

if stBKRY_WHLS.isBlank() then
stBKRY_WHLS = "Check"
else
stBKRY_WHLS = "Check " + stBKRY_WHLS
endif

if stDOM.isBlank() then
stDOM = "Check"
else
stDOM = "Check " + stDOM
endif

if stSchool.isBlank() then
stSchool = "Check"
else
stSchool = "Check " + stSchool
endif

if stQUAL.isBlank() then
stQUAL = "Check"
else
stQUAL = "Check " + stQUAL
endif

if stSEAT_NR.isBlank() then
stSEAT_NR = "Check"
else
stSEAT_NR = "Check " + stSEAT_NR
endif
;**********************

quQuery = QUERY

ANSWER: :WORK:Results.db

newrol.DB | NAME | LOCATION | TITLE |
| ~stNAME| ~stLOCATION | ~stTITLE |

newrol.DB | PARTNER | ENTRY_DATE | Telephone |
|~stPARTNER | ~stENTRY_DATE | ~stTelephone |


newrol.DB | Fax | Wphone | Cell_pgr | e_mail |
|~stFax | ~stWphone | ~stCell_pgr | ~ste_mail |

newrol.DB| web_site | Address | City |
|~stweb_site | ~stAddress | ~stCity |


newrol.DB | State | Zip | Country | Information | Preferred_Location |
| ~stState | ~stZip | ~stCountry | ~stInformation | ~stPreferred_Location |

newrol.DB | Location_Type | Restaurant |
| ~stLocation_Type | ~stRestaurant |

newrol.DB | REST_S | Winery | R_VOL |
| ~stREST_S | ~stWinery | ~stR_VOL |

newrol.DB | R_STAR | R_CORP | CLUB |
| ~stR_STAR | ~stR_CORP | ~stCLUB |

newrol.DB | CL_TOP | HOT | Top_Hotel | Convention_Ctr | Casino |
| ~stCL_TOP | ~stHOT | ~stTop_Hotel | ~stConvention_Ctr | ~stCasino |

newrol.DB | Inn_Bed_Breakfast | Lodge_Guest_Ranch | Maritime | HOT_UNIT |
| ~stInn_Bed_Breakfast | ~stLodge_Guest_Ranch | ~stMaritime | ~stHOT_UNIT |

newrol.DB | Luxury_Resort | Rd | COMM | CTG | FS | DELI_HRM |
| ~stLuxury_Resort|~stRd | ~stCOMM | ~stCTG| ~stFS | ~stDELI_HRM |


newrol.DB | Family | Chain | Quick_Serve | Retail | BAKERY_RTL |
| ~stFamily | ~stChain| ~stQuick_Serve | ~stRetail | ~stBAKERY_RTL |

newrol.DB | Bakery_Comm | BKRY_WHLS | DOM | School | QUAL | SEAT_NR |
| ~stBakery_Comm | ~stBKRY_WHLS | ~stDOM | ~stSchool| ~stQUAL | ~stSEAT_NR |

ENDQUERY

errorTrapOnWarnings(Yes)
quQuery.writeQBE(":Work:SearchQuery.QBE")
try
quQuery.executeQBE()
tvResults.open(":WORK:results.DB")
tvResults.wait()
tvResults.close()
onFail
errorShow()
msgStop("", "")
endTry
errorTrapOnWarnings(No)

endMethod