COBOLなら、オレに聞け！＜3＞

ｺｰｿﾘ立てたよ

仕事だから仕方なくCOBOLをやってる人
本気でやってる人
いろいろいるとおもいますがｵｯｻﾝたちで役に立つならお手伝いします

過去スレなどは>>2以降

＜過去スレ＞
COBOLなら、オレに聞け！ <1>
http://pc3.2ch.net/tech/kako/1002/10028/1002890663.html
COBOLなら、オレに聞け！<2>
http://pc5.2ch.net/test/read.cgi/tech/1027964677/l50

＜関連スレ＞
cobol vs java
http://pc5.2ch.net/test/read.cgi/tech/1068819212/l50

>>1
http://pc5.2ch.net/test/read.cgi/prog/1079771171/69
に答えてやってくれ。
レスしているやつらが、池沼ばかりでびっくりだ。

>>3
きちんと答え出ているみたいだけど。

そう思うならお前がレスすればいいじゃん。

COBOLに関する質問ではないのかもしれませんがお願いします。
プログラムで

1. トランザクション開始
2. ＤＢからレコードを入力する。
3. 2.で入力したレコードを更新する。
4. 2.と同じレコードを入力する。

としたとき、今、組んでいるプログラムだとどうしても2.と同じ状態(MODIFY前)を取得してしまいます。
3.の状態(MODIFY後)のレコードを取得したいのですが可能でしょうか。

>>5
何でそんなことするの？
普通はしないと思うけど。

あと、質問に答えるには情報不足。

「入力する」って言葉の意味は何？　READ？　SELECT？　GET　NEXT？

「レコード」「MODIFY」という言葉からするとネットワークＤＢなのか？

RBDBMSなら「結果セット」「UPDATE」って言うしな普通。

何したいのか、どういう環境なのか、も少し書けや。

と、書いてはみたが、

＞プログラムだとどうしても2.と同じ状態(MODIFY前)を取得してしまいます

に関しては；

「だって更新してないんだから」としか答えようが無い。

これはどんな言語でも同じ。

>>5
じゃあ3の後でCOMMITして4の後でROLLBACKして
レコード読み込めばいいじゃん。

はい、終了。

>>6-8
レスありがとうございます。

>>6
確かに情報が不足しすぎていますね。すいません。
ＮＤＢでの話です。入力=GET、更新=MODIFYです。
うちで面倒を見ているシステムでも普段はそんなことはしていないのですが
１トランザクションで、今まで別に処理していたプロセスを直列で処理しなければ
いけない状況になりまして。それで質問をさせてもらいました。
結局、トランザクションをきるか処理を１から作り直すかを天秤にかけて決めることになりそうです。

>>9
更新後の状態をワークエリアに保管しとけばいいじゃん。

>仕事だから仕方なくCOBOLをやってる人
そのような方、いらっしゃるんですね。
でも、いいかも。
そこでｺｿｰﾘ他の言語、いや上位のことお勉強なされまし。

趣味でCOBOLやってる奇特な方がいらっしゃるんですか。

仕事はJavaなので趣味でCOBOLプログラミング

オレが読んだ本には仕事では70%くらいCOBOL使うと書いてあったが


マジですか？

>>14
会社や部署による、とマジレスしてみる

2004/06/15　Misson2-cnt002、Misson2-cnt004の解説を思いきり更新。今月は解説強化月間

http://mypage.naver.co.jp/rodman/cobol/index.html

うちの教授にCOBOLIってのがいるんですがこの言語と関係ありますか？

>>17
奇遇ですね！
私は小堀っていう者なんですが、職業COBOLerにはなれませんでした。

COBOL人

cobolerってなんでパソコン使えないの？
電源の切り方が分からなくて放置したまま帰ったり。。。

>>20
じゃあおしえてやれば？

>>20
そういう話はマ板でやれ

COBOL自体が板違い。

>>21
教えても翌日には忘れてるのがオチコボラー。

がっこでFORTRUNを覚えて会社にいけばＣＯＢＯＬだった。
ＣＯＢＯＬは死んだといってＣを覚えようとしたらＣはつかわなかった。
Ｃ＋＋を覚えようとしたら今はＶＢといわれた。
ＶＢをおぼえたら今はＪＡＶＡといわれた。

っていうふうにになるので言語であたふたはやめましょう。

FORTRANならしってるが・・・

まぁあれだ。化石言語にしがみつくことしかできない連中は
潔く氏ねって事だよ。

死んだ方がいいのはム板の質問スレでいつまでもスレ違いの
言語批判してる奴だろ。必死すぎてかわいそうでさえあるな。

勘違いしちゃいけないのは、言語自体が叩かれているのではなくて、
その言語を使う連中が叩かれてるんだよ。

勘違いしちゃいけないのは、叩かれているのは屁理屈自体じゃなくて
屁理屈言ってる奴が叩かれているんだよ。

まぁあれだ、要は適材適所に使えばいいってことさ。

例えば印刷PGならCOBOLで組むのが一番好きだね。
だって体裁を整えるのはCOBOLが一番楽だし、
メンテナンス性も高いからねー。

逆にスクラッチパドメモリーっつーヤツ、あれは
「今時バッカじゃないの」って思うよ正直言って。

あと、ソースの可読性はCOBOLが美しいと思うね。
なんつーか、縦読みが出来るというか、そういう感覚。
もちろんタコCOBOLerが作ったヤツはダメダメだけどね。

>>31
今時バッカじゃないの

の今時の意味がわからん。オンラインで端末毎の
情報を保持するための技術としてこれからも有効
だと思うが。

ああ、これからも有効で、いい意味で枯れた堅牢な技術と思う。

だがPG起動毎メモリーとセッション毎メモリーしか自由に使えんのが
悲しくなるのさ。PGでカバーすれば良いってのは判るけど、
言語本質の部分からは欠落してるべ？

・・・ってOO-COBOLは改革されてんのかな？

>>31
しったかぶりもいいけど、COBOLの言語使用とは関係ないぞ。
今時とか言ってみたかっただけなんだよな？

あとセッション毎、PG毎以外に何が必要なんだね？

言語使用→言語仕様

>>34
言わせとけよ。ほんとにタダの知ったかのようだし。

>>31
＞だって体裁を整えるのはCOBOLが一番楽だし、
項目間のFILLER領域の項目の桁数を修正しては印刷、修正しては印刷。。。
この繰り返しのどこが楽なのかと。

>>37
MEDとかMFDとかFORMとか聞いたこと無いのか？お前は。

>>31を読む限り、>>37のツッコミは外れではないと思うのだが。
帳票作成ツールを使うのなら言語に依存はしないと思う。

>>39
>>31を読めば何が言語に依存しているのかがわかってない奴だということが
よ〜くわかる。

MEDって富士通とかの画面作成ツールかなAIDS/Xとかいったような？
ADJUSTとか・・・
IBMとか富士通とかメインフレームでもGUIで帳票つくれるはずだよ・・・
富士通のPFDはIBMのIPCFとかなんちゃらのほぼコピーのような
最初のCOBOLコンパイラーはFORTRANで書かれたらしい。
最初のCコンパイラーはCで書かれたらしい。
ではそのコンパイラーはどうやって機械語にコンパイルしたのか
疑問・・・
COBOLのコンパイラーをバージョンアップするときにはCOBOLでCOBOLの
コンパイラーを書いたらしい。
COBOLはすばらしいとアセンブラ時代の人がいった。
COBOLで書けば計算機がかわってもプログラムを書き直す必要がない。
でも実際にはメーカーごとに方言や仕様に違いがありCOBOLでもメーカー
が違えが動かなかった。特に日本語、オンライン、帳票のフォーム、画面
関係ではまったくメーカー間の互換はなかった。
JAVAはどんなコンピュータでも動くとという宣伝で登場した。
でも実際には違った。
特にM$がJAVAの標準化の足を引っ張った。
で,JAVAのVMとかコンパイラーはJAVAで書いてあるのかCで書いてあるのか
もしかしてVBで書いてあるのか、もしかしてもしかするとCOBOLで書いて
あるのかアセンブラで書いてあるのか・・・
コンパイラーの内と外という本が昔あったが今はどうなったんだろう？
昔、ＯＳの勉強というとIBMシステム３７０のＯＳを勉強したそうだけど
そのあとはUNIXだったらしいが今はLINUXを勉強するのかそれとも
WINDOWSを勉強する？？っていっても内部仕様は非公開では？？
WINDOWS NTはOS2とDEC VMSとUNIXのまねといううわさもありそれでSCOに
金を払っている？？
WINDOWS NTが実現してることはIBMシステム３７０が30年以上前に実現してること
ばかりなんだけど・・・
WINDOWS2003、ＸＰもそのバージョンアップにすぎないしねえ。
そうか実はWINDOWSもCOBOLで書いてあるのかな？？

>>41
一行目だけ読んだ

（2004/6/23） COBOLコンソーシアム Web Site
【セミナースケジュール】
セミナースケジュール「第7回 インターネット時代のCOBOL活用セミナー〜EAと基幹系システムの再構築〜」を掲載

http://www.cobol.gr.jp/calendar/seminar/040727.html

COBOLってなんですか？

>>44
Chainese OBject Oliented Languege
の略

Completely Obsolete Business Oriented Language

Common Business Oriented Language
すぺリランドのＵＮＩＶＡＣ用のビジネスフォーム作成言語をベースに
ＩＢＭやアメリカの大学とかが共同してつくった。
昔のＣＯＢＯＬの本には必ずその協力者たちへの謝辞とビジネス界の言語うんぬん
という表現があり、それを記入すれば著作権を気にせずにＣＯＢＯＬ製品を
つくれたらしい。ソフトウェアの著作権の権利が確立する前で仕様書とかいわゆる
本でないと著作権がうるさくなかった時代であろうと推測される。

>>46
完全にすたれたビジネス指向言語ですか。ありがとうございます。

FORTLAN,FORTRUN,FORTRAN
ﾌｫｰﾐｭﾗｰ
ﾄﾗﾝｽﾚｰｼｮﾝ

日本語の文字列を比べるときに
桁数の違うエリア通しで比べるのはいけないのですか？

>>50
使用しているCOBOLの製品とヴァージョンによるのでは？
マニュアル無いの？

ps.通しじゃなくて同士だろ

2004/07/13 ＣＯＢＯＬでＬｉｎｕｘのオープンソースコミュニティーに参加しませんか。 （コボラー　ドット　コム）

http://www.coboler.com/

unix配下のCOBOLでS-JISのファイルダンプツール作ったんだけど
だれか、ＣかＶＢでパソコンでも動くようにしてくれないですかねえ?

その辺の知識ないもんで・・・

>>53
よくCOBOLでつくったな・・・

COBOLで作れたなら他の言語で作るのは容易なはず
他の言語チョット勉強すればそれで済むぞ。

COBOLはツールを作ったりするのには適さない言語だと思うよ。

ダンプツールなんかいくらでもある

結構良くできてるんだ・・・
漢字対応で、件数セレクト、項目セレクトもできる・・・
レコード長は事前にその長さ用に対応しておかないと駄目だけど
（ＣＯＢＯＬだとレコード長指定してファイルオープンできないんで・・・）

誰か、おらん？

>>56
Windows用のCOBOLに移植したいってこと？

富士通がフリーのCOBOL85を配布している
ただしこれは学習用らしいんで、ライセンス的に問題あるかもしれん
↓ 検索したら出てきたので、参考にしてみてくれ
ttp://mypage.naver.co.jp/rodman/cobol/9/910.html

Windows用COBOLの体験版としてはこんなのもある
使えるかは知らん
ttp://www.dot.co.jp/down/CSCBL.exe

元がunix用なら、cygwinあたりを導入してみるのもいいかもしれん
↓ 参考になるかな
ttp://ueno.cool.ne.jp/shirokaze185/cobol-cygwin.html

>>55
そりゃそうだが、作りたいと言う希望にかなわない回答だ

>>57,58
早速、ありがとう
>>57
ｺﾝﾊﾟｲﾙまでは出来たけど、画面とかの作成がまったくわかんない・・・
>>55
固定長に対応したダンプツールで、いいのある?

>>60
＞>>57
＞ｺﾝﾊﾟｲﾙまでは出来たけど、画面とかの作成がまったくわかんない・・・

富士通の奴でコンパイル通ったのか？
だったらRuntimeで実行かけるだけじゃないの？
ttp://mypage.naver.co.jp/rodman/cobol/9/940.html

>>61
GUI部分が作れないといってるのでは？

>>60
>>57の富士通のやつでGUI部分が作れるどうかは知らん
できなかったらあきらめるか、日立や富士通が出してる製品を買いなさい

あの学校（商業高校）でＣＯＢＯＬを習っているのですが、ＣＯＢＯＬについて調べてみたら、コボラーはボカスカジャンにされていて勉強する気がだんだんとうせてきました。なので勇気付けてください。

>>64
勇気の出る話をしてあげよう。
業務で COBOL をやっている香具師は、総じて給料が高い。
また仕事も楽だ。
結局、世の中は「需要と供給」のバランスだ。


便所掃除をしているオバサン達が
一体どれ位の給料を貰っているか、知っているか？

月収7万

なんとなくＣＯＢＯＬはＣに押されて需要が減っているのかなーと思っていたのですが、
そうでもないんですね。挫折してトイレ掃除のオジサンにならないようにがんばります。
ありがとうございました。

>>67
いや、一度「トイレのオジサンになる」と
腹を括りさえすれば、それほど悪いものでは
無いぞ、と言いたかったのだが・・・

再度言うが、世の中は「需要と供給」。

お前は羽振りの良い風俗嬢達を、
一度でも羨ましく思ったことはないか？

もし思ったことがあるのなら、
COBOL をやる価値はあるのかも知れない。

コボラーと呼ばれているのはCOBOLを使う人ではなく
勉強を怠り、自分が知っていることだけがすべてであると
決め付けるような人種のことです。
コンピューター産業の中の一部の落ちこぼれジジイのことです。
（若くしてコボラーになっている連中も多数いるが）

http://www.cobol.gr.jp/
落ちてますがorz

COBOLでCOMコンポーネントを作る方法をご教示頂けないでしょうかお兄様方。

fujitsuの使えよ

>>67
＞ＣＯＢＯＬはＣに押されて需要が減っているのかなー

COBOL『だけ』できるヤシの需要は間違いなく減っている。
比べて悩むなら両方やれ。C++やJavaやC#でもいいぞ。
（今から始めるならVBだけは止めとけ）

VBも知ってて損することは無い。
ユーザーに近いところでチョチョイと何かするのは便利。
特にVBA for EXCEL

COBOLでVSAMファイルを使用するコーディングの仕方を簡単でいいので教えて下さい。
また、VSAMファイルを使った例のあるサイトのURL等教えて頂けませんか。
検索してみたのですが見つからなかったです。

>>76
IBMのマニュアルなら・・・
http://www.jbooksrv.yamato.jp.ibm.com/cgi-bin/master!request=menu!parms=!xu=SK888002/BOOKS/IGYLRJ00/2.4.1

>>77
ありがとうございました

汎用IBMのBD2って、難しいですか？
参考書ってありますか？
それと富士通の汎用データベースも難しいですか？
僕は、オフコン富士通K650しか経験がありません。

>>79
一回死んだほうがいいかも。

「難しい」ってなんだそれ？仕事すんのに難しいも糞もないだろ。
「しか経験ありません」ってなんなんだ？それ以外のことを
覚えようとしなかっただけだろうが。

悪い事いわない今すぐ辞表を書いて明日から浮浪者になれ。

>>79
BD2って何？　ｼﾗﾈ

>>80
とりあえず、一言、言わせてくれや・・・

てめーなんぞ、若輩の外道にがたがた言われる筋合いはねえよ、糞が！！！
死ね！！！狂い死ね！！！馬鹿者が！！！

某メーカー開発部課長より

課長のレスを見て涙が出たよ。頑張って勉強してね。頑張れば何とかなるさ。
課長って若輩者の役職だと思ってたけど、俺の父親くらいの年齢なのかな。

>82
作業させとくと邪魔だから課長にされたんですか?

己の無知を棚に上げて逆ギレする者は生きるに値せん

無知な奴は自分のことを棚に上げてることにすら気づかない

DB2?

求人票で、VBをBVと書いたりJavaをJABAと書くのは大抵DQN会社です

質問なんですがCコンパイラでCOBOLソースをコンパイルできると聞いたんですが本当なんでしょうか？

>>89
gcc で　FORTRAN をコンパイルできるが、COBOL のコンパイルができる
Cコンパイラは聞いたことが無い。
誰に聞いたんだか知らんが、そいつにもう一度訊いてみろ。

COBOL→C→gccって言うのを聞いたことがあるような

それってFORTRANの話じゃ

いんやCOBOL

コボルで飯を食い、コボルでセックスしてるが、なにか？

COBOL → C のコンパイラ(つかトランスレータ)は在るかも知れんが、それは
>CコンパイラでCOBOLソースをコンパイルできる
とは言わんだろ。

記念パピコ

>>95
そりゃそうだが、そういうように見えれば十分だろ。

コボルは奥が深い、いまだ全制覇に及ばん・・・

>>90
相変わらずFORTLANでしょ?RAN でなく LAN

ﾌﾟｯ

現在、詳細設計〜コーディング〜単体テストの工数の見積りを立てようとしているのですが、コーディング量を３０００ステップとした場合、標準的な工数は各工程でどのぐらいかかるのでしょうか？
後、環境はサーバー系です。
よろしくお願いします。

>>101
お前が作ろうとしているプログラムがどんなものか分からなければ、こっちも答えようがないじゃないか
そもそも、ここで聞くべき質問ではない

>>102確かにそうだ

>>101
環境がサーバー系というだけでは情報不足
今時ステップ数のみの見積もりなんてありえないのでは？
ましてや10年以上前でさえ標準ステップ数など各社ごとに
異なっていた。

開発環境はプラットフォームがどうこうより、開発ツールの
充実度合いが物を言う。
ステップ数そのものよりブランチの数や処理形態による複雑さ
が不明な状況では見積もりなど出来ない（無理やり見積もるの
は別として)

またライブラリソフトの機能を使ってマクロが用意されていたり
されていなかったり・・・

バブル期のテキトーな見積もりだと3Kは1〜２人月ぐらいだろう
（詳細設計なんて言葉の定義も会社によって異なるし）

帳票なんて改ページ制御や見出しの制御でステップ数の割りに
めんどくさいものが多い。

汎用機で使ってるDBって何ですか？
RDB以前の香具師。
今でも使われてますか？

COBOL97(PowerCOBOL97)で DLL を作れません( EXE はOK )
--->
ﾋﾞﾙﾄﾞ開始
"C:\Program Files\PCOB97\LINK.EXE" /ENTRY:COBDMAIN /DLL /OUT:"HOGE.DLL" @"HOGE.001"
Microsoft (R) Incremental Linker Version 6.00.8447
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.
"HOGE.OBJ"
"C:\Program Files\PCOB97\F3BICBDM.OBJ"
"C:\Program Files\PCOB97\F3BICIMP.LIB"
"C:\Program Files\PCOB97\KERNEL32.LIB"
LINK : fatal error LNK1104: ﾌｧｲﾙ "uuid.lib" を開けません。
ﾋﾞﾙﾄﾞ処理を中断しました。
ﾋﾞﾙﾄﾞ中断
<---

使用手引きによると...
--->
LNK1104
[原因]
ディスクまたはルートフォルダに空き領域がありません。

[対処]
ファイルを消去してスペースを空けてください。
<---

もちろん領域は無問題。
パーミッションか何かの問題？
Windows2k だとうまくいくが XP ではＮＧ。
原因、対処わかる人いたら教えてください。

LINK : fatal error LNK1104: ﾌｧｲﾙ "uuid.lib" を開けません。

ここに重大なヒントがあると思うが・・・

気のせいか？

使ったことが無い俺の感なんだが。

ＭＳＳＯＲＴについて質問があります。

現在、以下のようにプログラムを組んでいるのですが、
ビルド時にエラーとなってしまします。
ＭＦＳＯＲＴの使い方のどの部分が間違っているのでしょうか？
それとも、そもそもソース上にＭＳＳＯＲＴを使用することはできないのでしょうか？
よろしくお願いします。

*---------- ファイル：ＳＯＲＴＦＩＬＥ１
FD SORT-FILE1.
*---------- ソートファイル１
01 ST-STFILE1 PIC X(95).
*---------- ファイル：ＳＯＲＴＦＩＬＥ２
FD SORT-FILE2.
*---------- ソートファイル２
01 ST-STFILE2 PIC X(95).
------------- 略 --------------------------
* ソート処理
MFSORT SORT FIELDS(7,5,NU,A)
USE ST-STFILE1 RECORD F,95 ORG RL
GIVE ST-STFILE2.

コボラーなら、このぐらいのパワーが必要だろう・・・
おれにはあり得ないがな・・・
http://www.kit.hi-ho.ne.jp/~twalker/img-box/img20040622234717.jpg

基本情報　平成１２年春　問１２　で質問があります。

設問２のｂですが答えは　ア．Ｈ−ＹＯＢＩ（Ｈ０　Ｈ１　Ｈ２）
となっていますが、他の選択肢との違いが良く分かりません。
イ．Ｈ−ＹＯＢＩ（Ｈ０　Ｈ２　Ｈ１）
ウ．Ｈ−ＹＯＢＩ（Ｈ１　Ｈ０　Ｈ２）
エ．Ｈ−ＹＯＢＩ（Ｈ１　Ｈ２　Ｈ０）
これらとどう違うのでしょうか。

