プログラムコードの最適化 (2016)

ϓϩάϥϜίʔυͷ࠷దԽ code optimisation Olivier Deschanels, Senior Consultant ΦϦϏΤɾσγϟωϧ

ίʔυͷ࠷దԽ͸ઈରʹඞཁ optimise your code, you must

ίʔυͷ࠷దԽ͸ઈରʹඞཁ optimise your code, you must レスポンスの速度を向上させるためにリクエストの効率を良くするためにトラフィック量を減らすためにコードを簡易にするために
保守を楽にするために将来に備えるために

ίʔσΟϯάΛ࢝ΊΔલʹʜ before coding …

ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy was an incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy was an incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ ͨͱ͑ࣗ෼͕།Ұͷ։ൃऀͩͱͯ͠΋ॏཁ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy was an incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy was an incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ ࣮ࡍͷσʔλΛೖख͢Δ·Ͱ͸։ൃʹணख͠ͳ͍ ͞΋ͳ͚Ε͹࣮ࡍͷσʔλͰτϥϒϧʹ௚໘͢Δ͜ͱʹ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy was an
incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ 3 σʔλΛഒʹ૿΍͔ͯ͠Β࡞ۀΛ։࢝ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy was an
incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ 3 σʔλΛഒʹ૿΍͔ͯ͠Β࡞ۀΛ։࢝ ਺೥ޙʹίʔυΛݟ௚͢ΑΓ΋ σʔλΛഒʹ૿΍͢΄͏͕؆୯ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy
was an incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ 3 σʔλΛഒʹ૿΍͔ͯ͠Β࡞ۀΛ։࢝ 4 ΩϟογϡαΠζΛӡ༻؀ڥʹ߹ΘͤΔ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy
was an incurable optimist

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ 3 σʔλΛഒʹ૿΍͔ͯ͠Β࡞ۀΛ։࢝ 4 ΩϟογϡαΠζΛӡ༻؀ڥʹ߹ΘͤΔ ӡ༻؀ڥͷεϖοΫ͕ෆ໌Ͱ͋Ε͹ ࢓༷Λ͖ͪΜͱจॻԽ͢Δྑ͍ػձ

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ 3 σʔλΛഒʹ૿΍͔ͯ͠Β࡞ۀΛ։࢝ 4 ΩϟογϡαΠζΛӡ༻؀ڥʹ߹ΘͤΔ 5 ΠʔαωοτΛ੾ͬͯXJpͰΫϥΠΞϯταʔόʔΛݕূ

1 ΫϥΠΞϯταʔόʔ൛Ͱ։ൃͱݕূ 2 ࣮ࡍͷσʔλΛ༻ҙ 3 σʔλΛഒʹ૿΍͔ͯ͠Β࡞ۀΛ։࢝ 4 ΩϟογϡαΠζΛӡ༻؀ڥʹ߹ΘͤΔ 5 ΠʔαωοτΛ੾ͬͯXJpͰΫϥΠΞϯταʔόʔΛݕূ
։ൃ؀ڥͰ஗͍ωοτϫʔΫΛ࢖༻͍ͯ͠Ε͹ ͦΕ͚ͩӡ༻؀ڥͰ͸շదʹಈ͘ ϚʔϑΟ͸ۃ౓ͷָ؍ओٛऀͩͬͨ Murphy was an incurable optimist

αʔόʔ൛ͱελϯυΞϩϯ͸ผ෺ C/S isn't just a multiprocess standalone

ελϯυΞϩϯ൛ ΫϥΠΞϯταʔόʔ൛ αʔόʔ൛ͱελϯυΞϩϯ͸ผ෺ C/S isn't just a multiprocess standalone

ελϯυΞϩϯ൛ ΫϥΠΞϯταʔόʔ൛ スタンドアロン版でしかコードを検証していなかった … αʔόʔ൛ͱελϯυΞϩϯ͸ผ෺ C/S isn't just a multiprocess
standalone

ελϯυΞϩϯ൛ ΫϥΠΞϯταʔόʔ൛ スタンドアロン版でしかコードを検証していなかった … 何が起きているのか理解するためにC/S版でデバッグと検証が必要 … αʔόʔ൛ͱελϯυΞϩϯ͸ผ෺ C/S isn't just
a multiprocess standalone

ελϯυΞϩϯ൛ ΫϥΠΞϯταʔόʔ൛ スタンドアロン版でしかコードを検証していなかった … 何が起きているのか理解するためにC/S版でデバッグと検証が必要 … 最初からC/S版で開発していれば時間の節約に αʔόʔ൛ͱελϯυΞϩϯ͸ผ෺ C/S isn't
just a multiprocess standalone

XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

ฒͼସ͑ NT NT NT NT NT Πʔαωοτ 8Jp ྫ؆୯ͳฒͼସ͑ XJGJͰ஗ԆΛࡍཱͨͤΔ
wifi makes delays worse

ฒͼସ͑ NT NT NT NT NT Πʔαωοτ 8Jp ྫ؆୯ͳฒͼସ͑ x
1.2 XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

ܭࢉʹཁͨ࣌ؒ͠ 0 ms 3,750 ms 7,500 ms 11,250 ms 15,000
ms Πʔαωοτ 8Jp ྫࢦఆͨ͠೔෇ʹಛఆͷۭߓ͔Β໨త஍·Ͱߦ͚ΔϑϥΠτΛݕࡧ ৐Γܧ͗ճ͕ϧʔτ XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

ܭࢉʹཁͨ࣌ؒ͠ 0 ms 3,750 ms 7,500 ms 11,250 ms 15,000
ms Πʔαωοτ 8Jp ྫࢦఆͨ͠೔෇ʹಛఆͷۭߓ͔Β໨త஍·Ͱߦ͚ΔϑϥΠτΛݕࡧ ৐Γܧ͗ճ͕ϧʔτ x 7.5 XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

ܭࢉʹཁͨ࣌ؒ͠ 0 ms 3,750 ms 7,500 ms 11,250 ms 15,000
ms Πʔαωοτ 8Jp ྫࢦఆͨ͠೔෇ʹಛఆͷۭߓ͔Β໨త஍·Ͱߦ͚ΔϑϥΠτΛݕࡧ ৐Γܧ͗ճ͕ϧʔτ x 7.5 Time with 'execute on server' method attribute "サーバー上で実⾏メソッド"属性を有効にした場合 XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

ܭࢉʹཁͨ࣌ؒ͠ 0 ms 3,750 ms 7,500 ms 11,250 ms 15,000
ms Πʔαωοτ 8Jp ྫࢦఆͨ͠೔෇ʹಛఆͷۭߓ͔Β໨త஍·Ͱߦ͚ΔϑϥΠτΛݕࡧ ৐Γܧ͗ճ͕ϧʔτ XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

ܭࢉʹཁͨ࣌ؒ͠ 0 ms 3,750 ms 7,500 ms 11,250 ms 15,000
ms Πʔαωοτ 8Jp ྫࢦఆͨ͠೔෇ʹಛఆͷۭߓ͔Β໨త஍·Ͱߦ͚ΔϑϥΠτΛݕࡧ ৐Γܧ͗ճ͕ϧʔτ ÷23 ÷6 XJGJͰ஗ԆΛࡍཱͨͤΔ wifi makes delays worse

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should 1 σόοάϩάͷه࿥Λ։࢝͢Δ

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should 1 σόοάϩάͷه࿥Λ։࢝͢Δ SET
DATABASE PARAMETER(Debug log recording;2+4+8+16)

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should 1 σόοάϩάͷه࿥Λ։࢝͢Δ 2
ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͢Δ

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͢Δ 3 σόοάϩάͷه࿥Λఀࢭ͢Δ

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͢Δ 3 SET DATABASE PARAMETER(Debug log recording;0) σόοάϩάͷه࿥Λఀࢭ͢Δ

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͢Δ 3 σόοάϩάͷه࿥Λఀࢭ͢Δ 4 ετϥΫνϟͱಉ֊૚ͷlogsϑΥϧμʔΛ։͘

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͢Δ 3 σόοάϩάͷه࿥Λఀࢭ͢Δ 4 ετϥΫνϟͱಉ֊૚ͷlogsϑΥϧμʔΛ։͘ 5 4DDebugLog_1.txtϑΝΠϧΛ։͘

৘ใྔʹѹ౗͞Εͳ͍ͨΊʹ͸ too much info; select you must

৘ใྔʹѹ౗͞Εͳ͍ͨΊʹ͸ too much info; select you must ؂ࢹର৅ίϚϯυΛߜΓࠐΉ 1

৘ใྔʹѹ౗͞Εͳ͍ͨΊʹ͸ too much info; select you must ؂ࢹର৅ίϚϯυΛߜΓࠐΉ ΤΫεϓϩʔϥʔͰίϚϯυΛબ୒͢Δ 1
2

