1001コメント319KB

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

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

NGNG

おちこぼらーさんには申し訳ないが勝手に1000まで使わせてもらっちゃいましたので
PART2をたてときます

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

0002デフォルトの名無しさん

NGNG

今だ！2ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

0003デフォルトの名無しさん

NGNG

　　 COBOL
　　　　　↓
｜　　　 △　　　 |
｜　〔(ﾟ ∀ ﾟ)〕　.|
(⌒⌒⌒⌒⌒⌒⌒)
｜⌒⌒⌒　＜⌒ヽ o ｡　うああぁぁ．．．
｜　　　　　＜_　　ヽ｡
｜　　　　　　o とノ　ﾉつ
｜　　　　　　｡　 | ～つ

0004デフォルトの名無しさん

NGNG

.NEtとどうかんけいがあるの？

0005デフォルトの名無しさん

NGNG

　　　　　C
　　　　　↓
｜　　　 △　　　 |
｜　〔(ﾟ ∀ ﾟ)〕　.|
(⌒⌒⌒⌒⌒⌒⌒)
｜⌒⌒⌒　＜⌒ヽ o ｡　うああぁぁ．．．
｜　　　　　＜_　　ヽ｡
｜　　　　　　o とノ　ﾉつ
｜　　　　　　｡　 | ～つ

0006デフォルトの名無しさん

NGNG

>>4
富士通からCOBOL.NETがでるとかでないとか

当社では過去の資産を有効活用するために.NET関係では
C,COBOL,java,VBなんでも利用することが決まりました

0007デフォルトの名無しさん

NGNG

前スレへのリンクを張らなかった>>1はお尻をつねります。

COBOLなら、オレに聞け！ <1>
http://pc3.2ch.net/test/read.cgi/tech/1002890663/

0008デフォルトの名無しさん

NGNG

>>7
申し訳ございませんでした

0009デフォルトの名無しさん

NGNG

COBOLで乱数を作成する時どうやってるか教えてちょ

ちなみに俺はACCEPTで時間を変数に代入して代入された
秒の下一桁が偶数ならば２で割って奇数ならば３倍して１を加える。
求められた値に対してまた偶数なら２で割って奇数ならば３倍して１を加える・・・
を繰り返して１になるまでに何回計算したかを求めて乱数を発生させてる。

0010デフォルトの名無しさん

NGNG

それって一様になるん?

0011デフォルトの名無しさん

NGNG

>>9
コラッツの問題を使った方法カ・・

00129

NGNG

>>10
なりますよ一応

0013デフォルトの名無しさん

NGNG

>>9
こんな方法使うやついねぇよヴォケ！
もっとましな方法考えろアフォ

0014デフォルトの名無しさん

NGNG

COBOLで乱数を発生させるんですか？
どんな業務なのか知りたいです
どんなことに使うのかも

00159

NGNG

例えば、１０万レコードの住所データを使って
２万件のダイレクトメールを出したいときなんかに
無作為に２万件選んで欲しいとき使います。

00169

NGNG

>>13
そこまで言うなら、もっといい方法を聞かせてください

001714

NGNG

>>15
なるほど
どうもありがとう

0018デフォルトの名無しさん

NGNG

>>16
自分で考えろヴォケ！
てめぇみたいな教えてクンに聞かせてやるような
低俗な技術を持った技術者じゃねぇんだよ俺様は
アバヨ

0019デフォルトの名無しさん

NGNG

>>18
オレは9じゃないけど、感じ悪いよあんた

0020Rina ◆tI333vNE

NGNG

>>18
COBOLなんて一度も触ったことないから, 技術的なことは
何も言えないんだけど, 正直感じ悪いよ.
スレタイトル見れば分かるけど「教えるためのスレ」っしょ?
質問してるんだから答えてあげなよ. 答えないつもりだったら
始めっからレスするなって….
>>13==教えて君, ってわけでもなさそうだしさ.

0021Rina ◆tI333vNE

NGNG

>>13じゃなくて>>16だね, すまそ.

0022デフォルトの名無しさん

NGNG

>>18
ようするに俺には出来ませんって言ってるんじゃない？

