!  '  &5AMZeq5IZmn~ DTx. \  ݵLk} %s ɮײ %u / %u / %s ɮתykLIJ %u / %u / %s ɮת SQL ѧOrLIJ %u (b %s ɮפ) IF/ELSE/ENDIF ϶ŦX %u (b %s ɮפ) Q䴩 %u / %u / %s ɮת WHENEVER LIJ %u / %u / %s ɮת WHENEVER ʧ@LIJ %u / %u / %s ɮתDܼƵLIJ %u (b %s ɮפ) ԭzm~wgb %u (b %s ɮפ) declare section D u)O|ޤb %u (b %s ɮפ) declare section Lk} include ɮ "%s" (b %u / %s ɮ)ŧi SQL ѧOr "%s" ( %u / %s ɮ)L %u (b %s ɮ) LkѧODyykLk}Ҳ %u (b %s ɮפ) еLkR %u (b %s ɮפ) ԭz "%s", "%.15s" ( %u / %s ɮ)Lkob %u (%s ɮפ) sܼƵLko %u (b %s ɮפ) wqܼOracle ~: %s\{@h{ !$%&Ŷ - Lktm %u Ӧ줸յLkq ORACLE nXܾܼ "%s" Ϊ׿~ ( %u / %s ɮ)ŧiܾܼ "%s" ( %u / %s ɮ)LĪDܼ "%s" ( %u / %s ɮ)sŧi SQL ѧOr "%s" ( %u / %s ɮ) EXEC ORACLE OPTION ɿﶵ "%s" XkҸWiﶵ "%s"ﶵ "%s" ƭȵLĵLĪﶵ "%s"|ﶵ "%s" BS]wJɦWٵLkH "%s" nJ ORACLE. ORACLE ~s: %uLk}ҫ 'D(W)j*},-/2T35Lk}ҿJ "%s"Lk}ҲM "%s"Lk}ҿX "%s" EXEC SQL INCLUDE SQLCA, ϥ mode =ANSI M WHENEVER SQLWARNING INTO/USING }CӤp. ̤pO: %s(%u:%u)%s lyA ( %u / %s ɮ). Bz.ba %u ( %s ɮפ) 񦳥פ/r`Ʋ %u (b %s ɮפ) {椸ಣʹyz VARCHAR %s jpj 65533 (b %u / %s ɮ)FOR ܼ %s L (b %u / %s ɮ) 6>7s8<=><?w@A %u / %u / %s ɮתӭn End-of-Statement}C "%s" b %u ( %s ɮפ) \@sܼƲ %u (b %s ɮ) FOR ly\b SELECT ԭz CURSOR M STATEMENT AT lyb %u ɮ %s.~X{b %u / %u . PLS-%u: %sO PL/SQL , ϥοﶵ SQLCHECK=SEMANTICS(FULL)%s ɮקb %u 檺ԭze!ҦwDܼƥϥάۦPܾܼ.ϥΪ ID, Sw. BJCDEFG.H?I]KLMϥΪ ID ub SQLCHECK = FULL ɤ~ϥ, LϥΪ ID.Ireclen WL. %u (b %s ɮפ) QI_.DMܾܼƤ঳ۦPW.Dܼ "%s" b %u / %s ɮצQ䴩Xkyk, b SQL ԭzƪ: %sLk}ҰTɮ.JɮצW٪׶WL̤jײ %u (b %s ɮפ) гQŧi, S OPEN.bܾܼƤeӭn ":"DISPLAY O SIGN LEADING SEPARATEWHENEVER ԭzƭȼҪ_ΪkX ANSI NPOnPQRSUV-WCXjYZFIPS ĵi: ANSI SQL ѧOrLĦb WHENEVER ԭz ANSI bҤWݭn_TYPE ѧOrwg TYPEdҫw\ƪW满שMƳW满OƳsܼƩMwqܼƤ\b CREATE ԭzgJ %s ɮ׮ɵo~ӷɮ %s ׬sDy\ EXEC SQL TYPE ԭzyݭnTϥΪ̩wqѧOrOracle TYPE W满LĺTשΦƳW满nw DECIMAL [J\]^_`!a>bncdeo Oracle , TYPE ԭzݭn榡W满שM/ΦƻPw Oracle ŦXLĩΧ@oﶵ, Bzchar[n] }Cץj󵥩 2| PROGRAM, SUBROUTINE, FUNCTION, BLOCK DATAԭz}C FETCH \ mode=ANSI14DECIMAL M DISPLAY ȯb COBOL M PL/I ϥΦƳW满ΦbTҪפQw ROWID, DATE MLSLABEL DƼҤX ANSIpg 'e' bBIƤX ANSI fPgmhijklm#nXoupqFOR UPDATE O Oracle XRykAT lyO Oracle XRykFOR lyO Oracle XRykANSI bݭnr WORKRELEASE O Oracle COMMIT M ROLLBACK ԭzXRykCONNECT ԭzy Oracle ANSI S䴩ԭzʺA SQL M PL/SQL O Oracle ANSI SQL XRykOracle XR WHENEVER ԭzyb EXEC ORACLE ԭz SQLCHECK ȶWLRO檺ANSI S䴩DBMS ﶵȹ󵹩w MODEﶵLrbstuvwx yAzY{s|~EXEC SQL VAR ԭz VARxxx ݭn]w׳W}CbOb ARRAYLEN ԭzwgw}CARRAYLEN ܼLANSI SQL 䴩ϥΥDܼƪlƦb INTO ly const ȱN|Qקb͵{X, oɮ I/O ~VARCHAR 쾹SQ䴩JɩMXɦW٬OۦP VARCHAR ŧibP@COMMON_NAME ﶵӱ߳Q]w䤣εLk}ҨtβպA%sROBzoY~w "%s" ﶵ Jj:vܾ}CjpjDܼƿﶵ NLS_LOCAL=YES ݦROﶵ MODE=ANSIResult Set Cursor ΪkOзǪ SQLSQL_CURSOR ŧiLSQL ХDܼƪϥεLĦbemsĶ, SI Result Set CursorsLkb EXEC SQL ԭzܧ MAXLITERALCREATE FUNCTION/PROCEDURE/PACKAGE/TRIGGER O Oracle XRykemsĶuôuwvSJ EXEC SQL CONTEXT USE ԭzy{ڰTܼƪT POqUNSAFE_NULL=YES tX DBMS=V7 MODE=ORACLE ϥΦԭzyuP THREADS=YES @_ϥΥDﶵȤT, Bzw䴩 DBMS=V6; Шϥ DBMS=NATIVEzSvh Pro*COBOLz Pro*COBOL vYNܾϰ즳LĪr "%c" %u (b %s ɮפ) %u (b %s ɮפ) LĦbɮ׵@ EXEC ԭz䤣 PROCEDURE DIVISIONEXEC ԭzq %u (b %s ɮפ) A ϰ}l䤣 WORKING-STORAGE SECTION Pp;]sDECLARE q\hӤON hostlan = COB74 Ө, SQL ԭzyᥲ ELSE "."rr NULL rϥεLUSAGE IS BINARY lybP@H "." פ䤣 DATA DIVISIONPIC N }Cܼ "%s" %u (b %s ɮפ) ϥεLPIC N PICTURE ly䴩 "VARYING"PIC N ܼ %s ۵r PL/SQL 䴩 "N" rr SQLCA M SQLCODE ܼƵLkPɨϥζȥirwഫwİϤjpLĪഫwİϤjp LVMrNx/yJf~ͱzSvh Pro*FORTRANz Pro*FORTRAN vYN %u (b %s ɮפ) ҵLızSvh Pro*Cz Pro*C vYNѧOr "%s" QI_ 31 ӦrzSvh Pro*PL/Iz Pro*PL/I vYNzSvh Pro*Pascalz Pro*Pascal vYNzSvh Pro*Adaz Pro*Ada vYNb %s Sݨ Package, Procedure Function ԭzy8rr %d (bɮ %s ) ѧOrb %s ɮפͪ{XӻL%s ɮפLĪ EXEC SQL INCLUDE b %u (b %s ɮפ) FIPS ĵi: %u (b %s ɮפ) Q䴩FIPS ĵi: ŧiDܼ "%s", b %u ( %s ɮפ)INTO/Bind ܼSQL ԭz:GETPUTBlock.FieldINTOVALUESVALUES (...) lyVALUES lySQ0SQLSQLCA SQLCA, &sqlca, & &,4=empr]ɮ׵)(,ANYSTATEMENTCURSORDEFINEDATABASEundefined0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,FORAT : Φr/ƭȱ`&Pro*COBOLyesnolongshortquoteapostansi14terminalnoneOptions:vPICTURE lyEND-EXECTIMESCONTINUE..< >:Iaddress       !,19CJPY]`hlrt v!w"}#45ױԭzoraclelimitedfullansi13iso13ansi13/iso13iso14ansi14/iso14ROLLBACK TO FOR UPDATEISPro*FORTRANPro*CPro*PL/IPro*PascalPro*Adasyntaxsemanticsansiisoansi/isokr_cansi_cv6v7vnativev8tmO϶wgsLh. n pccfre(%8.x, %u), PRO* ~. 6789:;<=>?@ABC>DYEpFGHIn pccrlc(%8.x, %u, %u) , PRO* ~. ROﶵ : ƲŸhost_languageinput_filenameinclude_pathlist_filenameoutput_filenameAM_IDϥΪ̱KXTҰ (H K p) jppGO, Шϥ ASA k챱}l FORTRAN ҥHͦb IFDEF wq@ӲŸHϥε FORTRAN ҥHͦpGO, hܿ~ܲ׺ݾJɮ׮榡pGO, hOd OraCursor ( sw )JnKLMNOP QR2S>TNU^VfWxXYZCOBOL, COB74, FORTRAN, Pascal, PLIJɮצWɮ EXEC SQL INCLUDE |W٦pGO, hͦ椺i} ( inline ) X ( S AM )JɮװO榡JɮװOCOBOL rɦr ( Ȧ PL/I )CɮצW٦CɮװO榡CɮװOצCrrꪺ̤jצbЧ֨ OraCursors ̤j nrpG ansi, Nq ANSI з ( ISO13 O ANSI13 @ӦPqr )X ( ͪ{X ) ɮצW[z\]^_`abcd,eOf[gghijklmϥ ORACAXɮװO榡XɰOצCɮ׭ױҲѧOrpGO, hssC@ FETCH/USINGpGO, hͭJXpGO, hb槹X OraCursork ( Ȧ PL/I )pGO, hb SELECT FOUND ~SQL ˬdhSQL ˬdhOracle nJϥΪ ID MKXpGO, h PRO* Ÿ xref "[*]" Xg EXEC ORACLE OPTION ﶵOXkUNKNOWNemsĶ %s ϥΪ ID: KX: nopqrstuvwx#y-z5{9|=}?~AIyثeﶵ έpƦ^нX: %uY %c TӼ: %uJ: %uŧiDܼƼƥ: %uЦW٪Ӽ: %uԭzW٪Ӽ: %ṳjϥΪ줸: %uSQL ѧOrDܼưѷөwqbw]Ÿbaثe SQL ԭz PL/SQL PR~o. PRO* @Ӥ~ (%d). лP Oracle qȤ䴩pô. Current_of_cursorpc5fty Is !~ - bM椤䤣sܼ! bm?WDi: #pGO, h FIPS XпX渹sĶ< @ΦW٦r > ɦW *Prefix ͦ@ΰ϶Wٲ K&R C ANSI CV7/V8 ۮeҦpGO, h\ SQL CӨӷɦhӤl{pGO, Y\۰ʳsu ops$ bcomp/comp-5 b Pro*COBOLpGO, hϥΪ̩ҩwq VARCHAR sնئpGO, h PIC N DܼƫŧipGO, h] SQLCODE ܼƦpGO, hѦhôu䴩pGO, h\wŭ^\oh i%j@k_lmnᦳĪDy: AdaĪDy: CĪDy: COBOL, COB74ĪDy: FORTRANĪDy: PascalĪDy: PLIY integer, h comp-1 short comp-2 longbثeΥӪϥΦpGO, hϥ ASA k챱pGO, h] SQLCODE ܼƦsbpGO, Y\۰ʳsu ops$ bbثeΥӪϥΦpGO, h ANSI C Code wͤۦP϶W٪emX [*]ohpqrstuvw8xPypz{|}~Y integer, h comp-1 short comp-2 long comp-5 ӤO comp ܼƥΨӳ]wϥΪ̩wqպAV7/V8 ۮeҦȨѤϥΦb IFDEF wq@ӲŸHϥΦbثeΥӪϥΦpGO, hܿ~ܲ׺ݾpGO, h FIPS XпJɮצ檺榡 pGO, hOd OraCursor (sw) [*]DyJɮצWEXEC SQL INCLUDE ɮת|W [*]bثeΥӪϥ*irecfm*br*jJɮװO׿X渹sĶCOBOL rr ɦrɦCɮצW*lrecfm*CɮװOײM [*]rꪺ̤j [*]Ч֨O餤 OraCursors ̤j [*]Y ansi, п` ANSI з pGO, h\ SQL CӨӷɦhӤl{pGO, h PIC N Dܼƫŧiwﶵ StratusX ( ͪ{X ) ɮצWh,2Xϥ ORACA qTϰ [*]*orecfm*XɰOצCɮ׭ܫemsĶ PL/SQL bثeΥӪϥΦbثeΥӪϥΦbثeΥӪϥΦpGO, hbX OraCursor [*]kɦpGO, | FOUND ~ SELECT [*]SQLˬdŦ pGO, h Ada @~䴩ȨѤϥΦpGO, hѦhôu䴩pGO, h\wŭ^5bOracle nJϥΪ ID MKXpGO, hϥΪ̩ҩwq VARCHAR sնئpGO, hͲŸeѷ [*]