Search results

Try the code below to have admin,demo1,system,test DEFINE VARIABLE ctest AS CHARACTER NO-UNDO. ctest = "demo,demo1,system,test" . ctest = "," + ctest + "," . ctest = replace(ctest , ",demo," , ",admin," ). ctest = TRIM (ctest , "," ). MESSAGE ctest VIEW-AS ALERT-BOX...

Hi Tom, I did a test on several hundred Db on our cloud that are using this SQL treatment, there are no real difference on DBread between "-Bp 6" and "-Bp 1000" (less than 1%), this is because : - We are doing sequential read to populate a datawarehouse. - there is no join, the index used have...

Hi I had the same issue with ABP and LRU2 on our cloud. It was due to SQL request which could read the empty blocks of a table (affect to the BP not ABP) which are in the last cluster (8 , 64 or 512 locks) of this table. The SQL engine put them in the ABP . When i changed the policy...

Hi, I am agree with Rob, You can set your parameters -baseindex and -basetableas" to -1,610 and -16,384. But if you want to minimze the cost in memory you could set -baseuserindex and -baseusertable to 1 and 1 (or 1 and -362). With a setting like this one , you elimante the big(ger) part of...

Session : DEBUG-ALERT = TRUE.

SESSION:DEBUG-ALERT = TRUE.

Hello, You can add this line at the begining of your source code SESSION:DEBUG-ALERT = TRUE. And press help to know where this issue is fired. The line number come from compile [PGM] debug-list [debug-list file]. Patrice

Hi Ron, If you : - set your startup parameters "-baseindex and -basetableas" to -1,610 and -16,384 (in your post "Question about VST Table/Index I/O Statistics" ) - do not set -baseuserindex and -baseusertable, - have a big "-n" You could have a huge number of record in the VST...

Hi, I had a case like this one on a test machine (and describe by Rob "Quiet points"). A sysdamdin try to proof that proquiet + snapshot is better than probkup + AI. But he forget to disable the proquiet. => read possible => No update allowed (inculding new connection which update the _connect)...

Hello, This is not exactly an answer for your post but it could give you a glue Not exactly because I am dealing with several thousands DB on our own cloud, we are using more than 20 Virtual machine. At 10H00, this Morning on 1 VM i had : - 542 DB start - 12 637 users connected to thoses DB -...

Hello, I did not read the complet post, Sometime the compile is too long because there are fields in your sourceocde without their table name. (using "ordernum" is bad , "orderline.ordernum" is better) You can have look on the access (read) of the VST (especially _field) , if the number of the...

With Progress 12, all DB have LARGE FILE ENABLED, you cannot create a Db without Enable Large File, and i you do convXX12 , it will active the Enable Large File. If you go To OE12 , you win this battle ... If they do not want Enable large File, they must define the last extend of your area...

If you will not use Enable Large file in the future, Look in your procedure if you have a "prostrct add [DB] [the-new.st]", you could probably replace it by an "prostrct addonline [DB] [the-new.st]" which could be run outside of the downtime (on a open DB).

Hi, If you are using "hBufferTarget:FIND-UNIQUE(vFindCriteria, NO-LOCK)", you could have a big activity on the VST _field (on ldbname(2) ), 1 read per field on the index and per record in the table . (for an index with 4 field and 10 000 records to compare , you will read 40 000 _field and 10...

Hi Schema Area is T1. I think you must enable B2 for the whole area, you can enable it for a table only if it is in a area T2 . So it is all (the table, index, LOB which are in the "Schema Area") or no nothing. Patrice

Hello, I am using some things which is very similar without "Share-lock" in my code but a share-lock on my record at the end of the transaction. Do Transaction : Find first [Record] Where [ What you want on a Uniq index with all the fields of this index] Exclusive-lock No-wait No-error...

Hi It could be several reasons. One of them is "a transaction is open" If you want to know what is the Reason you can modify your source to have the error . Patrice DISCONNECT abfhero NO-ERROR. DEF VAR v-c-error AS CHAR NO-UNDO. DEF VAR ixerr AS INT NO-UNDO. IF...

Hi , A little more explanation on the word "packet" , i am not using it for the packet send/recived in this case. When you are using a Break by / First-Of / Last-Of , your query know the "next" record to evaluate the "Last" , i am using the word "packet" for the records that your query "know"...

Hi Adding an index will solve the isuse in most of case . But if the record is in the "packet" received it will not work , You can try the code below there is only 3 record in the Temp-Table instead of 4 and the update is on record "3" . def temp-table tt-test field id as int field...

Hi It is a little bit difficult without the index But You should/could: - replace the CAN-DO by LOOKUP . - (int(substr(corpdata.AFI_FORM_UPDATER.ACTION_DATE,1,4)) = YEAR(mSYSDATE) By corpdata.AFI_FORM_UPDATER.ACTION_DATE Begins String(YEAR(mSYSDATE) , "9999" ) (and perhaps By...