>>9
コラッツの問題を乱数に使うって言うのは結構良い発想だと思うよ
COBOLだけじゃなくて、他の言語でも使える方法だし
って他の言語にはランダム関数はだいたい常備されてるか・・・

0023デフォルトの名無しさん

NGNG

アバヨ

0024デフォルトの名無しさん

NGNG

メルセンヌツイスター

0025デフォルトの名無しさん

NGNG

>>22
計算量が計算結果に比例する乱数アルゴリズムなんて、あんまり使いたくないな。

0026デフォルトの名無しさん

NGNG

>>25
使用する回数が多くなるにつれて平準化するということで妥協？

0027デフォルトの名無しさん

NGNG

>>22
それほど良い発想だとは思えないんだが・・・

>>9
１０万件の住所から２万件のＤＭを出すんだったら、
ランダムで抽出するより、郵便番号か住所コードで
地域を平均的に抽出したほうが良い仕事が出来そう
だと思うのは俺だけかな？

>>18
・・・・

0028デフォルトの名無しさん

NGNG

>>27
うーん、それでも最終的にはランダム要素がないと、平均で抽出しても、レコードの最初から平均的に抽出ってなっちゃうんとちゃう？

0029デフォルトの名無しさん

NGNG

>>27
まぁ、とりあえず27の考えたアルゴリズムをここに示せや

0030デフォルトの名無しさん

NGNG

>>27
じゃあもっといい方法を>>9さんに示してあげたらどうですか
もともと>>9さんは自分はこうしてるけど他の人はどんな手法なのかって言うことで
自分の手の内をみせてるんだから

それから地域ごとに10万件ぐらい候補はあるんじゃないのDMだす候補なんてさ

0031デフォルトの名無しさん

NGNG

>>30
禿げしく同意

>>15のような場合に乱数が必要なのかどうかはさておき、
>>9さんの場合、無理に汎用系の言語で乱数を作成する
アルゴリズムを考える必要は無いんじゃないの？って感じです
結構柔軟な考え方が出来るみたいだし、年齢にもよるけど
２０代とかだったら、ＰＣ系の開発言語をやってみたらどうでしょう
多分ＣＯＢＯＬよりＣ言語のほうが肌にあってるんじゃない？
汎用系の開発者って>>18みたいなやつらばっかだからＰＣ系やるの
お勧め

0032デフォルトの名無しさん

NGNG

COBOL は、不案内ですが、newlib の rand 関数には、
こんなコメントが付いていました。

/* This multiplier was obtained from Knuth, D.E., "The Art of
Computer Programming," Vol 2, Seminumerical Algorithms, Third
Edition, Addison-Wesley, 1998, p. 106 (line 26) & p. 108 */

0033デフォルトの名無しさん

NGNG

>>31
汎用機も結構いいよ
だって自分で買えないもん
自分で買える機械とは違う世界が好き
仕事と割り切れるし

0034デフォルトの名無しさん

NGNG

>>32
その本を読め！ということですね
どんなアルゴリズムなんでしょうねチョット調べてみます

0035デフォルトの名無しさん

NGNG

>>31
有望な奴をＰＣ系に勧誘するのはやめれ！
ただでさえ汎用系の開発に人手が足りなくなってるっちゅうのに
まぁ、ACU-COBOLとかOPEN系のCOBOLもでてる昨今だけどな

ランダムのアルゴリズムか・・クイックソートとかバブルソートの
アルゴリズムを考えていた専門のときがなつかすぃ・・
会社だとサービスプログラムのソートを使って内部ソートすら使わない
んだけど、課題で出されたクイックソートのアルゴリズムを考えていた時が
懐かしいよ・・・あのころはプログラム作るの楽しかったな
今はすげー苦痛だけど

003634

NGNG

>>32
日本語訳のものがamazonで4300円で売ってますね第3巻でしたが
vol2　Third Editionって第2巻第３版ですよね

003732

NGNG

>34
>36
アルゴリズムというより計算式のようです。
オリジナルから、マクロ部分をはずすとこんな感じだと思います。

unsigned __int64 rand_next;
int rand( void )
{
/* This multiplier was obtained from Knuth, D.E., "The Art of
Computer Programming," Vol 2, Seminumerical Algorithms, Third
Edition, Addison-Wesley, 1998, p. 106 (line 26) & p. 108 */
rand_next = rand_next * 6364136223846793005L + 1;
return (int)((rand_next >> 32) & 0x7fffffff);
}