৘ใྔʹѹ౗͞Εͳ͍ͨΊʹ͸ too much info; select you must ؂ࢹର৅ίϚϯυΛߜΓࠐΉ ΤΫεϓϩʔϥʔͰίϚϯυΛબ୒͢Δ ίϚϯυ൪߸ʢྫʣΛ֬ೝ͢Δ
1 2 3

ಛఆͷίϚϯυʹϩάΛݶఆ͢Δ 1 2 3 4

ಛఆͷίϚϯυʹϩάΛݶఆ͢Δ SET DATABASE PARAMETER(Log command list;"277") SET DATABASE PARAMETER(Debug log recording;2+4+8+16) 1 2 3 4

ಛఆͷίϚϯυʹϩάΛݶఆ͢Δ SET DATABASE PARAMETER(Log command list;"277") SET DATABASE PARAMETER(Debug log recording;2+4+8+16) SET DATABASE PARAMETER(Log command list;"277;341") SET DATABASE PARAMETER(Debug log recording;2+4+8+16) 1 2 3 4

ಛఆͷίϚϯυʹϩάΛݶఆ͢Δ SET DATABASE PARAMETER(Log command list;"277") SET DATABASE PARAMETER(Debug log recording;2+4+8+16) SET DATABASE PARAMETER(Log command list;"277;341") SET DATABASE PARAMETER(Debug log recording;2+4+8+16) QUERY (277) および   QUERY SELECTION (341) コマンドを監視 1 2 3 4

ϑϥάͷ໾ׂ set the flags

SET DATABASE PARAMETER(Debug log recording; 2 + 4 + 8
+ 16) ϑϥάͷ໾ׂ set the flags

SET DATABASE PARAMETER(Debug log recording; 2 + 4 + 8
+ 16) 2 : 引数も記録（メソッドおよびコマンド） 4 : タブ区切りフォーマット 8 : 遅延書き込みモード 16 : プラグインも対象 ϑϥάͷ໾ׂ set the flags

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should 1 ͋ΒΏΔϝιουίʔϧΛ؂ࢹ͢Δ

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should 1 ͋ΒΏΔϝιουίʔϧΛ؂ࢹ͢Δ SET
DATABASE PARAMETER(Log command list;"") SET DATABASE PARAMETER(Debug log recording;4+8+16)

ࣗ෼ͷίʔυΛঠѲ͢Δ know your code activity, you should 1 ͋ΒΏΔϝιουίʔϧΛ؂ࢹ͢Δ 2
ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͔ͯ͠ΒϩάΛఀࢭͯ͠։͘

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͔ͯ͠ΒϩάΛఀࢭͯ͠։͘ 3 ϩάʹ͸ϝιουίʔϧ͚͕ͩه࿥͞Ε͍ͯΔ

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͔ͯ͠ΒϩάΛఀࢭͯ͠։͘ 3 ϩάʹ͸ϝιουίʔϧ͚͕ͩه࿥͞Ε͍ͯΔ 4 ۭͷςʔϒϧʹϩάΛΠϯϙʔτ͢Δ

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͔ͯ͠ΒϩάΛఀࢭͯ͠։͘ 3 ϩάʹ͸ϝιουίʔϧ͚͕ͩه࿥͞Ε͍ͯΔ 4 ۭͷςʔϒϧʹϩάΛΠϯϙʔτ͢Δ 5 ϩάΛௐࠪ͢Δ

ී௨ʹΞϓϦέʔγϣϯΛ࢖༻͔ͯ͠ΒϩάΛఀࢭͯ͠։͘ 3 ϩάʹ͸ϝιουίʔϧ͚͕ͩه࿥͞Ε͍ͯΔ 4 ۭͷςʔϒϧʹϩάΛΠϯϙʔτ͢Δ 5 ϩάΛௐࠪ͢Δ 6 ςΫχΧϧαϙʔτ͕ఏڙ͢Δπʔϧ܈Λ׆༻͢Δ

1 σόοάϩά͸σΟεΫ༰ྔΛඞཁͱ͢Δ

1 σόοάϩά͸σΟεΫ༰ྔΛඞཁͱ͢Δ 2 σόοάϩάͰσΟεΫ͕͍ͬͺ͍ʹ

1 σόοάϩά͸σΟεΫ༰ྔΛඞཁͱ͢Δ 2 σόοάϩάͰσΟεΫ͕͍ͬͺ͍ʹ 3 ֎෦هԱ૷ஔͷϝʔΧʔ͸େتͼ

1 σόοάϩά͸σΟεΫ༰ྔΛඞཁͱ͢Δ 2 σόοάϩάͰσΟεΫ͕͍ͬͺ͍ʹ 3 ֎෦هԱ૷ஔͷϝʔΧʔ͸େتͼ 4 ϩάϑΝΠϧ͸.#ຖʹ෼ׂ͞Ε͍ͯΔ

1 σόοάϩά͸σΟεΫ༰ྔΛඞཁͱ͢Δ 2 σόοάϩάͰσΟεΫ͕͍ͬͺ͍ʹ 3 ֎෦هԱ૷ஔͷϝʔΧʔ͸େتͼ 4 ϩάϑΝΠϧ͸.#ຖʹ෼ׂ͞Ε͍ͯΔ 5 ϩά͕઎༗͢Δ༰ྔΛ཈੍͢Δ͜ͱ͕ඞཁ

1 σόοάϩά͸σΟεΫ༰ྔΛඞཁͱ͢Δ 2 σόοάϩάͰσΟεΫ͕͍ͬͺ͍ʹ 3 ֎෦هԱ૷ஔͷϝʔΧʔ͸େتͼ 4 ϩάϑΝΠϧ͸.#ຖʹ෼ׂ͞Ε͍ͯΔ 5 SET
DATABASE PARAMETER(Circular log limitation;10) ϩά͕઎༗͢Δ༰ྔΛ཈੍͢Δ͜ͱ͕ඞཁ

1 σόοάϩά͸σΟεΫ༰ྔΛඞཁͱ͢Δ 2 σόοάϩάͰσΟεΫ͕͍ͬͺ͍ʹ 3 ֎෦هԱ૷ஔͷϝʔΧʔ͸େتͼ 4 ϩάϑΝΠϧ͸.#ຖʹ෼ׂ͞Ε͍ͯΔ 5 SET
DATABASE PARAMETER(Circular log limitation;10) ϩά͕઎༗͢Δ༰ྔΛ཈੍͢Δ͜ͱ͕ඞཁ 10 x 10MB = 最⼤100MB

ݮྔ͠ͳ͚Ε͹ͳΒͳ͍ reduce the use of variables, you must

ม਺ͱγϯϘϧςʔϒϧʹ͍ͭͯ variable and variables table

1 ม਺͸ϝϞϦ಺ʹଘࡏ͢Δσʔλऩ༰ϘοΫεͷΑ͏ͳ΋ͷ ม਺ͱγϯϘϧςʔϒϧʹ͍ͭͯ variable and variables table

1 ม਺͸ϝϞϦ಺ʹଘࡏ͢Δσʔλऩ༰ϘοΫεͷΑ͏ͳ΋ͷ 2 ίʔυΛॻͨ͘Ίʹ͸ม਺͕ඞཁ ม਺ͱγϯϘϧςʔϒϧʹ͍ͭͯ variable and variables table

1 ม਺͸ϝϞϦ಺ʹଘࡏ͢Δσʔλऩ༰ϘοΫεͷΑ͏ͳ΋ͷ 2 ίʔυΛॻͨ͘Ίʹ͸ม਺͕ඞཁ 3 ίϯύΠϧ࣌ʹ͸ม਺໊ͷΧλϩά͕࡞੒͞ΕΔ ม਺ͱγϯϘϧςʔϒϧʹ͍ͭͯ variable and variables
table

1 ม਺͸ϝϞϦ಺ʹଘࡏ͢Δσʔλऩ༰ϘοΫεͷΑ͏ͳ΋ͷ 2 ίʔυΛॻͨ͘Ίʹ͸ม਺͕ඞཁ 3 ίϯύΠϧ࣌ʹ͸ม਺໊ͷΧλϩά͕࡞੒͞ΕΔ 4 ίϯύΠϧϞʔυͰ͸ɼ͜ͷΧλϩά͕ϓϩηεຖʹଘࡏ͢Δ ม਺ͱγϯϘϧςʔϒϧʹ͍ͭͯ variable
and variables table

1 ม਺͸ϝϞϦ಺ʹଘࡏ͢Δσʔλऩ༰ϘοΫεͷΑ͏ͳ΋ͷ 2 ίʔυΛॻͨ͘Ίʹ͸ม਺͕ඞཁ 3 ίϯύΠϧ࣌ʹ͸ม਺໊ͷΧλϩά͕࡞੒͞ΕΔ 4 ίϯύΠϧϞʔυͰ͸ɼ͜ͷΧλϩά͕ϓϩηεຖʹଘࡏ͢Δ 5 ͢΂ͯͷϓϩηεͰ͢΂ͯͷม਺͕ఆٛࡁΈίϯύΠϧϞʔυ
ม਺ͱγϯϘϧςʔϒϧʹ͍ͭͯ variable and variables table

