PREPROCESS(cobsql)

構文

Windows:

{preprocess | p}(cobsql) [[[{cobsqltype|csqlt}=preCompiler] [COBSQLopts] {end-cobsql|end-c|end} [PreCompilerOpts endp]]

UNIX:

cob -C "{preprocess | p}(cobsql) [[[{cobsqltype|csqlt}==preCompiler] [COBSQLopts] {end-cobsql|end-c|end}] [PreCompilerOpts endp]]"

パラメーター

preCompiler

サードパーティのデータベース プリコンパイラ名です。デフォルトは「oracle8」です。有効な値の一覧は、COBSQLTYPE、CSQL を参照してください。

COBSQLopts

COBSQL コンパイラ指令オプション各オプションの詳細は、「COBSQL コンパイラ指令オプション」を参照してください。

end-cobsql|end-c|end

COBSQL オプションの終了を通知します。

PreCompilerOpts

サードパーティ プリコンパイラ指令のオプション。

endp

PREPROCESS 指令に指定されたオプションの終了を通知します。

コメント

cobsql 必ず小文字で指定します。 (applies to UNIX environments only)

end-c endp は、次のように作用します。

• end-c の前に記述された指令が COBSQL に渡されます。
• end-c と endp の間に記述された指令は、COBSQL を通じてサードパーティのプリコンパイラに渡されます。
• endp の後に記述された指令が COBOL コンパイラに渡されます。
  警告: COBOL コンパイラ指令を追加する前に、必ず endp を指定してください。COBSQL は endp に到達するまで指令を処理し続けるため、これを省略した場合、COBOL 指令が COBOL コンパイラではなく COBSQL 指令で処理されることになります。

例

Oracle

Windows:

cobol testprog p(cobsql) csqlt=ora makesyn end-c xref=yes mode=ansi endp list()

end-c で終了する COBSQL 指令は、csqlt=ora と makesyn です。endp で終了するプリコンパイラ指令 (この場合は、Pro*COBOL) は、xref=yes と mode=ansi です。COBOL コンパイラー指令は list() です。

cobol sample.pco anim preprocess(cobsql) cstart cstop csqlt=ora end-c comp5=yes endp;

指定された COBOL コンパイラ指令は anim です。preprocess(cobsql) で開始し、end-c で終了する COBSQL 指令は、cstart cstop と csqlt=ora です。endp で終了するプリコンパイラ指令 (この場合は、Pro*COBOL) は、comp5=yes です。セミコロン (;) はコマンド ラインの終わりを示します。

UNIX:

cob –k testprog.pco –C "p(cobsql) csqlt==ora makesyn end-c xref==yes mode==ansi endp ans85"

end-c で終了する COBSQL 指令は、csqlt==ora と makesyn です。endp で終了するプリコンパイラ指令 (この場合は、Pro*COBOL) は、xref==yes と mode==ansi です。COBOL コンパイラー指令は ans85 です。

cob -k sample.pco anim "preprocess(cobsql) csqlt==ora end-c comp5==yes endp"

指定された COBOL コンパイラ指令は anim です。preprocess(cobsql) で開始し、end-c で終了する COBSQL 指令は、csqlt==ora.です。endp で終了するプリコンパイラ指令 (この場合は、Pro*COBOL) は、comp5==yes です。

Sybase

Windows:

cobol example1.pco confirm preprocess(cobsql)
   cstop csp cobsqltype=sybase preprocess(cp) sy endp;

UNIX:

cob -a -v -P -k example1.pco -C "p(cobsql) CSQLT==syb endp"

Informix

UNIX:

cob -a -k demo1.eco -C "p(cobsql) 
    cobsqltype==informix-new endp"