0038デフォルトの名無しさん

NGNG

>>35
おお！ソートか、懐かしい・・
COBOLじゃないんだけど、俺はソートのアルゴリズムの
課題が出たとき最初、INPUTのレコードの数と同じ数の
配列を作って対象のINPUTのレコードを最初のレコードから
比較していって対象よりも大きいレコードの数をカウントして
返された値をINDEXにして対象のレコードを配列に代入する・・・
を最終レコードまで繰り返すってのを考えたんだよ・・
でも同じ数があるとかぶっちゃうんだよなこの考え方だと・・・
でも、そんなころが懐かしい！

00399

NGNG

！！
昨日書き込んだらキツイ事いわれてそのまま寝ちゃったんだけど、
レスがこんなに・・・
>>37さん、俺の腕が未熟なせいでどういう計算式なのかよくわか
らないんだけど、絶対解析してプログラムの腕を磨きます！
ソートのアルゴリズムも色々考えてみたいですねー
この板ってレベルの高いプログラマが多数いるって言うのは本当
だったんですね
いつか皆さんに追いつけるようがんばります

0040デフォルトの名無しさん

NGNG

>>37
そこに出ている数字を導き出すところに何らかのアルゴリズムはあるんでしょ
それがその本に出ているのでは？

0041デフォルトの名無しさん

NGNG

>>39
君みたいな前向きな人はこんなところに来ちゃ駄目！
それから、汎用系はダメダメだからOPEN系やりな

0042デフォルトの名無しさん

NGNG

>>41
汎用系がﾀﾞﾒってこと無いと思うけど

0043デフォルトの名無しさん

NGNG

>>42
汎用系は>>18みたいな奴ばっか～

0044デフォルトの名無しさん

NGNG

>>43
>>9みたいな期待できるやつだっているよ
そういうやつがいなくなっちゃうと公共機関や金融機関の基幹システムが
ぼろぼろになって（すでにぼろぼろか？）こんなところで暢気にカキコしてられなくなっちゃうかも

0045デフォルトの名無しさん

NGNG

>>44
４月のみ○ほ銀行みたいにか・・・

0046デフォルトの名無しさん

NGNG

マ板っぽくなって参った。

0047デフォルトの名無しさん

NGNG

>>45
そう
当事者たちだけでなく無関係な人間まで巻き込まれたりするしね
社会に与える影響が大きい企業や官公庁のｼｽﾃﾑは時代遅れでもいいから
安定稼動していて欲しいものです
加えて我々にとって便利であれば尚よろしい

0048デフォルトの名無しさん

NGNG

教えてください

磁気テープでデータが記録されるのにＩＢＧ、ＩＲＧというものがあるのですが
なぜ、必要なのでしょうか

0049デフォルトの名無しさん

NGNG

>>48 宿題？

0050デフォルトの名無しさん

NGNG

>>48
あのねCOBOLとは関係ないよ
テープデッキの特性を考えてみてね
テープを読むときにはリールを回して必要な部分を呼んだらリールをとめるんだよ
キチキチにデータが詰まってたりすると行き過ぎちゃって次のデータ読むのに巻き戻して
とか言う動作が多くなるでしょ。
それにコンピュータのテープデッキって物凄く高速回転なんだよ
スタート、ストップを激しく繰り返すんだよ。急激にスタートしたりストップしたりすると
テープがすぐ伸びたり切れたりしちゃうでしょ

0051デフォルトの名無しさん

NGNG

>>50
さん、なっとくしますた
それで、Ｕ型バキューム機構がついてるのですね

0052デフォルトの名無しさん

NGNG

安いＶＨＳでっきでもカウンターがずれるわけだ

0053デフォルトの名無しさん

NGNG

つかなんで今時COBOLなんですか？

0054デフォルトの名無しさん

NGNG

>>53
そこにCOBOLがあるからさ

0055デフォルトの名無しさん

NGNG

>>53
なんだかんだいってCOBOLは使い易いよ
ACU-COBOLってのも出てるしPCでも
消えることは無いんじゃない？