1 ม਺͸ϝϞϦ಺ʹଘࡏ͢Δσʔλऩ༰ϘοΫεͷΑ͏ͳ΋ͷ 2 ίʔυΛॻͨ͘Ίʹ͸ม਺͕ඞཁ 3 ίϯύΠϧ࣌ʹ͸ม਺໊ͷΧλϩά͕࡞੒͞ΕΔ 4 ίϯύΠϧϞʔυͰ͸ɼ͜ͷΧλϩά͕ϓϩηεຖʹଘࡏ͢Δ 5 ͢΂ͯͷϓϩηεͰ͢΂ͯͷม਺͕ఆٛࡁΈίϯύΠϧϞʔυ
6 ม਺ͷΧλϩά͕ଘࡏ͢ΔίϯύΠϧϞʔυ ม਺ͱγϯϘϧςʔϒϧʹ͍ͭͯ variable and variables table

サーバークライアント#1 クライアント#2

P1 PR1 グローバルプロセス裏⽅のツインプロセスネットワーク接続このプロセスが実⾏ : - トリガ -
"サーバー上で実⾏"

P1 P2 PR1 PR2

P1 P2 $P3 PR1 PR2 ＄ローカルプロセス

P1 P2 $P3 PR1 PR2 P1' $P2' PR1'

P1 P2 $P3 PR1 PR2 P1' $P2' PR1' SP2 SP1
ストアドプロシージャー

WP2 WP3 WP1 Webプロセス

WP2 WP3 WP1 コンパイルモード

P1 P2 $P3 PR1 PR2 <> P1' $P2' PR1' SP2
SP1 WP2 WP3 WP1 インタープロセス変数テーブルコンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' SP2 SP1 WP2 WP3 WP1 コンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V SP2 SP1 WP2 WP3 WP1 プロセス変数テーブルコンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 SP1 WP2 WP3 WP1 コンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V コンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V V コンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V V V V コンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V V V V <> CV <> CV コンポーネント#1のインタープロセス変数テーブルコンポーネント#2のインタープロセス変数テーブルコンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V V V V <> CV <> CV <> CV <> CV <> CV <> CV コンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V V V V CV CV <> CV <> CV <> CV <> CV <> CV <> CV コンポーネント#1のプロセス変数テーブルコンポーネント#2のプロセス変数テーブルコンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V V V V CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV <> CV <> CV <> CV <> CV <> CV <> CV コンパイルモード

P1 P2 $P3 PR1 PR2 <> <> P1' $P2' <>
PR1' V V V V V SP2 V SP1 V WP2 V WP3 V WP1 V V V V CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV CV <> CV <> CV <> CV <> CV <> CV <> CV コンパイルモードプロセス変数テーブルのサイズに無頓着であってはいけない

ϓϩηεม਺ͷαΠζ control the size of process variables table

γϯϘϧϑΝΠϧੜ੒Λ༗ޮʹ 1 ϓϩηεม਺ͷαΠζ control the size of process variables table

γϯϘϧϑΝΠϧੜ੒Λ༗ޮʹ ίϯύΠϧ࣮ߦ 1 2 ϓϩηεม਺ͷαΠζ control the size of process
variables table

γϯϘϧϑΝΠϧੜ੒Λ༗ޮʹ ίϯύΠϧ࣮ߦ %#@4ZNCPMTUYUϑΝΠϧΛ։͘ 1 2 3 ϓϩηεม਺ͷαΠζ control the size
of process variables table

γϯϘϧϑΝΠϧੜ੒Λ༗ޮʹ ίϯύΠϧ࣮ߦ %#@4ZNCPMTUYUϑΝΠϧΛ։͘ ϓϩηεม਺αΠζʹ஫໨ 1 2 3 4 ϓϩηεม਺ͷαΠζ control
the size of process variables table

γϯϘϧϑΝΠϧੜ੒Λ༗ޮʹ ίϯύΠϧ࣮ߦ %#@4ZNCPMTUYUϑΝΠϧΛ։͘ ϓϩηεม਺αΠζʹ஫໨ ೔෇ͱαΠζΛεϓϨουγʔτͰ؅ཧʜ 1 2 3 4 5
ϓϩηεม਺ͷαΠζ control the size of process variables table

γϯϘϧςʔϒϧͷαΠζ decrease the size of process variables table

ະ࢖༻ͷม਺໊Λഉআ γϯϘϧςʔϒϧͷαΠζ decrease the size of process variables table 1

ະ࢖༻ͷม਺໊Λഉআ ࣅͨΑ͏ͳ໾ׂͷม਺໊͸໋໊نଇΛ౷Ұ γϯϘϧςʔϒϧͷαΠζ decrease the size of process variables table
1 2

ະ࢖༻ͷม਺໊Λഉআ bOk bValid bValidate b_Ok buttonOK ࣅͨΑ͏ͳ໾ׂͷม਺໊͸໋໊نଇΛ౷Ұ γϯϘϧςʔϒϧͷαΠζ decrease the
size of process variables table 1 2

ະ࢖༻ͷม਺໊Λഉআ ࣅͨΑ͏ͳ໾ׂͷม਺໊͸໋໊نଇΛ౷Ұ γϯϘϧςʔϒϧͷαΠζ decrease the size of process variables table
1 2

ະ࢖༻ͷม਺໊Λഉআ ࣅͨΑ͏ͳ໾ׂͷม਺໊͸໋໊نଇΛ౷Ұ ίʔυͰࢀর͢ΔΦϒδΣΫτͷม਺໊͚ͩΛઃఆ γϯϘϧςʔϒϧͷαΠζ decrease the size of process variables
table 1 2 3

ϑΥʔϜΦϒδΣΫτͷςϯϓϨʔτΛ׆༻ ະ࢖༻ͷม਺໊Λഉআ ࣅͨΑ͏ͳ໾ׂͷม਺໊͸໋໊نଇΛ౷Ұ ίʔυͰࢀর͢ΔΦϒδΣΫτͷม਺໊͚ͩΛઃఆ γϯϘϧςʔϒϧͷαΠζ decrease the size of process
variables table 1 2 3 4

ϑΥʔϜϩʔΧϧม਺ use dynamic variables

1 ϑΥʔϜ͕දࣔ͞Ε͍ͯΔ͚ؒͩଘࡏ͢Δ ϑΥʔϜϩʔΧϧม਺ use dynamic variables

1 ϑΥʔϜ͕දࣔ͞Ε͍ͯΔ͚ؒͩଘࡏ͢Δ 2 ϓϩηεม਺ͷγϯϘϧςʔϒϧʹ͸ؚ·Εͳ͍ ϑΥʔϜϩʔΧϧม਺ use dynamic variables

1 ϑΥʔϜ͕දࣔ͞Ε͍ͯΔ͚ؒͩଘࡏ͢Δ 2 ϓϩηεม਺ͷγϯϘϧςʔϒϧʹ͸ؚ·Εͳ͍ 3 ϓϩύςΟϦετʹج͍ͮͯܕ͕ܾΊΒΕΔ ϑΥʔϜϩʔΧϧม਺ use dynamic variables

ಓཧΛΘ͖·͑Δ͜ͱ΋ඞཁ don't push your luck

プロセス変数を使っても⼤丈夫です! ಓཧΛΘ͖·͑Δ͜ͱ΋ඞཁ don't push your luck

プロセス変数を使っても⼤丈夫です! ほんとう? それを聴いて安⼼した ಓཧΛΘ͖·͑Δ͜ͱ΋ඞཁ don't push your luck

プロセス変数を使っても⼤丈夫です! "最先端"であるためにコードを複雑にする必要はありません変数のサイズに気を配るのは⼤事ですが，極端に⾛らないで ಓཧΛΘ͖·͑Δ͜ͱ΋ඞཁ don't push your luck

プロセス変数を使っても⼤丈夫です! "最先端"であるためにコードを複雑にする必要はありません変数のサイズに気を配るのは⼤事ですが，極端に⾛らないでそれに今ならオブジェクト変数が… ಓཧΛΘ͖·͑Δ͜ͱ΋ඞཁ don't push your luck

ΦϒδΣΫτม਺ͰεοΩϦ group the variables in an object, you can

無数のフォームローカル変数をオブジェクト型のプロセス変数に置換: ΦϒδΣΫτม਺ͰεοΩϦ group the variables in an object, you
can