ＳＥＴ　Ｈ０　ＴＯ　Ｋ−ＭＩＳＥ
ＣＯＭＰＵＴＥ　選択肢　＝　選択肢　＋　Ｋ−ＳＵＲＹＯ

となっていて、ＳＥＴ　Ｈ０　がポイントっぽいのですが。

>>109
ttp://www.jtw.zaq.ne.jp/kayakaya/new/kihon/h12sa/h12sa_12.htm

>>110
どうも！
これから読んでみます

Win上で動く、使いやすいCOBOLエディタってありませんか？

日立のCOBOL85開発マネージャに付いてるエディタが良い。
nyで（略

>113
ありがとうございます。
頑張って（略

ＣＯＢＯＬのプログラムから、他言語のプログラムを呼び出す時のように、
（ＣＯＢＯＬプログラムを起動したシェル以外の）シェルを
呼び出すことは可能なのでしょうか？

>>115
可能なものもあります。


としか答えられませんわそんな質問の仕方だと

COBOLでＲＰＧ作りたいんですが、正直難しいと思います。
でもやりたいんです！！僕はＨＳＰでブロック崩し（アルカノイド）
ぐらいなら作ったことあります。
今のところ、オープニングまで作ったのですが、
どなたか僕にCOBOLの基礎からすべてを叩き込んでくれませんか？？
お願いします。

本嫁よ

>>117
いくらで？

>>117
携帯番号教えろ。

>>117
ではオープニングの画面とソースコードを見せてくれ。
そのセンスで教えるかどうか決める。

現在の予想では、教える確立０．０００００００００００００００００００００００００パーセント
手短に言うと可能性なしということです。

俺はCOBOLが好きではない。
なぜなら全てが大文字だからだ。
以上。

最近は小文字のソースのCOBOLもあるけどね
名前は変わらないね

>>122
昔のBASICもか？
小文字で書いても大文字に書き換えられたような・・・
あんまり覚えてないけど

>118-121
他板のコピペだから気にするな

>>115
どの環境？

昨日(?)のﾆｭｰｽでIBMが"M/Fを軸に"みたいなことを言ってたけど、そうするとまたCOBOLが日の目をみるのでせうか？

z/OSのライト版はCOBOL動きません
LinuxとかWASとかDB2用

コボルしていて、うんち、ちびりました・・・

COBOLってアセンブラにちかいですか？
知り合いが「moveとかあるよ」って言ってたんですが…

良く出来たCOBOLプログラムはアセンブラで書いたコードよりも高速に動作する

過去スレにあったら悪いんですが、Windows上で動くイイCOBOLコンパイラないですか？
訳あって、COBOLを勉強しなくちゃいけないんですが

>>133
まず「COBOL Windows フリー」でググってこい。話はそれからだ

>>122　くだらない理由だ！　もっと他にあるだろ！
オブジェクト指向の開発向きじゃないとか･･･

>>130　全然違うよ！ASMだとポインターが分からないとお話にならないが、
ＣＯＢＯＬだとポインターを知らなくてもＯＫ！

>>131　COBOLがASMより早いだと･･･
バカも言うな！！

COBOLを勉強しなくてはならないのですが
私のようなプログラム未経験者にオススメのCOBOL本ってありますか？

>>136氏と似たようなもんだが、
cobolに関しての書籍スレてないのかな？

>>136,137　仕様書とＰＧもらって勉強した方が早いんじゃない！！
でもシステム開発未経験じゃつらいかな？
メルアドさえ教えてくれれば、あげるけど･･･

Oracleのスレで質問したのですが、レスがつかなかったのでこちらでも質問させてください。
Oracle7→Oralce8のデータ移行の際に、LONG型のデータを移行しているのですが、
Oracle8iのPro*COBOLで作成したプログラムで読み出したところ、
BCDで登録しているデータのうち、 X“79”を超える値が全てX“3F”に変換されてしまっています。
どなたか原因わかる方いらっしゃいますでしょうか？
COBOLの問題では無いような気もするのですが、よろしくお願いします。

>>139
データが正しく移行されたことを確認しろ。話はそれからだ。

>>139
２ｃｈじゃなくオラクルに直接聞いたほうがはやいんじゃね？

ところでBCDなんて未だにあるんだ・・・

高校でCOBOL習ってる者です。
WRITEでプリンターへの出力は分かったんですけどファイルへの出力みたいな事はできるのでしょうか？

>>142
出力先がプリンターでもファイルでもCOBOLの中ではWRITEだよ
その先はCOBOLと切り離された部分なのです
Windowsのメモ帳とかでも出力先をプリンターやファイルにできるでしょ

プリンターが出力先の場合でもコンピューターの中ではスプールという
ファイルに書き出すのが一般的なんです。
実は紙にいきなり出てくるようで一度は保存していないファイルに書きだし
その後印刷して何も無かったように削除しているのですよ。

>>143
切り離された・・ですか(汗
ＷＲＩＴＥでそのままできるのですか、ありがとうございましたm(__)m

UnixでMicro Focus Cobol 4.1.30を使用しているのですが、
コンパイルするとプレコンパイルは問題なく通っているのですが、
アセンブル時点でエラーがでます。
cobol自体の再インストールもしてみましたが、ダメでした。
どなたか解決方法をお教えください。

エラーは以下のようにでます。

/var/tmp/cobAAAueaiPx/%cob0.s: Assembler messages:
/var/tmp/cobAAAueaiPx/%cob0.s:7: Error: Unknown segment type
/var/tmp/cobAAAueaiPx/%cob0.s:7: Warning: rest of line ignored; first ignored ch
aracter is `"'
/opt/lib/cobol/bin/cob: /var/tmp/cobAAAueaiPx/%cob0.s アセンブル時エラー
make: *** [プログラム名] Error 1

COBOLではないのですが、
windows上で、RPGのコンパイラというのはありますか?
COBOLに落とすというのでもかまいません。

>>145
コンパイラが吐き出すアセンブラが違うCPUのものだということでしょ
コンパイル時のパラメータを見直してみろと

>>146
ぐぐれば？

>>147
＞ぐぐれば？
へたすると、ゲームしか出て来んけどね。

>>148
as400とかとくみあわせればいいんでない？

>>149
それもそうだなと思って「as400 rpg windows」でぐぐってみたら、
一発で見つかったわ。

VisualAge RPG（のマニュアル）
ttp://publib.boulder.ibm.com/html/as400/v5r1/ic2962/index.htm?info/rzahgrpgcode.htm

-2580 と入力されているXタイプのデータを
-2,580　と表示する方法って無いでしょうか？
（--,--9　のようにしたいんです）

>>151
左詰めかつ桁数可変だとすると
符号を分離してから右寄せ&ゼロ埋めして9(n)に突っ込んで
符号を付け直して編集項目にMOVEするとか

某２流商業高校生なんですが、今月の情報処理検定２級を受けるんですがプログラムがいまいち良く分かりません
流れ図と用語は覚えたんですが･･･なにか学習ソフトってありますか？

>>153
COBOL用ならない
あと何がどう分からないのか分からないが
テキストを３回読み直せば何か変わるかもしれないぞw

>>153
>流れ図と用語は覚えたんですが

すっげーアバウトだの〜ん
それだけできてりゃ寧ろOK
ぎゃくにそれらのイントロだけならO.R.Z.

明日COBOL1級・・・でんでんわかんね('A`)

会社の基幹業務がAS400でRPG触ってるけど、ホントつぶし効かなさそうで嫌だ。
RPGとCOBOLは似ている（ＲＰＧの方が簡単だろうとは思います。）のでしょうか？

RPGはデシジョンテーブルを使った、宣言型言語の嚆矢。
誇りを持って使わなきゃ。勿論、COBOLのプログラムパターンの
研究に端を発してる訳だけど。

>>158
去年入社してからずっとRPG触ってるのですが、体系的に知識（というか言語の考え方）を身につけているというわけではなく、ただ
出てきたやり方を覚え、分からないときはIBMのマニュアルやネットで知らべたりといった感じで知識がパッチワークみたいな感じなんです。
仕事でもやることはプログラムの修正（よくて新しい機能追加、つまらないときはただソース内の数値を変更するだけといったもの）ばかりで
簡単な言語なのに学ぶ時間と知識のコストパフォーマンスが悪い感じがします。COBOLはメジャーなので体系的な考え方等が載っている
本等もあるように思います。少しはCOBOLをやってみるのも体系的な言語の勉強のひとつとしてはいいように思うのですが、どう思われますか？

私もRPG�Uの経験があります。現在は同じく宣言型の代表格Prologプログラマ。
COBOLも8年ほど書いていた。
>>159の感想、不安はもっともです。RPGプログラマにとってCOBOLは全然
難しくないし、勉強したり、プログラムを書くことはRPGの仕事にも役に
立つと思います。ただ、COBOLは1960年代前半に作られ発展してきた言語。
その後のプログラム開発の歴史、たとえばモジュラープログラミング、
構造化プログラミングといった、COBOLの仕様変更に影響を与えた成果に
ついても、勉強することを勧めます。

>>130
＞COBOLってアセンブラにちかいですか？
すごい遅レスでなんなんだが、IBM汎用機S360/370系のアセンブラだとCOBOLの命令と
ほとんど同じ命令セットがあってこれでCOBOLを動かしたらめっさ速そうです。
intelのAAAなどのBCD補正命令なんぞガキの使いです。SIMDのレジスタ増やすくら
いならまともなBCD演算ユニットをつけてみろってんでぃ（なぜか江戸っ子調）

>>47 載せるべき謝辞の全文教えて

>>161
NECのもそうだよ。CPUが内製だったから言語に合わせることができてた。
>>162
OpenCOBOLでぐぐれ

今日図書館でCOBOLの本あさってたら、司書の中年女性に「今でもCOBOLって使われてるのですか？」と聞かれた。
それよりマイナー言語使ってる俺は返す言葉がなかった・・・・・。

間違えた。160でなく157　159です。

借りるより買え

>>166
COBOLの書籍の大部分は絶版となっており、現在は入手困難です。

>>160
COBOLな人達は、「これからは構造化！」というのが脳に焼き付いており、いつまでも構造化手法が最新の夢の技術だと思っておられるようです。

構造化なんてものは勉強するものじゃない。
現在の普通のプログラマは構造化ということは意識せず、日本語を話すがごとく意識無しに自然に身に付いています。

ブロックIFがなかったころに複雑なIF文のネストを使いこなしていたのが
真のCOBOLER、構造化など新参者の言うたわごとじゃ。ふぉふぉふぉ。

テキスト処理が鬼のように強いからPerlあたりと
対抗できるような何かが出来ればいいんじゃないかな。

Perlの可読性の低さはひどいものがあるし。

テキスト処理はCOBOLの一番の鬼門だと思ってたのだが。

・・・もしかして誤爆ですか？

「なでしこ」板?

FUJITSU COBOL 85 （フリー）のインストール、
コンパイルについてなんですが。

会社のPCで上記のCOBOLをインストールし、起動、
ソースのコンパイル、EXEを作成、実行までできました。

同じ事を自宅のPCでしようとするとインストール、起動は
できますが、ソースをコンパイルしようとすると
エラーがでてしまいます。

ソースも記述間違いはありません。
（会社でコンパイルできたものなので）
もしソースの記述でのエラーであれば
エラー内容が表示されるはずなのにそれがありません。

自分で確認したところ、
エラー内容の出ないコンパイルエラーは
そのソースをアプリで使用している場合にだけあるようです。
しかし、それもありません。

インストール漏れはありませんでしたし
パスが通っていないのではと思いましたが確認したところ
それもありませんでした。

他に原因が思いつきません。
ネットで調べたのですがこのCOBOLの情報が少なく、
ありませんでした。

とても困っているので是非とも教えて頂きたいのですが。
よろしくお願い致します。

ちなみに環境は会社も自宅PCも
Windows XP Professionalです

>>173-174
その現象が再現できる最も簡単ソースを作ってみれ
そうすれば何が悪いか見当が付くし
ここの住人もレスしやすいと思われ

ところで、会社のコンパイラに対して何かしなかったい？
FUJITSUでは2000とXPの動作保証はしていないとか
どうしても2000やXPで動かすときはごにょごにょしろとか書いてあるけど

まさか、その辺見てないとかいうことはないよなw

>>175
ソース内容はまったく関係なくどれも動きません。
なのでソースに問題あるというわけではないようです

確かに2000とXPの動作保障はしてないとありましたが
会社のは動作させるための互換キットを
インストールしなくても普通に動作しました。

自宅のは動かないのでその互換キットを
入れようとしたのですがそれらしいものを
ネットで見つけインストールしようとしても
コードが足りないとか表示がでてインストールできません。
（違うものをダウンロードしたのだろうか・・・？）

とにかくネットでは解説がなかなか見つからないのです。
あったとしても実際その通りにはならないので
困っています。

一度アンインストールして
関係しそうなファイルも全部削除して
システムパスもユーザーパスも消して
（COBOLの部分だけ）
再起動かけて再インストールしてもだめでした。

起動はするんです。
このCOBOLからすでに作成されたexeは実行できるんです。
コンパイル、リビルドだけができないんです。

なんでだーー？？
ほんとにわらにもすがる思いです。
お願いします！！

連続スレすいません。
互換性もソース、プロジェクト管理フォルダは
９５に設定したんですがだめでした・・・
はあ・・・

COBOLと桐ではどちらがユーザー数多い？

COBOLだろうな

>179
桐がほとんどすたれてしまった今となっては圧倒的にCOBOLだ
COBOLは汎用機がある限りなくならないからね

>>178
hello world的なものでもエラーが出るんならそのソースとメッセージを書いてみそ

000010 identification division.
000020 program-id. test1.
000030 procedure division.
000040 display "無事起動しました！"
000050 stop run.

このソースをビルドしようとするとエラーがでます。

An error occurred during make.

と書かれたボックスが現れます。
通常記述エラーならこのボックスが出力された後、
エディタでエラー内容が出力されるのですがそれがでません。

このCOBOLは小文字も判断してくれるようで、
会社のPCではこの状態でコンパイルできました。

他の人にも同じものを入れてソースを
コンパイルしてもらいましたがちゃんとEXEが作成されました。
ちなみにその人のPCも自宅のPCもXP Professionalです。

会社のPCはよく見たらXP Home Editionでした。

>>182
かわいそうだからインストールして試してみたよ。

自分もAn error occurred during makeしか出ない現象が出た
このときマイドキュメントにプロジェクトを作ったためか
CompilerOptionsのOptionFileのディレクトリが途中で切れていた。
のでc:\FSC\PCOBOL32配下でやったらコンパイルが通った。

あとReadmeでは8.3形式でディレクトリやらファイルを指定汁とあった。
ということで下記を参考にプロジェクトを作り直してみれ。

成功した手順：
1.C:\FSC\PCOBOL32\FILE1.CBLを作成(>>182のソース内容)
2.C:\FSC\PCOBOL32(デフォルトインストールディレクトリ)に
　test1.PRJを作成してtargetを同じディレクトリのtest1.exeに
　ソースは1.を指定してMain Programとする
3.おもむろにbuildするとレポートが表示される

>>183
ご指導ありがとうございます！

今までC:\cobolの配下にソースとプロジェクトを
作成していたので言われた通り
C:\FSC\PCOBOLの配下でソースを作成、
プロジェクトも作成してそのソースをメインにし、
ビルドをしてみましたが前と同じ
An error occurred during makeしか出ない結果に
なりました・・・。

パスというか作業場所の問題なのでしょうか？

>CompilerOptionsのOptionFileのディレクトリが途中で切れていた。
とはどのようにしたらディレクトリが切れているのが
解るのでしょうか？

>>184
Programming Staffでプロジェクト開いて
CompilerOptionsのボタン押してみそ

あらゆるところでパスがきちんと出てるか確認しれ
>>183の手順でもだめなら「家でやるな」ということだろう

上げてしまってすみません。下記の内容を実行するときの
コーディングを教えてください。
０１　ＷＯＲＫ−ＴＡＢＬＥ.
０３　ＩＴＥＭ　　ＰＩＣ　Ｘ（０２）ＯＣＣＵＲＳ　１０．
テーブルの中身。
０２，０１，０３，０４，０５，０６，０４，０３，０２，０１の時、
�@ＩＴＥＭの最大値を求める→答え：０６
�AＩＴＥＭの種類をカウントする→答え：０１〜０６の６種類
�B降順に３つだけ他のテーブルに転記する→答え：０１，０２，０３
本当に教えて君で申し訳ありませんが宜しくお願いします。

学校の宿題は自分でやることに意義がある

PERFORM WITH TEST AFTER VARYING N FROM 1 BY 1 UNTIL N = 10
こういうのをいっぱい書かなきゃいかんのでめんどそうだ。

アルゴリズムが知りたいならcやjavaでちょこちょこっと書いてもいいが、
cobolで全部書くのはマジ勘弁。

>>187さん、仕事なんです。。
>>188さん、WITH TEST ってどんな事をするものでしょうか？
>>189さん、やっぱり厄介ですか。。。

>>190
WITH TEST AFTERはrepeat until。WITH TEST BEFOREはwhile loop。
自分はWHILEが好きで、かつ、省略時はBEFOREなので省略して書いている。

で、>>186はソートすれば最大値(ITEM(10))と降順３つ(ITEM(10)、(9),、(8))は楽勝。
カウントも次(もしくは前)の要素が同じでないときだけカウントすればよい。
ソートは書けるだろ？（無理かw）よし、おぢさんが書いてやるよ。
*SORT
PERFORM VARYING N FROM 1 BY 1 UNTIL N > 9
PERFORM VARYING M FROM N + 1 BY 1 UNTIL M > 10
IF ITEM(M) < ITEM(N) MOVE ITEM(M) TO WORK MOVE ITEM(N) TO ITEM(M)
MOVE WORK TO ITEM(N) END-IF END-PERFORM END-PERFORM.
*COUNT
MOVE ZERO TO CNT.
PERFORM VARYING N FROM 2 BY 1 UNTIL N > 10
IF ITEM(N) = ITEM(N - 1) THEN ADD 1 TO CNT END-IF END-PERFORM.
WORKとかCNTとかNとかMはちゃんと宣言しろよ。

なおバグがあるのでよろしく

>>191さん　ありがとうございます。
結局、自分でデバッグできなかったので、シーケンシャルファイル
にして外出しして、JCLでソートしました。
また、なにかありましたらよろしくお願いします。

>>193
解決済らしいがバグはソートのほうじゃなくてカウントのほうだよ
×IF ITEM(N) = ITEM(N - 1) THEN ADD 1 TO CNT END-IF
○IF ITEM(N) NOT = ITEM(N - 1) THEN ADD 1 TO CNT END-IF
ソートは1から順番に一番小さい値を探しているだけ

もう１ヶ所あったね
×MOVE ZERO TO CNT.
○MOVE 1 TO CNT.

つーかこれが書けなくて仕事になるのか？

職場じゃCOBOL85の機能を下手に使うと、他人にわからないようなコーディングは
やめて欲しいといわれてしまう。コレくらいかけなくても平気。

>>197
>>196は>>186が悩んでいることがすぐ解けないようでは
仕事にならない（＝使えない）のでは？と心配しているのだと思われ

しかし>>197の職場ってすごい難儀なところだね。同情するよw

16進数のコードってどうやってきけばいいですか？

4月から人事異動でシステム部に行くことになりました。

プログラム経験ゼロの私に何か良い入門書があれば教えてください。
（パソコンでエクセルで書類を作っている程度のレベルです）

年齢は今39歳です。

よろしくお願いします。

>>199
IF HEX-DATA = X'2D3F' って感じじゃなかったっけ
>>200
人事・給与計算ならCOBOLのシステムなんてやめちゃって、
パッケージやERPの類にリプレースすればあなたの評価もぐんと上がりますよ。

>>200
できました。ありがとうございます

>201

レスをありがとうございます。

> 人事・給与計算ならCOBOLのシステムなんてやめちゃって、
> パッケージやERPの類にリプレースすればあなたの評価もぐんと上がりますよ。

システムの開発部なんでそういうわけにいかないのです。
（主に銀行のを扱っているそうです）

すみませんが、皆さん何か良い入門書があれば教えてください。

>>203
誰か研修資料を持っていないか探して借りれ
(汎用機の会社はどこでも研修やってたので古い人は結構参加してるはず)
あれがいちばん解りやすい
なければ本屋で適当に（ただしPC系COBOL教本以外）

200さんにではなく、201さんにでした

COBOLの講習資料を開くといきなり中カクという文字があらわれて
革マルな漏れは思わず本を閉じた。

COBOLは長く使っているつもりなのですが、66 88 指標 といった機能が使われ
ているところは見たことがないのです。皆さんのところでは使ってますか？

>>207
コーディング規約によると思う。

今までの経験だとたまに使っているところもある。
といったところでしょうか。

個人的には劇的に便利だとも思えないしあえて
使う理由もないと思うけど。

どなたか以下のCOBOL問題回答お願いします。



簡単な図書カードカタログのプログラムを作成してください。

このプログラムでは次のメニューを示します。

1.入力
2.著作名による検索
3.書名による検索
4.終了

選択項目を入力してください。

ユーザーが1を選んだ場合は、書名、著者、出版社を繰り返し入力させます。
書名として空白が入力されるまで、これを続けます。