0056富士通がなぜCOBOLにこだわるのか疑問な関係者

NGNG

CGIもCOBOLはムリヤリな気がする

0057apholist

NGNG

>>53
今まで蓄積されたCobol資産を無駄にしないため
らしい。
将来のために蓄積することを怠っても
Coboloは守らないといけないらしい。

ぶっちゃけ、年寄り技術者がCobolしかわからないかららしい。

0058デフォルトの名無しさん

NGNG

そーいえばおちこぼらー氏はどこに行ったんだろ？

0059デフォルトの名無しさん

NGNG

0060デフォルトの名無しさん

NGNG

>>58
COBOLしかできない（やろうとしない）ので会社をクビになりますた。

0061デフォルトの名無しさん

NGNG

ＣＯＢＯＬとは全然関係無いけど、
>>18のアバヨはうけた

アバヨのAA誰か作ってﾎｽｨ

0062デフォルトの名無しさん

NGNG

COBOL85の構文チェックで質問
MOVE文でPACKからＸタイプなど、属性の異なっているときに
エラーがでるようにしたいんですけど、どーしたらよいの？

0063デフォルトの名無しさん

NGNG

>>62
それが何故必要なのかがわからない。

エラーにならないからこそ便利なんだが・・・・・。

0064デフォルトの名無しさん

NGNG

>>62
コンパイラを作ってるんですか？

0065デフォルトの名無しさん

NGNG

>62
んーoptionでできないんだっけ？
処理系が何か知らんが。

>63
別に便利だとは思わないけど。
そもそもpackからXにmoveして普通に済ませてること自体問題。

0066デフォルトの名無しさん

NGNG

> >63
> 別に便利だとは思わないけど。
> そもそもpackからXにmoveして普通に済ませてること自体問題。

浅いねぇ。

0067Level2COBOL

NGNG

ＬｅｖｅｌⅡＣＯＢＯＬって
どんな環境で稼動したか覚えている方
いらっしゃいますか

0068デフォルトの名無しさん

NGNG

>>67
まずGoogleなどで
「LEVEL II COBOL」で検索してみたか？

馬鹿ばっかりだな。疲れるぜ・・・・・。

0069デフォルトの名無しさん

NGNG

ＬｅｖｅｌⅡＣＯＢＯＬ
知らないのなら、結構です

0070デフォルトの名無しさん

NGNG

>>69
さ・い・あ・く

0071デフォルトの名無しさん

NGNG

マイクロフォー滓のページになんか掲載されてますた

0072デフォルトの名無しさん

NGNG

第二種情報試験　平成１年～平成６年ごろのＣＯＢＯＬ問題を探しています
ネットでどこにありますか？
おしえてください

0073デフォルトの名無しさん

NGNG

>>72
ネットで探したらいかが？

0074デフォルトの名無しさん

NGNG

>>72
そんなものも探し出せないお前は2種（基本情報）不合格

受かっていた場合は取り消し

0075デフォルトの名無しさん

NGNG

>>72
ネットにはないよ。

0076デフォルトの名無しさん

NGNG

>>72
古本屋にいけ

0077デフォルトの名無しさん

NGNG

>>73 - >>76
皆さんありがとうございます
すべてではないのですが、みつかりました

0078デフォルトの名無しさん

NGNG

マジ質問れす。
COBOLからVBで作ったActiveX.dllを呼び出すことは可能なんですか？

0079デフォルトの名無しさん

NGNG

>>78
可能です。

0080デフォルトの名無しさん

NGNG

みなさんにちょっと聞きたいんですけど。
オレは今COBOL勉強しようとしてるんですけど
COBOLってフリーのコンパイラって無いんですか？

0081デフォルトの名無しさん

NGNG

>>80
あります。

0082デフォルトの名無しさん

NGNG

あるよー、名前まったく忘れたけど。
がんばってさがせばみつかるYO

008380

NGNG

わかりました。
Vectorとか窓の杜使って探してみます。

008483

NGNG

Linuxのならあったんですけど。
Windowsのってありませんねぇ～

0085デフォルトの名無しさん

NGNG

Linuxをインストールすればいいだろ。

0086デフォルトの名無しさん

NGNG