無数のフォームローカル変数をオブジェクト型のプロセス変数に置換: {"onTimerMessage":"refresh", "PreviousFormEvent":27, "LastKeystroke":"C", "OnErrorMethodToRestore":"General_Error_Call", "OnEventMethodToRestore":"", "CountryCustomer":"FR", "CurrentQuoteUUID":"EF455411221114778AB3ED45DD", "ListOfCountryInWishList":["US","FR","UK","SA","AU"]
} ΦϒδΣΫτม਺ͰεοΩϦ group the variables in an object, you can

} 1個のプロセス変数に保存: form_context ΦϒδΣΫτม਺ͰεοΩϦ group the variables in an object, you can

} 1個のプロセス変数に保存: form_context プロセス変数テーブルに 16バイト追加することに ΦϒδΣΫτม਺ͰεοΩϦ group the variables in an object, you can

} 1個のプロセス変数に保存: form_context プロセス変数テーブルに 16バイト追加することにわずか16バイトで整理できて⼤変お買い得! ΦϒδΣΫτม਺ͰεοΩϦ group the variables in an object, you can

} 1個のプロセス変数に保存: form_context プロセス変数テーブルに 16バイト追加することにわずか16バイトで整理できて⼤変お買い得! 属性を追加するだけ拡張: フォームにオブジェクトを追加する必要なし ΦϒδΣΫτม਺ͰεοΩϦ group the variables in an object, you can

ίϯςΩετม਺ͷྫ୊ example with a form_context

OB SET(form_context;"currentCountry";"France") $ref:=Open form window("country_selector") DIALOG("country_selector") CLOSE WINDOW($ref) $return_country:=OB Get(form_context;"currentCountry")
ίϯςΩετม਺ͷྫ୊ example with a form_context

$evt:=Form event Case of : ($evt=On Load) $currentCountry:=OB Get(form_context;"currentCountry") ALL RECORDS([Country]) DISTINCT VALUES([Country]Continent;_continent) If ($currentCountry="") _continent:=1 OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1) Else QUERY([Country];[Country]Name=$currentCountry) _continent:=Find in array(_continent;[Country]Continent) QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=Find in array(_country;$currentCountry) End if : ($evt=On Timer) SET TIMER(0) $onTimerMessage:=OB Get(form_context;"onTimerMessage";Is text) OB REMOVE(form_context;"onTimerMessage") Case of : ($onTimerMessage="changeContinent") QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=1 End case End case ίϯςΩετม਺ͷྫ୊ example with a form_context

$evt:=Form event Case of : ($evt=On Load) $currentCountry:=OB Get(form_context;"currentCountry") ALL RECORDS([Country]) DISTINCT VALUES([Country]Continent;_continent) If ($currentCountry="") _continent:=1 OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1) Else QUERY([Country];[Country]Name=$currentCountry) _continent:=Find in array(_continent;[Country]Continent) QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=Find in array(_country;$currentCountry) End if : ($evt=On Timer) SET TIMER(0) $onTimerMessage:=OB Get(form_context;"onTimerMessage";Is text) OB REMOVE(form_context;"onTimerMessage") Case of : ($onTimerMessage="changeContinent") QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=1 End case End case OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1) ίϯςΩετม਺ͷྫ୊ example with a form_context

$evt:=Form event Case of : ($evt=On Load) $currentCountry:=OB Get(form_context;"currentCountry") ALL RECORDS([Country]) DISTINCT VALUES([Country]Continent;_continent) If ($currentCountry="") _continent:=1 OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1) Else QUERY([Country];[Country]Name=$currentCountry) _continent:=Find in array(_continent;[Country]Continent) QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=Find in array(_country;$currentCountry) End if : ($evt=On Timer) SET TIMER(0) $onTimerMessage:=OB Get(form_context;"onTimerMessage";Is text) OB REMOVE(form_context;"onTimerMessage") Case of : ($onTimerMessage="changeContinent") QUERY([Country];[Country]Continent=_continent{_continent}) DISTINCT VALUES([Country]Name;_country) _country:=1 End case End case OB SET(form_context;"onTimerMessage";"changeContinent") SET TIMER(-1) OB SET(form_context;"currentCountry";_country{_country}) ACCEPT ίϯςΩετม਺ͷྫ୊ example with a form_context

ܰྔԽͰ଎౓Ξοϓ lighter is faster!

ϑΟʔϧυͷཚ։ൃۀऀ don't use every possible fields

こんにちは。150フィールドの者です。 ϑΟʔϧυͷཚ։ൃۀऀ don't use every possible fields

こんにちは。150フィールドの者です。はじめまして! ϑΟʔϧυͷཚ։ൃۀऀ don't use every possible fields

こんにちは。150フィールドの者です。はじめまして! いろんなケースに対応できるんですよ ϑΟʔϧυͷཚ։ൃۀऀ don't use every possible fields

こんにちは。150フィールドの者です。はじめまして! いろんなケースに対応できるんですよほんとうに? ϑΟʔϧυͷཚ։ൃۀऀ don't use every possible fields

こんにちは。150フィールドの者です。はじめまして! いろんなケースに対応できるんですよほんとうに? もちろん! 想定シナリオを100%網羅していますから ϑΟʔϧυͷཚ։ൃۀऀ don't use every
possible fields

こんにちは。150フィールドの者です。はじめまして! いろんなケースに対応できるんですよほんとうに? もちろん! 想定シナリオを100%網羅していますからでも，⼤概は普通のケースですよね? ϑΟʔϧυͷཚ։ൃۀऀ don't use
every possible fields

こんにちは。150フィールドの者です。はじめまして! いろんなケースに対応できるんですよほんとうに? もちろん! 想定シナリオを100%網羅していますからでも，⼤概は普通のケースですよね? 備えあれば憂いなし，ってね! ϑΟʔϧυͷཚ։ൃۀऀ don't
use every possible fields

こんにちは。150フィールドの者です。はじめまして! いろんなケースに対応できるんですよほんとうに? もちろん! 想定シナリオを100%網羅していますからでも，⼤概は普通のケースですよね? 備えあれば憂いなし，ってね! コスト的にはどうなの? ϑΟʔϧυͷཚ։ൃۀऀ
don't use every possible fields

こんにちは。150フィールドの者です。はじめまして! いろんなケースに対応できるんですよほんとうに? もちろん! 想定シナリオを100%網羅していますからでも，⼤概は普通のケースですよね? 備えあれば憂いなし，ってね! コスト的にはどうなの? 未使⽤フィールドは空だからタダですよ
ϑΟʔϧυͷཚ։ൃۀऀ don't use every possible fields

ະ࢖༻Ͱ΋ίετ͕ൃੜ empty isn't free

150フィールドのテーブル ະ࢖༻Ͱ΋ίετ͕ൃੜ empty isn't free

レコードのサイズ 150フィールドのテーブルヘッダー 32 バイト 32 バイトデータ実際のサイズ実際のサイズ
µストラクチャ 8 バイト×フィールド数 1,200 バイト合計最低 1.2 Kb レコード毎 150フィールドのテーブル ະ࢖༻Ͱ΋ίετ͕ൃੜ empty isn't free

ϑΟʔϧυͷංେԽΛආ͚Δ try to keep stable field sizes

a ਍࡯ه࿥ϑΟʔϧυ͸ױऀσʔλʹ෇ਵ ϑΟʔϧυͷංେԽΛආ͚Δ try to keep stable field sizes

a ਍࡯ه࿥ϑΟʔϧυ͸ױऀσʔλʹ෇ਵ b ਍࡯ͷͨͼʹσʔλ͕௥Ճ͞ΕΔ ϑΟʔϧυͷංେԽΛආ͚Δ try to keep stable field
sizes

a ਍࡯ه࿥ϑΟʔϧυ͸ױऀσʔλʹ෇ਵ b ਍࡯ͷͨͼʹσʔλ͕௥Ճ͞ΕΔ c ϨίʔυαΠζ͸ංେԽ͢Δ ϑΟʔϧυͷංେԽΛආ͚Δ try to keep
stable field sizes

a ਍࡯ه࿥ϑΟʔϧυ͸ױऀσʔλʹ෇ਵ b ਍࡯ͷͨͼʹσʔλ͕௥Ճ͞ΕΔ c ϨίʔυαΠζ͸ංେԽ͢Δ d Ͳ͔͜ͷ࣌఺ͰΩϟογϡʹର͢ΔӨڹ͕ද໘Խ ϑΟʔϧυͷංେԽΛආ͚Δ try
to keep stable field sizes

a ਍࡯ه࿥ϑΟʔϧυ͸ױऀσʔλʹ෇ਵ b ਍࡯ͷͨͼʹσʔλ͕௥Ճ͞ΕΔ c ϨίʔυαΠζ͸ංେԽ͢Δ d Ͳ͔͜ͷ࣌఺ͰΩϟογϡʹର͢ΔӨڹ͕ද໘Խ e σʔλΛ௥Ճ͢ΔͨΊʹ͸ϨίʔυͷϩοΫ͕ඞཁ
ϑΟʔϧυͷංେԽΛආ͚Δ try to keep stable field sizes