2.著作名による検索、または3.書名による検索を選んだ場合は特定の著者
か書名を入力させ、一致するものが見つかったら、残りの情報を表示します。


以上です。私はCしか知らないので皆様の力でなんとかお願いします。

Ｃしか知らないというのは単なる逃げ口上
ロジックが組み立てられれば簡単に応用できるはず
仕事でそんなこと言ってたらどうぞお帰りくださいだ

数百ステップ以上かかる問題かどうかを見てもらいたいんですが。

>>仕事でそんなこと言ってたらどうぞお帰りくださいだ

仕事ではありません。ある人物にCOBOLでこのプログラムを組む
には数百ステップ以上かかるといわれたのですが、本当かどうか
知りたくて、、、。

>>211 あなたがこのプログラムをC言語で書かれたら何行くらいに
なりますか。数百行ですか。それならCOBOLで書いたら数百ステップに
なります。もし50行なら、COBOLで書いたら50ステップよりほんの少し
多くなるでしょう。

数百ステップはいかんでしょ。

せいぜい百ステップいくかいかないかってところじゃないの？

http://tmp5.2ch.net/test/read.cgi/download/1114244992/

ここで自称SEが大嘘ついてます。遊んでやってください。

>>209
>>211
>>214
XDfldT3D0よ、ここの住人にまで迷惑かけるなよ

>>198
うちもコーディング基準で、使用禁止命令とか、
四則演算は原則COMPUTE文のみとか定められてる。
一般には、トリッキーなロジックとかSEARCH文とかSORT文とか使いまくりなの？
うちでは、そういう部分は、ほとんど共通モジュールをコールして実現してるから、
COBOL独特の命令をフルに使うということがほとんどないなあ。

>>216
同感
普通ははそうだね

>>216
コーダーがいるような大規模なシステムになるほどそうだよね。
SE兼PGが直接コーディングしてるようなプロジェクトだといろいろ使ってる。
もっともその手のシステムにCOBOLを使うことはまれだけど。

>>218
担当者によって、コーディングスタイルがバラバラってことか？
なんかテストもいい加減そうだな。

専門的な高校に通ってて高一のころからCOBOLやってるんだが高三の今だに全っっっ然分からない。さっぱり。本気で欝になってるくらいつらい。誰か助けてくれ；

COBOLだけわからないの？

コンピュータの基礎が理解できてないんだろうな。

>>220 をちょっと援護すると、
コーディング基準で使用を禁止している部分や一律こうしなさい的に決められてる部分を
まじめに教科書やマニュアル読んで理解しようとすると解らなくなることがある。
教科書にはCOBOLは英語に近い文法で記述性に優れているといったことをいまだに書いて
いることがあるから混乱する。今悩んでる部分は実践ではほとんど使うことはない。
提供されている機能が使われないというCOBOLはつくづく不思議な言語だ。

>>221COBOLだけというかCOBOLを１年から教わっているので他の言語はやってないんですよ。>>222コンピュータなんて基礎もクソも分かんない…orz

>>223確かに英語に近いから分かりやすいみたいな事が教科書にも書いてあったし先生も言ってました。特にﾌﾟﾛｽｼﾞｬｰﾃﾞﾋﾞｼﾞｮﾝが分からないんですよ。毎回辛い実習問題があるんです；

>>220
おまい商業性だな。全焼の3級もおちたんじゃまいか。それじゃダメだ
1年で1級を100点で合格した俺を見習え
トロフィーをもらえるぜ

そんな俺もすっかりプロセジャーディビジョンなんて忘れて
C言語er。
COBOLerとしてはおちぶれたもんだ

しかしこれぐらいは参考になるかもしれん
・アルゴリズムを丸暗記汁
・スペルミスを亡くす
・空白には使われていない変数名が来る

>>220
君には友達がいないのか？変なプライドなんか捨てて友達にすがりつけ。
自分でできないことが他の人にできているのならそいつから教えてもらえ。
そういう行動をしないことによって君は２年もの時間を無駄にしているのだ。

>>220
簡単に言うとだな。
1年の教科書からやり直せ。

こんなことはわかっているとか言って飛ばすのはやめろ。
わからんことがあったら誰かに聞け（ここでもよし）
ここで聞く際は自分が考えてみたことを書け。
以上。

>>227
友達全員がCOBOLが苦手って可能性もあるだろうさ。

>>226商業性？ ３級落ちましたね…修学旅行の次の日で分からないのもあり思いっきり怠けてしまいました；ほんとに自分ダメですorz１年で１級を１００点で!?!?ほんとですか!?すごい。アルゴリズムて何でしょう；？

>>227COBOLがすごく得意な友達います。でも自分はほんとに最初から分からないので聞きようがないというかorz毎回聞くわけにもいかず。ほんとに無駄に過ごしてきたと思いますorz

>>228１回、教科書を最初から全部読み返してみようと試みたんです。でも断念してしまって…でも、今度こそ最初からしっかりやってみようと思います。分からないとこは明確にして聞きにきます。

>>229
おいらは商業性。3級は受けなかった。
確か2級と1級を同時に受けた。受験日は1月31日ぐらいじゃなかったけ。懐かしい。
まっおいらは部活でもCOBOLいじってたしね。100点は狙って取った。

アルゴリズムっていうのは
・最大最小を求める
・合計を求める
・平均を求める
・グループトータル
・ソート
　・バブルソート
　・挿入ソート
・マージ

とかだな。
確か上三つぐらいが3級だったはず。
出題方法もパターン化されてるから過去問やれば完璧でしょ。

がんがれ。

>>232
２級と１級同時にです
か!?本当に１００点取ったんですね…すごい。考えられないです！私は確か９月頃受けた様な気がします。１級受けた友達は１月だったかも。

ｱﾙｺﾞﾘｽﾞﾑとはその事ですか！確かに上４つは確かやった気がします。今はファイルの保守とかいうのやってます。ＩＦ文を短くしたり??とかさっぱりです；明日その授業が２時間ある…orzちなみに>>232さんは何歳なんですか??

>>234
21歳，高卒，趣味グラマー(Ｃ言語)だが，こんな事教えてなんか意味あんのか？

ところでおまいはファイルの保守は分かるのか？
マスタファイルとトランザクションファイルの役割は分かるのか？
IF 文がなんなのか分かるのか？

COBOL に関係ある話をしなちい！！
何が分かって何が分からないような奴は基本的に何やってもダメだ
よく問題(COBOLの問題だけでなく日常生じる問題も含む)を分析しなちい
自分を分析しなちい

がんがれ！！

typo.

>何が分かって何が分からないような奴は基本的に何やってもダメだ 
何が分かって何が分からないかも分からないような奴は基本的に何やってもダメだ

ついでに一言
>>234よ。適度に改行をしろ

>何が分かって何が分からないかも分からないような奴は基本的に何やってもダメだ
これはおかしい、というか言い過ぎだろう。
何かに初めて取り組んだ際は、誰しもこのような状況に陥るはずだ。


・・・と思ったら、>234は既に2年以上COBOLの授業を受けているのか・・・

プログラミングは学校の一斉講義の形式には馴染まない。
高校時代はプログラミングよりも数学の勉強をきちんとするべし。

>>238
いや、馴染むよ。

家で試してみたいと思ってＣＤ付参考書探したけど売ってなかった・・・

>>240
これなんかどうよ？
http://www.sw.nec.co.jp/cced/ocf21/download.html

>>241
おぉ、ありがとう！
早速使わせてもらいます。

pictureでXを指定したデータに空白を入れるのはmove space to データでできますが
pictureで9を指定したデータに空白を入れるためにはどうしたらよいのでしょうか？

>>243
01　A.
　03　B　　　　PIC 9(9).

MOVE SPACE TO A.

ＣＯＢＯＬ８５ＴＤのテストコマンドで、PIC 9で指定したデータ（純粋な基本項目）に
数字以外の文字を入れてエラーのテストをするにはどうしたらよいのでしょうか？
そのまま　sv num = 'a' とかやるとエラーになっちゃいます。

純粋な基本項目なら数字以外の文字が入る可能性は皆無
初期化しないで参照したときゼロとして見えてないか？

プログラムを停止させる等の目的で実行時エラーを起こしたいならば、
>>244 のREC定義の最終行に
03 C REDEFINES B, PIC X(9).　　を追加して

MOVE "a" TO C. を実行後、
B を数値項目にMOVEすればよい。

>>245
ところでそのテストは一体何のためにやるの？

聞くだけで、答えてもらっても挨拶なし。
聞いても、答えない。

人としてどうなんだろうねぇ。

>>249
２ｃｈでそんなの期待するだけ無駄！！

ところで、20年前のミニコンに火を入れてみましたというようなケースを
除いて、>>247のように数値項目に文字が入っているもののMOVEが通ってしまう
ようなCOBOLってありますか。

>251
X項目やん。

>>251
計算しない限り落ちないやつがあった気がする

>>247なら計算しない限りどんなCOBOLでも
こけないだろ。

>>254
if文とかで参照したらこけるよ

>>254 うーん、やっぱりそうか。確かめずに書くとまずいかなとは思ったのだが。
実行時の型チェックはしてないわけね。
だれか、正解を書いてください。質問者が一週間くらいしてちらっと見るかも
しれないから。

サイン無しのゾーン１０進だから下位４ビットが数字になるような
データの場合計算できちゃうかも

>>257
そんな乱暴な処理系があるのなら見てみたいw

>>256
実行時に移送するたびに型チェックしてたらコストがかかって大変だしょ
どうしてもやりたいというならNUMERIC検査しれ
ゾーン10進の数字項目に対しても検査できるから

＞そんな乱暴な処理系があるのなら見てみたいw
BCD演算機構を持たない場合はなんかそんな感じだよ。
おかげでEBCDIC系の数字でもASCII系の数字でも問題なく計算できる。
F1 F2 F3
31 32 33 のどっちも123

>>259
そうか最近のCOBOLは適当^h^h賢いんだな
ちなみに計算結果はASCII系？

BCD数値例外が起きる可能性が一番高いのは、ファイルからの入力の場合。
精査プログラムと更新プログラムを分けてる場合に未精査のファイルを
更新プログラムの入力に使ってしまった場合などに起きる。

COBOLとは直接かんけいないのですが
汎用機でJCLの実行リストをデータセットに収めることは
可能でしょうか?

スレ違い

sort文を使う時に、整列キー項目は昇順と降順を混ぜることはできますか？

ﾃﾞｷﾙﾖ

FETCHってなんですか？

ほら、脚フェッチとかいろいろあるだろ

>>266
fetchについてなにか調べたことはあるの？

STOP RUN.

ここはひどいプロシージャディヴィジョンですね。

>>268
検索エンジンで探しても”これのことかな？”というのが見つからなかったです。

ほれ、「COBOL FETCH」でぐぐったら出てくる最初と2番目のだ。

ttp://www.t3.rim.or.jp/~buchi/procobol/sld001.htm
ttp://www.cobol.gr.jp/knowledge/technical/tec006.html

うちの会社にCOBOLで動いている機械が有って、新人にCOBOLを教え込んで
専任にさせようと思うんですが、これは犯罪ですか？

>>272
そもそもSQLのFETCHについての質問なのか？

>>273
COBOLで動く機械？
すごいもんがあるんだなｗ

>>273 全然。

COBOLの学習環境をWindowsで揃えられるでしょうか？

>>276
無理です。

>>276
↓
http://www.geocities.jp/shirokaz99/cobol-cygwin.html

>>276
http://jp.opencobol.org/modules/mydownloads/singlefile.php?cid=1&lid=2

>>276
そんなことも自分で調べられないんじゃ、先はみえてるんじゃ？

>>280
馬鹿か。ちゃんと２ちゃんに書き込んで楽々回答を得てるじゃんｗ

>>281
ようするにインストールして満足というわけですね。

>>280
陳腐すぎる批判レスはやめれ。

> 陳腐すぎる批判レスはやめれ。

ネガティブな人は批判と感じる。
ポジティブな人は教訓と感じる。

>>284 詭弁。

COBOLの勉強ができるサイトは無いでしょうか？
書籍でもかまいません。

>>286
っ　http://hiyokogumi.gozaru.jp/cobol/

COBOLであと何年食っていけますか？
銀行系子会社勤務

>>284
50年以上は無問題

>>288
50年以上は無問題

新規の仕事は減っているが維持管理は続いてるため需要は微減。
それに対して技術者の供給がそれ以上に減ってきてるため、
後継者問題が深刻になってきている。
　　　　　　　　　　　　　　　　　　　　明るい農村より

>>291
仕事は待つもんじゃない！自分から作るもんだ！

>>287
ありがとう。

ちょっとすみません、質問させてください。
JCLというやつを習いたいんですが、これの本などいっさい出ていないように思うんですが、
実務じゃないと勉強できないでしょうか？

あと、COBOLって高価な汎用機でしか動かないのでしょうか？汎用機を使っているところがけっこうあると聞いたのですが．．．

>>294
メインフレームコンピュータのジョブ記述言語でCOBOLとは直接関係ない。
かなり端折っていえばバッチファイルのようなもので、COBOLなどで作った
ロードモジュールやソートユーティリティなどを順番に実行するために記述する。
OSごとに文法が異なるがIBMメインフレーム用のOS MVSの用のものが有名。
勉強したいならメーカーのマニュアルや出版物を当たるしかないと思う。

COBOL＋JCLをセットで勉強したいなら汎用機が必要になるが、純粋にCOBOLだけなら
PC用のものがある。ちょっと前の書き込みくらい見ような　>>276 >>278

汎用機のエミュレータって作れそうで無いな。

COBOL.NETって氏んじゃったの？

>>297
ほそぼそと使ってるベンダーもあるんじゃないの？

・.NETなのにわざわざCobolをつかう必要があるのか？
・.NETだからCobolでもいいじゃん。
二つを考えたとき新規開発では要員の集めやすさ等の
諸条件を考えれば上に落ち着くと思う。
お客がメンテナンスを考えればCobolが良い。（技術者
がいる）と考えれば下に落ち着く可能性もごくわずかだが
ありえるかも。

>>296
UNISYS,NECはすでにWindows上で動いている
でも我々が入手可能なレベルでは存在しない
入手可能になったとしてもあまり使い道がないしね

>>295
ありがとうございます。
JCLというやつをいじったことがなかったので、それをやってみたいと思ったのですが．．．

COBOL.NET
↓
http://software.fujitsu.com/jp/cobol/

>>296
ここなんかどうよ？
http://www.genny.or.jp/kaz/hercules/
http://www.bsp-gmbh.com/turnkey/herc_mvs.html

>>302
世界は広いな。感心した。

>>300
ＪＣＬの紹介。
http://www.eits.uga.edu/hostsys/mvs/ibm-jcl-intro.html

>>300
http://pc8.2ch.net/test/read.cgi/prog/1101042901/l50
ほんとは↑のスレの範疇だが、要はプログラムを動かす為の設定みたいなもんだ。
ＰＣのシェルスクリプトとか、バッチファイルに相当する。
オープン系で仕事するなら、まず縁がないと言っていいだろう。
しかし、仕事で使うことになっても、慣れれば誰でもある程度使える。

>>296
ヘラクレスはだめか？

>304
>305
ｻﾝｸｽです
構文とか運用の話とか参考にしたいと思います、あざーす。

どうして老人はPROCEDUREをプロセデュアと呼ぶのですか？

外人と話をしている訳ではないから

>>308
ごめん、俺もプロセデュアって読んでる

明治の人は oneを おね、twoを つうぉ と読んでたそうだし

役に立つCOBOLのフリーソフトってないでしょうか？

おいおまえら、元ＣＳＫの金山昇一が逮捕されそうな勢いだぞ。
ＣＳＫ世代は読んでみれ。

http://www.tanteifile.com/diary/index_shibaru.html

おまいら、チャーハン作れるか？
http://odd-flash.net/blog/kiji_img/502250009-10102.pdf

cobolでチャーハンねぇ・・

チャーハンCOBOLぇたからってそんなに落ち込むなよ

ＣＯＢＯＬで（ということなので、再帰を用いずに）
ｎ個の数字を使ってできる順列をすべて求めるアルゴリズムはあるでしょうか。
例えば、１，２，３を並べる並べ方は
１２３，１３２，２１３，２３１，３１２，３２１
となります。
Ｃ言語等で再帰を使えば掛けるのですが・・・。
ＣＯＢＯＬで書く場合では悩んでしまいます。
そういうわけで、皆様のお知恵を拝借できればとおもいます。
宜しくお願いいたします。

そんなことを本気で訊くようならＰＧに全く向いてないよ
再帰で書いたプログラムのオブジェクトが何をしているか解っていない証拠

再帰でできることなら、テーブル（配列）をスタック風に使ってロジックを非再帰型に変換するのは簡単だろう？

>>319
よくわからんが(ﾟ∀ﾟ)惚れた！

業務系長くやってると、>>317のような話には無縁になる。

再帰は危ないから使わないとか言うような無自覚低脳の再教育が俺の仕事
ちゃんと安全性を確保し定量的な見積もりをする方法が非再帰と同等にあるのをわからせるため
初日はまず鼻っ柱を叩き折ることから始める

どこで変なことを吹き込まれたかわからんが、もったいない逸材のなんと多いことか

>>322
がんばってね。応援してないけど。

テーブル使って組み合わせを全部ファイルに出力
ソートユーティリティ使ってサマリー

プログラムは極力書かない
これ事務アプリの現場の基本

プログラムをゴリゴリ書ける奴はCOBOLの職場には今時
あんまりいない

>>322 Prologでも教えたら。あれ、再帰使わなくちゃどうにもならないね。

ロジックやアルゴリズムを考えるのがプログラマーでプログラムに起こすのがコーダー。
ただし現場ではプログラマはSE、コーダーはプログラマーと呼ばれている。
COBOLはコーダー用言語なので単純作業化できないような難しいことはしちゃいかんのですよ。

コーダー用じゃない言語って？

日本語とか・・・

下の本はテキストとして使われることはないですか。

「COBOLのオブジェクトコード」 1978年 魚田勝臣 小碇暉雄 共著　近代科学社刊

コンピュータサイエンス大学講座というシリーズの一冊で息の長い本かなと
思ったら、amazonでも出てこない。
当たり前のことしか書いてないかも知れない。でもいい本だと思います

YSP-COBOLってﾔｯｸﾁｬｰﾄのあれですか？

>>330
YPS

商業高に通う者なんですが
検定種目の中にでcobolがあるんですが、学校ではエクセルを選択してるので、習うことができません。
COBOLって難しいですか？htmlとどちらが難しいでしょうか？

>>332
htmlの方がずっと難しいよん。
大学生が４年間勉強しても、実社会では使い物にならないくらい難しいよん。
逆にCOBOLは中学生でも１ヶ月でものになるよん。

>>332
腐ったHTML書くのには1時間もいらない
腐ったCOBOL書くのには1日もいらない
まともなCOBOLを書くには1週間はかかる
まともなHTMLを書くには1ヶ月はかかる