>>85
いや、なんとかWindowsでやりたいんで
Windowsのコンパイラ探しているのです。

0087デフォルトの名無しさん

NGNG

http://www.adtools.com/student/index.htm
がむばってください。

0088567

NGNG

>>87
あ、フリーですねこれは。
ありがとうございます。

008978

NGNG

>>79
返事遅れました。レスありがとうございます。
具体的なやり方がのっているサイトなどありますでしょうか？
探したのですがさっぱりです・・・

0090デフォルトの名無しさん

NGNG

>>88
確かにフリーって書いてあるけど
COBOLには、ランタイム課金があったような記憶が…

0091デフォルトの名無しさん

NGNG

タイニーコボルとかいうのがフリーであったとおもう

0092デフォルトの名無しさん

NGNG

>>61

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 |
　　　　　　　　　　　　　　　　　　　　　　　　　ヽ＼　　| | /　／
　　　　　　　　　　　　　　　　　　　　　　　　　ヽ丶＼ヾ　/／／
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿（　　）＿＿
=　==-　　=　==-ヽ-　　-　　　　-　=　==　=　 =　　　=
　=　=　 =　　=　=　 =　　　=-　　　=　　- -　　＝-ヽ-　　-
　　　　　　　　　　　　　　　 >>9　
　　　　　　　　　　　　　　（::::: ´Д）「・・・」　-　　　=　　- -　　＝-ヽ
　　　　　　　　　　　　　　/::::::::　　ヽ　　　　==　=　 =
　　　　　　　　　　　　　　|::::::::　　　　ヽ　　=　　∩-　　＝
　　　　　　　　　　　　　　|::::::::　　　|丶ヽ　　　|　|
　　　　　　　　　　　　　　|:::::::::　　 |　　　）　　 |　|　　　>>18
￣￣￣￣￣￣￣￣￣￣|:::::::::　　　￣￣￣￣|　|　（　´∀｀）「自分で考えろヴォケ！」
　　　　　　　　　　　　　　　　　　　　　　　　　　ヽヽ＿）　　（＿　　　　　　　　　　　アバヨ
　　　　　　　　　　　　　　　　　　　　　　　　　　　ヽ、　　　　　　　ヽ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　| 　　　　　|　|
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|　　　　　　|　|

0093デフォルトの名無しさん

NGNG

フリーのコンパイラー　汎用機のを磁気テープかＭＯで吸い上げる

0094デフォルトの名無しさん

NGNG

>>89
可能でないパッケージでやろうとしたらできるわけないんですが・・・・・。

っつーかマニュアル読めよ。

馬鹿じゃねーの？

0095デフォルトの名無しさん

NGNG

ＣＯＢＯＬ８５からＶＢをサブルーチン化ってできるの？
できると非常に助かるのだが。知ってたら方法教えて。

0096

NGNG

(；´Д｀)COBOLを勉強するのにオススメな初心者本とか著者とかありますか？
否応なくCOBOLをやることになってしまったので・・・
それにしてもCOBOLの本って少ない｡･ﾟ･(ﾉД`)･ﾟ･｡

0097デフォルトの名無しさん

NGNG

>>96
基本情報技術者試験（旧二種)のCOBOL用教本しかないな。
古本屋の100円コーナーに結構あるから買い漁るってのもｲｲかも。

009896

NGNG

>>97
（　´∀｀）有難う御座います。明日古本屋で探してみます

0099デフォルトの名無しさん

NGNG

COBOLを勉強しています。家でも、練習として作りたいのですが、
それに必要なソフトなどがわかりません。どういうソフトが必要なのか、
また、そのソフトはどこにあるのか、ご存知の方がいたら教えてください。

0100デフォルトの名無しさん

NGNG

来年入社する会社が決まりますた。
面接の時にすでに
『ＣＯＢＯＬを勉強しておいてください』
とかいわれた。
正直ＣＯＢＯＬなんてそんなすぐに覚えられるもんですか？
本屋とか行っても本全然ないですね。。。
>>96と一緒の状態ですか･･･。

何からすればいいですか？

0101デフォルトの名無しさん

NGNG

>>100
amazonとかで検索した？

■ このスレッドは過去ログ倉庫に格納されています