a ਍࡯ه࿥ϑΟʔϧυ͸ױऀσʔλʹ෇ਵ b ਍࡯ͷͨͼʹσʔλ͕௥Ճ͞ΕΔ c ϨίʔυαΠζ͸ංେԽ͢Δ d Ͳ͔͜ͷ࣌఺ͰΩϟογϡʹର͢ΔӨڹ͕ද໘Խ e σʔλΛ௥Ճ͢ΔͨΊʹ͸ϨίʔυͷϩοΫ͕ඞཁ
f ͢΂ͯอଘ͍ͯ͠Δׂʹ͸৘ใΛ׆༻Ͱ͖͍ͯͳ͍ ϑΟʔϧυͷංେԽΛආ͚Δ try to keep stable field sizes

a ਍࡯ຖʹ৽نϨίʔυΛ࡞੒

a ਍࡯ຖʹ৽نϨίʔυΛ࡞੒ b ױऀϨίʔυΛܰྔʹ

a ਍࡯ຖʹ৽نϨίʔυΛ࡞੒ b ױऀϨίʔυΛܰྔʹ c ਍࡯தʹױऀϨίʔυΛϩοΫ͢Δඞཁͳ͠

a ਍࡯ຖʹ৽نϨίʔυΛ࡞੒ b ױऀϨίʔυΛܰྔʹ c ਍࡯தʹױऀϨίʔυΛϩοΫ͢Δඞཁͳ͠ d ΑΓෳࡶͳߏ଄Ͱࡉ੍͔͍ޚ͕Մೳʹ

a ਍࡯ຖʹ৽نϨίʔυΛ࡞੒ b ױऀϨίʔυΛܰྔʹ c ਍࡯தʹױऀϨίʔυΛϩοΫ͢Δඞཁͳ͠ d ΑΓෳࡶͳߏ଄Ͱࡉ੍͔͍ޚ͕Մೳʹ e ֦ு͕༰қϢʔβʔ໊ɾλΠϜελϯϓͳͲ

f ੲͷॻ͖ࠐΈΛ্ॻ͖͠ͳ͍

f ੲͷॻ͖ࠐΈΛ্ॻ͖͠ͳ͍ g ݹ͍਍࡯ϨίʔυͷΞʔΧΠϒ͕༰қ

f ੲͷॻ͖ࠐΈΛ্ॻ͖͠ͳ͍ g ݹ͍਍࡯ϨίʔυͷΞʔΧΠϒ͕༰қ h ਍࡯σʔλͷ౷ܭͳͲɼ͍Ζ͍ΖͳՄೳੑ

ϑΟʔϧυ͕૿͑ͪΌ͏ප "all you can store" syndrome

ϑΟʔϧυ͕૿͑ͪΌ͏ප "all you can store" syndrome # フィールド 9 Phone1
10 Phone2 11 Fax 35 Phone3 90 Portable 105 email 120 email2

ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

SET AUTOMATIC RELATIONS SET FIELD RELATION ߟ͑ํΛϦηοτ͢Δ you must unlearn
what you have learned

SET AUTOMATIC RELATIONS SET FIELD RELATION カレントプロセス内で有効 ߟ͑ํΛϦηοτ͢Δ you must
unlearn what you have learned

SET AUTOMATIC RELATIONS SET FIELD RELATION カレントプロセス内で有効すべてのリレーションを変更する 1個のリレーションだけを変更する ߟ͑ํΛϦηοτ͢Δ
you must unlearn what you have learned

SET AUTOMATIC RELATIONS SET FIELD RELATION カレントプロセス内で有効すべてのリレーションを変更する 1個のリレーションだけを変更する True,
False Do not modify, Structure conﬁg., Manual, Automatic ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

False Do not modify, Structure conﬁg., Manual, Automatic ストラクチャー定義の⾃動リレーションは変更できないストラクチャー定義の⾃動リレーションも変更できる ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

False Do not modify, Structure conﬁg., Manual, Automatic ストラクチャー定義の⾃動リレーションは変更できないストラクチャー定義の⾃動リレーションも変更できる "True" はリレーションをロックする;  その場合 SET FIELD RELATION   は無視されてしまう副作⽤なし ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

False Do not modify, Structure conﬁg., Manual, Automatic ストラクチャー定義の⾃動リレーションは変更できないストラクチャー定義の⾃動リレーションも変更できる "True" はリレーションをロックする;  その場合 SET FIELD RELATION   は無視されてしまう副作⽤なし ! ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

False Do not modify, Structure conﬁg., Manual, Automatic ストラクチャー定義の⾃動リレーションは変更できないストラクチャー定義の⾃動リレーションも変更できる "True" はリレーションをロックする;  その場合 SET FIELD RELATION   は無視されてしまう副作⽤なし ! 互換性のために残されている効率⾯で優れている ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

QUERY BY FORMULA QUERY BY FORMULA QUERY SELECTION BY FORMULA

QUERY BY FORMULA QUERY BY FORMULA インデックスを使⽤しないシーケンシャル検索インデックス検索 QUERY SELECTION
BY FORMULA ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

QUERY BY FORMULA QUERY BY FORMULA インデックスを使⽤しないシーケンシャル検索インデックス検索サーバー側でフォーミュラを評価クライアント側でフォーミュラ式を評価
QUERY SELECTION BY FORMULA ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

QUERY BY FORMULA QUERY BY FORMULA インデックスを使⽤しないシーケンシャル検索インデックス検索サーバー側でフォーミュラを評価⾃動的にJOINを実⾏
クライアント側でフォーミュラ式を評価レコード1件ずつクライアントに転送 JOINを定義して使⽤ QUERY SELECTION BY FORMULA ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

QUERY BY FORMULA QUERY BY FORMULA インデックスを使⽤しないシーケンシャル検索インデックス検索サーバー側でフォーミュラを評価⾃動的にJOINを実⾏
クライアント側でフォーミュラ式を評価レコード1件ずつクライアントに転送 JOINを定義して使⽤以前のアドバイス :   利⽤は慎重に，できる限りQUERY SELECTIONで対応現在のアドバイス : v11の主要強化ポイントのひとつ積極的に使⽤するべき! QUERY SELECTION BY FORMULA ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

EXECUTE ON CLIENT EXECUTE ON CLIENT REGISTER CLIENT(name;period) REGISTER CLIENT(name)

登録後，クライアントは定期的に，デフォルトでは2秒毎に，サーバーあるいは別のクライアントから呼び出されているか問い合わせるサーバーは必要なときに実⾏リクエストを直接クライアントに送信する ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

登録後，クライアントは定期的に，デフォルトでは2秒毎に，サーバーあるいは別のクライアントから呼び出されているか問い合わせるサーバーは必要なときに実⾏リクエストを直接クライアントに送信する PULLモード PUSHモード ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

登録後，クライアントは定期的に，デフォルトでは2秒毎に，サーバーあるいは別のクライアントから呼び出されているか問い合わせるサーバーは必要なときに実⾏リクエストを直接クライアントに送信する PULLモード PUSHモード⼤量リクエストの可能性必要最低限のリクエスト数 ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

TRIGGER TRIGGER ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

TRIGGER TRIGGER トリガはアトミックな操作: トリガが実⾏されている間，サーバー側のコードがすべて待機トリガは実⾏中のコードを停⽌しない ߟ͑ํΛϦηοτ͢Δ you must unlearn
what you have learned

TRIGGER TRIGGER トリガはアトミックな操作: トリガが実⾏されている間，サーバー側のコードがすべて待機トリガは実⾏中のコードを停⽌しないコマンドではなく関数 ߟ͑ํΛϦηοτ͢Δ you must
unlearn what you have learned

TRIGGER TRIGGER トリガはアトミックな操作: トリガが実⾏されている間，サーバー側のコードがすべて待機トリガは実⾏中のコードを停⽌しないコマンドではなく関数 C_LONGINT($0) $0:=0 ߟ͑ํΛϦηοτ͢Δ
you must unlearn what you have learned

TRIGGER TRIGGER トリガはアトミックな操作: トリガが実⾏されている間，サーバー側のコードがすべて待機トリガは実⾏中のコードを停⽌しないコマンドではなく関数 C_LONGINT($0) $0:=0 トリガコードでトランザクションを使⽤しない!
エラーコード($0) を活⽤する ߟ͑ํΛϦηοτ͢Δ you must unlearn what you have learned

ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

$reference:=[Customer]Reference PUSH RECORD([Customer]) QUERY([Customer];[Customer]Reference=$reference) $nb:=Records in selection([Customer]) POP RECORD([Customer]) If
($nb=0) //do something end if ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

($nb=0) //do something end if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

($nb=0) //do something end if $reference:=[Customer]Reference $recNum:=Find in field([Customer]Reference;$reference) If ($recNum>=0) //do something End if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

($nb=0) //do something end if $reference:=[Customer]Reference $recNum:=Find in field([Customer]Reference;$reference) If ($recNum>=0) //do something End if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… Find in ﬁeld でバッチリ解決! ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

