トップページ⇒tech
1001コメント319KB

COBOLなら、オレに聞け!<2>

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
おちこぼらーさんには申し訳ないが勝手に1000まで使わせてもらっちゃいましたので
PART2をたてときます

仕事だから仕方なくCOBOLをやってる人
本気でやってる人
いろいろいるとおもいますがオッサンたちで役に立つならお手伝いしますということで・・・
0159デフォルトの名無しさんNGNG
>>158
正直に書いても問題ないだろ。
まだその会社があるのならだが…

古い本だとすればもうサービスしてないかも。
フリーの使えば?
0160158NGNG
ありがとうございます
上記の本は2002年5月10日第4刷発行の本で
一部でCOBOLのバイブルと言われているようです。
FAX先は日立製作所 ソフトウェア事業部 販売促進部です。
フリーは以前いろいろ探して挫折したものですから、
学校の実習機と同じ環境をノーパソに実現できればと思っています。
0161デフォルトの名無しさんNGNG
COBOL知らない人が増えてきたんですね。(w
 FORTLANって書く人もいるし。
 FORTRAN
0162デフォルトの名無しさんNGNG
素朴な疑問なんですけど、COBOLが罵倒されているように思うのですが、何故なんでしょうか?
 真面目に応えていただけると、ありがたいのですが。
0163デフォルトの名無しさんNGNG
それマジむかつくよね、やったことも無いくせに偉そうに批評してさ。
0164デフォルトの名無しさんNGNG
>>163
そういうおまへは他のを使って比較した上でのその発言なんだろうな?
0165162NGNG
18年目だが何か?
0166デフォルトの名無しさんNGNG
乱暴に言われる方は、相当おいやな方なんでしょうね。
 COBOLではなく、COBOLしかやりたくない人が、罵倒されているのでしょうか?
あっそれと、「おまへ」ではなく 「おまえ」ですよ。
 へ ではなく 御前からきた言葉ですから。本当に・・・
怒らないでくださいね。
こちらも、素朴に疑問に思っただけですから。
やはり、2ちゃんねるの方々に聞くのは間違いでした。すみませんでした。
以上、終了
0167デフォルトの名無しさんNGNG
procedure division
perform until >>1=a bone
end perform
0168デフォルトの名無しさんNGNG
>>160
あそこは今でも使ってるから大丈夫だろ。
送ってみ。
不安なら親の名前とか使うとか
0169デフォルトの名無しさんNGNG
おまへ だって、やはり可笑しい
0170デフォルトの名無しさんNGNG
こんどの、基本情報技術者の試験、COBOLで、受ける人いませんか。
0171デフォルトの名無しさんNGNG
俺はバグレスで受ける!←知ってる奴おる?
0172デフォルトの名無しさんNGNG
バグルスなら知ってる。
0173デフォルトの名無しさんNGNG
>>171
富士通のメインフレーム用の4GLだっけ?
0174デフォルトの名無しさんNGNG
>>171バグレスは、翻訳すると、一旦、COBOLに展開するのかなぁ。
いまのBAGLES2はどうかしらないが。
金融でみたものはJCLがそのようになっていたような・・・

0175デフォルトの名無しさんNGNG
初めてききます、バグレスって。簡単なんでしょうか
確か選択できるのがC言語とCOBOLとCASLでしたっけ
試験受けるの、初めてなんですけど、冬休み中、
本読むだけじゃかなり、不安です、午後問題が難しいですねぇ
家でCOBOLの実習したいだけどなぁ。。。。
0176デフォルトの名無しさんNGNG
2ch流で言うと、2ch検索等で、探せばご利用できます。
親切に言うと、お金を出せば、売ってます。
もっと親切に言えば、freeがあります。イングリッシュですけど。
0177デフォルトの名無しさんNGNG
>>175
CかCASLをお勧めするよ。将来のためにも。
それから、freeのものを探すのもsetupするのも楽だし
0178176NGNG
>>175 >>177のおっしゃるようにしたほうがいいです。
 はじめてなら。COBOLがいいとおもっていらしゃるようですが、
何故?簡単なイメージがあるから?
でも、C、JAVA、アセンブラのほうがいいですよ。
0179デフォルトの名無しさんNGNG
こんばんは、レスありがとうございます。
>>176
いろいろ調べた結果COBOL85というコンパイラが欲しいのですが
(普通のアプリケーション風の画面でDOSのコマンドが無さそうなので。。。)
値段かかれてないし凄く高価そうですね。体験版があるとか。。
他はOPENCOBOLというコンパイラ(無料?)
を使ってみたのですがダメでした、やはり自分のレベルではフリーは難しいです。
0180デフォルトの名無しさんNGNG
あ、途中で投稿してしまった。。。。
0181デフォルトの名無しさんNGNG
こんばんは、
>>177
今は学校の授業でCOBOLをやってます。
一年ぐらいやってるので
基本情報試験もそれで行こうと思ってます。
合格したらC言語やCASLもやってみたいと思ってます。
C言語は難しいらしい。。。。
0182176NGNG
COBOL85でしょ。多分BAGLESの関係だと思われますが。
わたしも、PCのWINで稼動するものをさがしたんですが、高いので
お金があれば買いますが。パワーCOBOL、NET。COBOL
のほうがあたらしいです。ひらがなばかり・・・(w
私、COBOL85で仕事したことあります。
基本情報は、どの言語問題が簡単化はわかりません。
将来的には基本情報関係の言語すべてを知っておくほうが、得をしますが。
どうしましょう。
0183デフォルトの名無しさんNGNG
日立のPC用COBOL85は結構シンプルで使い易かったよ。
CLONEで持ってます。w
0184デフォルトの名無しさんNGNG
ホントに初心者ならCASLがいいと思いますよ
その後でCやCOBOLを覚えた方がいいです。
とくにCOBOLから始めると、なかなか他の言語に馴染めません
COBOL簡単なようで、かなりあいまいな部分があります
このあいまいな部分が難しくもあり、コンピュータを理解していなくても
ある程度動作するものが作れてしまいます。
その結果、コンピュータの基礎がまったく身につかないといったことが
多々あります。
0185デフォルトの名無しさんNGNG
これだけあれば、いいのにねぁ。COBOLあるよ。俺は、金ない。
ttp://www.getplus.co.jp/default_next.asp?leftp=s&mfile=category/catbusiness.asp
0186デフォルトの名無しさんNGNG
>>185
仕事で使っているということはやはり
COBOL85は使いやすいんですね。
いい物ほど高いのかぁ。。。

>>183こんばんは。
クローン??あ!複製ってこと。。。。
0187デフォルトの名無しさんNGNG
>>184
そうですか。
PIC X(09)みたいに、けた数を、指定してるような、
プログラムってあまり無いみたいですからね。。。(そうでもない?)
それを設計して作るのが楽しかったりするんですが。
Zや\になっている領域を使わないでどうやって計算していくかとか。。。
たしかCASLは機械語に近いんですよね。
0188デフォルトの名無しさんNGNG
まだまだ初心者で右も左も分からない状態です。
皆さんの意見を参考になにを、やるのが最善なのが
よく勉強しておきます。よろしくお願いします^^;
0189デフォルトの名無しさんNGNG
>>185
COBOLって入れて計算したらめちゃくちゃ高いソフトばかり出てきました。
でもそれがイイんだろうなぁ。。。

。。さてと、風呂はいってから午前の勉強してきます
0190デフォルトの名無しさんNGNG
計算=検索
0191デフォルトの名無しさんNGNG
>>187
10進数を扱う言語少ないからね。
Zや\になっている領域?
意味が良くわからないんだが・・・
パック10進を使うってことかな?
それとも編集をしないということか?
想像つかないなー

CASLは情報処理試験用の仮想コンピュータのアセンブリ言語です。
基礎を学ぶには一番いいと思うよ。
0192デフォルトの名無しさんNGNG
Banking Application Generator Language for Effective System
0193デフォルトの名無しさんNGNG
>191
CASLは命令表が付いてくるので楽勝だったな。
ちょっと癖だけ覚えとけば試験会場で命令表見ればなんとかなる。
0194151NGNG
こんばんは
>>191
とたえばPIC \\\\,\\\,\\9みたいにした
領域に数字を入れると\123,456,789みたいに円記号も
表示して出力してくれます。編集用文字って言うみたいです
でもその領域に入れた数字は計算できないから、いろいろ別に領域を作って
計算したりしたので、ちょっと書いてみました。
自分もよく分からなくて説明できません。。。。。。
0195151NGNG
CASLやC言語もそういうのあるんでしょうか。
0196151NGNG
基本情報の試験COBOL受ける人やっぱりいないですか?うーん。。。
0197191NGNG
>>194
もともと編集って帳票等の見栄えを良くする為のもので、計算するもんじゃないよ。
つまり最後にデータを送る場所だよ。
計算は2進数(COMP)とかパック10進数(COMP-3)を利用しましょう。
そして、その結果を見栄えよく表現するときに編集マスクを使ってください。

COBOLはもともと帳票作成に重点を置いている言語なので、このようなものが充実しています。
改行や改ページなどもAFTERとかあるでしょ。

COBOLの文法を覚えるよりも、コンピュータの基礎を学ぶ方が応用が利きます。
それにはCASLが一番お勧めです。
仕事に直結するものであればCやjavaのほうが良いでしょう。
金融機関や行政機関の仕事ならCOBOLもあるでしょうが、COBOLから他の言語に移行するのは
かなり難しいと思いますよ。
0198デフォルトの名無しさんNGNG
CASLじゃコンピュータの 本 当 の 基 礎 が学べない

Z80やH8のトレーナーキットでハードまで視野に入れた勉強をしたほうが
電子機器の中でコンピュータがどんな役割をするものかが学べ
どんな「ソフト屋」がこれから仕事がなくなるのかも予想できる
0199デフォルトの名無しさんNGNG
>>151COBOLで受験しますよ。私は!
 COBOL、C、ASM、RPG、FORTRAN、PL/1・・・
なんでも勉強しましたから。
0200デフォルトの名無しさんNGNG
>>196さん、いまCOBOLを勉強されてきたんですよね。
もし学生さんでとにかく合格したいのでしたら、そのままCOBOLで受験して
みたら?C等、ほかの言語はあとからでも習得できます。なぜなら、コンピュータの
基本原理を理解していれば、他の言語はいくらでも理解できるはずです。
合格してから、ゆっくりASMでも、Cでも勉強されたらいいのです。
0201デフォルトの名無しさんNGNG
>>198
なんかピントずれてませんか?
しかも勘違いもされてる気がします。
0202198NGNG
出た! 仕事あぶれるPGハケーン
0203デフォルトの名無しさんNGNG
でも COBOLができて16進読めれば
しばらくは飯は食える
0204デフォルトの名無しさんNGNG
ユニシスのCOBOLやってる方いますか?
0205151NGNG
おはようございます。
なんかすごくプログラム作りたい気分なんだけど、コボル無理だしなぁ。。。
OPENCOBOLで文字を、ディスプレイで字の表示は、何とかできたけど
学校の実習みたいに、外からデータを読み出して、プリントは無理っぽい。。。
日本人が作られたらしいのに説明書がなぜか英語なんで全然見当がつきません
0206151NGNG
>>197こんにちわ。レスありがとうございます
編集のところちょっと分かりました。でもややこしいですよねあそこは。
データが0000として、PIC形式がZ,ZZ9みたいになったとき
コンマの前がそのままゼロが入るか空白にになるかがちょっとまだ迷います。
2進数の計算とかパック10進の計算とかはまだ習ってないです。
どんなときに使う機会があるんでしょうか。
まだ普通の10進数で計算しています
0207151NGNG
>>198
トレーナーキットって何でしょうか。
Z80って入れたら電子工作のページが引っかかりました
コンピュータを知るには回路からってことですか。。。うん
0208151NGNG
>>199
あ、いた!でもプログラマーの方ですか
何の言語もできるなんて。
すごいですねぇ。何年ぐらい仕事されてるんですか
やっぱりそのぐらいレパートリーが広くないと
プログラマとして勤まらないんでしょうか。
。。。

プログラマー多いですね自分、かなり板違いかも
0209151NGNG
>>200
はい、今それを考えているんですけど。
やはり1年間ほどCOBOLを学習してきたので
試験も難しいですけどCOBOLの方がやりやすいかなと。思います。
計算苦手な自分に向いてるような気もします
いろんな人の話をきいてみると基礎を知るには
CASLが良いとのことなんですが
やはりプログラムの独学は辛いです。。。。
教えてくれる人もいないですし。
0210デフォルトの名無しさんNGNG
>>206
コンピュータは全部2進数で動いてるんですけど・・・
COBOLで使っている10進数は2進化10進数というもので、
2進数→10進数に変換して人間にわかりやすくしたものです。
つまり毎度、変換処理を伴うのでそのままの2進数より効率が悪いんです。
2進化10進数にもゾーン10進数とパック10進数という2種類があります。
ゾーン10進数はほとんど文字列と同じコードです。
符号付の場合最後の1バイトの上位4ビットが符号を表します。

パック10進数は10進数に変換された数字が4ビットづつならんで最後の4ビットが符合になります。
最後に符号がつくのでバイト単位に調整するための4ビットが先頭に付加されます。
このため、桁数は奇数で取りましょうとよく言われると思います。
こちらの方がゾーン10進数よりも変換の手順が少ないため処理効率はよいです。

とかいう話の理解の補助にもCASLは役に立つと思いますので、実際の受験はCOBOLを選択するとしても
多少は見てみるとよいと思いますよ。
0211151NGNG
>>210こんにちわ。レスありがとうございます
2進数とかの基数変換などは習ったのですが
COBOLを組むさいにも2進数から10進などそういうことを視野に入れながら
組まなければならないということですよね。
教えてくれてありがとうございます!

>とかいう話の理解の補助にもCASLは役に立つと思いますので、実際の受験はCOBOLを選択するとしても
>多少は見てみるとよいと思いますよ。
はい。
0212デフォルトの名無しさんNGNG
CASLは、
試験用にはよくできているが
学習用にははっきり言って糞
0213デフォルトの名無しさんNGNG
>>212
そんなことねーよ
高級言語ばっかり使う香具師にはちょうどいいと思うよ
0214151NGNG
すいません、ちょっとCOBOLで分からないところがあるのですが
また、教えてもらえないでしょうか。。。
IF文の判断記号のところなんですけど、条件名条件という命令の中で
02 TENSU PIC 9(3).

IF TENSU = 100
MOVE "A" TO RANK
ELSE
MOVE "B" TO RANK
END-ID  
を条件名条件を使うと、

02 TENSU PIC 9(3).
88 AA VALUE 100

IF AA
MOVE "A" TO RANK
ELSE
MOVE "B" TO RANK
END-ID  
と書けばAAが判断記号に使えるということがなんとなく分かったのですが
条件変数の切り替えという項目で
ひとつの基本領域に複数の条件名が設定されていた場合、
SET命令を用いて状態を変えることができるという風に参考書には書かれていたのですが
よく理解できません。
0215151NGNG
問題では、
02 KEI PIC 9(03).
02 GALUBU PIC X.

IF KEI > 200 AND <= 300 AND GALUBU = "R"
MOVE "RIGAKU" TO HANTEI
ELSE
IF KEI > 180 AND <= 300 AND GKUBU ="K"
MOVE "KEIZAI" TO HANTEI
END-IF
END-IF 
とあるので。。。。

02 KEI PIC 9(03).
88 R-KEI VALUE 200 THRU 300
88 K-KEI VALUE 180 THRU 300
02 GALUBU PIC X.
88 R-BU VALUE "R"
88 K-BU VALUE "K"
IF R-KEI AND R-BU
MOVE "RIGAKU" TO HANTEI
ELSE
IF K-KEI AND K-BU
MOVE "KEIZAI" TO HANTEI
END-IF
END-IF と書いてみたのですがダメなのでしょうか。。。。
0216151NGNG
SETの使い方がまだ分からないです。良ければ教えてください。。。
0217151NGNG
あ、、メモ帳で書いたら段落がまっすぐになってしまった。。。。。
0218デフォルトの名無しさんNGNG
>>216
正直、俺は 88 レベルのことが全くわかりません
SETはアドレスの設定に使いますね
インデックス付のテーブルのインデックスの初期化など
以下、想像の世界ですが
88 R-BU VALUE "R"
88 K-BU VALUE "K"
のような場合にどちらを使うのかを指定するのではないでしょうか?

知らないくせに適当なことかいてすみません
0219151NGNG
>>218レスありがとうございます!
自分も
88 R-BU VALUE "R"
88 K-BU VALUE "K"
をどちらの状態に切り替わるか設定するのだと思うのですが
でもIF R-BUと書けばSETを使わなくても普通にその領域を指定してくれるかなと思って
書いたのですが。。。。。
この参考書、解答が無くて。確かめようにもできません。
0220151NGNG
あとGALUBUじゃなくてGAKUBUでした。。。
0221デフォルトの名無しさんNGNG
>>219
それにしても、ものすごいコードが出てる参考書ですね
そんなコード見たこともありません。
使えるのかもしれませんが、いかにも試験用って感じです。
知識として知っておいて損なことはありませんが、実際の業務でそんなコード書かないでね。
0222デフォルトの名無しさんNGNG
>>221
そうですか、COBOLの基本情報試験用の参考書だったのですが。。。
プログラマの方も知らないようなので、やっぱりおかしい出題ですね
試験に出ないのなら飛ばします。
0223デフォルトの名無しさんNGNG
>>222
実務と試験は違うよ
勉強しとけ!

実務は俺みたいなアホでも読めるようなコードを書くのがよろしいと言うことです。
0224212NGNG
>>213
では,COBOLerにとってCASLは何の理解に役立つと言いたい?

例えばCASLにBALRがあるなら
PERFORMの理不尽な仕様を理解するのに役立つだろうが
現実にはそうじゃないよな
0225デフォルトの名無しさんNGNG
>>224
キチガイですか?
0226224NGNG
おい坊主、人にキチガイとか言う資格が自分にあるかどうか見せてから口ききな
その無礼さからして二十歳そこそこのガキのようだがBALRとは何か知ってて言ってるか?
0227デフォルトの名無しさんNGNG
>>226
キチガイ確定ですね
0228デフォルトの名無しさんNGNG
>>227
自分が揚げ足取られない自信がなくて逃げ回るしか能のないbogus君よ
君に診断が下せる相手は君しかいないよ,ほら誰も相手にしてないだろ
0229デフォルトの名無しさんNGNG
昨今、2ちゃんねるでは、暴言は流行らないのです・・・
0230デフォルトの名無しさんNGNG
COBOLスレでCOBOLの話を要求してるんだよ!
おまえこそスレ違いだ、消えろ
0231デフォルトの名無しさんNGNG
>>230 あっ こいうときは相手にしないほうがいいのかぁ
 COBOL2002はいいぞ。
0232デフォルトの名無しさんNGNG
>>230は2ちゃんねる暦、浅そう。
0233230NGNG
>>232
ありがとう
0234デフォルトの名無しさんNGNG
ところで、ゾーン10進、パック10進について、覚えておいたほうが、業務アプリ製作時に
利便性はあるのでしょうか?
0235デフォルトの名無しさんNGNG
ストレージ使用量が約2倍違うわけだが
0236デフォルトの名無しさんNGNG
利便性というより知らないと恥ずかしいよ
COBOL特有のものでもないし。
0237151NGNG
あーー
0238234NGNG
みなさん、どうもです。
ここで、しっかり覚えました。ハイ
ttp://www5c.biglobe.ne.jp/~ecb/assembler/3_1.html
0239なっち ◆aGY7H/RMTM NGNG
あとでプログラミングの質問をするのであいてしてね#hearts;
0240なっち ◆aGY7H/RMTM NGNG
う〜ん、失敗失敗。。。
0241くぁzNGNG
OpenCOBOLでパック(MFCOBOLではCOMP−3)のコーディング方法を知ってる人いたら、コーディングサンプルをお願いします。
0242デフォルトの名無しさんNGNG
//movies.ogrish.com/ofex.asf (グロ動画:チェチェン虐殺。銃撃→首をナイフで切り落とす)
//movies.ogrish.com/chechclear.asf (グロ動画:チェチェンの首切りカラーバージョン)
0243デフォルトの名無しさんNGNG
↑なんで、2ちゃんねるって、こうなんだろうね
0244デフォルトの名無しさんNGNG
http://www.flexnet.co.jp/at/?rk=010000ra0006vl0000000d514bu-00000dam92tr62503921041847425867
0245デフォルトの名無しさん NGNG
今図書管理のプログラムをCOBOLでやろうとしているのですが、
日付計算の処理が全く分かりません。
COBOLで日付計算するにはどのようにコーディングしたらよいのでしょうか?
どなたか教えてください
0246245NGNG
どんな計算か書き忘れました…
今日の日付から7日後の日付を割り出す計算です。

また、日付はIFで大小を比較とかできますか?
それも教えてもらえると助かります
0247デフォルトの名無しさんNGNG
本日日付+7であとどうします?
0248245NGNG
>>247
割り出してからテーブルに記録してレコードに書き込む
という作業ができれば・・・

で、後はその日付が本日の日付と比較して過ぎていれば
そのレコードを別のファイルに書き込むという作業もできればいいかな・・・と
思ってます。
0249デフォルトの名無しさんNGNG
>>245は、業務上で悩んでいるのか?それとも学校の課題?
はてまた、煽り? 馬鹿にしているの?

システムサブルーチン、関数などは使用しないのか。でも、一度自分で、プログラム仕様
を考えるのもいいでしょうね。人の助けを得ずに。

2000年問題をクリアーしたものには、簡単なことだが。
0250247NGNG
>>245
2003年1月31日 + 7 = 38日?
 まぁ、いいか

金融の利息計算なんか、もっと大変だよ
悩んでみてください。
0251名無し@沢村NGNG
ヌヒ等よ、COBOLは俺が小学校の頃からあったね。
その頃はパソコンはまだなくコンピュータのことを電子計算機と呼んでいたが、その頃からCOBOLという言葉は耳にしていたよ。
というのは電子計算機の会社に勤めている親戚のおっさんが来て「COBOL、COBOL」となくしたてていたのを聞いたからだよ。
俺は子供心にCOBOLに何となく嫌悪感を抱いていたのを覚えているよ。
0252デフォルトの名無しさんNGNG
月末日付テーブル
 31282931303130313130313031
うるう年の計算注意
0253デフォルトの名無しさんNGNG
>>251
プロジェクトX始まってるよ。
0254デフォルトの名無しさんNGNG
>>251まぁ、そうおっしゃらずに、ご教授してあげてくだされ。
0255デフォルトの名無しさんNGNG
いまの若い人はいいなぁ。こういうところで、技術相談できて・・・
 まぁ、みなさん丁寧に教えあいましょうよ。
0256245NGNG
一応学校の課題なんですが、日付関連のこと全くやったことがないので
どうしようかなと悩んでたんですが…

とりあえず、自力解決できるようにがんばってみます。
無理であればまた聞きにきます。
0257デフォルトの名無しさんNGNG
>>256
1年は何日でしょうか?
0258IP記録実験NGNG
IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前:ひろゆき ◆3SHRUNYAXA @どうやら管理人 ★ 投稿日:03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前:心得をよく読みましょう 投稿日:03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か?

38 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前:ひろゆき ◆3SHRUNYAXA 投稿日:03/01/08 17:27 ID:rLfxQ17l
>ところで、IPが抜かれて何か今までと変わることってあるのでしょうか?
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
■ このスレッドは過去ログ倉庫に格納されています