微信扫一扫3387
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zhangzhidong2002 2004-06-18
给你个例子，想也需能给你帮助。
*****************************************************************
* Sample Program 1: Simple Query *
* *
* This program logs on to ORACLE, prompts the user for an *
* employee number, queries the database for the employee's *
* name, salary, and commission, then displays the result. *
* The program terminates when the user enters a 0. *
*****************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. QUERY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 USERNAME PIC X(10) VARYING.
01 PASSWD PIC X(10) VARYING.
01 EMP-REC-VARS.
05 EMP-NAME PIC X(10) VARYING.
05 EMP-NUMBER PIC S9(4) COMP VALUE ZERO.
05 SALARY PIC S9(5)V99 COMP-3 VALUE ZERO.
05 COMMISSION PIC S9(5)V99 COMP-3 VALUE ZERO.
05 COMM-IND PIC S9(4) COMP VALUE ZERO.
EXEC SQL END DECLARE SECTION END-EXEC.
EXEC SQL INCLUDE SQLCA END-EXEC.
01 DISPLAY-VARIABLES.
05 D-EMP-NAME PIC X(10).
05 D-SALARY PIC Z(4)9.99.
05 D-COMMISSION PIC Z(4)9.99.
05 D-EMP-NUMBER PIC 9(4).
01 D-TOTAL-QUERIED PIC 9(4) VALUE ZERO.
PROCEDURE DIVISION.
BEGIN-PGM.
EXEC SQL WHENEVER SQLERROR
DO PERFORM SQL-ERROR END-EXEC.
PERFORM LOGON.
QUERY-LOOP.
DISPLAY " ".
DISPLAY "ENTER EMP NUMBER (0 TO QUIT): "
WITH NO ADVANCING.
ACCEPT D-EMP-NUMBER FROM CONSOLE.
MOVE D-EMP-NUMBER TO EMP-NUMBER.
IF (EMP-NUMBER = 0)
PERFORM SIGN-OFF.
MOVE SPACES TO EMP-NAME-ARR.
EXEC SQL WHENEVER NOT FOUND GOTO NO-EMP END-EXEC.
EXEC SQL SELECT ENAME, SAL, COMM
INTO :EMP-NAME, :SALARY, :COMMISSION:COMM-IND
FROM EMP
WHERE EMPNO = :EMP-NUMBER
END-EXEC.
PERFORM DISPLAY-INFO.
ADD 1 TO D-TOTAL-QUERIED.
GO TO QUERY-LOOP.
NO-EMP.
DISPLAY "NOT A VALID EMPLOYEE NUMBER - TRY AGAIN.".
GO TO QUERY-LOOP.
LOGON.
MOVE "SCOTT" TO USERNAME-ARR.
MOVE 5 TO USERNAME-LEN.
MOVE "TIGER" TO PASSWD-ARR.
MOVE 5 TO PASSWD-LEN.
EXEC SQL
CONNECT :USERNAME IDENTIFIED BY :PASSWD
END-EXEC.
DISPLAY " ".
DISPLAY "CONNECTED TO ORACLE AS USER: ", USERNAME-ARR.
DISPLAY-INFO.
DISPLAY " ".
DISPLAY "EMPLOYEE SALARY COMMISSION".
DISPLAY "-------- ------ ----------".
MOVE EMP-NAME-ARR TO D-EMP-NAME.
MOVE SALARY TO D-SALARY.
IF COMM-IND = -1
DISPLAY D-EMP-NAME, D-SALARY, " NULL"
ELSE
MOVE COMMISSION TO D-COMMISSION
DISPLAY D-EMP-NAME, D-SALARY, " ", D-COMMISSION
END-IF.
SIGN-OFF.
DISPLAY " ".
DISPLAY "TOTAL NUMBER QUERIED WAS ",
D-TOTAL-QUERIED, ".".
DISPLAY " ".
DISPLAY "HAVE A GOOD DAY.".
DISPLAY " ".
EXEC SQL COMMIT WORK RELEASE END-EXEC.
STOP RUN.
SQL-ERROR.
EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
DISPLAY " ".
DISPLAY "ORACLE ERROR DETECTED:".
DISPLAY " ".
DISPLAY SQLERRMC.
EXEC SQL ROLLBACK WORK RELEASE END-EXEC.
STOP RUN.
*****************************************************************
* Sample Program 1: Simple Query *
* *
* This program logs on to ORACLE, prompts the user for an *
* employee number, queries the database for the employee's *
* name, salary, and commission, then displays the result. *
* The program terminates when the user enters a 0. *
*****************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. QUERY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 USERNAME PIC X(10) VARYING.
01 PASSWD PIC X(10) VARYING.
01 EMP-REC-VARS.
05 EMP-NAME PIC X(10) VARYING.
05 EMP-NUMBER PIC S9(4) COMP VALUE ZERO.
05 SALARY PIC S9(5)V99 COMP-3 VALUE ZERO.
05 COMMISSION PIC S9(5)V99 COMP-3 VALUE ZERO.
05 COMM-IND PIC S9(4) COMP VALUE ZERO.
EXEC SQL END DECLARE SECTION END-EXEC.
EXEC SQL INCLUDE SQLCA END-EXEC.
01 DISPLAY-VARIABLES.
05 D-EMP-NAME PIC X(10).
05 D-SALARY PIC Z(4)9.99.
05 D-COMMISSION PIC Z(4)9.99.
05 D-EMP-NUMBER PIC 9(4).
01 D-TOTAL-QUERIED PIC 9(4) VALUE ZERO.
PROCEDURE DIVISION.
BEGIN-PGM.
EXEC SQL WHENEVER SQLERROR
DO PERFORM SQL-ERROR END-EXEC.
PERFORM LOGON.
QUERY-LOOP.
DISPLAY " ".
DISPLAY "ENTER EMP NUMBER (0 TO QUIT): "
WITH NO ADVANCING.
ACCEPT D-EMP-NUMBER FROM CONSOLE.
MOVE D-EMP-NUMBER TO EMP-NUMBER.
IF (EMP-NUMBER = 0)
PERFORM SIGN-OFF.
MOVE SPACES TO EMP-NAME-ARR.
EXEC SQL WHENEVER NOT FOUND GOTO NO-EMP END-EXEC.
EXEC SQL SELECT ENAME, SAL, COMM
INTO :EMP-NAME, :SALARY, :COMMISSION:COMM-IND
FROM EMP
WHERE EMPNO = :EMP-NUMBER
END-EXEC.
PERFORM DISPLAY-INFO.
ADD 1 TO D-TOTAL-QUERIED.
GO TO QUERY-LOOP.
NO-EMP.
DISPLAY "NOT A VALID EMPLOYEE NUMBER - TRY AGAIN.".
GO TO QUERY-LOOP.
LOGON.
MOVE "SCOTT" TO USERNAME-ARR.
MOVE 5 TO USERNAME-LEN.
MOVE "TIGER" TO PASSWD-ARR.
MOVE 5 TO PASSWD-LEN.
EXEC SQL
CONNECT :USERNAME IDENTIFIED BY :PASSWD
END-EXEC.
DISPLAY " ".
DISPLAY "CONNECTED TO ORACLE AS USER: ", USERNAME-ARR.
DISPLAY-INFO.
DISPLAY " ".
DISPLAY "EMPLOYEE SALARY COMMISSION".
DISPLAY "-------- ------ ----------".
MOVE EMP-NAME-ARR TO D-EMP-NAME.
MOVE SALARY TO D-SALARY.
IF COMM-IND = -1
DISPLAY D-EMP-NAME, D-SALARY, " NULL"
ELSE
MOVE COMMISSION TO D-COMMISSION
DISPLAY D-EMP-NAME, D-SALARY, " ", D-COMMISSION
END-IF.
SIGN-OFF.
DISPLAY " ".
DISPLAY "TOTAL NUMBER QUERIED WAS ",
D-TOTAL-QUERIED, ".".
DISPLAY " ".
DISPLAY "HAVE A GOOD DAY.".
DISPLAY " ".
EXEC SQL COMMIT WORK RELEASE END-EXEC.
STOP RUN.
SQL-ERROR.
EXEC SQL WHENEVER SQLERROR CONTINUE END-EXEC.
DISPLAY " ".
DISPLAY "ORACLE ERROR DETECTED:".
DISPLAY " ".
DISPLAY SQLERRMC.
EXEC SQL ROLLBACK WORK RELEASE END-EXEC.
STOP RUN.
- 打赏
- 举报
sparkle1 2004-06-17
001830 DISPLAY "Your username:" WITH NO ADVANCING.
001840 ACCEPT USERNAME FROM CONSOLE.
DISPLAY "Your password:" WITH NO ADVANCING.
ACCEPT PW FROM CONSOLE.
DISPLAY "Your dbname:" WITH NO ADVANCING.
ACCEPT DBNAME FROM CONSOLE.
EXEC SQL CONNECT :USERNAME IDENTIFIED BY :PW
USING :DBNAME
END-EXEC.
DISPLAY " ".
DISPLAY "CONNECTED TO ORACLE AS USER: " , USERNAME.
001840 ACCEPT USERNAME FROM CONSOLE.
DISPLAY "Your password:" WITH NO ADVANCING.
ACCEPT PW FROM CONSOLE.
DISPLAY "Your dbname:" WITH NO ADVANCING.
ACCEPT DBNAME FROM CONSOLE.
EXEC SQL CONNECT :USERNAME IDENTIFIED BY :PW
USING :DBNAME
END-EXEC.
DISPLAY " ".
DISPLAY "CONNECTED TO ORACLE AS USER: " , USERNAME.
- 打赏
- 举报
zhenzhen1 2004-06-08
同时要在编译环境中，引入oracle预编译的lib文件，
我的机子上的文件是在D:\oracle\ora81\precomp\lib\orasql9.lib
cobol85 和cobol97的编译环境不同， 所以引用lib文件的方式也不同
我的机子上的文件是在D:\oracle\ora81\precomp\lib\orasql9.lib
cobol85 和cobol97的编译环境不同， 所以引用lib文件的方式也不同
- 打赏
- 举报
zhenzhen1 2004-06-08
cobol 连接oracle时， 先要对cob或pco 文件用oracle自带的procob进行预编译
然后才能使用。
在cobol97中， 要将sql中用到的变量全部在work－storage节中声明，并且要放在
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
EXEC SQL END DECLARE SECTION END-EXEC.
两句之间。 同时 要引用
EXEC SQL INCLUDE SQLCA.COB END-EXEC.
WORKING-STORAGE SECTION.
000660*---------------------------------------------------------------*
000670* 儂僗僩曄悢掕媊僄儕傾 *
000680*---------------------------------------------------------------*
000690 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000700*
000710 01 倂俽亅儂僗僩曄悢.
000720 03 倂俽亅嬈柋娗棟俬俢 PIC X(08)
000730 VALUE "GYMKNRRC".
000740 03 倂俽亅僾儘僌儔儉俬俢 PIC X(08).
000750*
000760*--< 俷俼俙俠俴俤嫟捠曄悢 >
000770 EXEC SQL INCLUDE SQLCOM.CBL END-EXEC.
000780*
000790*--< 嬈柋娗棟僥乕僽儖 >
000800 EXEC SQL INCLUDE D70GYM.CBL END-EXEC.
000801*
000810*--< 慜庴忣曬僥乕僽儖>
000820 EXEC SQL INCLUDE M40MAB.CBL END-EXEC.
000821*
000830*--< 庢堷愭儅僗僞僥乕僽儖>
000840 EXEC SQL INCLUDE D01TRS.CBL END-EXEC.
000841*
000850*--< 惪媮愭儅僗僞僥乕僽儖>
000860 EXEC SQL INCLUDE D02SQS.CBL END-EXEC.
000861*
000862*--< 嵚尃忣曬僥乕僽儖>
000863 EXEC SQL INCLUDE M01SAJ.CBL END-EXEC.
000881*
000882 77 庡宊栺嬫暘柤徧 PIC N(30).
000883 77 屭媞嬫暘柤徧 PIC N(30).
000884*
000892*
000900 EXEC SQL END DECLARE SECTION END-EXEC.
000910*
000920*--< 俷俼俙俠俴俤 俽俻俴幚峴忣曬 >
000930 EXEC SQL INCLUDE SQLCA.COB END-EXEC.
然后才能使用。
在cobol97中， 要将sql中用到的变量全部在work－storage节中声明，并且要放在
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
EXEC SQL END DECLARE SECTION END-EXEC.
两句之间。 同时 要引用
EXEC SQL INCLUDE SQLCA.COB END-EXEC.
WORKING-STORAGE SECTION.
000660*---------------------------------------------------------------*
000670* 儂僗僩曄悢掕媊僄儕傾 *
000680*---------------------------------------------------------------*
000690 EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000700*
000710 01 倂俽亅儂僗僩曄悢.
000720 03 倂俽亅嬈柋娗棟俬俢 PIC X(08)
000730 VALUE "GYMKNRRC".
000740 03 倂俽亅僾儘僌儔儉俬俢 PIC X(08).
000750*
000760*--< 俷俼俙俠俴俤嫟捠曄悢 >
000770 EXEC SQL INCLUDE SQLCOM.CBL END-EXEC.
000780*
000790*--< 嬈柋娗棟僥乕僽儖 >
000800 EXEC SQL INCLUDE D70GYM.CBL END-EXEC.
000801*
000810*--< 慜庴忣曬僥乕僽儖>
000820 EXEC SQL INCLUDE M40MAB.CBL END-EXEC.
000821*
000830*--< 庢堷愭儅僗僞僥乕僽儖>
000840 EXEC SQL INCLUDE D01TRS.CBL END-EXEC.
000841*
000850*--< 惪媮愭儅僗僞僥乕僽儖>
000860 EXEC SQL INCLUDE D02SQS.CBL END-EXEC.
000861*
000862*--< 嵚尃忣曬僥乕僽儖>
000863 EXEC SQL INCLUDE M01SAJ.CBL END-EXEC.
000881*
000882 77 庡宊栺嬫暘柤徧 PIC N(30).
000883 77 屭媞嬫暘柤徧 PIC N(30).
000884*
000892*
000900 EXEC SQL END DECLARE SECTION END-EXEC.
000910*
000920*--< 俷俼俙俠俴俤 俽俻俴幚峴忣曬 >
000930 EXEC SQL INCLUDE SQLCA.COB END-EXEC.
- 打赏
- 举报
Vicoman 2004-05-10
谢谢各位！
现在还有一些问题，因为是第一次接触COBOL,所以很多地方还不太明白：
1. EXEC SQL ...... END-EXEC 是COBOL里的么，有人说先要用PRO*COBOL进行预编译...
2. 费了九牛二虎之力，终于在oracle里找到了procob.exe(oracle 9),是不是就是那个预编
译工具？
3. 我的 procob 的 Include 项 没有内容
********************************************************************************
D:\>procob
Pro*COBOL: Release 9.2.0.1.0 - Production on 月 May 10 13:23:48 2004
Copyright (c) 1982, 2002, Oracle Corporation. All rights reserved.
システムのデフォルト・オプション値: D:\oracle\ora92\precomp\admin\pcbcfg.cfg
オプション名 現在の設定値 説明
-------------------------------------------------------------------------------
asacc no 「Yes」の場合は、ASAキャリッジ制御を使用します。
assume_sqlcode no 「Yes」の場合は、SQLCODE変数が存在すると仮定しま
す。
auto_connect no 「Yes」の場合は、ops$アカウントへの自動接続が可
能です
close_on_commitno 「Yes」の場合、COMMIT時すべてのカーソルをクロー
ズします
comp5 yes COMP変数ではなくCOMP-5を生成します。
config default config ユーザー定義の構成ファイルを指定するために使用さ
れます。
date_format local 日付文字列書式
dbms native V7/V8互換モード
declare_sectionno DECLARE SECTIONが必須です。
define *なし* IFDEFで使用する記号を定義します。
现在还有一些问题，因为是第一次接触COBOL,所以很多地方还不太明白：
1. EXEC SQL ...... END-EXEC 是COBOL里的么，有人说先要用PRO*COBOL进行预编译...
2. 费了九牛二虎之力，终于在oracle里找到了procob.exe(oracle 9),是不是就是那个预编
译工具？
3. 我的 procob 的 Include 项 没有内容
********************************************************************************
D:\>procob
Pro*COBOL: Release 9.2.0.1.0 - Production on 月 May 10 13:23:48 2004
Copyright (c) 1982, 2002, Oracle Corporation. All rights reserved.
システムのデフォルト・オプション値: D:\oracle\ora92\precomp\admin\pcbcfg.cfg
オプション名 現在の設定値 説明
-------------------------------------------------------------------------------
asacc no 「Yes」の場合は、ASAキャリッジ制御を使用します。
assume_sqlcode no 「Yes」の場合は、SQLCODE変数が存在すると仮定しま
す。
auto_connect no 「Yes」の場合は、ops$アカウントへの自動接続が可
能です
close_on_commitno 「Yes」の場合、COMMIT時すべてのカーソルをクロー
ズします
comp5 yes COMP変数ではなくCOMP-5を生成します。
config default config ユーザー定義の構成ファイルを指定するために使用さ
れます。
date_format local 日付文字列書式
dbms native V7/V8互換モード
declare_sectionno DECLARE SECTIONが必須です。
define *なし* IFDEFで使用する記号を定義します。
dynamic oracle OracleまたはANSI動的SQL方法を指定します。
end_of_fetch 1403 FETCH SQLCODE値の終わり
eol_padding yes 行の終りから72列目に埋め込みます。
errors yes 「Yes」の場合は、エラーを端末に表示します。
fips no 「Yes」の場合は、FIPSフラグ付けを実行します。
format ansi 入力ファイル行のフォーマット <ansi/terminal>
hold_cursor no 「Yes」の場合は、Oracleカーソルを保持します- (再割
り当てしません)。
host cobol ホスト言語
iname *なし* 入力ファイル名
include *なし* EXEC SQL INCLUDEファイルのパス名
<font color=4>我机器这里的include为什么没有值？怎么给他负值呢？</font>
ireclen 80 入力ファイルのレコード長
litdelim quote COBOL文字列リテラルのデリミタ <quote/apost>
lname *なし* リスト・ファイル名
lreclen 132 リスト・ファイルのレコード長
ltype long リスト型<long/short/none>
maxliteral 256 リテラル文字列の最大長
maxopencursors 10 カーソル・キャッシュ内のOracleカーソルの最大数
mode oracle ANSIの場合は、ANSI規格に準じます。<Oracle/ANSI、
ISO/ANSI14またはISO14>
nested yes 「Yes」の場合は、ネストされたプログラムがサポー
トされます- (GLOBALが生成されます)
nls_local no 「Yes」の場合は、Pro*COBOL以前のリリースのNCHAR
方法を使用します
oname *なし* 出力(生成したコード)ファイル名
oraca no ORACA通信領域を使用します。
oreclen 80 出力ファイルのレコード長
pagelen 66 リスト・ファイルのページ長
picx charf PIC Xホスト変数のデータ型
prefetch 1 カーソルのOPEN時に事前フェッチされる行数です。- [*
]
release_cursor no 「Yes」の場合は、実行後にOracleカーソルをリリー
スします。[*
select_error yes 「Yes」の場合は、SELECTでFOUNDエラーを生成します
。
sqlcheck syntax SQLチェック・レベル <syntax、limited/semantics
or full/none>
threads no 「Yes」の場合は、マルチスレッド・サポートが指定
されます
type_code oracle 動的SQLに対してOracleまたはANSIタイプのコードを
使用します
unsafe_null no 「Yes」の場合は、危険を伴うNULLフェッチが可能に
なります
userid *なし* Oracleユーザー名とパスワード
varchar no 「Yes」の場合は、ユーザー定義のVARCHARグループ項
目を受け入れます。
xref yes 「Yes」の場合は、記号クロス・リファレンスを生成
します。- [*
" - "は、このオプションがEXEC ORACLE OPTIONで有効であることを示します。
D:\>
********************************************************************************
- 打赏
- 举报
Vicoman 2004-05-09
我找到了cobol85，可是在编译的时候下面的语句就不能通过
EXEC SQL
INCLUDE SQLCA
END-EXEC
请问是不是INCLUDE的路径设置？
EXEC SQL
INCLUDE SQLCA
END-EXEC
请问是不是INCLUDE的路径设置？
- 打赏
- 举报
101monster 2004-05-09
呵呵，UP！
- 打赏
- 举报
rengang11 2004-05-09
不过，编译比较麻烦，我们在PC机上使用COBOL95,富士通的编译工具，老兄，祝你好运！
- 打赏
- 举报
rengang11 2004-05-09
不是很麻烦。
******声明连接字段
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 USERNAME PIC X(15) VARYING.
01 PASSWD PIC X(15) VARYING.
01 DBNAME PIC X(15) VARYING.
*************连接部分
LOGON.
MOVE "nritest" TO USERNAME-ARR.
MOVE 7 TO USERNAME-LEN.
MOVE "nritest" TO PASSWD-ARR.
MOVE 7 TO PASSWD-LEN.
MOVE "ORA92S" TO DBNAME-ARR.
MOVE 6 TO DBNAME-LEN.
EXEC SQL CONNECT :USERNAME IDENTIFIED BY :PASSWD USING :DBNAME
END-EXEC.
在开始部分直接用 PERFORM LOGON.调用就可以了
******声明连接字段
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 USERNAME PIC X(15) VARYING.
01 PASSWD PIC X(15) VARYING.
01 DBNAME PIC X(15) VARYING.
*************连接部分
LOGON.
MOVE "nritest" TO USERNAME-ARR.
MOVE 7 TO USERNAME-LEN.
MOVE "nritest" TO PASSWD-ARR.
MOVE 7 TO PASSWD-LEN.
MOVE "ORA92S" TO DBNAME-ARR.
MOVE 6 TO DBNAME-LEN.
EXEC SQL CONNECT :USERNAME IDENTIFIED BY :PASSWD USING :DBNAME
END-EXEC.
在开始部分直接用 PERFORM LOGON.调用就可以了
- 打赏
- 举报
cchpro 2004-05-08
>最后才编辑成CBL -> COL 才是执行的目的档。
说错了。
应该是，CBL -> COB 才对。
除非，你对 COB 档案资料结构了解。
COB 档 是Binrary 格式。
每个RM-COBOL 版本中，都有详细叙述它的Binrary 格式结构的。
知道Binrary 格式结构后，再去对应到Oracle 的资数据库资料，应该不难的。
因为，十几年前，就曾经用 CA-Clipper 去读取COBOL 的Binrary 格式结构，
转换成 DBF 数据库资料。
Oracle 的资数据库，我就没有接触过了。
因为，WINDOWS 流行MS-SQL 方式。Oracle 那么复杂不好学！
说错了。
应该是，CBL -> COB 才对。
除非，你对 COB 档案资料结构了解。
COB 档 是Binrary 格式。
每个RM-COBOL 版本中，都有详细叙述它的Binrary 格式结构的。
知道Binrary 格式结构后，再去对应到Oracle 的资数据库资料，应该不难的。
因为，十几年前，就曾经用 CA-Clipper 去读取COBOL 的Binrary 格式结构，
转换成 DBF 数据库资料。
Oracle 的资数据库，我就没有接触过了。
因为，WINDOWS 流行MS-SQL 方式。Oracle 那么复杂不好学！
- 打赏
- 举报
cchpro 2004-05-08
COBOL 是大型机器的商业语言。
以前在DOS 下，我有玩过喔。
ACU-85 COBOL、RM-COBOL。
这类的 COBOL 和是BASICE 一样，就像是直译语言。
最后才编辑成CBL -> COL 才是执行的目的档。
直到后来，MS 也出了一个COBOL50 版。
它就可以编译成为EXE 档的版本了。
其它；
好像就是没有For Windows 的版本。
曾经花过心血也学过COBOL，也卖过不少书籍学习，
最后在PC 上也派不上用场呀！
以前在DOS 下，我有玩过喔。
ACU-85 COBOL、RM-COBOL。
这类的 COBOL 和是BASICE 一样，就像是直译语言。
最后才编辑成CBL -> COL 才是执行的目的档。
直到后来，MS 也出了一个COBOL50 版。
它就可以编译成为EXE 档的版本了。
其它；
好像就是没有For Windows 的版本。
曾经花过心血也学过COBOL，也卖过不少书籍学习，
最后在PC 上也派不上用场呀！
- 打赏
- 举报
Vicoman 2004-05-07
pro*cobol是什么啊？Oracle里有么？哪里有？
- 打赏
- 举报
klbt 2004-05-07
oracle没有，cobol是古老的语言，帮你up
- 打赏
- 举报
cobol连接数据库 Cobol代码 $SET SQL(dbman=ODBC, DB=ConnToMysql, INIT) IDENTIFICATION DIVISION. PROGRAM-ID. cobol-mysql. DATA DIVISION. WORKING-STORAGE SECTION. EXEC SQL INC
C17-COBOL 数据库接口 COBOL 数据库接口 截至目前，我们已经学会了使用COBOL中的文件。现在，我们将讨论COBOL程序如何与DB2进行交互。它涉及以下术语： Embedded SQL（嵌入式SQL） DB2 Application Programming（DB2应用程序编程） Host ...
COBOL操作数据库，数据类型不兼容 cobol侧的src就上面这样的，G个人ID去全局的N型数据，DB中的“个人ID”字段是DECIMAL类型，datatype是3 问题：编译不出错，src运行到这句SQL的时候就会报错“JYP7161E 比较演算子两边的値数据类型不能进行比较。...
cobol学习之十数据库的增删改查模板 这次连接数据库使用的是ODBC连接access数据库，里面主要是一个增删改查的模板备份，方便以后查询。 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. SAMPLEDB2. 000003*>**************************
java 如何连接oracle_oracle教程之java连接oracle_java如何连接oracle数据库？ java与oracle的接口：在数据库中运行JAVA可以说是ORACLE8i的最令人激动的新特性。在你创建的使用ORACLE8i 数据库的应用程序中，你可以使用与JAVA有关的新特征，轻松的将程序发布到INTERNET或INTRANET上。Methods for...
在存储到Oracle数据库中之前使用COBOL压缩数据（更多tahn 5000 char） 几乎没有任何通用压缩算法会获得这样的压缩率：5000：100会将数据压缩到原始大小的1/50，并且除非数据的冗余度非常高，否则这不是一个现实的目标。 如果我创建5000个字符的文本...
cobol连接oracle数据库,用open cobol访问oracle .cob .pco .pco.cob: @echo "PROCOB ......" $(PROCOB) iname=$*.pco $(PRG): $(COBS) @echo "compile cobol ......" $(COB) $(COBFLAGS) -o $@ $(COBS) $(LDPATH) $(COBSQLINTF) $(LDLIBS) clean: rm $(PRG) $(PRG...
什么是COBOL？ COBOL编程说明 有些技术永不消亡，它们只是逐渐消失在木制品中。 向普通软件开发人员询问有关COBOL（面向通用商业语言）的信息，他们会... COBOL绝不是我们与之愉快地过时的过时技术，而是已成为一个机构。 大规模的COBOL代码...
cobol和java_Java是下一个COBOL吗？ cobol和java 在我们对新事物的狂热中，忘记“旧”人与我们在一起多久会很方便。 以COBOL为例。 古老的编程语言本月将迎来60岁的生日，正如史蒂文·J·沃恩·尼科尔斯 （ Steven J. Vaughan-Nichols）所写的那样 ，很...
COBOL程序之DB2数据库操作总结 今天的重要任务是把COBOL程序如何操作数据库研究清楚，经过一段时间的COBOL学习，对COBOL的语法和常用的库函数都比较了解了，但是以前写的COBOL操作数据的程序都是一些小练习，没有很好的实用性，也不用考虑太多问题...
Java是下一个COBOL吗？ 在我们对新事物的狂热中，忘记“旧”事物与我们在一起多久会很方便。 以COBOL为例。 古老的编程语言本月将迎来60岁的生日，正如史蒂文·J·沃恩·尼科尔斯 （ Steven J. Vaughan-Nichols）所写的那样 ，很可能“使...