$firstName:=[Customer]FirstName $lastName:=[Customer]LastName $birthday:=[Customer]Birthday PUSH RECORD([Customer]) QUERY([Customer];[Customer]firstName=$firstName;*) QUERY([Customer];[Customer]lastName=$lastName;*) QUERY([Customer];[Customer]Birthday=$birthday) $nb:=Records in
selection([Customer]) POP RECORD([Customer]) If ($nb=0) //do something End if ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

selection([Customer]) POP RECORD([Customer]) If ($nb=0) //do something End if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

selection([Customer]) POP RECORD([Customer]) If ($nb=0) //do something End if $firstName:=[Customer]FirstName $lastName:=[Customer]LastName $birthday:=[Customer]Birthday SET QUERY DESTINATION(Into variable;$nb) QUERY([Customer];[Customer]FirstName=$firstName;*) QUERY([Customer];[Customer]LastName=$lastName;*) QUERY([Customer];[Customer]Birthday=$birthday) SET QUERY DESTINATION(Into current selection) If ($nb=0) //do something End if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

selection([Customer]) POP RECORD([Customer]) If ($nb=0) //do something End if $firstName:=[Customer]FirstName $lastName:=[Customer]LastName $birthday:=[Customer]Birthday SET QUERY DESTINATION(Into variable;$nb) QUERY([Customer];[Customer]FirstName=$firstName;*) QUERY([Customer];[Customer]LastName=$lastName;*) QUERY([Customer];[Customer]Birthday=$birthday) SET QUERY DESTINATION(Into current selection) If ($nb=0) //do something End if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… SET QUERY DESTINATION   カレントセレクション・レコードを変更せずにクエリを実⾏ ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

selection([Customer]) POP RECORD([Customer]) If ($nb=0) //do something End if $firstName:=[Customer]FirstName $lastName:=[Customer]LastName $birthday:=[Customer]Birthday SET QUERY DESTINATION(Into variable;$nb) QUERY([Customer];[Customer]FirstName=$firstName;*) QUERY([Customer];[Customer]LastName=$lastName;*) QUERY([Customer];[Customer]Birthday=$birthday) SET QUERY DESTINATION(Into current selection) If ($nb=0) //do something End if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… $firstName:=[Customer]FirstName $lastName:=[Customer]LastName $birthday:=[Customer]Birthday SET QUERY LIMIT(1) SET QUERY DESTINATION(Into variable;$nb) QUERY([Customer];[Customer]FirstName=$firstName;*) QUERY([Customer];[Customer]LastName=$lastName;*) QUERY([Customer];[Customer]Birthday=$birthday) SET QUERY DESTINATION(Into current selection) SET QUERY LIMIT(0) If ($nb=0) //do something End if SET QUERY DESTINATION   カレントセレクション・レコードを変更せずにクエリを実⾏ ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

selection([Customer]) POP RECORD([Customer]) If ($nb=0) //do something End if $firstName:=[Customer]FirstName $lastName:=[Customer]LastName $birthday:=[Customer]Birthday SET QUERY DESTINATION(Into variable;$nb) QUERY([Customer];[Customer]FirstName=$firstName;*) QUERY([Customer];[Customer]LastName=$lastName;*) QUERY([Customer];[Customer]Birthday=$birthday) SET QUERY DESTINATION(Into current selection) If ($nb=0) //do something End if PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… $firstName:=[Customer]FirstName $lastName:=[Customer]LastName $birthday:=[Customer]Birthday SET QUERY LIMIT(1) SET QUERY DESTINATION(Into variable;$nb) QUERY([Customer];[Customer]FirstName=$firstName;*) QUERY([Customer];[Customer]LastName=$lastName;*) QUERY([Customer];[Customer]Birthday=$birthday) SET QUERY DESTINATION(Into current selection) SET QUERY LIMIT(0) If ($nb=0) //do something End if SET QUERY LIMIT   0 でリミットを解除 SET QUERY DESTINATION   カレントセレクション・レコードを変更せずにクエリを実⾏ ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

$reference:=[Customer]Reference PUSH RECORD([Customer]) QUERY([Customer];[Customer]Reference=$reference) $firstName:=[Customer]FirstName $lastName:=[Customer]LastName POP RECORD([Customer]) //do something
with $firstName, $lastName ... ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

with $firstName, $lastName ... PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

with $firstName, $lastName ... $reference:=[Customer]Reference $firstName:="" $lastName:="" Begin SQL select FirstName, LastName from Customer where Reference=:$reference into :$firstName, :$lastName End SQL //do something with $firstName, $lastName ... PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

with $firstName, $lastName ... $reference:=[Customer]Reference $firstName:="" $lastName:="" Begin SQL select FirstName, LastName from Customer where Reference=:$reference into :$firstName, :$lastName End SQL //do something with $firstName, $lastName ... PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… SQL カレントセレクション・レコードを変更せずにレコードの値を取り出すことができる ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

with $firstName, $lastName ... $reference:=[Customer]Reference $firstName:="" $lastName:="" Begin SQL select FirstName, LastName from Customer where Reference=:$reference into :$firstName, :$lastName End SQL //do something with $firstName, $lastName ... PUSH / POP ロジックはとても⾼価な処理セレクション変更・クエリ・メモリの読み書き… SQL カレントセレクション・レコードを変更せずにレコードの値を取り出すことができる別⾔語の使⽤は⾃由! ελοΫ͸่͍͔ͭյ͢Δ at the end, house of cards falls

஌͕ࣝߦ࿏Λ੾Γ։͘ a little more knowledge lights our way

QUERY([Customer];[Customer]LastName="Skywalker") CREATE SET([Customer];"SkywalkerFamilly") ஌͕ࣝߦ࿏Λ੾Γ։͘ a little more knowledge lights our
way

QUERY([Customer];[Customer]LastName="Skywalker") CREATE SET([Customer];"SkywalkerFamilly") QUERY+CREATE SET: 2度のネットワーク通信・カレントセレクションの変更・カレントレコードの変更・カレントレコードのロック ஌͕ࣝߦ࿏Λ੾Γ։͘ a
little more knowledge lights our way

QUERY([Customer];[Customer]LastName="Skywalker") CREATE SET([Customer];"SkywalkerFamilly") SET QUERY DESTINATION(Into set;"SkywalkerFamilly") QUERY([Customer];[Customer]LastName="Skywalker") SET QUERY
DESTINATION(Into current selection) QUERY+CREATE SET: 2度のネットワーク通信・カレントセレクションの変更・カレントレコードの変更・カレントレコードのロック ஌͕ࣝߦ࿏Λ੾Γ։͘ a little more knowledge lights our way

QUERY([Customer];[Customer]LastName="Skywalker") CREATE SET([Customer];"SkywalkerFamilly") SET QUERY DESTINATION(Into set;"SkywalkerFamilly") QUERY([Customer];[Customer]LastName="Skywalker") SET QUERY
DESTINATION(Into current selection) QUERY+CREATE SET: 2度のネットワーク通信・カレントセレクションの変更・カレントレコードの変更・カレントレコードのロック SET QUERY DESTINATION+QUERY: 1度のネットワーク通信・セットを作成するだけ ஌͕ࣝߦ࿏Λ੾Γ։͘ a little more knowledge lights our way

௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0) ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0) While (Semaphore("parameters")) IDLE End while APPEND TO ARRAY(<>arrayParameter;$newValue)
CLEAR SEMAPHORE("parameters") ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

CLEAR SEMAPHORE("parameters") "parameters" はグローバルセマフォ ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

CLEAR SEMAPHORE("parameters") "parameters" はグローバルセマフォ "<>arrayParameters" はインタープロセス変数 ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

CLEAR SEMAPHORE("parameters") "parameters" はグローバルセマフォ "<>arrayParameters" はインタープロセス変数サーバー側で管理 ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

CLEAR SEMAPHORE("parameters") "parameters" はグローバルセマフォ "<>arrayParameters" はインタープロセス変数サーバー側で管理クライアント側で管理 ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

CLEAR SEMAPHORE("parameters") 貴様はテロリストか ! "parameters" はグローバルセマフォ "<>arrayParameters" はインタープロセス変数サーバー側で管理クライアント側で管理 ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

While (Semaphore("parameters")) IDLE End while APPEND TO ARRAY(<>arrayParameter;$newValue) CLEAR SEMAPHORE("parameters")
ARRAY TEXT(<>arrayParameter;0) ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0) While (Semaphore("$parameters";500)) IDLE End while APPEND TO ARRAY(<>arrayParameter;$newValue) CLEAR SEMAPHORE("$parameters") ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0) While (Semaphore("$parameters";500)) IDLE End while APPEND TO ARRAY(<>arrayParameter;$newValue) CLEAR SEMAPHORE("$parameters") "$parameters" はローカルセマフォ ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0) While (Semaphore("$parameters";500)) IDLE End while APPEND TO ARRAY(<>arrayParameter;$newValue) CLEAR SEMAPHORE("$parameters") "$parameters" はローカルセマフォクライアント側で管理 ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0) While (Semaphore("$parameters";500)) IDLE End while APPEND TO ARRAY(<>arrayParameter;$newValue) CLEAR SEMAPHORE("$parameters") "$parameters" はローカルセマフォクライアント側で管理セマフォがセットされるまで500tick待機する ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