>>331
やはりYPSですか、ﾊﾛﾜの市役所でもお仕事求人欄に堂々とYSP(ヤマハ？）と記載されていました。
ﾊﾛﾜのタイピングの人、管理職は無能なんですね。求人依頼者のそのまんま書くなんて。

YPS,COBOLG,やっくん茶都、K10,K300,K500,ｵﾌｺﾝがｵﾘのｷｰﾜｰﾄﾞ

>>332
適性による
数学が苦手な人にとっては平易な文章でプログラミングできて楽な言語だが
数学が得意な人にとってはいらん制限を打ち破る苦労が他の言語にない徒労として立ちはだかる

数学が得意だったら制限を打ち破る苦労は苦手な人より少ないだろ

優秀ならCOBOLでできるかできないか即座に切り分け
できるから無駄にCOBOLでやろうとしないわな。

>>337は数学が出来る（テストは成績いいんだろ）ん
だろうけど応用力がさっぱりさんなんだろうね。

COBOLは下流ケースツールが吐き出す中間言語的な位置づけになって進化をとめた。
枯れた設計手法や製造手法で事務計算分野では今でも強さを見せるが、
新しい分野への応用は少ない。

>>340
> COBOLは下流ケースツールが吐き出す中間言語的な位置づけになって進化をとめた。

これはまぁ、あえてつっこまないけど。

> 枯れた設計手法や製造手法で事務計算分野では今でも強さを見せるが、
> 新しい分野への応用は少ない。

事実だし、みんなが知ってるようなことなんだが。
改めて書いてなんか意味あるの？

>>事実だし、みんなが知ってるようなこと
藻前、そんな思い込みで仕事を進めたから
プロジェクトが火を噴いたんだろうが！
当たり前のことだと勝手に判断せずに、もっと情報を共有しろ！

ということを>340は言いたかったんだろう。

近頃は予防保守をプロジェクトと言うようになったのか

>>342
今時COBOLのプロジェクトで火を噴くところなんてねーだろ。
火を噴いてたとしたら>>337みたいな俺はすげーけどCOBOLが
だめなんだって言うような馬鹿がいるプロジェクトだろうな。

>>344
＞今時COBOLのプロジェクトで火を噴くところなんてねーだろ。
そう思うならなんでもCOBOLでやればいいだろ。
火を噴くところだってあるよ

>>343
案件の性質に関係なくプロジェクトはプロジェクトだよ

>>344
火を噴くかどうかは言語に依存しないよ

COBOLしか知らない連中がメインの職場でなにかやるとなれば
なんでもCOBOLでやるだろう。
人の手配には金がかかるし、教育するとなれば金プラス時間も
かかる。そこから抜け出せないアリ地獄にはまっているところも
多々あるさ。

COBOLは古臭くて嫌われがちだが、誰にでも出来るというものすごい
利点も持ってるよ。

コンピュータに関する最新技術がどうのこうのというところに重点を置くと
つまらないかもしれないが、現状の人的資源でどうにかやりたいことを
最低限実現するには非常に便利ですな。

眠い

進化をとめたわけではない、しかし利用者が進化を拒否してる。

>>346

>>346
>多々あるさ。

ねーよ。あったとしてもごくわずか。
お前とお前の周りのレベルが極端に
低いんだろ。

>人の手配には金がかかるし

ﾜﾗﾀ

>>345
> そう思うならなんでもCOBOLでやればいいだろ。

あふぉか？
スレの流れもよめねーで脊髄レスするような
奴に何言っても無駄なんだろうな。

>>349
ほほう

でもさ、出力形式が見出し明細後付けみたいのがほしかったらCOBOLやっちゃいたくなるけどそれもいいんじゃないの？

新しいもの好きは単なるオナニー

>>353
ＥＡＳＹは？

>>355
ごめん、なにそれ

>353
Qは？

新しいものに関心なくなったら技術者として閉経

>>356
http://www.caj.co.jp/advantage/easy/

cobolのコンパイラってなんか高価そう。
テキストで勉強はできても実際にやってみようとするとチョッと・・・

>>360
http://www.google.co.jp/search?hl=ja&q=gnu+cobol&lr=

>>360
http://b2c-1.rocketbeach.com/~bitwalk/

>>359
よーわからん

ｲｰｼﾞｰ・・・簡単

>>356
書き方自体はCOBOLみたいなノリなんですが、
もうちょっと簡単になったような感じのスクリプト系の言語。
C言語と awk みたいな関係と似てる？かもです。

>>365
ほぉ・・�d

>357
便利ではあるな。

COBOLで16進数って使えますか？
Cでいうと「"0x"を数値に付与する。」
みたいな機能ありますか？

X'○○'

>>369
ありがとうございます。
ちなみに8進もありますか？

>>370
自分で調べたか？

>>368
いちいち１０進に直すとか

>>371
調べてもわからなかった。

>>368
１６進も８進も元は２進
工夫次第でどうにでもなる。
昔のソースを見ると２進を使って工夫したものが結構ある。

COBOLer はアセンブラできねえし

真のCOBOLerのアセンブラにはAddPack とか UnpackとかBCD系の命令があったりする。

勃起不全命令

>>370
Bit でガンガレ

大学の講義でプログラミング演習を受講しています。自分は今、そのレポート課題でVARYING指定付きのPERFORM文を使って、どの数まで足すかを実行段階で入力できる計算プログラムを作成しているところですが、どのようにすればそれができますか。教えて下さい。

ACCEPT 文？
それとも SYSTSIN にアサインしたファイルに READ 文？

　　　〃∩ ∧＿∧
　　　⊂⌒（ 　・ω・）　　はいはいわろすわろす
　　　　 ｀ヽ_っ⌒/⌒ｃ 　　　　
　　　　　　　 ⌒ ⌒

(´〜`；)ああ、イヤダイヤダ。
夏厨が湧き出しちゃったよ。
これから９月まで２ｃｈ全体が
つまらなくなるだよな。さっさと
夏終われ。ガキは学校でクセエ
汁垂らして部活でもやってろ。
あーあー、ウザイウザイｗ

COBOL の質問に答えられない奴こそガキ自明なわけだが・・・

>>379
PERFORM VARYINGの使い方の質問なら簡単に答えられるが、
実行段階での入力という部分が環境によって多少方法が異なる。
後者の事も聞きたいならOSやコンパイラ名を書いておこう。
よくわからんので全部教えてという話なら夏厨認定だけどね。

>>383
普通にコンソールから終了値を入力したいということでしょう。
しかし、こんなのがレポート課題って、レベル低すぎじゃないですか？
それに、いくらネットが普及したとは言え、この程度のことを
ネットで聞くなんて、楽しすぎです。
時代は完全に変わったのでしょうかね・・・orz

>>384
汎用機コボラーな俺はコンソールというとシステムコンソールのことを思い浮かべるよ。
自分のTSS端末にDISPLAY ACCEPTされるかと思ったら、
コンピュータセンタの監視コンソールにいっちゃって怒られた覚えがある。

WTO になるだけだっけ

>>344
つまりJAVAの案件は、Javaを上手く使いこなせない奴が開発してる。
って事になるんだが・・・

誰にでも扱える言語使って、プロジェクトが火を噴かないなら、
みんなCOBOL使って開発してるよ。

COBOLはコーディング方法も設計方法もなんと作るシステムも型が決まっていて
確立された手法に従う限りトラブルが少ないってこと。
無謀にも新しい試みをしようとすると火を噴く。

>>387
おまえほんと馬鹿だな。

>>361-362
　遅レスですがありが�d（´・ω・）

某銀行系のシステムでかなり火噴いてますぜ。
ただし、ＣＯＢＯＬうんぬんではなく
スケジュール的な問題でね。
ＣＯＢＯＬで火を噴くってどーゆー事ですかね？
プログラマーがろくにテストもできない
バカばっかりだとか？そゆこと？

大小の判定で数字じゃなくて、カタカナ同士を比較したらどうなるの？

>>392
バイナリで比較される。
EBCDICのコード表を参照せよ。

バイナリで比較される？？？？？

なんかずれてるな。

上のレスだけじゃただのあおりだな。

数字だってなんだって結局はバイナリで比較
されているわけだ。そこで、

バイナリ（むしろ二進数でと表記すべし）で比較される。

じゃあ、回答としては10点ももらえんだろ。

「各文字列の文字コードの連結の大小で比較されます」

これ100点。

「各文字列の文字コードの加算の大小で比較されます」
これうそ。

「各文字列の文字コードの連結の大小で比較されます」
間違え
「文字列の各文字の文字コードの連結の大小で比較されます」

そもそも質問者がCOBOLを動かしている環境が
EBCDICの文字コードを採用しているかどうかすら
わからんのにEBCDICの文字コードを参照せよ。

じゃあ、まるで馬鹿丸出しだよな。

そこまで批判しなくてもいいような

ありがとうございました(>_<)
わたしのことで喧嘩しないで(>_<)

えーと・・・・・・400

コボルで作成したクラス�@の参照をプロパティに持つクラス�Aを
作成し、それをVBから使用したいのですがうまく行きません。

CLASS-ID. �Aクラス INHERITS FJBASE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS FJBASE
CLASS �@クラス.
OBJECT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LNGPROP PIC S9(9) COMP-5 PROPERTY.
01 REFPROP OBJECT REFERENCE �@クラス PROPERTY.
END OBJECT.
END CLASS �Aクラス.

LNGPROPはVB上から見えますが、REFPROPはビルド時に、
COMｻｰﾊﾞ連携としてｻﾎﾟｰﾄしていない属性が記述されています。
REFPROPは出力されません。と言われ、公開されません。

記述が悪いのでしょうか？
参照はプロパティとして公開できないんでしょうか？
参考になりそうなサイトでもいいので、
ご存知の方いらっしゃいましたら、教えてください。

コボルで作成したクラス�@の参照をプロパティに持つクラス�Aを
作成し、それをVBから使用したいのですがうまく行きません。

CLASS-ID. �Aクラス INHERITS FJBASE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS FJBASE
CLASS �@クラス.
OBJECT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LNGPROP PIC S9(9) COMP-5 PROPERTY.
01 REFPROP OBJECT REFERENCE �@クラス PROPERTY.
END OBJECT.
END CLASS �Aクラス.

LNGPROPはVB上から見えますが、REFPROPはビルド時に、
COMｻｰﾊﾞ連携としてｻﾎﾟｰﾄしていない属性が記述されています。
REFPROPは出力されません。と言われ、公開されません。

記述が悪いのでしょうか？
参照はプロパティとして公開できないんでしょうか？
参考になりそうなサイトでもいいので、
ご存知の方いらっしゃいましたら、教えてください。

２度書き、長すぎｽﾏｿ

>>402
他の言語から参照できるかは試してみたのか？

他の言語が出来ないの試してないですが、
VC++の環境があるんで試みます。

ただ、出力されるメッセージから推測すると
DLL作成時点で、REFPROPは"公開"とされていない様に
読み取れます。

>>405
なぜ公開されていないか考えてみたか？

OO-COBOLは評価以外で使ったことはないが、実務で使ってるとこある？

>>407
ある。

COBOLだけのシステムならあえて採用する必要
は無いと思うけど、他のシステムと連携するなら
必要になってくるときがある。

>>408
なるほど、CORBAでレガシーシステムのマイグレーションをする感じですね。

>>409
・・・・・ぜんぜん違うから。

なんでCOBOLって変数とロジックが部で分かれてるの?なんかメリットあるの？

>>411
COBOLのソースは小論文みたいなものなんだが
データの章と命令の章をなぜ分けたのかはCODASYLにでも聞きなはれ

コンパイラが作りやすかったんじゃないの？

てか、初期の言語（アセンブリ言語含む）は、
実行文と非実行文をキッチリ分けて書く（書かねばならぬ）のが
常識的な仕様だった。

　SVC mona
DC giko

DC、DSね

スイッチを使いまくる４０代のおやじを殺したいんですが・・・
駄目ですか？

コボルだけならええがJCL、SQL、オラクルがかみ合ってくると、
わからん！！！

どないすればええ！！！

>>417
EVALUATE?

//HOGE JOB *,CLASS=Z,TIME=1440
// EXEC ASMCG,ADRSPC=REAL,REGION=76K,APF=1
//SYSIN DD *
MODESET MODE=SUP
DC X'83BB0001'
LPSW 0
//SYSOUT DD SYSOUT=*
//
・・・だっけ？　忘れた

COBOLのコードをＣのコードにコンバートするツールとかってないですかね？
あるプロジェクトでＬＭすることになったんですが
あの冗長なコードを大量に見てると吐き気がするよ。。。

以前どっかでやってたな #include "cobol.h"

LMって何だ?

>421
フリーのツールはなくてもそういうサービス提供してる会社はあるよな。

>>423
レガシーマイグレーション

01 WK-住所 PIC N(10).
---------------------------------
MOVE 都道府県 TO WK-住所.
MOVE 'OFF' TO FLG.
---------------------------------
条件 FLG = 'ON' になるまで X1 を 1から1ずつ増加させ繰り返す
もし WK-住所(X1) = SPACE
ならば
'ON' → FLG
終わり
繰り返し終了
-------------------------------------------------------------
日本語COBOLなんですが、例えば゛東京都゛を都道府県に入れた場合、
同考えても、変数(X1)の値は4だと思うのですが…
答えはあってるでしょうか？ 実は上司には変数(X1)は5だといわれたです。

>>426
はぁ？

ここのところで　条件 FLG = 'ON' になるまで X1 を 1から1ずつ増加させ繰り返す

条件クリアしたんだから　+1しないで　値=4のままの変数で構文抜けるとおもうのですが

>>426
件数カウントなんでしょ？　東京都１件？

てか実際x1出力したら終わりだと思うが

何度もすみません。

1 2 3 4
東 京 都 △

変数の値が４の時にSPACEなので、そしたらFLGにONが入り
PERFORM分を抜ける条件を満たしていると思います。
だから そのまま加算しないで変数の値は４のまま　この構文を抜けると思うのですが・・・
何度考えても・・・５にはならないと思うのですが。

『神奈川県』だったら変数は５では？
『東京都』だけ聞くなら
PERFORM文にする必要ないかと。

>>426

>>426のコードだと、文字列の部分参照を検索するような
コードにはなっていないのに、>>431じゃあ部分参照について
かいてる。

そもそも仕様を理解してないんじゃないのか。

COBOLで文字列処理なんかしようと思う時点で、既に負け組だと思う・・・

おれは以前、コボルで縦の棒グラフを作った。
アニメーションの原理だ。
富士通のSEが一言、職人芸ですね・・・だと・・・

>>435
何十年前の話をしとるんだか

>>431
通常、ループ処理だとINDEXを最後に加算する(はずである)ため今回の例では5になる
例として5回繰り返す処理をVARYINGを使わずに書くと
MOVE 1 TO X1.
PERFORM TEST BEFORE UNTIL X1 > 5
ADD 1 TO X1
END-PERFORM.
となるので条件を抜けるときX1は6になる

但しVARYING(1から1ずつ増加させ)で使った変数を繰り返しの外で使うのはどうかと
多くの処理系では値(VARYINGのときにどうやって増やしてるか)を保証しないと謳っているはず
私も脱出直後の値は保証しかねるw

なので、条件に合致したらそのINDEXを別変数に保存するとか
フラグを数字タイプにして最初ゼロクリアし、条件に合致したらINDEXをセット、
脱出条件はゼロより大きかったらにするとか
そうした（特に前者の）ほうが値も保証されるし他の人が見ても解りやすいと思う

それからN(10)なら条件のところは X1 > 10 または FLG = 'ON' としとかないと
10文字全部スペース以外の時実行時エラーになるぞい

>>436
あふぉですか？
PERFORM文の評価文はFLG="ON"でしょ。

しったかかこわるい。
いや、そもそもレベルが相当低いのかもしれん。

>>436
追記
> それからN(10)なら条件のところは X1 > 10 または FLG = 'ON' としとかないと
> 10文字全部スペース以外の時実行時エラーになるぞい

じゃなくて両方指定しないとだめですな。

しったかかこわるい。
いや、そもそもレベルが相当低いのかもしれん。

>>436
＞通常、ループ処理だとINDEXを最後に加算する(はずである)ため

コボラーってこういう神話が多くて、付き合いにくい。

>>439
むしろ436はCoboler以下だと思うが。

ちょっと>>426読み直したらヘンじゃねえ？
WK-住所の中にある文字を一文字ずつMOVEするの？
それとも、WK-住所が配列になってるの？
一文字ずつMOVEするなら、FUNCTION ADDRでポインタ移動しながら
MOVEしてもいいし、変数を配列のREDEFINEしてもいい。
その場合、限界値の10だけを抜ける条件にして、PERFORM文の中で

IF　WK-住所(X1) = SPACE
THEN
EXIT PERFORM
ELSE
MOVE WK-住所（X1) TO 都道府県
END-IF

これでいいじゃん。ダメ？
ってかもうとっくにテストまで終わってそうな日付だなｗ

質問させてください。
NEC ACOS4 COBOLを仕事で数年間仕事をしてきました。
しかし、データベース経験がありません。
VSASファイルはデータベース？なんでしょうか？ これなら経験あります。
IDとかKEYを送り込んで、値を返却してもらう感じで。
最近調べたんですが、ACOS4の場合ADBSとかデータベースと書いてあったんですが・・・
VSASファイルは・・・・データベース？なんでしょうか？
これからの　職務履歴に記入するので　教えてください。
バカですみません。m(_ _)m

>>442
VSASというのはVSAMみたいなものかな。索引順次編成風のものならデータベースの範疇に入れていいと思うよ。

>>442
VSAM?
だとしたらＤＢじゃない。
単なるＩＳＡＭ。

なんか気ばっかり張っていまいちなファイルシステムだったな
あーゆー処理はアプリの領分だってことを皆に気付かせた意味はあったけど

名前つけた時点では multics のパクりでも作るつもりだったりして

厳密にはトランザクションやらログリカバリ関係の機能のあるもの以上を
データベースマネジメントシステムというのだろうけど、
スキルシートに書くときは
　　○データベース　( VSAS/VSAM )
と書いても問題ない。

すみません　お早い回答　本当にありがとうございます。
スキルシートに書いてみます。ＶＳＡＳ　

ん〜
たとえ擬似ＤＢでも、設計したことあるのとないのとで結構重みが違うかも・・・

DB を作るほうのシステムプログラマか

>>449
じゃなくてファイルの見積もり・設計の話だろ。

おまえらほんと技術者なのか？っていう質問が
おおすぎてかなりなえるんだが。

だってコボラーだし

パチンコと言ったら脱税、COBOLと言ったら富士通だよね

>>450
(´▽｀*)ｱﾊﾊ

>>450
それでもプロとして生活することが可能なんだよ。
それだけCOBOLが偉大ってことさ！

いまでもCOBOLを使ったシステムが全体の５割とか聞きますが本当ですか？

>>455
統計の取り方にもよるんだと思うよ。お前さんがCOBOLがどのくらい使われてるか調査するとして
どんな調査をするか考えてみろ。

富士通のKシリーズで動いているユーザープログラムを本数ベースで調べたらCOBOLで９割はいきそうだ。

>>457
はぁ？

>>457
Ｋシリーズってあのデカイタワーみたいなヤツ？

>>459
はぁあああ？？？？？

今日もまた技術者とも思えないような奴らの
糞レスを見る羽目になったな。

絶滅危惧種のオフコンはどうでもいいとして、上場企業１００社くらいにCOBOLを
使ったシステムはあるかとアンケートをとればかなり高い数字は出るだろう。
仮に５０社があると答えたとして、どの程度使ってるかは不明だが、
COBOLを使ってる企業は５０％なのは間違いない。
あとは調査方法をぼかして、５０％という数字を一人歩きさせれば作戦成功だ。

>>461
ﾌﾟ

>>462
50%てもんじゃない。
新興企業の除けば、ほぼ100%に近い数字が出る。

しかし、投資に占める割合の推移から考えると、将来への展望は絶望的だ。

224 名前：デフォルトの名無しさん [↓] ：2005/08/18(木) 22:54:16
>>223
お前らが使ってるATMやCD機の中の人は殆どJAVAだぞ。
金融システムは殆どJAVAに置き換わった。
(未だにアセンブラやCOBOLの奴もあるけど)

端末の話はしてねーよ

COBOLのシステムが他のシステムに置き換わっているのは
周知の事実だし、いまさらそんなことどうでもいいだろ。

ほんと、技術者とも思えない馬鹿ばかりで疲れるな。

>>467
インタフェースの上っ面を見て全て置き換わったと錯覚してる。
膨大な件数をさばく基幹業務処理が全てJAVAにでもなったとでもいうのか？

>>468
全部置き換わったなんて誰が言った。

置き換わってきていることが事実だと
言っているんだろ。

いまさらなんでいちいちｼｪｱにこだわるんだろ。
COBOLしかできないのか？

もういいよ。
疲れるんなら来るなよ、煽り野郎。

>いまさらなんでいちいちｼｪｱにこだわるんだろ。
>COBOLしかできないのか？

禿藁

お盆休みのせいかな

COBOLって文法とかをだいたい覚えたら次に何をすれば良いんでしょう
本もほとんど無いし…
みなさんはどうやってCOBOLを勉強しましたか？

文法以外は他の言語と区別する必要も無いと思うが

>>473
仕事しるｗ

>473
俺こーこで習ったよｗ
どっかの落ちてるコンパイラ拾ってサンプル見ながら実行してみな〜

>474-476
レスありがとうございます。説明不足ですいません

僕の言いたかったのは、例えばJavaだとJSPで表示してサーブレットに渡してMySQLに登録するとか
そういうこと書いた本がたくさんあるのでわかりやすいんですが、
COBOLに関しては本もネット上の資料も乏しいのでなにをすればいいかわからない、ということなんです
「COBOLでDBに接続する」とか「COBOLで印刷」とか言われても「それ具体的にどうやるの？」って感じなんです

>>477
> 「COBOLでDBに接続する」とか「COBOLで印刷」とか言われても「それ具体的にどうやるの？」って感じなんです

JAVAと同じようにやればいいじゃん。

> 例えばJavaだとJSPで表示してサーブレットに渡してMySQLに登録するとか

まぁ、こんな頓珍漢なことを言う奴には難しいかもしれないが。

そもそもCOBOLの本いっぱいあると思うがな
「わかるCOBOL」みたいなものが無いといっているのかな？

まあ現実離れした情報処理試験のテキストばっかりだし

>477
仕事で必要に迫られないなら、他の言語やったほうが良いような気もするな。
基本的に読みやすい文法だから、必要になればすぐ飲み込めると思うし。

漏れも仕事でコボってるが、必要になればすぐに覚えられる言語なので、他の事(バグの言い訳の仕方とかｗ)を勉強した方が役に立つ思うけど。
ネットになかなかソースが転がってないとか、PC用のコンパイラがあまりないとかいう現状があって、必要に迫られない形での独学には向いてないと思う。
環境があれば、例えばラインプリンタで巨大なAA打ったりするのは楽しいんだがw

COBOLはIBM汎用機のOSや環境と一緒に勉強するとその意味が良く理解できるのだが、
PCやUNIX上で使うとアンマッチ振りや不便さばかり目だってやる気を無くす。

>>482
>例えばラインプリンタで巨大なAA打ったりするのは楽しいんだがw
　・・・（’A'

コボラーってなんですか？

>>485
コかこーらボとラーず

>486
何気に巧いと思ってしまった漏れｶﾞｲﾙ＿|￣|○

>>487
気にするな。俺もだ♪orz

あー、夕焼けにゃんにゃんに出てたあいつか

>>482
花文字はアセンブラだったぞ
少なくとも俺のいたセンターは

>>490
花文字は本物のラインプリンターで打ち出したのが趣があって良かった。
シリアルやレーザーで打ち出すと味気ない。所々文字が上下にずれるところに侘び寂の世界があった。

>>491
御意

初心者的質問させてください

Ｓ９項目のバイナリ表現の時の桁数というか、バイト幅の数えかたってどういう感じなんでしょうか
調べたら１２３４→０４Ｄ２ってのはわかったんですが、もっと桁数のでかいやつで

>>493
桁数＝１〜４の場合、バイト数＝２
桁数＝５〜９の場合、バイト数＝４
桁数＝１０〜１８の場合、バイト数＝８

>>493
マニュアル見た？

コボルなら上級だ！！！が、JCLが分からん！！！NECは論外！！！

俺も初心者なんだけど…

>>493
ただのS9なら1桁1バイトで最後の1バイトに符号と数字が格納されているはず。
ex. 1234=F1F2F3D4
493の場合はどこかにCOMPとか何か書いてあると思うんだけど。

>>494
それって、COMPを使った場合？
4ビットで一桁をあらわすやつなら知ってるけど、
COMPを使った場合にどのようなビットで表現されるのか教えてﾎｽｨ…

あっ、文字コードは会社によって違うのか…

>>497
>>493で「バイナリ表現」と書き、具体的な数値も「1234」を
そのまま16進にしたものだったので、「USAGE BINARY」＝「COMP」
を想定した。

内部表現については↓に詳しいよ。
http://www.cobol.gr.jp/knowledge/technical/tec004.html

COBOLというか２進化１０進数を知ってるかどうかみたいな話だな

>>499
ありがとん

今日ソフトウェア関係の会社説明会で、
COBOLを勉強すればプログラムをよく知ることができる、といった趣旨の話を聞きました。

私は言語はC,Java,Perlしか知りませんが、
その上からCOBOlを習うことでプログラムの造詣を深められるように
COBOLは言語のつくりが優れているのですか？

> COBOLを勉強すればプログラムをよく知ることができる、といった趣旨の話を聞きました。

隊長、これ見て下さい！
１００ギガシーベルト振り切ってます・・・　これは一体？？

>１００ギガシーベルト振り切ってます・・・　これは一体？？

(　; ゜Д゜)　　…

（.つд⊂) ゴシゴシ

（　 ＾ω＾) おもすれー

じゃなくて、いやホントにそう言われたんですよ。COBOLは学習に向いてると。
なんかその反応からして宇宙が藍色にガチャピン。

>>502
「ソフトウェア関係の会社説明」した人が凄いんだよ

その講師さんの言わんとするところはわかるが、
それならアセンブラのほうがいいと思う

COBOLのプログラムは基本的にどの業務でも似たような処理しかないから
サンプル見ながら作れば１年目の人でも簡単にできるよ。

>>502
>私は言語はC,Java,Perlしか知りませんが、
何気に自慢か？
そんだけ勉強してきた実績があるなら、COBOL云々について
一々ここで聞かなくても、自分で調べられるだろ？
あなたの質問の意図が分からない。

プログラムをよく知る・・・

本によく出ているスパゲッティプログラムや大昔の先人が無理やり
COBOLでコーディングした工夫に工夫をかさなたプログラムなどは
無理ことが出来る。

特に昔のものはまさに知恵を絞ったものが多い。

それをCOBOLでやるのはどうなの？
ってことは突っ込まないでね

>508
3つ程度じゃ自慢にならんよ
そのくらい普通だろ? COBOLER以外のプログラマにとっては

>>510
そうなの？
ま、せいぜいコーディング作業に励んでくだされ。

数の問題じゃねえし
それだったら広く浅くかじってる学生なんざいくらでもいる
開発力をライン数で測ろうとする輩には似合いの価値観だけどな

いままで、COBOLで作ったプログラムだったので、いじれたけど、今度VBに変わって
いじれなくなってしまった。コボルのソースみると懐かしい
VBやるにも　もう44歳だし普通の会社員だから　開発部門の会社に行きたい
だれかVB教えて

>>513
情報料ってわかるか？
サポート料ってわかるか？
まず相場を調べ投資効果との損益で検討できるか？

ジイサマほどこのへんは年の功でわかってくるはずだが

>>513
どこか別の会社に移って開発部門に入りたい、の意味かなー。
でも、その会社がいつまでもVBである保証は全くないし・・・。

４４歳にもなってそのザマ？ｗ

44歳でもプログラムやるのか。俺の会社じゃ考えられん。
入社して半年だけど詳細設計書書くのが仕事なんだが。

>>517
そりゃまた、たいした会社だ

>>517
トンチンカンな設計書に泣かされるプログラマが哀れだ・・・

普通はレビューするだろ。

場末の糞開発会社じゃそんな余裕もないだろうけど。

>>520
(´∇｀)ｹﾗｹﾗ

>>520
レビューになってりゃいいけどな
(´∇｀)ｹﾗｹﾗ

仕様書はプログラム見て書くものだろう。

>>521-522
程度の低い奴の典型的なレスですね。

プログラム見て仕様書書いてる会社ほど糞な会社にだけは入りたくない

？

理想的にはソース自体がドキュメントとして通用することだろ
違うかい？　AUTHOR さん

>>527
違うねぇ。
理想は、ソースも仕様書も同期が取れていて
なおかつ的確で読みやすいこと。

>ソースも仕様書も同期が取れていて

理論的にありえない

>>529
は？

中途半端に知ったかだとこうなりますっていう
典型だなお前は。

関連づけを数学的にとらえることはシステム設計の基本中の基本

COBOLはソースがそのまま仕様書になる
っていう予定で作られたもんだときいたが・・・

>>520
小僧にそんな仕事をいきなりやらせる会社のほうが
余裕の無いクソ会社に見えるがな

バブル期の大手によくあった状況だ。

詳細設計書がそんな高度な仕事か？

レベル低い奴らばかりなんだろうな。

モジュールのレベルによるさ

トレーニングもなしに本当に未経験の若造にやらせるのなら、それはどうかと思うが

>>535
結局若造とか言いたいだけなんだろ。

人間的にレベル低いな、お前。

文系学部出たてで研修もロクに受けてない自称(派遣元称?)SEが
勘定系のプログラム書いてる現実を見ろって >>536

一年目でも詳細設計やってる会社は少なくないぞ。

ちゃんとレビューしてまともなもん納品すんならどうでもいいよ

>>537
は？

もうしゃべんなくていいよ。ボロだすだけでしょ。貴方の場合。

通常の3倍工数を使って、一年目で基本設計を書いた。
当然の如く、赤ペン先生状態だった・・・

>540
もうちょっとまともな会話しろよ。
コボラーは技術で勝負できないから人格攻撃しかできんと思われる。

ひとりのバカの登場で結構盛り上がってるなｗ

>>542
若造だの文系がどうのと言う奴の反論か？それ。

>>543
俺は３人と見ているが

3 : 1 なら 3 が有利そうだ。

人によって環境が違っていて、
お互いの主張がお互いの環境を表しているんでしょ。


日付見てると、まるで手紙で喧嘩している様だな。

COBOLって文字列検索できないし
関数も作れないの？


すげー不便。

JAVA,VCやってたのでゴミに感じる


CHR1 = "ABC123DEF456GHI789"
CHR2 = "DEF"

CHR1の中にCHR2があるかどうかはINSPECTっての使うんでしょ？
可変対応してないみたいだけど、どうにかならんの？

関数すら作れないなんて不便すぎ。

>>547
先に、関数を作るのが習慣になった人には不便でしょうね。
関数作る習慣のない人には関係ないね。

関数ってようは外部呼出サブルーチンじゃないの？
関数ほど融通は利かないが、COBOLで共通モジュールを作るのは常識じゃ・・・

それ自体が値に置き換わるのが関数だから、ちょっと違う気がする。

ただ、関数定義しようがしまいが、生産性と言う観点からははほとんど
差がない。気分は違うけれど。

>>547
あらかじめ用意されたものを使うことしか考えないことになれると
そう感じるだろうな。たしかにちょっとしたことをCOBOLでやるのは
めんどくさいしバカバカしい。

でも30年ぐらい前のソースを見るとCOBOLで無理やりやらなきゃなら
ない状況でのものすごい知恵が見えて感心することも稀にある。

クイズとかで「ただしｘｘをつかってはならない」みたいな問題を
うまく解いたような感じ。

便利なものを安価で手に入れることが出来る状況ではバカバカしい
行為なんだろうけど。

>>547ぐらい自分の知識が全てでその枠から抜け出せない
馬鹿だと、COBOLは激しくゴミだし「つかえない」言語だと
思いますよ。

さっさと多言語にリプレースするのを顧客に提案したらいいのでは？

行番号のありがたみを実感したことないハナタレ小僧にわかってもらおうと思うなよ
今でこそ COBOL の優劣は数が無慈悲に表しているが、それは今であって
メインフレームが支配的で PG 増員が急務だった当時の答えとしては間違ってなかったじゃないか

>>553のような頭の弱いのと一緒にされては困るけどね。

>>547みたいに、Ｊａｖａ＞ＣＯＢＯＬとか言って
喜んでるのは、ＤＱＮ派遣のコーダーだけでしょ

>>553
そこで思考が停止してますが、どーしたんですか？

教えてください。
富士通系のＣＯＢＯＬでプログラムを組んでいます。
ＭＦＧで画面定義体を作成し、ＣＡＬＬで画面を呼び出し、その画面から
データを入力し、ＳＦファイルを作成するという簡単なものなのですが、
画面入力項目が多いんで、入力データ確認の為のチェックリストの
印刷はせずに、ハードコピーをしたいんです。
例えばＰＦキーの何番を押すと、ハードコピーが走るみたいな
事は、ＣＯＢＯＬで可能でしょうか？やり方があるのでしたら
ご教授願えないでしょうか？

解像度のいいデジカメを買ってくる。

補足：印刷キーを2回押せばハードコピーは可能です。
しかしながら、それを忘れない為にＰＦキーに割り当てて、
それを行なったら、次のルーチンに飛ぶというプログラムの
組み方をしたい訳です。

申し訳ありませんが、どなたかわかる人がいましたらお願いします。
Pro*COBOL + Oracle(8.1.7) で開発してるんですが、OracleでVARCHAR2で定義された、NOT NULL属性の項目に対して、
COBOL側からスペースで追加（または更新）できないのでしょうか？
簡単にソースを書くと

01 WK-VALUE PIC X(10).
01 ORA-VALUE PIC X(10).
（中略）
MOVE SPACE TO WK-VALUE. *> ←ここはダミーです。
MOVE WK-VALUE TO ORA-VALUE.
EXEC SQL
INSERT INTO テストテーブル (テスト項目) VALUES (:ORA-VALUE)
END-EXEC.

あと、ホスト変数（ORA-VALUE）を同値化（っていうの？）して、
EXEC SQL VAR 〜 でSTRING定義しても結果は同じだったんですが………
ちなみに、
EXEC SQL
INSERT INTO テストテーブル (テスト項目)
VALUES (' ')
END-EXEC.
これならいけるんですが、入力変数（WK-VALUE)がスペースの場合もあれば、値が入ってる場合もあります。
また、こういった項目が上の例とは違い、数十項目あるのでその度にIF文で切り分けてSQL文を書くとかは………

VARCHAR2は-LENと-ARRを使わないとだめじゃなかったか？

EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 ORA-VALUE PIC X(10) VARYING.
EXEC SQL END DECLARE SECTION END-EXEC.

MOVE SPACE TO ORA-VALUE-ARR.
MOVE 10 TO ORA-VALUE-LEN.
EXEC SQL
INSERT INTO テストテーブル (テスト項目) VALUES (:ORA-VALUE)
END-EXEC.

V7当時のだから間違ってたらごめんな

>>561
ありがとー＞＜
１項目試してみたら、insert文の
NULL挿入でこけてる項目が一個ずれたよ。

これで頑張ってみるさ。
項目100くらい延々やらんとっぽいが………＿|￣|○

ま、気長にがんがれ。

>>560
うちの職場だと、業務プログラムで直接ＳＱＬ発行せずに、
ＤＢアクセス専用の共通モジュール使ってるんだけど、
一般的ではないのかな？

>>564
最初に仕様を決めた人の勝手だ罠。

>>564
お恥ずかしい限りなんすけど、ないです………
とりあえず、DBに接続するモジュールは他に作ったんだが、
（環境変わっても、全PGリコンパイルしたくないから）
その他は作ってる時間と気力がなかった。むしろ脱力したしな。orz

>>565
かなりその通り………
つか、それにしても、VARCHAR2 と NotNull属性、相性悪すぎだよ。
コーディングの問題うんぬんより、何故にVARCHAR2を使いたがるんだ・・・ディスク容量足りてるだろうと…
せめて、名称とかの長い文字項目だけにしてほしかったよ。
プライマリーキーの項目までVARCHAR2ってなんだよ、このDB・・・＿|￣|○

と悪戦苦闘して、睡眠不足中でした。＿|￣|○
今日はノー残業デーだな〜〜〜（ﾄｵｲﾒ

>>565
NOT NULLなVARCHAR2項目にスペースが入ること自体設計が腐ってるが、
文句を言ったところでどうなるものでもないだろうから、頑張れ。な？

>>557
power cobol?

MFGって言ってるのにPower Cobol？とか言う馬鹿が
居るスレってここですね。

いいかげん大人気ないレスやめようよ

それがCOBOLerクオリティ

いい加減程度の低い知ったかぶりでレスするのやめようよ。

ホント精神年齢低いな

んー、ニッチですねぇ

>>568
普通にpower cobolだと思われ

まぁ、どれも大して変わらないからさ

最近「PowerCobol」使って開発してる請負会社を発見したが
開発したアプリは、メーカー動作保証ない環境に堂々とぶち込んで
リース組まして販売してたよ。
当然のごとく「契約書諸々、仕様書、取説」は一切なし。

>>577
今時そんな糞会社に発注する会社があること自体が驚がく的な事実だが。

糞同士で丁度いいんじゃないの。

>>577
類は類を呼ぶ
ハハハハ

>>577
ちなみにPowerCobolは、かなり使われてるから
「PowerCobol」使って開発してる請負会社なんて言っても特定できませんよ。
>当然のごとく「契約書諸々、仕様書、取説」は一切なし。
どう考えてもありえない

COBOLって金融以外つかわれることあるのか。。。

プログラミング的な質問ではないんですがどこかのサイトに
基本情報でCOBOLに上級者でも○○の問題が出たら諦めるやつが多いみたいなことが
書かれてたんですが○○がなにかわかりますか？
そのHPをお気に入りに入れてたんですがいつの間にか消してしまって確認できないんです。
たしかそのサイトは基本情報のCOBOLの過去問題も出してたと思います

>>582
そもそも上級者は基本情報受けないだろ

上級と下級というスカラー量で語れるものなら特種〜２種でよかったはず

>>582
多分「ソート」
理由は、実務ではユティリティ使っちゃうから

諦めるほど難しいか？　あれが・・・

昔の２種の頃の話かな？
昔は実務では絶対使わないようなものが中心に出題されてたような
気がする。当時COBOL使ってたわけじゃないので良く知らんがな。

コボルの仕事に回されちゃった。てへ。

けけけ
外した問題を必死でけなしよる

仮にも試験を受ける立場の者が過去問も研究せんと
ナメてかかったのをざっくりやられて吠え面かいとる
トンマのお手本やで

その試験の権威にすがりたかったんちゃうのか
イソップの葡萄がモロバレやで

>>589
その口調むかつくー

簡単なソートは言語に関係なく基本だろ

バブルソートぐらいしか知らねえや。
学生時代やったＣ言語では、クイックソート結局自力で作れなかった。
それでも年収600万もらってるからいいや。

なるほどバブル世代やさかいな

ソートのプログラムってどういうプログラムなんでしょうか？
何かを移動させたりするとしか覚えてないんで
何をどうするプログラムなのか教えてください

パターンマッチングやバイナリサーチに先だってやっておく準備

整列・併合　といったほうがCOBOLっぽい

聞き方が悪かったですね。
何をSORTファイルに移動し何をしてどうするかみたいなことを教えてほしいんです。
明日基本情報があるわけですがSORTとはどうするプログラムなのかさっぱりで
かなりあせってます…
RETURNやRELEASE命令もどういうときに使うのかも教えてくれると助かります

ギリギリすぎだな

つーかCOBOLありましたっけ？

>>597
データを並べ替えるプログラムだよ

>>597
たとえばテスト結果から科目別順位一覧表を作るようなとき。
データを「科目」「点数」で順番に並べてプリントすることになる。

だけど、「データ並べ替え」と「プリント処理」に機能分解したとき、
「並べ替え」は実務ではメーカー提供のユティリティで済ませてしまうので、
アプリとしては「プリント処理」しか作らないよ。

>>601
えらい。本人がノパソor携帯で見てたら間に合ってたわけだがどうだったのだろうか？ｗ
2問目で出てたなsortとrelease

returnやrelease使ってる時点でメーカー提供のユーティリティ
使ってると思うが・・・

>>601
>メーカー提供のユティリティ
って、「ＪＴＢＳＯＲＴ」とか？

湯が長いひととそうでない人・・・ 歳がバレますよ

ﾕティリティ？

>>604
俺はホスト系しか知らないけど、ソートのユティリティを呼び出して
ソートパラメタを投入するだけです。

後続のＣＯＢＯＬアプリの処理に沿った順にデータを並べます。
ついでに複数ファイルの統合にも使うね。

>>605
は？

>>607
例えば、
//SYSIN DD *
SORT FIELDS=(1,4,CH,A),EQUALS
/*
みたいな感じですか？

条件指定で、

INCLUDE COND=(1,4,EQ,C'UNKO')

みたいに特定のレコードだけ抽出することもできましたよね？

フォーマットの変換も出来るぞ
ソートユーティリティをうまく使えばプログラムかくりょうだいぶ減るよ
知らずに必死にプログラム書いてる奴いるけど
わざとプログラム書いて金稼いでるのかな

>>611
>フォーマットの変換も出来るぞ
INRECとかOUTRECとかのパラメータですよね☆
うまく使えば、件数表も作れたりしますね。

>わざとプログラム書いて金稼いでるのかな
うちの職場では天然が多いかも。

あの、すいません、ちょっと前からコボルの勉強をしていますがわかんないので
教えてください。

EVALUETE　A　ALSO　B
　WHEN　1　ALSO　ANY
　　処理１
　WHEN　1　ALSO　1
　　処理２
　WHEN　OTHER
　　処理３
END-EVALUETE
でA=1,B=1だった時って処理１だけ実行して処理２は実行しないんですか。

EVALUETE　A
　WHEN　1
　WHEN　2
　WHEN　3
　　処理１
　WHEN　4
　　処理２
　WHEN　OTHER
　　処理３
END-EVALUETE
でA=2だった時は処理１は実行するのですか。

EVALUETEって最初に条件に一致するWHENの次の有効ステップを実行して後のWHENは
無視して終わるんでしょうか。
手軽に確認できる環境とか欲しいです。

下のなら、
IF A > B
THEN
PERFORM P1
ELSE
PERFORM P2
END-IF
みたいに考えればいいんじゃ？真でP２まで実行されないでしょ？多分、WHEN〜次のWHENで区切ると思うけど、CONTINUEつけたほうがいいかと。
上のは、ANYの使い方がどうかなぁと。
WHEN １とか書いた後にそれ以外って意味でWHEN OTHERみたいに使うものだと思う。
まだ全商1kとったばっかのものなんで間違えあったら誰か補足ﾖﾛ

>>613
EVALUATEじゃない？

>>613
１個目の質問については、処理１しか実行されない。
２個目の質問については、処理１は実行される。
>EVALUETEって最初に条件に一致するWHENの次の有効ステップを実行して後のWHENは
>無視して終わるんでしょうか。
その考えで合ってる。
最初に該当するWHEN以下の無条件文（普通の命令文）を実行して、
次のWHENか、END-EVALUATEに達した時点で、EVALUATE文の実行は終了する。

>>613
手軽かどうかは知らないが、>>241なんかどうよ？

>>613
コンパイル時にアセンブラソースを出せばすぐわかる
つーかマニュアルどころか入門書にも出てるだろ

実行してみて確認するのは結構だが、その前にマニュアル読めよ。
ためしに書いたコードでためしに入れたデータでのみ稼動するプログラム
書くなよな

>>618
>コンパイル時にアセンブラソースを出せばすぐわかる
>>613が分からないことを承知で言ってるだろ？
意地悪だなあ。

>>614
>>615
レスありがとうございます。

>>616
意図を汲んでいただき、ありがとうございます。よく、わかりました。

ABEND DUE TO 0CE

３年くらい前にＦで使ってたけど、メーカ、OSによってプログラム編集コマンドって違うの？
行をコピー　Ｃ　A
範囲行をコピー　CC とCCで囲みA 又はCC９　で９行コピー
行を削除 D　D9 DD〜DD
文字を削除　キーボードのDel
文字挿入　キーボードのIns
保存　S
検索　FIND 'XXX'
置換　C 'XXX' 'AAA'
ファンクションキー
　１ページ下F8　１ページ上F7　保存して終了F3　画面分割F2　ヘルプF1　
　　　　　　　　F4 F5 F6 F9 ってなんでしたか？
他に良く使うコマンド有りましたか？

>>623
ずっと以前使ってたのだが、
ISPFやそれ互換のエディタはそんな感じだな。MVSの互換OSはどれも似たり寄ったりじゃないか。
F4はトップメニューまで戻ってた記憶がある。F6、F9は左右移動じゃなかったかな。

>>624
どうも。派遣に登録する予定なので、どのメーカ、OSになるかわからないので、ちょっと聞きました。
Nはだいぶ違うようなことを聞いたこと有るので、N関連の仕事は断ろうと思っています

日立のＡＳＰＥＮしか使ったことがないのですが、
富士通のエディタでも多少はつぶし利きますか？

>>623
OSじゃなくて編集ソフトによって違うのよん
OSのベンダーが供給するもの以外にもありますよん

エディタの使い方がわからないなんてのが理由で
仕事断るほど仕事あふれてんのか？

そんな理由で断るなんてやつは逆に断られそうだが

>>627
最近ＣＯＢＯＬ案件多いよ。

DESP

>>627
そうなんですか。そいういえばREDとか使いづらかった記憶が有ります。
UNIXでCOBOLとかも有りますしね
>>628
そうですか。UNIX触ったことないので、助かります。
>>629
それはなんですか？聞いたことあるきがします。

アポストロフィ（.）を付ける場所がいまいちわからない。
段落の最後に付ければいい？

>>631
ピリオド？

>>632
あ、そうでした。
例えば、
SHOKISHORI..
OPEN FILE1 ←ここにピリオド入れた方がいいのか悪いのかということです。
READ FILE1 AT END aaa
NOT AT END bbb
END-READ.
ATOSHORI.

なんか処理速度とメモリかCPUの使用量とか関係してるっていう記憶が有ったのですが

ピリオドがない区間は連続した文、つまりマルチステートメントってことだよな
連続させる必要があればそうすればいい

COBOL に限ったことじゃなく、同じことを色んなスタイルで書けるのはよくあることだけど
ソース読む人に「意図は何だろう」と思わせない書き方が良いスタイルだと思う

コンパイラはマルチステートメントを処理するのにほんの少しだけスタックを余分に使いそうだね
シングルステートメントだと今度はヒープかテンポラリファイルを余分に使うのかな？
具体的にどのくらいの影響があるかは特定ＰＰの特定コピーで実測しなきゃわからんけど

>>634
レスサンクス。
見やすい感じで区切っていこうと思います

なんかつまんなさそうだね
どんな議論がしたかったの？

>>633
COBOLはキロマシン前提だからな・・・

キロマシン？

テープベース

また、中途半端な知ったかぶりですか・・・・・

と若造が言っても迫力に欠ける

煽りレスに具体的な情報が含まれていないのは自虐的だよ坊や

さて、ぐぐり所要時間でも見てるとしよう
笑わせてくれよ

COBOLの勉強って問題集の問題解くのが一番ですか？

第２種情報処理の勉強スレばOK

ＣＯＢＯＬの仕事して５年になるが、情報処理試験にあるような
トリッキーなロジックに、未だお目にかかったことがない。
まあ、そんなの必要ないっていうか、保守性を考えたら当然だけどね。

>>645
２種の本なんてもう手に入らないよ

>>647
ブックオフ、ヤフオクとかで売ってんじゃねえの？

基本のでいいんじゃねーの？

コボルだけ勉強して就職するのって無理ですか？

仕事あるにはあるから本人の努力次第
無理かどうかをこんなとこで聞きに来てる時点でかなりマズい兆候だが

>>651
ありがとうございます。
学校で自分なりに頑張っているのですが手ごたえがなくて。

>>952
コボル以外の何も勉強しなかったらきついよ。
っていうか、コボルなんて別に学校で勉強しなくても余裕だし。
君が高校生なのか大学生なのか知らんが、
一般教養科目や学科の専門科目をきちんと勉強する方がずっと大事。

>>652だった。

文系大学卒(プログラミング経験なし)でシステム関係の会社に就職したら、
COBOLやらされている俺ガイル。

転職も考慮に入れてオープン系への道を模索するべきか、
ひたすらメインフレームの道を突き進むべきか…

>>655
俺みたいｗ

俺のデビューはPL/Iだったけど。
メインフレームの道を突き進むならCOBOLがどうだとかより
メインフレームそのものの勉強をいっぱいして、いわゆる
オープン系のことも勉強したらいかがかな

いまどきメインフレームだけで完結するシステムもあんまり
ないんじゃないの？
全く無いわけじゃないだろうけどさ

上流の仕事だと、オープン系の勉強といっても、別に統合開発環境(eclipseとか）で
Javaプログラミングできるようになる必要はないんですよね？

ひよこグミのソースとかは職場で役立つ？

　　　　　　　　　　　 ''';;';';;'';;;,.,　　　　　　　　　　　　　　　　　　ザッ
　　　　　　　　　　　　　　　　　　　　　　　''';;';'';';''';;'';;;,.,　　　ザッ
　　　　　　　　　　ザッ　　　　　　　　　　　　;;''';;';'';';';;;'';;'';;;
　　　　　　　　　　　　　　　　　　　　　　　　;;'';';';;'';;';'';';';;;'';;'';;;
　　　　　　　　　　　　　　　　　　　　　　　 vymyvwymyvymyvy　　　　　ザッ
　　　　　　　　　　　　　　　ザッ　　　　　MVvvMvyvMVvvMvyvMVvv、
　　　　　　　　　　　　　　　　　　　Λ＿ﾍ＾−＾Λ＿ﾍ＾−＾Λ＿ﾍ＾Λ＿ﾍ
　　　　　ザッ　　　　　　　　　　　　ﾍ＿＿Λ　ﾍ＿＿Λ　ﾍ＿＿Λ　ﾍ＿＿Λ
　　　　　　　　　　　　　　　　＿＿,/ヽ＿　/ヽ＿＿,.ヘ　/ヽ＿＿,.ヘ　＿,.ヘ　,.ヘ　　　　ザッ
　　　　/＼＿＿_／ヽ　　　/＼＿＿＿ /＼＿＿_／ヽ　_／ヽ　/＼＿＿_／ヽ
　　 ／''''''　　　'''''':::::::＼／''''''　　　'''／''''''　　　'''''':::::::＼　　 ／''''''　　　'''''':::::::＼
　 . |（●）,　　　､（●）､.:|（●）,　　　 |（●）,　　　､（●）､.:|､（ |（●）,　　　､（●）､.:|
　　|　　 ,,ﾉ(､_, )ヽ､,,　.::::|　　 ,,ﾉ(､_, )|　　 ,,ﾉ(､_, )ヽ､,,　.::::|_, )|　　 ,,ﾉ(､_, )ヽ､,,　.::::|
. 　 |　　 ｀-=ﾆ=- '　.:::::::|　　 ｀-=ﾆ= |　　 ｀-=ﾆ=- '　.:::::::|ﾆ=|　　 ｀-=ﾆ=- '　.:::::::|
　　 ＼　　｀ﾆﾆ´　 .:::::／＼　　｀ﾆﾆ　＼　　｀ﾆﾆ´　 .:::::／ﾆ´ ＼　　｀ﾆﾆ´　 .:::::／
　　　／｀ー‐--‐‐―´＼ ／｀ー‐- 　／｀ー‐--‐‐―´＼-‐‐ ／｀ー‐--‐‐―´
「次スレも狙います」「ＶＩＰからきますた」「ＶＩＰからきますた」「次スレも狙います」

日本語定数の転記について質問です。

01 日本語 PIC N(3) VALUE N"日本語".
01 文字列 PIC X(6).

これで

MOVE 日本語 TO 文字列.

といった具合に転記したい場合どうすれば良いでしょうか？
PIC N　項目からPIC X 項目への転記が出来なくて困っていました。

REDEFINES

>>660
コンパイルオプションを変える。

>>661

REDEFINESを使えという事でしょうか？

01 文字領域.
03 文字列Ｎ PIC N(6).
03 文字列Ｘ PIC X(3) REDEFINES 文字列Ｎ.

こんな感じで使うと解釈しました。
明日会社でやってみたいと思います。
ありがとうございました。

>>662

コンパイルオプションを変えるとうまくいくのですか？
あまりその辺をいじりたくないので、REDEFINESで
対応してみたいと思います。
ありがとうございました。

仕事で急遽COBOLを使う事になり、COBOL暦６ヶ月になりましたが
変数名に日本語が使えるのは便利な用で見辛いなぁと思う今日この頃です。

お二方、即効の回答ありがとうございました。

>>663
NとXの桁数が逆になってるよ。

>>664
失礼。
指摘ありがとうございます。

COBOLっていうかホストにプログラムをうｐするのって
どうやるんですか？
あと、ホストのOSってUnixみたいに感じなにですか？
なにもかも知らない世界に思いを馳せ、仕事している毎日でつ。

>>660ってそのままmove出来たが・・・
コンパイラ（オプション？）によって違うのか・・・

>>666
ホストって MVS か？

ごめん 正直 AS/400しかしらないっす。
というか主要なホスト製品も教えて。

>>669
IMSなんてMVS（上位互換も含む）のもとでしか稼動しないぜ

なんちゃらﾌｫ〜z/OSってのが主要なホスト製品だよ


>>666
ホストのこと知りたきゃ10年以上前の情報処理試験の本をじっくり
読めよ。
そればっかりかいてあるよフォ〜

日本語定数の転記が無事出来ました。
ありがとうございました。

>>661
REDEFINESで対応しました。

>>662
コンパイルオプションは変更しませんでした。

>>667
自社の環境では出来ませんでした。
許されない形式だそうです。

使用アプリはＰｏｗｅｒＣＯＢＯＬとＣＯＢＯＬ/ＢＬＤ？（ＡＡＢＲ）です。

今日からACOSとかゆーのやるようになった
初めて汎用機なんだけど、テキストエディタって標準のでしか
使えないんでしょうか
耐えかねてＦＴＰとかないかなーとかマニュアル見てたら
ATSSのFTRANSとかゆーの見つけた。これでうｐするのかしら

>>663
うあ〜懐かしい、昭和６０年頃にやった

>>660
いまさらだけど・・・

01 文字列 PIC X(6).
01 A.
03 日本語 PIC N(3) VALUE N"日本語".

MOVE A TO 文字列.

これは？

>>674
それでもできるね。集団項目はXとみなされるから、「日本語」がバイナリ項目でも出来ちゃうね。

質問です。

タブ区切りのファイルを読み込むと
複数のスペースに置き換えられてしまいます。
なんででしょうか？

　　　　　　　_,ヾゝｰ'"'"'"ｰ､,;　　　　,.:-‐―‐-.､_
　　　　　　,ﾗ　　　､_　　　　ヽ,､　／　　　　　　　＼
　　　　　 ｲ　 r-'ｰﾞ　"ー‐､,　 ﾐ/　　　　　　　　　　ヽ
　　　　　 i!　 ,!　　　　　　　i! ミi　　　,ﾊ　　　　　　　 i
　　　　　 ,j　i /ニ=､　 ,r==､i ,,ﾊ ,ﾉヽi! ﾞ'ﾚ＞ヾ-､　,!r'
　　　　　 i V　<(･)>i　i!(･)>ﾞ!,i　 !!ｲ(･)） <.(･)>ﾞ　i /!i なんでだろ〜
　　　　　 ﾞ!ji!　　　., j .i_　　 /j 　 i　　｡ ｡,　 　 　 ﾄ-'
　　　　　　,ｨi:.　 ;" ｰ-‐' 　 ﾄ'　　 .! 　 ,.=､ 　 　 /￣￣ﾞｰ-､＿
　　　　__ノ !ﾊ　 　 : 0 ;　 ,/　_,.-‐''＼ ﾞ＝''　 ,／
　　／　　　＼＼　 ￣ ,／／　　　　　ﾞｰ-‐‐"
／　　　　　　 ＼.ﾞー-ｲ ,/

>>676
まず、問題の切り分けからだな
同じファイルを他のプログラム、例えば１６進表示ユティリティで読み込むとどうなるか

オンラインのプログラムってどうやって単体試験やってるの？

IMSならBTSとか

コボルする人って今では会社に数人しかいません。未だに開発続けてますが、後の世代にどうやって引き継いで行くのかって思うんです。そんな心配ってする必要ないですか?

言語の引継ぎなんてマニュアル見りゃ済む話だろ
言語ではなくドキュメントに書いてないとかドキュメントが無いもの
で人づてになっているものが問題なんじゃないの？

そういうシステムにCOBOLの古いシステムが多いっていうだけで
COBOLそのものとは関係ないんじゃないの？

COBOLそのものは中学生程度の英語が出来れば素人でもすぐ
出来るだろ

BTSってなに？

Batch Terminal Simulator
TSOの背景処理、前景処理いずれでも稼動する
前景処理ではフルスクリーンでも稼動しさながら
オンラインの画面をそのまま使用している感じ。

端末からの入力電文はBTSINというDDステートメントから入力し
出力電文はBTSOUTというDDステートメントに書き出される

IBM提供のテストのためのツールです
昔は無料だったが今は有料らしい

ちなみに電文のやり取りが関係ないような下位プログラムは
適当にドライバ作ればいいよね

そう言えば昔、日立でCOBOLの命令文を全て日本語化した言語があったな・・・
あれは何だったのだろう

>>684
自宅のＰＣで、オンライン端末−ホスト間の電文のやりとりを
シミュレートできるようなソフトってないんでしょうか？

もうヘラクレス390しかないな

>>688
一回入れようとしたことがありますが、
途中でよく分からなくなって断念しました。

自分は汎用機の仕事をしてますが、オンライン環境などは
専門のグループがやっていて、業務プログラムをやってる
自分達には、詳しいことはよく分かりません。
ホスト上からは、既に用意された、オンライン用のユーザー空間を起動する
ＪＣＬをサブミットして、ＰＣでは、これまた専門のグループがＶＢで作った
画面のプログラムを立ち上げて、自分が関与するのは、ほんと業務ロジック
だけって感じです。

UI画面の構築ってPSAMでしたっけ？Pなんとかだった気がする
ていうか、ドライバの作り方も忘れた。
オンラインの試験はコンソールからコマンド打ってた記憶が有る
でわざわざ汎用機が置いてある所に行って実行してダンプ持ち帰ったり・・
スタブとか、SYSINパラメタとか
単語は覚えてるけど、もう１０年前のことなので

COBOL８５とCOBOL２００２の違いってなんですか？？

>>691
COBOL８５は西暦８５年に、COBOL２００２は西暦２００２にそれぞれ出来ました。
2000年問題をクリアしているのがCOBOL２００２です

２００２年に対応されてもな・・修正大変だったよ

2002年に2000年問題解決ですか？

誘導されてきました。

あの。プログラミング初めて30分なのですが、
全然わかりません……。orz 単語の意味はいちおうわかりました。(覚えてないけど)
基本的な形もわかりました。定番と言われている「Hello！」も無事に過ぎました。
ですが、そこから先に進めません。

「プログラミングの内容が理解できない」と言うよりは、
「おまえら、Hello！の後はどうやって学んでいったんだよ！」と言う質問です。
自分がバカなのは重々承知しております。本もたくさん読みます。がんばります。
おまえら、Hello！の次のソースはどういう風に学んだの？
さっとオープンソースと言うかソースを公開しているサイトを訪れて、
とあるソフトのソースを覗いたけど、書いてある意味がわかりません orz
Helloの次にいきなりソフトのソースを見ることが間違いだったのだろうか？w

>>695
君は何年生かな？

入門書読んだのか

サランへヨ伯爵◆Tm4beszbnoに該当するページが見つかりませんでした。

>>695
＞誘導されてきました。
どこから誘導されたんだよ。ここに誘導する奴も相当な奴だな。

>>695
君にはプログラミングはおろか、２ｃｈやるのも早過ぎる。
今はガッコのお勉強に専念しなちゃい♥

お前ら釣られすぎｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

>>695
今からがんばるならJAVA、C++、フラッシュのどれかにしとけ。

>>701
別に釣りでもいいよ。
今更、釣りと分かったところで「あっそう」ぐらいしか思わないし。

>>702
しかし私の大学の情報科学の教授は、
「しかたなくCを教えるが、コンピュータやプログラムの本質を理解するのなら、
　COBOLを学ぶべきだ。最近は基本的なことがわからなくても機械が使えるようになった。
　以前は車もそうだ。技術を学び応用していた。それが今は何がどう動いているか知らなくても、
　ボタンだけで使えてしまう。使用者はこれで良いが、できればコンピュータに関して、
　君たちまで『ただ使えれば良いだろう』と言うような考えは止めてもらいたい。
　時間が無いから、詳しく教えることができなくて残念だが、
　何度も言うがプログラムを学ぶならCOBOLをいちどは徹底的にやりこむべきだ」
と毎回のように聞かされました。おかげで私までなんとなくで手を出してみたりw

フリーで全ての仕様を満たしている実行環境を教えてください。
何かの密教か？ってくらい環境が手に入りません。

>>704
得点率３０％で入れるどこかのＤＱＮ工業大でつか？ｗ
プログラム学ぶならアセンブラだろう。

>君たちまで『ただ使えれば良いだろう』と言うような考えは止めてもらいたい。
しかし社会に出れば、その「ただ使えれば良いだろう」という考えの（文系職種の）連中の方が、
はるかに地位が高い現実・・・。

>>702
Flashをディープに使えるようになると、ECMAScriptに今まで馬鹿にしてごめんと言いたくなる。

>>705
ありません。
どうしても使いたかったら、派遣登録でもして汎用系の案件を貰いなさい。

Flash使ってるサイトってうざくて仕方ないんだけど。
くだらないから、いつもスキップしてる。

基本的には広告ツールだからな。
スプラッシュページにしてる奴はねじが外れてる。

>>704
話の筋はわかるが COBOL と書いてある部分だけ激しく疑問
アセンブラかハードだろそういうのは

COBOLってプログラムってかスクリプトじゃん。
正規表現の走りみたいな部分はあるのかもしれんが。

>>706
OpenCOBOL
ttp://jp.opencobol.org/

>>713は>>705宛

>>712
COBOLのプログラムはそれ自体で機能的に充足している
のが原則で、スクリプトとは最も遠いよ。

仕事でCOBOL使うことあるがさっぱりわからん。それにめんどくさい。いちいち命令してやらんと動かんようなのこちらとしては足手まといだ。漏れにはたぶん才能がないのだろう。

命令せずに動く?!

釣りだ気にするな

命令も無しで動くなんて時代も進んでいるんだなあ。

本当だな。

俺も命令せずに動く言語で仕事してーぜ。

そんな言語があるなんて知らなかったよ。。。＿|￣|○
>>716よ、その夢のような素敵な言語が何か教えてくれ。

>>719>>720>>721
>>716はプログラム一般のことを言ってるんだろう。
コーディングが面倒くさいってことでしょ。

toggleLed
delay
を詳しく説明しなければいけないのですが
よく分りません
教えてください

>719
関数型言語だったりして

ttp://itpro.nikkeibp.co.jp/article/NEWS/20051107/224141/
この前の東証の障害の原因がいまいちわかってないので教えてください｡

10/8-10 既存バグ発見
10/13　　バグ修正。作業ミスで、本番には反映されず。
10/31　　コンデンス処理により、呼び出し関係自動修正。
11/1　　システムあぼーん

13日の作業指示ミスで、旧リンクのまま。そして、一部のモジュールについて、ライブラリ格納漏れがあった？

で、31日に、新しいリンク関係になったが、ロードライブラリに格納されていなかった。
多分、一斉リコンパイル処理がされたのかなぁって思うんだけど、
モジュール漏れがある状態で、コンパイル正常終了ってするものなんですか？

>>725
コンパイルとリンクは別物だが・・・

>>725
DLLのように呼び出し元のプログラムとサブプログラムが別になっていると考えればいい。
本番用のライブラリに登録を忘れたんだろうな。よくありがちなミスだが、
なんつーかこんなとこまで東証はメーカー丸投げだったわけだ。

>>725
日経産業に載ってたんだけど、ちゃんと修正モジュールは登録したんだって。
ただ、元のモジュールに別名（エイリアス）が付いてたんで、
修正モジュールにも同じ別名を付けておかなければいけなかった。
だが、それを忘れていた（この点が、手順書の記載漏れ）。
こういう明らかなミスがあったにもかかわらず、10/31だか11/1だかに
コンデンス処理（多分区分編成ファイルのコンデンス）が走るまでは、
別名による呼び出しが（なぜか）リンク切れにならなかったんで、発覚しなかったらしい。

個人的には、登録し直した時点で別名が無効になっていなかったOS側にも
問題があると思う。

>>728
ロードの格納作業とかって、ちゃんと専門のチーム作ってやるもんだよね。
それでも、こんな凡ミスが起こるもんなのかね？

>>729
専門のチームだろうがなんだろうが関係ないミスなんだが・・・・・

そういうミスは１００％防ぐことは出来ないよ

>>728
一般的に考えてあるファイルを更新したらそれに
つながっているエイリアスについても登録しなおさなくちゃ
ならないOSなんて使えないと思うが。

質問させてください。

10進で表現されているファイルをcobolで処理して16進表記の
ファイルを作りたいのですが、属性変換をするのに必要な
記述ってありますか？

>>733
ないよ。

A PIC S9(4) PACKED-DECIMAL.
B PIC S9(4) BINARY.
でMOVE A TO Bすればいいよ。

>>734

ありがとうございます！

>>735
>>734はあくまでも例示だよ。
君の言う「１０進で表現されてるファイル」の内容が
詳しく分からないことには、ちゃんとしたコーディングは示せない。
完全なテキスト形式なのか、パック形式なのか、
符号付きなのか等によって微妙に変わってくるしね。

株式・ＣＢ売買システムの障害発生に関する再発防止措置等について
ttp://www.tse.or.jp/guide/interview/051115s.pdf

どの言語でも言えるが全コンパイルは２度繰り返しやれ。それでかなり改善する。

何が改善するんだ？

>>739
>>738の気持ちだろ

>>739
例えば、Aが下位プログラム、Bが上位プログラム、Cが共通プログラムでABから呼ばれてるとする。
ABCの順でコンパイルすると、Cの変更がABに反映されなかったりする。
もう一度全コンパイルをするとCは既にコンパイルされてるから、AがCを正常にリンクできる。

vi Makefile

>>741
全プログラム、ダイナミックリンクオンリーな俺んとこはどうすれば？

ビルドツールのない時代の知恵か。
今でもホストだとロードライブラリを一括リコンパイルだったりなんだろうか。

エーッ？今全コン２階やらなくていいのか。一度全コンでリンク切れてて大問題になったことが有って、
それから２回全コンする事にしてたのに。１２時間くらい全コンかかったよ。

>>741
だからそれはコンパイルじゃなくてリンクだろ
しかもスタティックの場合の話だろ

なんで全コンパイルになるのよ

>>745
ただの間抜けじゃねーか

いやいや、１５年くらい前は、全コンパイル２回が常識だったよ

汎用系の派遣コボルＰＧだと、普通月に何ステップぐらい組むもんなの？
自分もコボルＰＧだけど、１年ぐらいのプロジェクト期間の中で、
２〜３ヶ月間に数Ｋステップ組むだけで、あとはひたすらテスト
なんだけど、こんなのって普通？

>>748
そんな常識なかったなぁ
計画的に作業してればいいだけだろ

>>750
同意。
メーカーなら、そういうところはしっかりしてると
思ってたんだが、実態は中身スカスカなの？

>>749
たしか記憶の片隅にあるのは月2,3千ステップが
標準だったと思うが。

すげー
俺半年で４００ステップ
影響調査とレビューとテストばっかり

ＣＯＢＯＬは、プログラム１本あたり５千ステップが読みやすい限界だな。
たまに１本で３万ステップとかあるけど、もう最悪。

COPY句の中からGOTOで別COPY句の中に飛んでるの見たことある
びっくりした
修正履歴に１９７５年とか書いてあったけど、昔は普通にやってたんだろうか

>>755
見たことある。一種のフレームワークを意図したプログラム。
COPY句とCOPY句の間にStrategyを埋め込んでくれ、って感じのヤツ。
それだけで一概に『悪い』とは言えんと思うが。

別な話だが、COPY句の途中の部分に勝手に飛び込むソースを
書かれて往生したこともある。

スコープを指定できないのは確かにCOBOLの弱点と思ふ。

COBOL85の良書は無いでしょうか？

「標準COBOL リファレンス・マニュアル」というのを見つけましたがCOBOL2002です。
http://www.amazon.co.jp/exec/obidos/ASIN/4877830898/qid=1132647208/sr=8-10/ref=sr_8_xs_ap_i10_xgl65/249-0546384-7725136
これのCOBOL85版みたいな物が通勤に読む用に一冊欲しいです。
会社にマニュアルは存在しますが、8cm以上の厚さで社外の持ち出しは原則禁止されているので、
通勤途中の立ち読みには適しません。

目的はレガシーインテグレーションなので、現在のCOBOLではなく、昔のCOBOLの文法を知りたいです。
私自身は移行先の言語は知っているのですが、移行元の言語であるCOBOLがあまり詳しくないので
それを補ってくれる書籍を探しています。
# まぁ、できれば元のソースを解析する事態は避けたいのですが．．．
# どうも設計書が無いのでソースから設計書を書き起こす必要がありそうです。

>>757
ごめん、思いつかない。

COBOL85本体はごくごく簡単なモノなので、他言語を習得済ならば
チョチョイのチョイで読めるようになるハズ。まぁ昔のBasicに毛が
生えたようなものだから。

それでも入門本が必要なら本屋に行って選んでくれ。
COBOL2002の知識でCOBOL85を『読む』のは問題ない。

嫌らしいのはメーカー独自の言語拡張だったりするが、こいつは
一般出版物ではなく、いわゆる「マニュアル」になってしまう。つまり
社外持ち出し禁止対象。

とりあえずソース読んでみなよ。良心的なCOBOLerが書いたものなら
そんなに苦にならずに読めると思う。

読んで理解不能なら、性質の悪いやっつけ仕事で書いたソースと
いうことかも知れん。その場合は苦難の道のりが待ってるね、きっと。

アドバイスにならなくてｽﾏｿ

>>757
これ↓はどう？
http://www.amazon.co.jp/exec/obidos/ASIN/4274129330/qid=1132660990/sr=1-10/ref=sr_1_10_10/503-1865998-3902304

>>757
俺は入門COBOL（新版）っての持ってるけど８５の本だけど２００２そんなに違うの？

>>760
2002なんてオブジェクト指向言語でつよ。ｗ

はぁー、COBOLの宿題ﾜｶﾝﾈ。
初歩的なことでも質問していいですか？

>>762
いいよ。さあどうぞ。

>>763
ありがとうございます。
まあ宿題なんで、一応自力で必死こいてやって、
つまったらおながいします。

つまる前に言うなよw

全くだね。
全裸待機して損した。

オフコン上で動いてるCOBOLなシステムを
VB6に焼きなおす仕事が決まりそうです
なんでも仕様書も何も存在しないので
PG追っかけながら焼きなおす事になりそうなんですが
コンバートツールみたいなのって無いんですかね？orz

客にしてみれば、あればもちろん使ったんだろうな

五年くらい前に流行った仕事だな。

>>767
何故にVB6？
アホやのぉ・・・
君が決定したのでないのだろうけど、それ最低の選択。

同じＭＳ製品同士のブビ６からドトネトの移行もしんどいくらいだから、絶望的と思われ。
その現場に長年いる古参ＳＥ、ＰＧと仲良くなるのが一番だ。

ちなみに俺は今、数年前にコボルからリライトされたブビ６システムを、
今度はジャバ（ｊｓｐ）でウェブ化する仕事をやっているｗ

やはり無茶ですよねorz
オフコンのシステム作った所が仕様書共々逃げ出して
システム動いてる会社にはSEもPGもおりませんｔｔ

現在泣きながらCOBOLソース追っかけてます。。。

結局Javaも５年もしたら、なくなるけどね。どんどんプログラミングが簡単になるはず。

>>773
何故そんなことCOBOLスレで書く？

＞どんどんプログラミングが簡単になるはず
Java一つ引き合いに出しても「なるはず」、ではなくて
現状ドンドン進化してる真っ最中。

確かに簡単にはなるけど、裏で動いていることまで
把握しようと思ったら、覚えなきゃならんことが
山のように次々出てきてるのも事実。その線引きが
悩ましいね。

汎用機的言い方すると「マクロプログラミング」が
出来る言語拡張がどんどん出てきてるね。
あれは便利。

>>767
うはｗ
おれ、いまVB6なシステムをCOBOLに焼きなおす仕事をしているｗｗｗ

BEA WebLogic Java Adapter for Mainframeには、メインフレームのCOBOLコピーブックからJavaソース・コードを自動的に生成するコンポーネントであるeGen COBOL機能が備わっているので、JavaプログラマはCOBOLに関する知識がなくてもIBMメインフレームとデータをやり取りする
EJBまたはサーブレットのアプリケーションを実装できます。eGen COBOLユーティリティはBEA独自のeGen データビュー・テクノロジを
使用して、メインフレーム上のCOBOLおよび共通データ・フォーマットをXMLドキュメントまたはJavaオブジェクトに簡単に変換することができます。また、サードパーティのXML対応ソフトウェア・パッケージともやり取りできます。

BEA WebLogic Java Adapter for Mainframeを使用することで、市場への時間の短縮、および低コスト(特別なスキルが不要)という利益を得ながら、オンラインのBEA WebLogic ServerトランザクションをIBM CICSまたはIMSアプリケーションと統合できます

すばり、聞きます。
コボラーってこんな感じ？


　　　　　　　 　 　 　 　 　 　 _,,t-‐‐-､,-‐‐-､
　　　　　　　　　　　　 　 　 　 　 三'::::::............... .....::::::`ｙ,.
　　　　　　　　 　 　 　 　 　 　 ナ:::::::::::::::::::::::::::::::::::::::::::::ヾ
　　　　　　　 　 　 　 |￣|　　 V::::::::::::::::_{{ （{∫∬ﾉノｊヾ:::::{
　　　　　　 　 　　|￣| |￣| 　 ﾅ::::::::::::::i`__,,,,,,,ｧ_　 _,,,,,_ t;;:ﾇ
　　 　 　　　　　　| 　| |　 |　 イﾍ::::::(ヾ~!,ｬt､　!'''i ｨｔﾝ )=f }ｆ
　　　　　　 　 　　| 　| | 　|　　i {t）テ" ﾍ' '___,ｲ　ヽ＿/　介' 　
　　　　　　　　 　 | 　| |　 |　_,rﾍ_,ｊ|!'　　　　 /ｰ--''! 　 　 |'
　　　　　　　　 　 |,.ｨ―''''￣　／| |　　 　 　 ／二ｸ 　 　 !
　　　　　　 　 　 /;;:::'';;::''::;;:／ {　!　、　　 　 ヾニﾝ　　　ﾉ＼
　 　 　 　 　 　 /'''::::;r|''':::;;;|　　|　!　＼　　　　　　 _,,.／|::;;'''＼
　　　　　　　　/:;;／　|;;;''::;;| 　　丶＼ 　｀_＿＞-ｰ´　　　!;;;:'''::iヽ、
　　　 　 　 　 i／　　 |'::;;;;''|　　 　 　三 ―''"　　　　　　　!''::;;;;| /ヽ
　　　　　　　 /⌒ヽ　 |;;''':::;|　　　　　　　＼　 　 　 　 　 　 !;;::''|/　 i
　　 　 　 　 / 　 　 ＼{'';;;::''}　　　　　　　　　￣二ニ＝　 　 !::;;|　　 |
　　　 　 　 /ﾍ　　　　 |;;:::::;{　　　　　　　　　　　　‐-　　　 　 !/　　　|
　 　 　 　 /　　i　　 　 |:::;;;''!　　　　　　　　　　 　 ー　　 　 　 !　 /　|
　　　　　/　　　l　　 　 |;;'';ｲ　　　　　　　　　　　　　　　　｝　　 {、
　　　　　〉、　　　　　 ∧ﾃ{　ヽ 　＿　 　＿,,,,;;;;;:::-==ﾆ;;;_　　 ﾉ　__,イ´
　 　 　 /　＼_　　 　/／レ!　　　　　￣　　　　　　　　　　￣ {￣　　|

もっと、もーっとオッサンでしょう
うちの職場、平均年齢４０台後半

>>778
その４０台後半の大半は、どんな役職で、どんな仕事してるんですか？

ヒラ
昇進できない人と、現場に戻りたい一心で課長職〜役員を返上した人といる

うちのシステムは５８歳のおっさんが退職したらもう触れません。
７０歳まで働いてくれ、たのむ。

トランザクションの切り方わかる人解説して

>>782
なんのトランザクションだい　DB ?　DC?

DCってなんだっけ？聞いた記憶が有るけど覚えてない。
オンラインで複数DB更新してて、DBエラーになったらロールバックするとか。
例えば画面から１アクションで５個のプログラムで１０個のDB2を更新してる場合、
最初に動くプログラムでトランザクションスタートして、最後に動く処理でトランザクションエンド
してコマンドによって動くプログラムが違う場合も考慮するとか複数端末から同時に更新された時に
ロールバックどうするか、排他しちゃうかとか・・・

日本ではCOBOLの評価は低いようだが、これだけでも現実を知らない軽薄な人たちが多いこおがわかる。
俺は仕事でアセンブラ、COBOL、PL/I、C、C++、Javaを使って来たが、ビジネス分野の業務アプリケーションの開発には圧倒的にCOBOLが適していると実感してる。
個人的にはC++が一番好きだが、ビジネス分野では今後10年くらいはCOBOLの重要性は高まることはあっても低くなることはありえない。
COBOL2002はプログラミング言語が到達した一つの頂点といえるくらい素晴らしいぞ。

>>785
> COBOL2002はプログラミング言語が到達した一つの頂点といえるくらい素晴らしいぞ。

どういう点が？

>>786
フリーフォーマットになったあたりでね？

でも汎用機はでかくて高いから、今からCOBOLで新規で作成するならUNIXCOBOLだべ

>>784
COBOLと関係ないじゃん

>>788
今の汎用機はそんなにでかくないよ。
冷蔵庫ぐらいじゃないかな。

狭義の汎用機ne

?

IBMのz9だって家庭用冷蔵庫二台分くらいだぜ

CDはFDの代わりに通信ファイルを記述するとこ。
トランザクションはCOBOLの本に載ってなかった
ていうか、汎用機そんなに小さくなったのか。リモートだから最近
実機見てない

CDはFDの代わりにブートディスクやバックアップなどを作るメディア
最も小さい「汎用機」はヘラクレスぢゃないか？

>>794
ＣＤのRECEIVE文とかSEND文とかって、自宅ＰＣでテストできますか？
その辺って、実務でも実は結構重要だと思うんですけど、市販の本には
あまり書かれてないですよね。何ででしょうね。

そういうのは製品仕様で独自のものを使うことが多いからだろ

端末から更新しようとした瞬間に他の端末から削除されたらどうなるの？
ＤＢ２って排他できる？

昔ＧＯ ＴＯ文は禁止になるから使うないわれたけど
まだ禁止になってないね

>798
なんかもう、こういうのがいるからコボラーって馬鹿にされちゃうんだよ。

俺がオンラインコボルやってた時は
リンケージとユージングを使ってた記憶がある

┐(´∀｀)┌ﾔﾚﾔﾚ

最近周囲で

あきこぼる

なる言葉が使われているのですが、
あき　って何ですか？

あき１〜８

>>804
？

？？？

？？？？？？？？？？？？？？？？？？？？？

割り込みごめん。

MVS配下で動くCOBOLプログラムで、F(MODIFY)コマンドを受け付けられるように
する為には、どうすれば良いのだろう？

>>806
マニュアル見れ

>>803
AcuCobolでぐぐれ

>>772
ええ勉強やんか？それやりたいな

俺の頭の中はCOBOL85でとまってるので最近のCOBOLの状況を知りたいのだが、
COBOL2002の情報がのってるサイトとかフリーのコンパイラとかを教えてください。
ぐぐっても本の紹介しか出てこないっす。

>>810
じゃあ本買え

じゃあって何よ！

本がある限りいらないスレですな

近所には２００２の本は無かったよ。８５が１冊だけ。
JAVAが１０種類くらいだった

別に２００２なんて知らなくても不便はしないっしょ。俺も知らないけど。
ユーザーの業務に支障がなければ枯れた技術で十分。
家の水道に今以上の先端技術なんて求めないでしょ？それと一緒。

暇だしCOBOL始めようと思う
勉強する順序は
COBOL85　→　COBOL2002
でいい？

>>810
マジで本を買った方がいいよ。掲示板に書ききれる内容じゃないでしょ？

>>814
Javaが10種類しかないって、それマーが通う本屋じゃない。もっと大きい本屋へ逝け。

>>816
多言語習得済ならCOBOL85だけで充分なｷｶﾞｽ
漏れの認識不足かも知れんが、COBOLでOOやるなんて正直背中が寒くなる。
COBOLの適材適所ってCOBOL85の範囲で充分だと思ってるけど、どうよ？

>>817
ｻﾝｸｽ

COOBOL2002は実際に使うかどうかは別にしてネタとして仕入れておきたい。
適当なサイトがあればベターだが、なければ大きな書店で立ち読みしてくるか。

普通のPCでCOBOLが動くシェアウェア作ったら儲かるかな

>>810
買えば？ｗまじでｗ

DISP=SHR
DISP=(OLD,PASS)
DISP=(OLD,KEEP)
これって全部ほとんど同じ意味でしょ？

>>822
同じじゃねーよ。

>822
お前は気付かないうちに他人に相当迷惑かけてると思うぞ。

丸一週間やってどうにもならんから、質問します。
御教示乞いたく思います。どうかお願いします。

「売上.txt」というファイルから、売上レコードを読み込み、
以下のように印刷したいのですが、それがどうしても出来ません。
――――――――――印刷用紙――――――――――
SHOHIN　　DENPYOU-NO　　　SURYO　　　　KINGAKU
　　　nnn　　　　　　　nnnn　　　　nnn,nnn 　　 nnn,nnn,nnn
　　　　・　　　　　　　　　・　　　　　　　　　・　　　　　　　　・
　　　　・　　　　　　　　　・　　　　　　　　　・　　　　　　　　・
　　　　・　　　　　　　　　・　　　　　　　　　・　　　　　　　　・
　　　　　　　　　　　GOKEI 　　　　nnn,nnn　　　nnn,nnn,nnn
　　　　　　　　　HEIKIN-TANKA　nnn,nnn
――――――――――――――――――――――――
読み込む売り上げレコード内容はこれ。

商品コード　数量　単価　空白　伝票番号　空白
999 　　　　　9(4)　　 9(4) 　X(7)　　 9(4) 　　X(2)

次に、自分が四苦八苦して書いた、欠陥プログラムを書き込みます。
訂正してやって下さい。

INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT URIAGE-F ASSIGN TO "URIAGE.TXT".
SELECT MEISAI-F ASSIGN TO "MEISAI.TXT".
DATA DIVISION.
FILE SECTION.
FDURIAGE-F BLOCK 10 RECORDS
LABEL RECORD STANDARD
DATA RECORD URIAGE-R
01URIAGE-R.
02 SHOHIN-I PICTURE 999.
02 SURYO-I PICTURE 9(4).
02 TANKA-I PICTURE 9(4).
02 KUHAKU1-I PICTURE X(7).
02 DENPYO-NO-I PICTURE 9(4).
02 KUHAKU2-I PICTURE X(2).
FDMEISAI-F LABEL RECORD OMITTED
DATA RECORD MEISAI-R.
01MEISAI-R PICTURE X(132).
WORKING-STORAGE SECTION.
77S-TOT PICTURE 9(8).
77K-TOT PICTURE 9(9).
77KIN PICTURE 9(8).
01MIDASHI.
02 FILLER PICTURE X(5) VALUE SPACE.
02 FILLER PICTURE X(6) VALUE "SHOHIN".
02 FILLER PICTURE X(5) VALUE SPACE.
02 FILLER PICTURE X(9) VALUE "DENPYO-NO".
02 FILLER PICTURE X(5) VALUE SPACE.
02 FILLER PICTURE X(5) VALUE "SURYO".
02 FILLER PICTURE X(5) VALUE SPACE.
02 FILLER PICTURE X(7) VALUE "KINGAKU".

何か書き写している内に、おかしいところを発見した気がしたので、保留しておきます。
やはりここの方々なら、>>825なんて数分で出来てしまうのですか？

今度質問する時は；

コンパイルエラーなのか実行時に例外発生するのか結果がダメポなのか
ハッキリと説明すること。

エラー内容なりダメポなりの情報も書くこと。

他人にまともに説明すら出来ぬ君だから、数分で出来るプログラムに
一週間かかるのだよ。

>>828
初心者に対してトゲのある言い方すんなって
最後の二行はよけい

横から質問すまん。
>>825の出力形式の "nnnn"　ってなんだ？ZやSみたいな編集文字か？

>>830
テキストファイルから読み取ったデータってことじゃね？

COBOLなんて今どき役に立つのか？
JavaとかCとかなら分かるが。

勘定系の現場ばっかり１０年くらい色々やってるけど
COBOLしか見た事ない
もーいいよ俺COBOL係りで・・・・・・

>>822
JCLの手引き書を見れ！

>>822
あんた時間の問題でリンチされる

長くてﾏﾝﾄﾞｸｻｲので、

IDT DIV.
ENV DIV.
DAT DIV.
PRO DIV.

で行けるようにしたのはいいけど戻し方忘れた。('A`)ｳﾞｧｰ

01 WORK-HOGE.
03 W-HOGE1 PIC X(10).
03 W-HOGE2 PIC 9(10).
03 W-HOGE3 PIC 9(10) COMP-3.
・・・（続）
のようなワークエリアを何度も初期化したい場合、毎回INITIALIZEするのは時間がかかるので、
01 CLEAR-WORK-HOGE.
03 CL-W-HOGE1 PIC X(10).
03 CL-W-HOGE2 PIC 9(10).
03 CL-W-HOGE3 PIC 9(10) COMP-3.
・・・
のように同じ構造をもったテーブルを作り、一度INITIALIZEしたテーブル： CLEAR-WORK-HOGEを使って
MOVE CLEAR-WORK-HOGE TO WORK-HOGE
のようにして初期化しているんですが、もっと良い方法は無いでしょうか。（コピー句は使わずに）

ソースにいちいち、WORK-HOGEと同じ構造のテーブル（CLEAR-WORK-HOGE）を書くのが
非常に冗長に感じるのですが。

ＰＣでやるときは、SELECT句に「ORGANIZATION IS LINE SEQUENTIAL」を忘れずに！

>>837
INITIALIZE命令は集団項目に対して使えなかたっけ？
ZEROやSPACE以外の値にまとめて初期化したいなら837の方法でいいと思う。

>>837
INITIALIZEは時間掛かるから、
MOVE　0　W-HOGE2 　W-HOGE3　・・・・.
MUVE SPACE W-HOGE1 ・・・.
これ常識

>>837
時間がかかるって・・・

そんなにシビアなシステムならアセンブラでやったら？

>>840
コンパイラも進歩するだろ。

organization is female.

>>837
「テーブル」とは言わんな。

compute A = A + B.　を ADD B TO A. と書いたり、PIC がフルスペルだったり・・・　堅いこと言うなよ、それが COBOL ぢゃん♥

>>841
日次バッチ作って本番環境で動かしたら２６時間掛かったことあるよ。
そこでINITIALIZEを全部MOVEに変更したり、DB更新回数減らしたり、して１２時間まで時間短縮した

>>846
日次バッチが２６時間って笑えない話だよね

>>846
コンパイラがどんなコードを生成してるかによるんだろうけど、きっとひどいコードをはいてるんだろうなぁ。
おれの知ってる処理系はすこぶるまっとうなコードをはいてたよ。

>>848
２０００万レコードの索引DBを全件読み込みだけで２時間掛かってたよ
で２００個以上のDBを更新して、最後に２０００万のDBを更新して終わりって感じだった。

処理時間は半減したとはいえ「日次バッチ」が１２時間かかるってことは、
なんか根本的に間違ってる気がするな。

それはさておきINITIALIZEで時間のかかるコンパイラはDATA　DIVISIONの
メタ情報を元に動的に初期化をかけるタイプだと思う。
まともなコンパイラは静的なMOVE系の命令に置き換えてくれる。
ロードモジュールはその分大きくなるけどね。

実行時にマシンが判定してるんじゃないんだ・・

>>849
ううの現場ではユーティリティでDBのデータを全部シーケンシャルに落として、
普通のバッチプログラムでいろいろ処理して最後にユーティリティーでDBのロードしてる。
はじめは何じゃこりゃ〜と思ったけど、結構速いんだな。
はじめはDBがいじれるというので喜んでたんだけど、気がついたらバッチプログラムしか作ってないよ。

>>851
大抵の言語ではコンパイラの仕事だと思う。
"コンパイル" + "最適化" でググッてみなよ。

>>852
あるねぇ、索引ファイル読むのもJOINも遅いってんで
順処理マッチングで名称索引したりしてる。

それにしても毎日全件処理するのにDBって、
アーキテクトの判断は合っていたのかなぁ。。。

それよりOLD,PASSとOLD,KEEPの違いを教えてけろ

JCLのマニュアル見たら？
詳しくのってるよ

ベテランで高給だからそんなこと調べてるのばれたら
即解雇ですよ

ははは
がんばって生き残ってください

あー。

以前ガキがどうとか言ってた馬鹿かな。
死ねばいいじゃん。

やっぱりCOBOLでアプリを書くのは楽だわ。
Javaでファイルを読んで帳票とか出すのは大変。
やっぱり適材適所だな。

>>859
ほ〜コテハンなわりにはまともな意見だ。適材適所というのは同意。

それコテじゃなくてただのハンドル
褒めてるのやら貶してるのやら

>>854
それはCOBOLじゃなくてジョブ制御言語です。

OLD→既存のファイルを排他で使う。第１パラメータ。
PASS→使用後に後続STEPで使用する場合に指定する。第２パラメータ。
テープの場合はデッキに載せたままになるので使い方間違えると大顰蹙。
KEEP→使用後にそのままにしてくれる（一時データセットはチョット違うが）

こんな程度の説明でよいか？

>>862
サンキュー

高校にはﾒｲﾝﾌﾚｰﾑが置いてあるのか？

>>862
データセットをＭＴに出力する場合、
既にそのＭＴにデータセットが存在しても、DISP=(NEW,KEEP)で上書き
されるのでしょうか？DISP=(RNW,KEEP)でなくても大丈夫？

そろそろ、こっちだな・・・
http://pc8.2ch.net/test/read.cgi/os/1120898808/

既に存在するデータセット名でNEWだと駄目じゃないか？
面倒ならNEWは使わずにいつでもRNWにしとけばいい。
866の言うとおりJCLの世界だが。

そんな過疎ってるところより、こっちだろ
【TSS】メインフレーム万歳7【3480】
http://pc8.2ch.net/test/read.cgi/prog/1101042901/

そういえば、うちのシステムのJCL見てると
MTの場合、DISP=(NEW,PASS(KEEP))
になってるな。

サイクルでMT使いまわしているはずなんだけど・・・なんで落ちないんだろう。
ちなみにPASS指定しても、JOBが終わればMTはデッキから戻る・・・んじゃなかったっけ？
間違ってたらｽﾏｿ。

おれＡＣＯＳだからわかんね！
結構ちがうのね

テープのプライベート/スクラッチを自動管理してるだけでしょ
どこでもやってるよ

COBOLとFORTRANは、ソースコード見ただけで吐き気がするな

>>872
何でよ？大文字だから？

スタックレスはまだしも変数が思いっきりグローバル

どんな言語、環境にも適応できるのがデジドカなんスよ〜ウフフフ〜〜〜
一生デジドカの予定です、俺。

>>869
JOBが終わればね。
JOB終了後にマウントされっぱなしじゃたまらん。
STEP終了ではマウントされっぱなし。
RETAINをつければ巻き戻しもしないよ。

IBMでも最近はRENEWあるのか？

DD文に「UNLOAD=YES」つければ、STEP終われば勝手にデッキから
出てきてくれなかったっけ？

>>877
だったらPASSすんなよ

>>878
俺はしてないもん。

>>875
ご心配なく、吐き気がすることと作業不能であることは違いますから

僕ちゃんは心配してないんだもん！

日立ASPEN
:AA/PASS/KEEP/

>>882
それを富士通ＰＦＤでやるとどうなりますか？

読んではいないが、こんなのもあったぞ
JCLを極めろ
http://science4.2ch.net/test/read.cgi/infosys/1036777097/

フリーのCOBOLエディタってないですかね？？

>>885

漏れは使ったことないけどeclipseのCOBOLプラグイン。

http://www.eclipse.org/cobol/

散々っぱらこのスレでもフリーの話題が出ているのに、
スレすら検索せず質問する>>885は、プログラミングなんて
向いてないから普通にあきらめたら良いと思うよ。

なにか、他に可能性を見出した方がいいよ。

ふつー 887 みたいな発言には異論ありありだが
こと COBOL に関してはどーしよーもねー

俺も言うわ、885 は廃業したほうがいい

COBOLだからとかじゃなくて、ことプログラミングに
関しては自分で調べられない（調べることすらしない）
ような人間は無理だから。

英語圏ならただのバカでいいんだもん

コンパイラは結構聞いてた奴いるがエディタは始めてじゃないか？
http://www.yokkasoft.net/
↑
ここのテキストエディタにCOBOLの強調ファイルを入れると結構いいよ。

ふつうにメモ帳使ってるけど

ｎｙでメーカー製のＣＯＢＯＬ統合開発環境（エディタつき）が落ちてきた

>>893
通報しました。

フリーのcobolソース分析ソフトってないの？

また、

自分で調べもしない。
なにが聞きたいのかいまいち分らない質問しか出来ない。

馬鹿が現れたようだ。

と、誰もが暗黙に了解していることをわざわざ言って得意げな誰かさんもなかなか・・・

禿同　ところで話は変わるけど
フリーのcobolソース分析ソフトってないの？

自分で造る。

コンパイラーってこと？

>>898
分析って、何の目的？

セクション構成図とか出すツールがあったような・・・
５、６年前の話だけど、なんつったっけなー
名前思い出せない

>>902
ＡＤＣＡＳ？
セクション関連図って、あんまり役に立った覚えないなあ。

COBOLって、ファイルから読み込んだ数字を変数に入れたりする事は可能ですか？
教科書と検索使って調べてみたのですが、イマイチ分かりませんでした。

>>904
COBOL以前にセンスネーよ

ファイルI/O？　mmap知らんのか

>>904
アホ？

いや、たぶん釣りじゃないか
あまりにもアレだし

6桁の数字（文字型）を一つ右にシフトして、頭文字にローマ字を付け加えたい場合どうすればよいですか？
最後の一数字は消えてしまってかまいません。

例
456789→R45678

>>909
01 A PIC X(6).
01 B.
03 B1 PIC X(1).
03 B2 PIC X(5).

MOVE 'R' TO B1.
MOVE A TO B2.

>>905、906、907、908
停電してました…。
悲しい事にセンスないのもアホなのもカナリ自覚あります･ﾟ･(ノД`)･ﾟ･
自分のアホさもどうにもならないです。もう吊ってきます。

>>910
おまいはあと10年ぐらい人に教えるのを辞めた方が良い。

>>912
あっそ

オーソドックスで我慢できない人には全く向かない言語つーより分野だな

MCP186 COBOL age
...って誰も知らんよな。

545 ：デフォルトの名無しさん ：2005/12/23(金) 07:08:29
COBOLなら、オレに聞け！＜3＞ってスレタイ。。。なんて大仰な。ｗ

てなこと書かれてますが。。。（cobol vs Java）

お気になさいませんよう
ここは一種の隔離スレなのです

cobol vs Javaってスゲェ。人大杉だとさｗ

対決するようなもんか？

COBOLの人ってずっとCOBOLな人が多いよね

実際の仕事では項目名って日本語（漢字）でつけているほうが多いのですか？
参考書は日本語が多いのですが授業では英字しかだめと言われたので
お願いします。

（俺の経験だが）
COBOL案件４回やってうち１回がマルチバイト（日本語）だった。

>>921
多いかどうかは関係ないだろ
回ってきた仕事が「少ない」形だったらそれでいくまでだし

規格の確認なら↓
http://www.jisc.go.jp/app/pager?%23jps.JPSH0090D:JPSO0020:/JPS/JPSO0090.jsp=&RKKNP_vJISJISNO=X3002

>>922->>923
レスありがとうございます！

>>921
遅レスだが、俺は半々くらいかな。
ただ、なんか、日本語の項目名って慣れない。
自分で設計、開発するならまずやらないかな。
（その分、仕様書にきちんと書くが）

というか、日本語の項目名って…CAPEか！？orz

項目名を日本語で書くとコーディングのスピードが
すごく遅くなりそうな気がするんだが・・・

昔accessのSQLを日本語で書かされてうんざりした

ー−混在させたヤシ
全角スペース入れたヤシ
いっぺん死んでこいやーーー

　　　　／￣￣￣￣＼,,　　　　　 ／　　　　　　　　＼
　　　/＿＿＿＿＿　　ヽ　　　 /　＿＿＿＿＿_　　 ＼
　　　|　　　　　　　　|　　|　　 / ／　　　　　　　　＼ 　　ヽ
　　　|⌒ 　 　⌒ 　 |___/　　　|/　⌒　　　　⌒　　　ヽ　 　|
　　　|　（_人__）　　　 6 l　　　|　　　（_人__）　　　　　|　　 |　ニコニコ
.　 　ヽ　　　　　　　　,-′　　 |　　 　　　　 　　　　　 | 　 l
　　 　 ヽ ＿＿＿ ／ヽ　　 　 ヽ　　　　　　　　　　　 /　/
　　　 　／ |／＼／ l ＾ヽ　　　 ＼　　　　　　　　 　/　/
　　　 　|　|　　　　 　|　　|　　　　 l━━（ｔ）━━━━┥

>>927
クサチュー語で書いてあるとネ申だな

viで編集してた時は泣いた>>日本語COBOL

>>926 に全てがあらわされていると思う。

なでしこに喧嘩うってますね

初めて書き込みします。COBOLをはじめたのですが、なかなか難しいのです。
特に表操作とか・・。

配列のことか？＞表

>934は素人か?

素人かどうかはわからないが自分で調べることも
できない馬鹿だということは確かだ。

別に>>933は質問してるわけじゃないのに
ただ・・・その・・・なんだ・・・


まぁいいじゃないｗｗｗｗｗｗｗｗｗｗ

コボラーなら配列とか言うなよ

　 　　　　　　　　　　　　　　　　　　　＿＿＿, - ､
　　　　　　　　　　　　　　　　　　　 /＿＿＿＿＿）
.　　　　　　　　　　　　　　　　　 　 | |　/　　　ヽ　||　父さんな、実はコボラーなんだ
　　　　　　　　　　　　　　　　 　 　|_|　　┃　┃　 || 　
　　　　　　　　　　　　　　　　　　 （/　　 ⊂⊃　　ヽ)　　　　　　　 ／ ￣￣￣ ＼
　　　　　　　　　　　　　　　　　　　!　　 ＼＿／　　!　　　　　 　 （ （ （ヽ　　　　 ヽ
　　　　　　　　　　　　　　　　　　　,＼ _＿＿＿_ ／､　　　　　　　| −､ヽ＼　　 　 !
　　　ゝ／ ￣￣￣ ＼　　　　　／.　＼／￣＼／ 　 .＼　　　　　|　・ |─ |__　　　/
　　　/　＿＿＿＿＿ヽ　　　 |　 |　　＿┌l⊂⊃l　　|　 |　　　 ┌　- ′　　） 　 /
　　　|　|　/　 ─ ､−､!　　　 |　 |　 /　∋ |＿＿|　　|　 |　　　　ヽ　 ／　　 ヽ ＜
　　　|__|─ |　　 ・| ・　|　　　 |　 ／`, ──── 、　|　 |　　　　　` ─┐　 �h￣
　　　（　　　` ─　o−i　　　 ヽ　／　　　　　　　　 ＼ .ﾉ＿　　　　　　.j￣￣ |
　　　　ヽ､　　┬─┬ﾉ　/￣　./　　　　　　　　　　　 ヽ-　､＼　　　 /　 ￣　ヽ＼
　 ／／ /ヽ─| | ♯|　 /　　　i　　　　　　　　　　　　　 | ..)　） ＼　 i　　./　　 |＼＼
　 | |　 /　　｀i'lノ）)┘/　, ─│　　　　　　　　　　　　　!-l⊂⊃l┐__ヽ__/＼ / | 　 | |
　 | |　 |￣| ／　／| / （　(... .ヽ　　　　　　　　　 　 　 /　|_＿__|∈　 ＿＿./　.| 　 | |
　 |_|／ヽ､＿／ 　./　　 ` ─ /＼　　　　　　　　　　 /ヽ　　　　　￣ ＼-──| ＼|_|
　　 | |　 |───/＿＿＿＿i　　l＝＝＝＝＝＝＝l　 |＿＿＿＿＿ __＼　　|＼ | |
　　 |／　ヽ── |＿＿＿＿__＼　 l二|＾|二二|＾|二l　丿＿＿＿＿＿＿ |＿丿　＼|
　　l￣￣￣￣￣　|　|　　　　　　|　|.　 | |　　　| |　 | |　　　　　　　　　|　|　￣￣￣　l
　　 |￣|￣￣￣￣.|　|────|　|.　 | |　　　| |　 | |.──────|　|￣￣￣|￣|

　　　　　　＿＿＿＿＿_　　
　　　　　r'　,v^v^v^v^v^il
　　　　　l　/ jニﾆｺ　iﾆニ!.
　　　　i~^'　 fｴ:ｴi　 fｴｴ)Fi
　　　　ヽr　　　　　 ＞ 　 V
　　　　　l　　　!ー―‐r　　l　＜ なに？
　__,.r-‐人　　 ｀ー―'　　ﾉ＿
ノ 　 !　!　　ﾞｰ‐--￣--‐'"ハ ~^i
　ヽ　!　ヽ､＿　　　　 ＿.ノ　 i
ヾV /　　　　　　　　　　　　　 ! ／.入

ＩＤＥＮＴＩＦＩＣＡＴＩＯＮ　ＤＩＶＩＳＩＯＮ．

＿＿__　　　r っ　　　 ＿＿＿＿＿＿＿＿　　　＿　__
|　.__　|　＿_|　|＿_　　|＿＿＿_ 　,＿＿＿_|　　,!　/ |　l´　　　 　 く｀ヽ　＿_|￣|＿＿ 　 r‐――￣└‐――┐
|　| |　|　|　__ 　__　|　　r┐ ＿__|　|＿__ r┐　 /　/　|　|　　／＼ 　 ヽ冫Ｌ＿　 ＿ 　| 　 | ┌─────┐ |
|　|_|　| _|　|_|　|_|　|_ 　|　| |　r┐ r┐ | |　|　/ 　| 　 |　レ'´　／ 　く｀ヽ,＿＿|　|＿|　|＿ !┘|￣￣￣￣￣|‐┘
|　r┐| |＿__　 ＿＿|.　|　| |　二　二　| |　|く_/l　| 　 |　 , ‐'´　 　　　∨|＿＿　　＿＿＿|　r‐､￣|　|￣￣
|　|_.| |　　 /　 ヽ　　　 |　| |　|__| |__|　| |　|　　 |　|　 |　|　　　__　 　 /｀〉　　/　　＼ 　 　 　│ |　|　 ￣￣|
|　　　|　／ /＼ ＼. 　 |　|└------┘|　|　　 |　|　 |　|＿＿|　| 　/ /　 ／ ／＼　｀- ､_　丿　＼|　|￣￣
￣￣ く_／　　 ＼ ｀ﾌ |　 ￣￣￣￣￣　 |　　 |　| 　|＿＿＿_丿く　/ <´ ／　　　｀- ､_/／　ﾉ＼　　｀ｰ―--┐
　　　　　　　 　　　`´　｀‐'￣￣￣￣￣｀‐' 　　 ￣　　　　　　　 　 `　　｀´　　 　 　　 　 ｀ｰ' 　　 ｀ｰ───-′

>>941
ﾜﾛﾀ

当方初心者です。
三つ連続したモジュールをループして実行させたいのですが、
一つならUNTILで出来ることはわかっていますが、
三つ連続で実行するやり方が分かりません。
モジュールを一つにしてその三つを下位モジュールにするやり方もありだと思うのですが、
もしほかのやり方があるなら教えて欲しいです。

PERFORM UNTIL IDX > 10
　　　　　　　　VARYING IDX FROM 1 BY 1
PERFORM A
PERFORM B
PERFORM C
END-PERFORM

こんな感じ？

PERFORM UNTIL IDX > 10
　　　　　　　　VARYING IDX FROM 1 BY 1
PERFORM A THRU C
END-PERFORM

PERFORM A THRU C 10TIMES とかできなかったっけ

今時スルーですか・・・

>>947
普段は全然THRUは使ってないな。
A.
　　命令１
B.
　　命令２
C.
　　命令３
D.
で A TRUE C の場合実行されるの命令１と命令２じゃなかったっけ？３も実行される？

見づらくなるのでスルー使うのやめてください＞＜
うちの職場では禁止ですぅ！

age

>>948
されない

>>949
かもな

ところで COBOL には ioccc みたいのはあるんかな？
DATA DIVISION.
WORKING-STORAGE SECTION.
01 OGTO. 02 TGOO PIC X(80). 77 OGOT PIC 99.
77 OOTG PIC 99. 01 OTOG PIC 99 VALUE 79.
88 OTTG VALUE 1.
PROCEDURE DIVISION.
TOGO. IF TGOO EQUAL OGOT GO TO GOGO.
GGOT. GO TO GOOG.
C (RY

COBOLの場合短くて不明瞭なのはなかなか難しいかと。

REDIFINES の凶悪な使い方とか

MF-COBOL v3.1ではエラーが出なかった
03 aaa　PIC　9(01)　VALUE　SPACE.
がNetExpress4.0ではエラーになるのですが、
ソースの修正なしにエラーを回避する方法をご存知の方はいませんでしょうか？
1日マニュアルと格闘しましたが、回避方法がみつかりませんですたorz

↑ＯＴＬ

エラーは出て無くてもワーニングぐらいは出てただろうに
クリアコピー句で使ってただけだとしてもヒドイ

全くcobolを知らんのですが、どう頑張れば9月までに全商1級取れますか？

cobol以外の言語ができるなら仕様書ペラペラ見るだけでできるとおもうが

COBOL習得中の商業高校生ジャマイカ

え、商高って COBOL やってるの？

うちの高校はうちらまでCOBOL
１つ↓の１年はイベント駆動型Basic

このスレの平均年齢からして「うちら」と言われてもｗ

オッス、オラ３９歳！

ん、俺高２ね
因みに1年のほうは・・・生徒も先生もできＮＥＥＥとか叫んでました

イベント駆動型Basicでぐぐったらこんなの出て来た。

http://www2.center.gsn.ed.jp/houkoku/2002t/025t108/025th108.PDF

申し訳ありませんが・・・・・
オフコンCOBOLとメインフレームCOBOLの違いを教えて頂けないでしょうか？

SELECT 句とか、DISPLAY 命令？
BLOCK CONTAINS がどうだとか・・・

>>967
そんなにかわんないよ。

メインフレームとオフコンのベンダが同じなら
同じメインふーレムでのベンダ間ほどの違いは
無いと思う。

メインふーレムってなんだ？
メインフレームな。

自己レスだが。

// EXEC CBLCL

あ、あと>>968は気にしない方がいい。

WTO 'GO TO HELL'

WTOってCOBOLじゃねーし・・・

DC X'8300"

>>975
妙な引用符の使い方だな。ｗ

瞬間狂った

Power COBOLで電卓作りたいんですけどどうしたらよいですか？

そろそろ1000だが、スレタイの"オレ"は今いるんか？ｗ