! " š5B    )5@HR]fpz‡ëôMæÞ4ER`pƒŽ˜nyˆ“  >^†³ô.^ ” Âðƒtƒ@ƒCƒ‹%s‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñB\•¶‚ª–³Œø‚Å‚·(—ñ%u, s%u, ƒtƒ@ƒCƒ‹%s)BSQLŽ¯•ÊŽq‚ª–³Œø‚Å‚·(—ñ%u, s%u, ƒtƒ@ƒCƒ‹%s)B‘Ήž‚µ‚Ä‚¢‚È‚¢IF/ELSE/ENDIFƒuƒƒbƒN‚ª‚ ‚è‚Ü‚·(s%u, ƒtƒ@ƒCƒ‹%s)BƒTƒ|[ƒg‚³‚ê‚Ä‚¢‚È‚¢ƒf[ƒ^Œ^‚ª‚ ‚è‚Ü‚·(s%u, ƒtƒ@ƒCƒ‹%s)BWHENEVERðŒ‚ª–³Œø‚Å‚·(—ñ%u, s%u, ƒtƒ@ƒCƒ‹%s)BWHENEVERƒAƒNƒVƒ‡ƒ“‚ª–³Œø‚Å‚·(—ñ%u, s%u, ƒtƒ@ƒCƒ‹%s)BƒzƒXƒg•Ï”‚ª–³Œø‚Å‚·(—ñ%u, s%u, ƒtƒ@ƒCƒ‹%s)B•¶‚̈ʒu‚ª³‚µ‚­‚ ‚è‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)B 8 g šÕ Br˜Õ‚·‚Å‚Édeclare section“à‚Å‚·(s%u, ƒtƒ@ƒCƒ‹%s)Bdeclare section“à‚Å‚Í‚ ‚è‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)Bincludeƒtƒ@ƒCƒ‹"%s"‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BSQLŽ¯•ÊŽq"%s"‚ªéŒ¾‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)B•s–¾‚ȃzƒXƒgŒ¾Œê\•¶‚Í–³Ž‹‚³‚ê‚Ü‚µ‚½(s%u, ƒtƒ@ƒCƒ‹%s)BƒJ[ƒ\ƒ‹‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)B•¶‚ð‰ðÍ‚Å‚«‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)B"%s"‚ª•K—v‚Å‚·‚ªA"%.15s"‚ªŒ©‚‚©‚è‚Ü‚µ‚½(s%u, ƒtƒ@ƒCƒ‹%s)B >nš¸êNŠ¶ñƒoƒCƒ“ƒh•Ï”‚ðŽæ“¾‚Å‚«‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)B’è‹`•Ï”‚ðŽæ“¾‚Å‚«‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BOracleƒGƒ‰[‚ª”­¶‚µ‚Ü‚µ‚½: %s—̈悪•s‘«‚µ‚Ä‚¢‚Ü‚·B%uƒoƒCƒg‚ðŠ„“–‚Ä‚Å‚«‚Ü‚¹‚ñBOracle‚©‚烃OƒIƒt‚Å‚«‚Ü‚¹‚ñƒCƒ“ƒWƒP[ƒ^•Ï”"%s"‚ÌŒ^‚Ü‚½‚Í’·‚³‚ª³‚µ‚­‚ ‚è‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BƒCƒ“ƒWƒP[ƒ^•Ï”"%s"‚Í錾‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BƒzƒXƒg•Ï”"%s"‚Í–³Œø‚Å‚·(s%u, ƒtƒ@ƒCƒ‹%s)BSQLŽ¯•ÊŽq"%s"‚ªd•¡‚µ‚Ä錾‚³‚ê‚Ä‚¢‚Ü‚·(s%u, ƒtƒ@ƒCƒ‹%s)B J…£ Ï!é$%5&k'‰(¯)ÙÿƒIƒvƒVƒ‡ƒ“"%s"‚ͳ‚µ‚¢EXEC ORACLEƒIƒvƒVƒ‡ƒ“‚Å‚Í‚ ‚è‚Ü‚¹‚ñBƒIƒvƒVƒ‡ƒ“"%s"‚ª‚ ‚¢‚Ü‚¢‚Å‚·BƒIƒvƒVƒ‡ƒ“"%s"‚É–³Œø‚È’l‚ªŽw’肳‚ê‚Ä‚¢‚Ü‚·BƒIƒvƒVƒ‡ƒ“"%s"‚ª–³Œø‚Å‚·BƒIƒvƒVƒ‡ƒ“"%s"‚ɃIƒyƒ‰ƒ“ƒh‚ª‚ ‚è‚Ü‚¹‚ñB“ü—̓tƒ@ƒCƒ‹–¼‚ªŽw’肳‚ê‚Ä‚¢‚Ü‚¹‚ñB"%s"‚ÅOracle‚ɃƒOƒIƒ“‚Å‚«‚Ü‚¹‚ñBOracleƒGƒ‰[”Ô†: %uƒJ[ƒ\ƒ‹‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñB“ü—̓tƒ@ƒCƒ‹"%s"‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñBƒŠƒXƒgEƒtƒ@ƒCƒ‹"%s"‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñBo—̓tƒ@ƒCƒ‹"%s"‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñB*2,–-Î/2L3†5ÀóMODE=ANSI‚ÆWHENEVER SQLWARNING‚ªŽw’肳‚ê‚Ä‚¢‚éꇂÍEXEC SQL INCLUDE SQLCA‚ðŽÀs‚·‚é•K—v‚ª‚ ‚è‚Ü‚·BINTO/USING‹å‚Ì”z—ñƒTƒCƒY‚ª•s“KØ‚Å‚·BŬ’l: %s(%u: %u)•s“K“–‚È%s‹å‚ª‚ ‚è‚Ü‚·(s%u, ƒtƒ@ƒCƒ‹%s)B–³Ž‹‚³‚ê‚Ü‚µ‚½Bs%uAƒtƒ@ƒCƒ‹%s‚Ì•t‹ß‚©‚çŽn‚Ü‚éƒRƒƒ“ƒg‚Ü‚½‚Í•¶Žš’蔂ª–¢I—¹‚Å‚·BƒvƒƒOƒ‰ƒ€’PˆÊI—¹s%u‚É‹LqŽq‚𶬂ł«‚Ü‚¹‚ñBƒtƒ@ƒCƒ‹%sVARCHAR%s‚̃TƒCƒY‚ª65533‚ð’´‚¦‚Ä‚¢‚Ü‚·(s%u, ƒtƒ@ƒCƒ‹%s)BFOR•Ï”—ñ%s‚̃f[ƒ^Œ^‚ª–³Œø‚Å‚·(s%u, ƒtƒ@ƒCƒ‹%s)B687f8Ÿ<Ô=>A?}@©㕶‚ÌI‚í‚肪•K—v‚Å‚·(—ñ%u, s%u, ƒtƒ@ƒCƒ‹%s)B”z—ñ:"%s"‚̓oƒCƒ“ƒh•Ï”‚Æ‚µ‚Ä–³Œø‚Å‚·(s%u, ƒtƒ@ƒCƒ‹%s)BFOR‹å‚ÍSELECT•¶’†‚ÅŽg—p‚Å‚«‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BCURSOR‚ÆSTATEMENT‚Ì—¼•û‚ÉAT‹å‚ª‚ ‚è‚Ü‚·(s%u, ƒtƒ@ƒCƒ‹%s)B\•¶ƒGƒ‰[‚ª”­¶‚µ‚Ü‚µ‚½B(s%u, —ñ%u, PLS-%u: %s)–„ž‚ÝPL/SQL‚ÅSQLCHECK=SEMANTICS(FULL)‚ªŽw’肳‚ê‚Ä‚¢‚Ü‚¹‚ñBeof%s‚ª•¶I—¹Žq‚Ì‘O‚ÅŒŸo‚³‚ê‚Ü‚µ‚½(s%u!)B•¡”‚̃zƒXƒg•Ï”‚ª“¯ˆê‚̃Cƒ“ƒWƒP[ƒ^•Ï”‚ɑΉž‚µ‚Ä‚¢‚Ü‚·BA8BTC‘D¼EôF8GaH‹·Userid‚ªŽw’肳‚ê‚Ä‚¢‚Ü‚¹‚ñBUserid‚ÍSQLCHECK = FULL‚Ì‚Æ‚«‚Ì‚ÝŽg—pBuserid‚Í–³Ž‹‚³‚ê‚Ü‚·BIRECLEN‚Ì’l‚ð’´‚¦‚Ü‚µ‚½(s%u, ƒtƒ@ƒCƒ‹%s)BƒzƒXƒg•Ï”–¼‚ƃCƒ“ƒWƒP[ƒ^•Ï”–¼‚ªˆê’v‚µ‚Ä‚Í‚¢‚¯‚Ü‚¹‚ñBƒzƒXƒg•Ï”"%s"‚̃f[ƒ^Œ^‚̓Tƒ|[ƒg‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BSQL•¶: %s‚ÅA\•¶‚Ü‚½‚ÍŽw”’l‚ª–³Œø‚Å‚·BƒƒbƒZ[ƒWEƒtƒ@ƒCƒ‹‚ðƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñB“ü—̓tƒ@ƒCƒ‹–¼‚Ì’·‚³‚ªÅ‘å’·‚ð’´‚¦‚Ä‚¢‚Ü‚·B I>K„LªMäNO9PgQŒR¹æƒJ[ƒ\ƒ‹‚ªéŒ¾‚³‚ê‚Ü‚µ‚½‚ªƒI[ƒvƒ“‚³‚ê‚Ü‚¹‚ñ‚Å‚µ‚½(s%u, ƒtƒ@ƒCƒ‹%s)BƒCƒ“ƒWƒP[ƒ^•Ï”‚Ì‘O‚É ":"‚ª•K—v‚Å‚·BDISPLAYƒ^ƒCƒv‚ÍSIGN LEADING SEPARATE‚Å‚ ‚é•K—v‚ª‚ ‚è‚Ü‚·BWHENEVER•¶‚Ì”’lƒ‰ƒxƒ‹‚̃Rƒƒ“‚Í–³Œø‚Å‚·(ANSI)BFIPSŒx: SQLŽ¯•ÊŽq‚ª–³Œø‚Å‚·(ANSI)BWHENEVER•¶‚̃‰ƒxƒ‹‚ɂ̓Rƒƒ“‚ª•K—v‚Å‚·(ANSI)BTYPEŽ¯•ÊŽq‚Í‚·‚Å‚ÉTYPEd‚³‚ê‚Ä‚¢‚Ü‚·B‚±‚̃f[ƒ^Œ^‚ł̈ʎæ‚è(Scale)Žw’è‚Í–³Œø‚Å‚·B’·‚³‚ƈʎæ‚è(Scale)Žw’è‚Å‚Í®”‚ðŽg—p‚µ‚Ü‚·B SDUnVžWÂXóY#Z>[j\ž]ÍñCREATE•¶‚ł̃oƒCƒ“ƒh‚ƕϔ錾‚Í–³Œø‚Å‚·Bƒtƒ@ƒCƒ‹%s‚Ö‚Ì‘‚«ž‚Ý’†‚ɃGƒ‰[‚ª”­¶‚µ‚Ü‚µ‚½Bƒ\[ƒXEƒtƒ@ƒCƒ‹%s‚Ì’·‚³‚ªƒ[ƒ‚Å‚·BEXEC SQL TYPE•¶‚ÍAŒ»ƒzƒXƒgŒ¾Œê‚ÅŽg—p‚Å‚«‚Ü‚¹‚ñBƒ†[ƒU[’è‹`ƒf[ƒ^Œ^‚ÌŽ¯•ÊŽq‚ðŽg—p‚µ‚Ä‚­‚¾‚³‚¢BORACLE TYPEŽw’肪–³Œø‚Å‚·BDECIMALƒf[ƒ^Œ^‚Ÿ“x/ˆÊŽæ‚èŽw’肪•K—v‚Å‚·B‚±‚ÌORACLEƒf[ƒ^Œ^‚Å‚ÍATYPE•¶‚É‘Ž®Žw’肪•K—v‚Å‚·B’·‚³/ˆÊŽæ‚è‚ÍAŽw’肳‚ꂽƒf[ƒ^Œ^‚É‚Í–³Œø‚Å‚·BƒIƒvƒVƒ‡ƒ“‚ª–³Œø‚È‚½‚ß–³Ž‹‚µ‚Ü‚µ‚½B ^>_|`¾aêbcLd‡e¥fÜþchar[n]ƒf[ƒ^Œ^‚Å‚ÍA”z—ñ‚̃TƒCƒY‚Í2ˆÈã‚Å‚ ‚é•K—v‚ª‚ ‚è‚Ü‚·BPROGRAM‚Ü‚½‚ÍSUBROUTINE, FUNCTION, BULOCK DATA•¶‚ªŒ‡—Ž‚µ‚Ä‚¢‚Ü‚·BMODE=ANSI14‚Å‚Í”z—ñ‚ÌFETCH‚Í”F‚ß‚ç‚ê‚Ü‚¹‚ñBCOBOL‚ÆPL/I‚Å‚Ì‚ÝDECIMALADISPLAYŒ^‚ðŽg—p‚Å‚«‚Ü‚·BŒ»ƒRƒ“ƒeƒLƒXƒg‚ł̈ʎæ‚è(Scale)Žw’è‚Í–³Œø‚Å‚·B’·‚³‚ÌŽw’è‚ÍROWID‚Ü‚½‚ÍDATEAMLSLABELŒ^‚Å‚ÍŽg—p‚Å‚«‚Ü‚¹‚ñB”ñ®”ƒ‰ƒxƒ‹‚Í–³Œø‚Å‚·(ANSI)B¬•¶Žš'e'‚Í•‚“®¬”“_Žw’è‚Æ‚µ‚ij‚µ‚­‚ ‚è‚Ü‚¹‚ñ(ANSI)BFOR UPDATE‚ÍORACLE‚ÌŠg’£‹@”\‚Å‚·B gDhei‡j¯kèl m/nbo”pÕýAT‹å‚ÍAOracleŠg’£‹@”\‚Ì1‚‚ł·BFOR‹å‚ÍAOracleŠg’£‹@”\‚Ì1‚‚ł·B‚±‚±‚ɂ̓L[ƒ[ƒhWORK‚ª•K—v‚Å‚·(ANSI)BRELEASE‚ÍCOMMIT‚âROLLBACK•¶‚ɑ΂·‚éORACLE‚ÌŠg’£‹@”\‚Å‚·BCONNECT•¶‚ÍAOracleˆË‘¶ˆ—Œn‚Å‚·B‚±‚Ì•¶‚ÍANSI‚ł̓Tƒ|[ƒg‚³‚ê‚Ü‚¹‚ñB“®“ISQL‚ÆPL/SQL‚ÍAANSI SQL‚Ö‚ÌOracleŠg’£‹@”\‚Å‚·BWHENEVER•¶‚ɑ΂µ‚ÄOracleŠg’£‹@”\‚ªŽg—p‚³‚ê‚Ü‚µ‚½BEXEC ORACLE•¶‚É‚ ‚éSQLCHECK’l‚ªƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚Ì’l‚ð’´‚¦‚Ä‚¢‚Ü‚·Bƒf[ƒ^Œ^‚ªƒTƒ|[ƒg‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ(ANSI)B qDr†sºtÒuüvwNxoy zÍ÷DBMSƒIƒvƒVƒ‡ƒ“‚Ì’l‚ÍAŽw’肵‚½MODEƒIƒvƒVƒ‡ƒ“‚Ì’l‚ɑ΂µ‚Ä–³Œø‚Å‚·BEXEC SQL VAR•¶‚Å‚ÌVARxxxŒ^‚ɂ̓TƒCƒYŽw’肪•K—v‚Å‚·B‚±‚±‚Å‚Í”z—ñ‚ª•K—v‚Å‚·B”z—ñ‚Í‚·‚Å‚ÉARRAYLEN•¶‚ÅŽw’肳‚ê‚Ä‚¢‚Ü‚·BARRAYLENƒTƒCƒY•Ï”‚ª–³Œø‚Å‚·BANSI SQL‚ŃzƒXƒg•Ï”‚̉Šú‰»‚̓Tƒ|[ƒg‚µ‚Ä‚¢‚Ü‚¹‚ñBINTO‹å‚Ìconst•Ï”‚ª•ÏX‚³‚ê‚Ü‚·BƒR[ƒh‚̶¬’†‚Ƀtƒ@ƒCƒ‹I/OƒGƒ‰[‚ª”­¶‚µ‚Ü‚µ‚½BVARCHARŒ^ƒ|ƒCƒ“ƒ^‚Ì”z—ñ‚̓Tƒ|[ƒg‚³‚ê‚Ü‚¹‚ñB“ü—̓tƒ@ƒCƒ‹–¼‚Æo—̓tƒ@ƒCƒ‹–¼‚ª“¯‚¶‚Å‚·B {>|d~¦à€â„7…w‡ÅõVARCHAR‚Ì錾‚ª1s‚É”[‚Ü‚Á‚Ä‚¢‚Ü‚¹‚ñBCOMMON_NAMEƒIƒvƒVƒ‡ƒ“‚ÍPROGRAM‚âƒTƒuƒ‹[ƒ`ƒ“‚ÌŠJŽnˆÊ’u‚æ‚è‘O‚Å‚·BƒVƒXƒeƒ€\¬ƒtƒ@ƒCƒ‹‚ªŒ©‚‚©‚ç‚È‚¢‚©AƒI[ƒvƒ“‚Å‚«‚Ü‚¹‚ñB%sƒRƒ}ƒ“ƒhƒ‰ƒCƒ“EƒvƒƒZƒbƒT‚Åd‘å‚ȃGƒ‰[‚ªŒ©‚‚©‚è‚Ü‚µ‚½BƒIƒvƒVƒ‡ƒ“ "%s"‚ª•K—v‚Å‚·BƒCƒ“ƒWƒP[ƒ^”z—ñƒTƒCƒY‚ÍAƒzƒXƒg•Ï”‚Ì‚à‚Ì‚æ‚謂³‚­‚Å‚«‚Ü‚¹‚ñBƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚ŃIƒvƒVƒ‡ƒ“‚ªNLS_LOCAL=YES‚Ì‚Æ‚«MODE=ANSI‚Å‚ ‚é•K—v‚ª‚ ‚è‚Ü‚·BResult Set Cursor‚ÌŽg—p‚Í•W€SQL‚Å‚Í‚ ‚è‚Ü‚¹‚ñBˆ8‰TŠz‹¸Œè)ŽgÃSQL_CURSOR錾•”‚ª–³Œø‚Å‚·BSQL_CURSORƒzƒXƒg•Ï”‚ÌŽw’肪–³Œø‚Å‚·BŒ‹‰ÊƒZƒbƒgEƒJ[ƒ\ƒ‹‚Í‚±‚̃vƒŠƒRƒ“ƒpƒCƒ‰‚ÉŽÀ‘•‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBEXEC SQL•¶‚ÌŒã‚ÅAMAXLITERAL‚Ì•ÏX‚Í‚Å‚«‚Ü‚¹‚ñBCREATE FUNCTION/PROCEDURE/PACKAGE/TRIGGER‚ÍAOracleŠg’£‹@”\‚Å‚·BƒXƒŒƒbƒhEƒZ[ƒtƒeƒB‚Í‚±‚̃vƒŠƒRƒ“ƒpƒCƒ‰‚ÉŽÀ‘•‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBEXEC SQL CONTEXT USE•¶‚ªŒ©‚‚©‚è‚Ü‚¹‚ñBƒ‰ƒ“ƒ^ƒCƒ€EƒRƒ“ƒeƒLƒXƒg•Ï”‚ÌŒ^‚ª³‚µ‚­‚ ‚è‚Ü‚¹‚ñB8‘’´“ìè.éSêzë´ØUNSAFE_NULL=YES‚ÍDBMS=V7‚©‚ÂMODE=ORACLE‚ðŽw’肵‚ÄŽg—p‚·‚é•K—v‚ª‚ ‚è‚Ü‚·B‚±‚Ì•¶‚ÍTHREADS=YES‚ðŽw’肵‚½ê‡‚Ì‚ÝŽg—p‰Â”\‚Å‚·BƒzƒXƒgEƒIƒvƒVƒ‡ƒ“‚Ì’l‚ªŠÔˆá‚Á‚Ä‚¢‚Ü‚·B–³Ž‹‚³‚ê‚Ü‚µ‚½BDBMS=V6‚ÍŒ»ÝƒTƒ|[ƒg‚µ‚Ä‚¢‚Ü‚¹‚ñBDBMS=NATIVE‚ðŽg—p‚µ‚Ä‚­‚¾‚³‚¢BPro*COBOL‚ÌŽÀs‚Í”F‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBPro*COBOL”F‰ÂŠúŠÔ‚ÍŠÔ‚à‚È‚­–ž—¹‚µ‚Ü‚·BƒCƒ“ƒWƒP[ƒ^—̈æ“à‚Ì•¶Žš"%c"‚Í–³Œø‚Å‚·(s%u, ƒtƒ@ƒCƒ‹%s)BŒp‘±s‚ª–³Œø‚Å‚·(s%u, ƒtƒ@ƒCƒ‹%s)B ì>ídîˆïÃðìñ+òhó”ôÐïEXEC•¶‚Ì“r’†‚Ńtƒ@ƒCƒ‹‚ªI—¹‚µ‚Ü‚µ‚½BPROCEDURE DIVISION‚ªŒ©‚‚©‚è‚Ü‚¹‚ñBEXEC•¶‚ð—̈æA“à‚ÅŽn‚߂邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BWORKING-STORAGE SECTION‚ªŒ©‚‚©‚è‚Ü‚¹‚ñBDECLAREƒZƒNƒVƒ‡ƒ“‚Å•¡”‚̃GƒŒƒƒ“ƒgEƒŒƒR[ƒh‚Í錾‚Å‚«‚Ü‚¹‚ñBSQL•¶‚ÌI‚í‚è‚É‚ÍELSE‚Ü‚½‚̓sƒŠƒIƒh‚ðŽg—p‚µ‚Ü‚·(HOST=COB74)B•¶ŽšƒŠƒeƒ‰ƒ‹’†‚É–³Œø‚ÈNULL•¶Žš‚ª‘¶Ý‚µ‚Ü‚·BUSAGE IS BINARY‹å‚ÍA“¯‚¶s‚ÅA"."‚ÅI—¹‚·‚é•K—v‚ª‚ ‚è‚Ü‚·BDATA DIVISION‚ªŒ©‚‚©‚è‚Ü‚¹‚ñB õ>öu÷©øÈùýú-ûmLM´ÝPIC N”z—ñ•Ï”: "%s"(s%u, ƒtƒ@ƒCƒ‹%s)‚ÌŽg—p‚ª–³Œø‚Å‚·BPIC N PICTURE‹å‚Å"VARYING"‚̓Tƒ|[ƒg‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBPIC N•Ï”%s‚𓙉¿‚É‚Å‚«‚Ü‚¹‚ñB"N"•¶ŽšƒŠƒeƒ‰ƒ‹‚ÍA–„ž‚ÝPL/SQL‚ŃTƒ|[ƒg‚³‚ê‚Ü‚¹‚ñBSQLCA‚ÆSQLCODE•Ï”‚ÍA—¼•û“¯Žž‚ÉŽg—p‚Å‚«‚Ü‚¹‚ñB•ÏŠ·ƒoƒbƒtƒ@EƒTƒCƒY‚ªŽw’è‚Å‚«‚é‚̂̓Lƒƒƒ‰ƒNƒ^Eƒ^ƒCƒv‚Ì‚Ý‚Å‚·B•ÏŠ·ƒoƒbƒtƒ@EƒTƒCƒY‚ª–³Œø‚Å‚·BPro*FORTRAN‚ÌŽÀs‚Í”F‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBPro*FORTRAN”F‰ÂŠúŠÔ‚ÍŠÔ‚à‚È‚­–ž—¹‚µ‚Ü‚·B NJ°n±²²Üx(yNÜxÝ›æÂøƒ‰ƒxƒ‹‚ª–³Œø‚Å‚·(s%u, ƒtƒ@ƒCƒ‹%s)BPro*C‚ÌŽÀs‚Í”F‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBPro*C”F‰ÂŠúŠÔ‚ÍŠÔ‚à‚È‚­–ž—¹‚µ‚Ü‚·BŽ¯•ÊŽq "%s" ‚Í31•¶Žš‚ÉØ‚èŽÌ‚Ä‚ç‚ê‚Ü‚µ‚½BPro*PL/I‚ÌŽÀs‚Í”F‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBPro*PL/I‚Ì”F‰ÂŠúŠÔ‚ÍŠÔ‚à‚È‚­–ž—¹‚µ‚Ü‚·BPro*Pascal‚ÌŽÀs‚Í”F‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBPro*Pascal‚Ì”F‰ÂŠúŠÔ‚ÍŠÔ‚à‚È‚­–ž—¹‚µ‚Ü‚·BPro*Ada‚ÌŽÀs‚Í”F‰Â‚³‚ê‚Ä‚¢‚Ü‚¹‚ñBPro*Ada‚Ì”F‰ÂŠúŠÔ‚ÍŠÔ‚à‚È‚­–ž—¹‚µ‚Ü‚·B%s‚ÉPackage‚Ü‚½‚ÍProcedureAFunction‚Ì•¶‚ª‚ ‚è‚Ü‚¹‚ñBçzèÄéëDЅхҒӟԪխְ׻ؿÙÅÚÓÛâÜåÝèÞîõŽ¯•ÊŽq(s%d, ƒtƒ@ƒCƒ‹%s)‚ªƒtƒ@ƒCƒ‹%s‚Ŷ¬‚³‚ꂽƒR[ƒh‚ɑ΂µ‚Ä’·‚·‚¬‚Ü‚·Bƒtƒ@ƒCƒ‹%s‚Ö‚Ì–³Œø‚ÈEXEC SQL INCLUDE‚ª‚ ‚è‚Ü‚·(s%u, ƒtƒ@ƒCƒ‹%s)BFIPSŒx: ƒf[ƒ^Œ^‚ªƒTƒ|[ƒg‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BFIPSŒx: ƒzƒXƒg•Ï” "%s"‚ªéŒ¾‚³‚ê‚Ä‚¢‚Ü‚¹‚ñ(s%u, ƒtƒ@ƒCƒ‹%s)BINTO/Bind•Ï”SQL•¶‚ÌI‚í‚è:GETPUTBlock.FieldINTOVALUESVALUES (...)‹åVALUE‹å‚ÌI‚í‚èSQ0SQLSQLCA SQLCA, $ßààèáòâóãäåæçè$é*ê0ë8ìAíiîqïtðvñšò›ó¤ô§õ©ö­÷²ø·ù¼úÂûÊüÎýÖþ×ÿàèíö÷&sqlca, ]ƒtƒ@ƒCƒ‹‚ÌI‚í‚è)(,ANYSTATEMENTCURSORDEFINEDATABASEundefined0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,FORAT: ‚Ü‚½‚Í•¶Žš—ñ/”’l‚Ìconst&Pro*COBOLyesnolongshortquoteapostansi14terminalnoneOptions:vPICTURE‹åEND-EXECTIMESCONTINUE.."ÔÝÞæðö ý     )5?ALQYcjpy}€ˆŒ’” –!—"#¦4¨Õ:Iaddress•¶‚ÌI‚í‚èoraclelimitedfullansi13iso13ansi13/iso13iso14ansi14/iso14ROLLBACK TO FOR UPDATEISPro*FORTRANPro*CPro*PL/IPro*PascalPro*Adasyntaxsemanticsansiisoansi/isokr_cansi_cv6v7vnativev8Š„‚è“–‚Ä‚ç‚ꂽƒƒ‚ƒŠ[EƒuƒƒbƒN‚ªˆê”t‚Å‚·B 5n6¦7á8ý9: ;<&=2>??N@SA[BeC|D¬EÇìpccfre(%8.x,%u)ŽÀs’†‚ÉPRO*“à•”ƒGƒ‰[‚ªŒŸo‚³‚ê‚Ü‚µ‚½B pccrlc(%8.x,%u,%u)ŽÀs’†‚ÉPRO*“à•”ƒGƒ‰[‚ªŒŸo‚³‚ê‚Ü‚µ‚½B ƒRƒ}ƒ“ƒhƒ‰ƒCƒ“EƒIƒvƒVƒ‡ƒ“: ®”’lƒVƒ“ƒ{ƒ‹host_languageinput_filenameinclude_pathlist_filenameoutput_filenameAM_IDƒ†[ƒU[ƒpƒXƒ[ƒhContext Area‚̃TƒCƒY(K)uyesv‚ÌꇂÍAASAƒLƒƒƒŠƒbƒW§Œä‚ðŽg—p‚µ‚Ü‚·B¶¬‚·‚éFORTRANƒ‰ƒxƒ‹‚ÌʼnIFDEF‚ÅŽg—p‚·‚éƒVƒ“ƒ{ƒ‹‚ð’è‹`‚µ‚Ü‚·B FVGqHœI¶JðKL M>NyOPµQÌRÜ‚·‚éFORTRANƒ‰ƒxƒ‹‚ÌÅŒãuYesv‚ÌꇂÍA’[––‚ɃGƒ‰[‚ð•\Ž¦‚µ‚Ü‚·B“ü—̓tƒ@ƒCƒ‹EƒtƒH[ƒ}ƒbƒguYesv‚ÌꇂÍAOraCursor‚ð•ÛŽ‚µ‚Ü‚·(Š„“–‚Ä‚µ’¼‚³‚È‚¢)BCOBOL, COB74, FORTRAN, Pascal, PLI“ü—̓tƒ@ƒCƒ‹–¼EXEC SQL INCLUDEƒtƒ@ƒCƒ‹‚̃pƒXuYesv‚ÌꇂÍAƒCƒ“ƒ‰ƒCƒ“EƒR[ƒh‚𶬂µ‚Ü‚·(AM‚Å‚È‚¢)B“ü—̓tƒ@ƒCƒ‹‚̃ŒƒR[ƒhEƒtƒH[ƒ}ƒbƒg“ü—̓tƒ@ƒCƒ‹‚̃ŒƒR[ƒh’·COBOLƒŠƒeƒ‰ƒ‹EƒfƒŠƒ~ƒ^¶—]”’(PL/I‚Ì‚Ý)ƒŠƒXƒgEƒtƒ@ƒCƒ‹–¼S\T„U VªWÀXçYZ%[C\V]z^’_¬`Æþƒtƒ@ƒCƒ‹‚̃ŒƒR[ƒhEƒtƒH[ƒ}ƒbƒg‚̃ŠƒXƒgƒŠƒXƒgEƒtƒ@ƒCƒ‹‚̃ŒƒR[ƒh’·Œ^‚̃ŠƒXƒgƒŠƒeƒ‰ƒ‹•¶Žš—ñ‚ÌÅ‘å’·ƒJ[ƒ\ƒ‹EƒLƒƒƒbƒVƒ…‚ÌOraCursor‚ÌÅ‘å”ansi‚È‚ç‚ÎAANSI•W€‚É€‹’‚Å‚·B (ISO13‚ÍANSI13‚Æ“¯‹`Œê‚Å‚·B)o—Í(¶¬‚µ‚½ƒR[ƒh)ƒtƒ@ƒCƒ‹–¼ORACA‚ðŽg—p‚µ‚Ü‚·Bo—̓tƒ@ƒCƒ‹‚̃ŒƒR[ƒhEƒtƒH[ƒ}ƒbƒgo—̓tƒ@ƒCƒ‹‚̃ŒƒR[ƒh’·ƒŠƒXƒgEƒtƒ@ƒCƒ‹‚̃y[ƒW’·ƒAƒNƒZƒXEƒ‚ƒWƒ…[ƒ‹Ž¯•ÊŽquYesv‚ÌꇂÍA‚·‚ׂĂÌFETCH/USING‚ðƒŠƒoƒCƒ“ƒh‚µ‚Ü‚·Bahb“cÃdÓefg+hIizj¯k¶lÅmÑnÝoípôüuYesv‚ÌꇂÍAÄ“ü—̓R[ƒh‚𶬂µ‚Ü‚·BuYesv‚ÌꇂÍAŽÀsŒã‚ÉOraCursor‚ð‰ð•ú‚µ‚Ü‚·B‰E—]”’(PL/I‚Ì‚Ý)uYesv‚ÌꇂÍASELECT‚ÌFOUNDƒGƒ‰[‚𶬂µ‚Ü‚·BSQLƒ`ƒFƒbƒNEƒŒƒxƒ‹SQLƒ`ƒFƒbƒNEƒŒƒxƒ‹Oracle‚̃†[ƒU[–¼‚ƃpƒXƒ[ƒhuYesv‚ÌꇂÍAPRO*ƒVƒ“ƒ{ƒ‹‚Ìxref‚𶬂µ‚Ü‚·B "*" ‚ÍEXEC ORACLE OPTIONŒo—R‚̃IƒvƒVƒ‡ƒ“‚ðŽ¦‚µ‚Ü‚·BUNKNOWNƒRƒ“ƒpƒCƒ‹’†%s ƒ†[ƒU[–¼: ƒpƒXƒ[ƒh: Œ»s‚̃IƒvƒVƒ‡ƒ“ƒy[ƒW “Œv•\Ž¦qzrˆs¤t²uÎvàwðx yz{ |#}%~'5€hŒ‚ǃØò–ß‚µƒR[ƒh: %ud‘å“x‚ª%c‚̃ƒbƒZ[ƒW”: %u“ü—Ís‚Ì”: %u錾‚³‚ꂽƒzƒXƒg•Ï”‚Ì”: %uƒJ[ƒ\ƒ‹–¼‚Ì”: %u•¶‚Ì–¼‘O‚Ì”: %uŽg—p‚³‚ê‚éÅ‘åƒoƒCƒg”: %uSQLŽ¯•ÊŽqƒzƒXƒg•Ï”RefDefs‚ÌŽ–‘O’è‹`Ï‹L†Œ»s‚ÌSQL•¶‚ÌPL/SQL‚Å’v–½“I‚ȃGƒ‰[‚ª”­¶‚µ‚Ü‚µ‚½B PRO*‚ª“à•”ƒGƒ‰[%d‚ðŒŸo‚µ‚Ü‚µ‚½B ƒIƒ‰ƒNƒ‹ŽÐƒJƒXƒ^ƒ}EƒTƒ|[ƒgEƒZƒ“ƒ^[‚ɘA—‚µ‚Ä‚­‚¾‚³‚¢B Current_of_cursorpc5fty‚ªƒR[ƒ‹‚³‚ê‚Ü‚µ‚½B „J…u†ˆ‡µˆÒ‰æŠ‹<ŒK“ŽÊàƒGƒ‰[ - ƒŠƒXƒg‚ɃoƒCƒ“ƒh•Ï”‚ª‚ ‚è‚Ü‚¹‚ñBƒAƒT[ƒVƒ‡ƒ“Ž¸”s: #uyesv‚ÌꇂÍAFIPSƒtƒ‰ƒO•t‚¯‚ðŽÀs‚µ‚Ü‚·Bo—Í#sƒRƒ“ƒpƒCƒ‰§Œäƒtƒ@ƒCƒ‹ ƒtƒ@ƒCƒ‹–¼ *¶¬‚³‚ꂽ‹¤’ʃuƒƒbƒN–¼‚ÌÚ“ªŽ«K&R C‚Ü‚½‚ÍANSI C‚𶬂µ‚Ü‚·BV7/V8ŒÝŠ·ƒ‚[ƒhuYesv‚ÌꇂÍAƒ\[ƒX“–‚½‚è‚ÌSQL‚Å•¡”‚̃TƒuƒvƒƒOƒ‰ƒ€‚ðŽw’è‚Å‚«‚Ü‚·Buyesv‚ÌꇂÍAops$ƒAƒJƒEƒ“ƒg‚Ö‚ÌŽ©“®Ú‘±‚ª‰Â”\‚Å‚·BPro*COBOL‚Ìcomp/comp-5 DŒ‘¾’ì“%”\•w–—´˜Óñuyesv‚ÌꇂÍAƒ†[ƒU[’è‹`‚ÌVARCHARƒOƒ‹[ƒvEƒAƒCƒeƒ€‚ðŽó‚¯“ü‚ê‚Ü‚·BuYesv‚ÌꇂÍAPIC NƒzƒXƒg•Ï”錾‚ðŽó“ü‚ê‚Ü‚·BuYesv‚Ìê‡ASQLCODE•Ï”‚ª‚ ‚é‚Ɖ¼’肵‚Ü‚·Buyesv‚ÌꇂÍAƒ}ƒ‹ƒ`ƒXƒŒƒbƒhEƒTƒ|[ƒg‚ªŽw’肳‚ê‚Ü‚·Buyesv‚Ìꇂ͈À‘S‚Å‚È‚¢NULLƒtƒFƒbƒ`‚ª‰Â”\‚É‚È‚è‚Ü‚·B—LŒø‚ȃzƒXƒgŒ¾Œê‚ÍAda‚Å‚·B—LŒø‚ȃzƒXƒgŒ¾Œê‚ÍC‚Å‚·B—LŒø‚ȃzƒXƒgŒ¾Œê‚ÍCOBOLACOB74‚Å‚·B—LŒø‚ȃzƒXƒgŒ¾Œê‚ÍFORTRAN‚Å‚·B—LŒø‚ȃzƒXƒgŒ¾Œê‚ÍPascal‚Å‚·B ™>šYhi¯jéklTmvn®Ò—LŒø‚ȃzƒXƒgŒ¾Œê‚ÍPLI‚Å‚·BInteger‚Ìê‡Acomp-1‚ÍshortŒ^Acomp-2‚ÍlongŒ^‚Å‚·BŒ»s‚̃ŠƒŠ[ƒX‚©‚çA”pŽ~‚³‚ê‚Ü‚·BuYesv‚ÌꇂÍAASAƒLƒƒƒŠƒbƒWEƒRƒ“ƒgƒ[ƒ‹‚ðŽg—p‚µ‚Ü‚·Buyesv‚ÌꇂÍASQLCODE•Ï”‚ª‘¶Ý‚·‚é‚Ɖ¼’肵‚Ü‚·Buyesv‚ÌꇂÍAops$ƒAƒJƒEƒ“ƒg‚Ö‚ÌŽ©“®Ú‘±‚ª‰Â”\‚Å‚·BŒ»s‚̃ŠƒŠ[ƒX‚©‚çA”pŽ~‚³‚ê‚Ü‚·BuYesv‚ÌꇂÍAANSI CƒR[ƒh‚𶬂µ‚Ü‚·B¶¬‚³‚ꂽ‹¤’ʃuƒƒbƒN–¼‚ÌÚ“ªŽ« [*] oJp~q¨ràsïtÿu$vFwqxžyÀÿInteger‚Ìê‡Acomp-1‚ÍshortŒ^Acomp-2‚ÍlongŒ^‚Å‚·Bcomp•Ï”‚Ì‚©‚í‚è‚Écomp-5•Ï”‚𶬂µ‚Ü‚·Bƒ†[ƒU[’è‹`‚Ì\¬ƒtƒ@ƒCƒ‹‚ðŽw’è‚·‚邽‚ß‚ÉŽg—p‚³‚ê‚Ü‚·BV7/V8ŒÝŠ·ƒ‚[ƒh“à•”‚Å‚ÌŽg—p‚Ì‚ÝIFDEF‚ÅŽg—p‚·‚éƒVƒ“ƒ{ƒ‹‚ð’è‹`‚µ‚Ü‚·BŒ»s‚̃ŠƒŠ[ƒX‚©‚çA”pŽ~‚³‚ê‚Ü‚·BuYesv‚ÌꇂÍA’[––‚ɃGƒ‰[‚ð•\Ž¦‚µ‚Ü‚·Buyesv‚ÌꇂÍAFIPSƒtƒ‰ƒO•t‚¯‚ðŽÀs‚µ‚Ü‚·B“ü—̓tƒ@ƒCƒ‹‚Ì‘Ž® uYesv‚ÌꇂÍAOraCursor‚ð•ÛŽ‚µ‚Ü‚·(ÄŠ„‚è“–‚Ä‚µ‚Ü‚¹‚ñ)B[*]zb{l|z}ž~ÀÈ€àý‚(ƒ.„@…H†d‡ˆ›ƃzƒXƒgŒ¾Œê“ü—̓tƒ@ƒCƒ‹–¼EXEC SQL INCLUDEƒtƒ@ƒCƒ‹‚̃pƒX–¼ [*]Œ»s‚̃ŠƒŠ[ƒX‚©‚çA”pŽ~‚³‚ê‚Ü‚·B*irecfm*“ü—̓tƒ@ƒCƒ‹‚̃ŒƒR[ƒh’·o—Í#sƒRƒ“ƒpƒCƒ‰§Œäƒtƒ@ƒCƒ‹COBOL•¶Žš—ñƒŠƒeƒ‰ƒ‹‚̃fƒŠƒ~ƒ^ ¶—]”’ƒŠƒXƒgEƒtƒ@ƒCƒ‹–¼*lrecfm*ƒŠƒXƒgEƒtƒ@ƒCƒ‹‚̃ŒƒR[ƒh’·ƒŠƒXƒgŒ^ [*]ƒŠƒeƒ‰ƒ‹•¶Žš—ñ‚ÌÅ‘å’· [*]ƒJ[ƒ\ƒ‹EƒLƒƒƒbƒVƒ…‚ÌOraCursor‚ÌÅ‘å” [*] ‰JŠ”‹ÜŒ%ŽCrz‘’’¬“Òôuansiv‚ÌꇂÍAANSI‹KŠi‚É€‚¶‚Ü‚·BuYesv‚ÌꇂÍAƒ\[ƒX“–‚½‚è‚ÌSQL‚Å•¡”‚̃TƒuƒvƒƒOƒ‰ƒ€‚ðŽw’è‚Å‚«‚Ü‚·BuYesv‚ÌꇂÍAPIC NƒzƒXƒg•Ï”錾‚ðŽó“ü‚ê‚Ü‚·BStratusŒÅ—L‚̃IƒvƒVƒ‡ƒ“o—Í(¶¬‚µ‚½ƒR[ƒh)ƒtƒ@ƒCƒ‹–¼uyesv‚ÌꇂÍAORACA’ÊM—̈æ‚ðŽg—p‚µ‚Ü‚·B[*]*orecfm*o—̓tƒ@ƒCƒ‹‚̃ŒƒR[ƒh’·ƒŠƒXƒgEƒtƒ@ƒCƒ‹‚̃y[ƒW’·PL/SQL‚̃vƒŠƒRƒ“ƒpƒCƒ‰‚̃o[ƒWƒ‡ƒ“•\Ž¦Œ»s‚̃ŠƒŠ[ƒX‚©‚çA”pŽ~‚³‚ê‚Ü‚·B ”D•f–ˆ—¿˜Å™úš8›lœ|µ쌻s‚̃ŠƒŠ[ƒX‚©‚çA”pŽ~‚³‚ê‚Ü‚·BŒ»s‚̃ŠƒŠ[ƒX‚©‚çA”pŽ~‚³‚ê‚Ü‚·BuYesv‚ÌꇂÍAŽÀsŒã‚ÉOraCursor‚ðƒŠƒŠ[ƒX‚µ‚Ü‚·B[*]‰E—]”’uyesv‚ÌꇂÍASELECT‚ÅFOUNDƒGƒ‰[‚𶬂µ‚Ü‚·B[*]SQLƒ`ƒFƒbƒNEƒŒƒxƒ‹ uYesv‚ÌꇂÍAAdaƒ^ƒXƒNEƒTƒ|[ƒg‚ª’ñ‹Ÿ‚³‚ê‚Ü‚·B“à•”‚Å‚ÌŽg—p‚Ì‚Ýuyesv‚ÌꇂÍAƒ}ƒ‹ƒ`ƒXƒŒƒbƒhEƒTƒ|[ƒg‚ªŽw’肳‚ê‚Ü‚·Buyesv‚Ìꇂ͈À‘S‚Å‚È‚¢NULLƒtƒFƒbƒ`‚ª‰Â”\‚É‚È‚è‚Ü‚·BžŸ8 €ÀOracle‚̃†[ƒU[–¼‚ƃpƒXƒ[ƒhuyesv‚ÌꇂÍAƒ†[ƒU[’è‹`‚ÌVARCHARƒOƒ‹[ƒvEƒAƒCƒeƒ€‚ðŽó‚¯“ü‚ê‚Ü‚·Buyesv‚ÌꇂÍAƒVƒ“ƒ{ƒ‹EƒNƒƒXEƒŠƒtƒ@ƒŒƒ“ƒX‚𶬂µ‚Ü‚·B[*]ÿÿÿÿ