ARRAY TEXT(<>arrayParameter;0) While (Semaphore("$parameters";500)) IDLE End while APPEND TO ARRAY(<>arrayParameter;$newValue)
CLEAR SEMAPHORE("$parameters") "$parameters" はローカルセマフォクライアント側で管理セマフォがセットされるまで500tick待機する型をしっかり憶えましょう 🙂 ௜໧ͷதʹ஌ܙ͕͋Δ the sounds of silence, respect you must

௜໧ͷதʹ஌ܙ͕͋Δ still remains within the sound of silence

リストボックス#1 セレクション, 特殊型リストボックス#2 セレクション, 汎⽤型 ௜໧ͷதʹ஌ܙ͕͋Δ still remains within
the sound of silence

リストボックス#1 セレクション, 特殊型リストボックス#2 セレクション, 汎⽤型ハイライトセットは必要がある場合にだけ設定セットの名前に注意を払うこと ௜໧ͷதʹ஌ܙ͕͋Δ still
remains within the sound of silence

ࣗຫͷ൚༻ϝιουΛஅࣺ཭ kill good old generic

//$sum:=Array_Sum(->myArray) C_POINTER($1;$array) C_REAL($0) $array:=$1 ASSERT(\ (Type($array->)=Real array)\ | (Type($array->)=LongInt array)\
| (Type($array->)=Integer array)\ ;"Array must be a numeric") $sum:=0 For ($i;1;Size of array($array->)) $sum:=$sum+$array->{$i} End for $0:=$sum ࣗຫͷ൚༻ϝιουΛஅࣺ཭ kill good old generic

| (Type($array->)=Integer array)\ ;"Array must be a numeric") $sum:=0 For ($i;1;Size of array($array->)) $sum:=$sum+$array->{$i} End for $0:=$sum $sum:=Sum(myArray) ࣗຫͷ൚༻ϝιουΛஅࣺ཭ kill good old generic

| (Type($array->)=Integer array)\ ;"Array must be a numeric") $sum:=0 For ($i;1;Size of array($array->)) $sum:=$sum+$array->{$i} End for $0:=$sum $sum:=Sum(myArray) v13以降，"Sum" "Min" "Max" などの統計関数は配列に対応 ࣗຫͷ൚༻ϝιουΛஅࣺ཭ kill good old generic

൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

ReadWrite(->[Contact]) ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

//ReadWrite(->table) C_POINTER($1;$table) $table:=$1 If (Read only state($table->)) READ WRITE($table->) End
if ReadWrite(->[Contact]) ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

if ReadWrite(->[Contact]) v2004では，サーバーをコールしたので， READ WRITEを実⾏する前に状態を調べることは有⽤だった ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

if ReadWrite(->[Contact]) READ WRITE([Contact]) v2004では，サーバーをコールしたので， READ WRITEを実⾏する前に状態を調べることは有⽤だった ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

if ReadWrite(->[Contact]) READ WRITE([Contact]) v2004では，サーバーをコールしたので， READ WRITEを実⾏する前に状態を調べることは有⽤だった v11以降，リクエストがサーバーに送信されるまでREAD WRITEは保留されるようになったのでこれで良い ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

if ReadWrite(->[Contact]) READ WRITE([Contact]) v2004では，サーバーをコールしたので， READ WRITEを実⾏する前に状態を調べることは有⽤だった v11以降，リクエストがサーバーに送信されるまでREAD WRITEは保留されるようになったのでこれで良い毎回のアップグレード後に必ずチェックするべき項⽬のひとつ ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

if ReadWrite(->[Contact]) READ WRITE([Contact]) v2004では，サーバーをコールしたので， READ WRITEを実⾏する前に状態を調べることは有⽤だった v11以降，リクエストがサーバーに送信されるまでREAD WRITEは保留されるようになったのでこれで良い毎回のアップグレード後に必ずチェックするべき項⽬のひとつ何年も開いていない汎⽤コードは腐った⾷品と同じ: 捨てるか運を天に任せるか ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

if ReadWrite(->[Contact]) READ WRITE([Contact]) v2004では，サーバーをコールしたので， READ WRITEを実⾏する前に状態を調べることは有⽤だった v11以降，リクエストがサーバーに送信されるまでREAD WRITEは保留されるようになったのでこれで良い毎回のアップグレード後に必ずチェックするべき項⽬のひとつ何年も開いていない汎⽤コードは腐った⾷品と同じ: 捨てるか運を天に任せるか汎⽤コードがまとめられたコンポーネントも忘れずにチェックすること ൚༻ϝιουΛ࠶ධՁ kill good old generic, you can

σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name, you should

$ID_Process:=Execute on server("MySrvProcessMethod";0;"MySrvProcessMethod"+<>myLogin+"_"+string(<>customerID)) σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name, you should

$ID_Process:=Execute on server("MySrvProcessMethod";0;"MySrvProcessMethod"+<>myLogin+"_"+string(<>customerID)) $ID_Process:=New process("MyProcessMethod";0;"MyProcessMethod"+<>myLogin+"_"+string(<>customerID)) σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name, you
should

$ID_Process:=Execute on server("MySrvProcessMethod";0;"MySrvProcessMethod"+<>myLogin+"_"+string(<>customerID)) $ID_Process:=New process("MyProcessMethod";0;"MyProcessMethod"+<>myLogin+"_"+string(<>customerID)) プロセス名は容器ではありません σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name,
you should

$ID_Process:=Execute on server("MySrvProcessMethod";0;"MySrvProcessMethod"+<>myLogin+"_"+string(<>customerID)) $ID_Process:=Execute on server("MySrvProcessMethod";0;"MySrvProcessMethod";<>myLogin;<>customerID) $ID_Process:=New process("MyProcessMethod";0;"MyProcessMethod"+<>myLogin+"_"+string(<>customerID)) プロセス名は容器ではありません $ID_Process:=New
process("MyProcessMethod";0;"MyProcessMethod";<>myLogin;<>customerID) σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name, you should

process("MyProcessMethod";0;"MyProcessMethod";<>myLogin;<>customerID) パラメーター群をサーバーに転送明快なプロセス名 σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name, you should

process("MyProcessMethod";0;"MyProcessMethod";<>myLogin;<>customerID) パラメーター群をサーバーに転送明快なプロセス名奇妙または気まぐれに考案された名前では将来のログ解析が困難に σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name, you should

process("MyProcessMethod";0;"MyProcessMethod";<>myLogin;<>customerID) パラメーター群をサーバーに転送明快なプロセス名奇妙または気まぐれに考案された名前では将来のログ解析が困難に今⾵に，コンテキスト情報はオブジェクト1個で渡せば良い σλϥϝͳ໊લΛ෇͚ͳ͍ respect the name, you should

ྨࣅ඼ʹ஫ҙ brothers but not twins …

$process_srv_id:=Execute on server("myOptimizedMethodSrv";0;"myOptimizedMethodSrv") SET PROCESS VARIABLE($process_srv_id;customer_ID;$1) $calculation_launch:=True SET PROCESS VARIABLE($process_srv_id;calculation_launch;$calculation_launch)
$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while "Execute on server" メソッドに引数を渡せば良い ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while "Execute on server" メソッドに引数を渡せば良い 1回にまとめられる ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while "Execute on server" メソッドに引数を渡せば良い 1回にまとめられる "息継ぎ"する時間がない ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while "Execute on server" メソッドに引数を渡せば良い 1回にまとめられる "息継ぎ"する時間がないパラメーターをコマンドに直接渡すことは避けたほうが良い ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while //myReallyOptimizedMethodSrv $customer_ID:=$1 // 結果を計算する $result:=.... $0:=$result ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while //myReallyOptimizedMethodSrv $customer_ID:=$1 // 結果を計算する $result:=.... $0:=$result "Execute on server"コマンドは⾮同期コール ྨࣅ඼ʹ஫ҙ brothers but not twins …

$calculation_finished:=False Repeat GET PROCESS VARIABLE($process_srv_id;calculation_finished;$calculation_finished) GET PROCESS VARIABLE($process_srv_id;Result;$Result) Until ($calculation_finished) $calculation_kill:=true SET PROCESS VARIABLE($process_srv_id;calculation_kill;$calculation_kill) // myOptimizedMethodSrv calculation_launch:=False calculation_finished:=False calculation_kill:=False customer_ID:=0 while( not(calculation_launch)) DELAY PROCESS(Current process;1) End while // 結果を計算する Result:=.... calculation_finished:=True While (Not(calculation_kill)) DELAY PROCESS(Current process;1) End while //myReallyOptimizedMethodSrv $customer_ID:=$1 // 結果を計算する $result:=.... $0:=$result "Execute on server"コマンドは⾮同期コール "サーバー上で実⾏"メソッド属性は同期コール ྨࣅ඼ʹ஫ҙ brothers but not twins …

ԕྀ͢Δඞཁφγ it's free, use it!

ෳ߹ΠϯσοΫε composite indexes, try you must

筆者がこれまでコンサルティング依頼を受けたデータベース ෳ߹ΠϯσοΫε composite indexes, try you must

筆者がこれまでコンサルティング依頼を受けたデータベース複合インデックスが活⽤されていたデータベースの割合 ෳ߹ΠϯσοΫε composite indexes, try
you must

筆者がこれまでコンサルティング依頼を受けたデータベース複合インデックスが活⽤されていたデータベースの割合複合インデックスはクエリや並び替えの速度を劇的に改善する可能性がある ෳ߹ΠϯσοΫε composite indexes,
try you must

筆者がこれまでコンサルティング依頼を受けたデータベース複合インデックスが活⽤されていたデータベースの割合複合インデックスはクエリや並び替えの速度を劇的に改善する可能性がある恩恵にあずかるためにコードを変更する必要はなく，定義するだけで良い ෳ߹ΠϯσοΫε
composite indexes, try you must

ࣗಈ͚͕ͩΠϯσοΫεͰ͸ͳ͍ indexes are not only automatic

ポップアップをクリックしてインデックスの種類を選択 ࣗಈ͚͕ͩΠϯσοΫεͰ͸ͳ͍ indexes are not only automatic

ポップアップをクリックしてインデックスの種類を選択少し時間を取ってインデックス設定を⾒直せば，全体の速度を向上させられる ࣗಈ͚͕ͩΠϯσοΫεͰ͸ͳ͍ indexes are not only automatic

ポップアップをクリックしてインデックスの種類を選択少し時間を取ってインデックス設定を⾒直せば，全体の速度を向上させられるクラスターを使⽤すればサイズを⼤幅に節約することができ，特に対価はない ࣗಈ͚͕ͩΠϯσοΫεͰ͸ͳ͍ indexes are not only automatic

ࢥͬͨΑ͏ͳ଎౓͕ಘΒΕͳ͍ͱ͖ʜ if no mistake have you made, yet losing you
are …

DESCRIBE QUERY EXECUTION(True) QUERY BY FORMULA([Flight];([Airport]IATA_AirportCode="SFO")\ & ([Flight]UUID_Line=[Line]UUID) & ([Line]UUID_Airport_To=[Airport]UUID))
$path:=Get last query path(Description in text format) SET TEXT TO PASTEBOARD($path) DESCRIBE QUERY EXECUTION(False) ࢥͬͨΑ͏ͳ଎౓͕ಘΒΕͳ͍ͱ͖ʜ if no mistake have you made, yet losing you are …

$path:=Get last query path(Description in text format) SET TEXT TO PASTEBOARD($path) DESCRIBE QUERY EXECUTION(False) クエリプランとクエリパスで視点をエンジンルーム内に移動 ࢥͬͨΑ͏ͳ଎౓͕ಘΒΕͳ͍ͱ͖ʜ if no mistake have you made, yet losing you are …

$path:=Get last query path(Description in text format) SET TEXT TO PASTEBOARD($path) DESCRIBE QUERY EXECUTION(False) クエリプランとクエリパスで視点をエンジンルーム内に移動優れたクエリを書くため，時には直感を働かせることも必要 ࢥͬͨΑ͏ͳ଎౓͕ಘΒΕͳ͍ͱ͖ʜ if no mistake have you made, yet losing you are …

࣌ؒ͸૑଄తͳ࢓ࣄʹॆͯ·͠ΐ͏ do not reinvent the wheel, a different game you
should play

オブジェクトライブラリで時間を節約・デザインを統⼀・アイデアを共有 ࣌ؒ͸૑଄తͳ࢓ࣄʹॆͯ·͠ΐ͏ do not reinvent the wheel, a different game
you should play

オブジェクトライブラリで時間を節約・デザインを統⼀・アイデアを共有ライセンス不要，使⽤に制約なし! ࣌ؒ͸૑଄తͳ࢓ࣄʹॆͯ·͠ΐ͏ do not reinvent the wheel, a different
game you should play

ਐḿόʔͰ։ൃ΋αΫαΫ 4D helps your progress

Mr Smith VAT rate ਐḿόʔͰ։ൃ΋αΫαΫ 4D helps your progress

$id_progress:=Progress New Progress SET BUTTON ENABLED ($id_progress;True) Progress SET TITLE
($id_progress;"Update customers";0;"";True) ALL RECORDS([Customer]) $j:=0 $nb:=Records in table([Customer]) While (Not(End selection([Customer]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Customer]name) ///Կ͔͢Δ ... NEXT RECORD([Customer]) End while Progress QUIT ($id_progress) Mr Smith VAT rate ਐḿόʔͰ։ൃ΋αΫαΫ 4D helps your progress

($id_progress;"Update customers";0;"";True) ALL RECORDS([Customer]) $j:=0 $nb:=Records in table([Customer]) While (Not(End selection([Customer]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Customer]name) ///Կ͔͢Δ ... NEXT RECORD([Customer]) End while Progress QUIT ($id_progress) Mr Smith VAT rate $id_progress:=Progress New Progress SET BUTTON ENABLED ($id_progress;True) Progress SET TITLE ($id_progress;"Apply new parameter";0;"";True) ALL RECORDS([Param]) $j:=0 $nb:=Records in table([Param]) While (Not(End selection([Param]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Param]name) ///Կ͔͢Δ ... NEXT RECORD([Param]) End while Progress QUIT ($id_progress) ਐḿόʔͰ։ൃ΋αΫαΫ 4D helps your progress

($id_progress;"Update customers";0;"";True) ALL RECORDS([Customer]) $j:=0 $nb:=Records in table([Customer]) While (Not(End selection([Customer]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Customer]name) ///Կ͔͢Δ ... NEXT RECORD([Customer]) End while Progress QUIT ($id_progress) Mr Smith VAT rate $id_progress:=Progress New Progress SET BUTTON ENABLED ($id_progress;True) Progress SET TITLE ($id_progress;"Apply new parameter";0;"";True) ALL RECORDS([Param]) $j:=0 $nb:=Records in table([Param]) While (Not(End selection([Param]))) & (Not(Progress Stopped ($id_progress))) $j:=$j+1 Progress SET PROGRESS ($id_progress;$j/$nb;[Param]name) ///Կ͔͢Δ ... NEXT RECORD([Param]) End while Progress QUIT ($id_progress) おすすめ:   ループ10回毎に  メソッドをコールする ਐḿόʔͰ։ൃ΋αΫαΫ 4D helps your progress

ࣗ෼Ͱ΍Βͳ͍ͱؾ͕ࡁ·ͳ͍ don't keep a dog and bark yourself!

C_POINTER($1;$2) C_LONGINT($nb_total) ARRAY TEXT($_result;0x0000) CLEAR VARIABLE($nb_total) $nb:=Size of array($1->) For
($i;1;$nb) If (Length($1->{$i})=0) Else APPEND TO ARRAY($_result;$1->{$i}) $nb_total:=$nb_total+1 End if End for COPY ARRAY($_result;$2->) ࣗ෼Ͱ΍Βͳ͍ͱؾ͕ࡁ·ͳ͍ don't keep a dog and bark yourself!

C_POINTER($1;$2) C_LONGINT($nb_total) ARRAY TEXT($_result;0x0000) CLEAR VARIABLE($nb_total) $nb:=Size of array($1->) For
($i;1;$nb) If (Length($1->{$i})=0) Else APPEND TO ARRAY($_result;$1->{$i}) $nb_total:=$nb_total+1 End if End for COPY ARRAY($_result;$2->) がんばり過ぎ〜 $nb_total:=0 のほうが⾃然なのにこの変数は要らないのでは $1->{$i}="" よりも優れているのかなぁ? =0 / Else よりも #0 のほうがシンプルじゃないの? ࣗ෼Ͱ΍Βͳ͍ͱؾ͕ࡁ·ͳ͍ don't keep a dog and bark yourself!

ΞϯτϫʔψɾυɾαϯʹςάδϡϖϦ Antoine de Saint Exupéry La perfection est atteinte, non
pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. ׬ᘳͱ͸͜ΕҎ্Ճ͑ΒΕͳ͍ͱ͖Ͱ͸ͳ͘ ͜ΕҎ্࡟ΓͱΕͳ͍ͱ͖ʹୡ੒͞ΕΔΑ͏ͩ ʰਓؒͷ౔஍ʱΑΓ Wind, Sand and Stars (1939)

プログラムコードの最適化 (2016)

プログラムコードの最適化 (2016)

More Decks by 4D Japan

Other Decks in Technology

Featured

Transcript