よーし、4,50代のコボラー共20台の俺様仕事で
COBOL使うんで覚えてやるからさっさと教えろよ。
因みに俺は多少Cは触れるから基礎はできてると思いやがれ
COBOL?極めてやんよ シュッシュ!!
11 ◆fsI2ZBGai6
2007/04/19(木) 21:44:202009/03/05(木) 13:26:18
45デフォルトの名無しさん
2009/04/23(木) 00:45:07 JCLが理解不能でクビになりますた
2009/04/23(木) 01:37:29
GOSのJCLは良く書いてたけど、1から何も見ずはかけないわ・・・・
47デフォルトの名無しさん
2009/04/27(月) 22:46:49 ここでいいのかな?
EASYPLUSっていうCOBOLみたいなやつやってるんですが、
LINE #15 項目A
みたいに書かれてるソースを見たんですが、
#15とかの意味ってなんでしょうか?
マニュアル見ても出てないし・・・・・
EASYPLUSっていうCOBOLみたいなやつやってるんですが、
LINE #15 項目A
みたいに書かれてるソースを見たんですが、
#15とかの意味ってなんでしょうか?
マニュアル見ても出てないし・・・・・
2009/05/01(金) 23:37:12
2009/05/03(日) 14:39:07
>>47
マニュアルのってる
マニュアルのってる
2009/05/15(金) 08:56:23
oracle COBOLで、カーソルフェッチしてマスタ読んでるプログラム例が、
たくさん載ってる本とかサイトとかないですか?
知ってたら教えていただけませんか?
たくさん載ってる本とかサイトとかないですか?
知ってたら教えていただけませんか?
2009/05/16(土) 00:48:09
2009/05/19(火) 11:25:11
COBOL初心者です。
IBMや富士通ではVSAM、ISAMを使ってデータを格納してる場合が多いですよね。
DB2やORACLEを実装した場合、SQLでそれらのデータセットをガチでアクセスできますか?
IBMや富士通ではVSAM、ISAMを使ってデータを格納してる場合が多いですよね。
DB2やORACLEを実装した場合、SQLでそれらのデータセットをガチでアクセスできますか?
2009/05/21(木) 07:02:17
54デフォルトの名無しさん
2009/06/14(日) 08:47:33 果たしてここで質問していいのだろうか?
solaris&cobol&form&meftと言う環境でwebアプリ書いてるんですが、
画面の入出力のタイミングが良くわからん。
画面を読み込まないと、変数に何が入力されたか分からない
みたいなんだが、エンターやファンクションキーは即座に押された事を
感知できるみたい。
なら、押されたときに変数の内容も拾ってこいよって感じなんだが...
うーむ
この辺の知識が有る人、いません?
solaris&cobol&form&meftと言う環境でwebアプリ書いてるんですが、
画面の入出力のタイミングが良くわからん。
画面を読み込まないと、変数に何が入力されたか分からない
みたいなんだが、エンターやファンクションキーは即座に押された事を
感知できるみたい。
なら、押されたときに変数の内容も拾ってこいよって感じなんだが...
うーむ
この辺の知識が有る人、いません?
55デフォルトの名無しさん
2009/09/20(日) 01:11:48 【コンピュータ】まだまだ現役:プログラミング言語のCOBOLが誕生50周年 [09/09/19]
ttp://anchorage.2ch.net/test/read.cgi/bizplus/1253376523/
ttp://anchorage.2ch.net/test/read.cgi/bizplus/1253376523/
2009/09/25(金) 23:34:31
2009/10/21(水) 10:08:59
COBOL生誕50年にからんで検索して
見つけたんで記念にカキコ
>>7補足。73桁目は既に補足されてるようなので
7桁目に/を記述すると、改ページ
Dを記述すると、単独ではコメント扱いだが
たしか、SOUCEーCOMPUTER行にWITH DEBUGGING MODE句
を記述すると有効になる。但し、スペル間違いは
勘弁して。それと、Dに関しては
コメント扱いになってるかも
見つけたんで記念にカキコ
>>7補足。73桁目は既に補足されてるようなので
7桁目に/を記述すると、改ページ
Dを記述すると、単独ではコメント扱いだが
たしか、SOUCEーCOMPUTER行にWITH DEBUGGING MODE句
を記述すると有効になる。但し、スペル間違いは
勘弁して。それと、Dに関しては
コメント扱いになってるかも
2010/05/25(火) 15:02:01
59デフォルトの名無しさん
2010/09/26(日) 16:34:41 COBOL生誕51年
2011/01/16(日) 02:53:32
COBOLは不滅だね
2011/02/01(火) 22:39:08
あれ なんか今年でCOBOL廃止とか聞いたけど
ソースはなし
ソースはなし
2011/03/08(火) 14:38:12.08
廃止しなくても終わってるでしょう。
いまCOBOLの仕事ってないでしょう。
いまCOBOLの仕事ってないでしょう。
2011/03/08(火) 14:57:48.25
どこかないかねぇ、COBOLの仕事
2011/05/22(日) 18:28:24.78
υ
/⌒丶 ⌒` ヽ
(_/(_/し\ノヽゝノ
|^ ⌒ |∴∵:|
|. . |∵∴:|
c ∂∵:| / 僕のスレは
(_ ヽ∵/ \ ここですか?
ヽ__ /
/⌒丶 ⌒` ヽ
(_/(_/し\ノヽゝノ
|^ ⌒ |∴∵:|
|. . |∵∴:|
c ∂∵:| / 僕のスレは
(_ ヽ∵/ \ ここですか?
ヽ__ /
65デフォルトの名無しさん
2011/05/29(日) 17:59:44.9666デフォルトの名無しさん
2011/06/12(日) 15:09:46.67 俺のIDENTIFICATION DIVISIONが(ry
67天使 ◆uL5esZLBSE
2011/07/03(日) 11:01:00.39 ゴミはさっさと死ね
2011/07/09(土) 15:59:16.81
などと意味不明な言葉を喚いている人間を発見しました
2011/07/09(土) 17:10:30.98
人間じゃないかもな
2011/07/13(水) 17:32:50.92
2011/08/21(日) 22:36:52.50
四月から就職してこっち系に配属されてから
いまだにプログラミングができません。
むいてないのかな•••?
いまだにプログラミングができません。
むいてないのかな•••?
2011/08/30(火) 21:56:58.17
>>71
新人さんですか?覚えることたっくさんあるだろうけど、今しばらくは頑張ってみてくださいな
新人さんですか?覚えることたっくさんあるだろうけど、今しばらくは頑張ってみてくださいな
2011/09/03(土) 10:59:21.02
2011/10/02(日) 13:37:47.41
2011/11/06(日) 01:30:52.99
COBOL って vim とかemacs
の習得が一番大事じゃないか?
の習得が一番大事じゃないか?
2012/01/27(金) 16:00:49.13
先輩方に聞きたいのだが
cobol入門書として良さげなのあるかな
プログラム組んだこと無いksにご教示お願いします。
文系大学の授業の一環でちょっとCとVB見たぐらい
cobol入門書として良さげなのあるかな
プログラム組んだこと無いksにご教示お願いします。
文系大学の授業の一環でちょっとCとVB見たぐらい
2012/01/30(月) 21:03:35.69
入門書、、、、、、本自体が少ないと思うが、、、、、
入門書ねぇ
俺は現場でソース見て覚えさせられた口なんで、、、w
入門書ねぇ
俺は現場でソース見て覚えさせられた口なんで、、、w
2012/02/12(日) 01:44:50.99
COBOLの技術者って絶滅危惧種ということで、引く手あまたってのは
本当なのかい?
本当なのかい?
2012/02/13(月) 03:27:29.52
産業廃棄物
80デフォルトの名無しさん
2012/02/19(日) 22:03:14.74 思い返すとCOBOLについては一切身銭を切ったことがないけど、
困ることが何もなかったのは色々と考えさせられますな。
最近の流行の言語は機能は豊富だけど、学習コストが高すぎるのよね。
困ることが何もなかったのは色々と考えさせられますな。
最近の流行の言語は機能は豊富だけど、学習コストが高すぎるのよね。
81デフォルトの名無しさん
2012/02/23(木) 00:06:28.04 かつては金融機関の勘定系(基幹系)システムは全部COBOLで動いていた。
設計思想が古かったり、2000年問題の主役の一人だったりで嫌っているプログラマー多し。
だが、COBOLが愛される最大の理由は信頼性だろ
バグ1個で億単位の損害が出る分野にはバグが出尽くした枯れた技術が一番
COBOLがダメな理由がない限り使い続けるほうがいいに決まってる。
最新の〜〜だったらこんなこともあんなこともできてー
ってたいていは必要の無い機能だし。
東京海上日動の新システムはCOBOLを採用
http://itpro.nikkeibp.co.jp/article/NEWS/20080906/314277/
COBOLこそスピード経営に必要 BY ジャパネットたかた
http://itpro.nikkeibp.co.jp/article/COLUMN/20100319/345984/
設計思想が古かったり、2000年問題の主役の一人だったりで嫌っているプログラマー多し。
だが、COBOLが愛される最大の理由は信頼性だろ
バグ1個で億単位の損害が出る分野にはバグが出尽くした枯れた技術が一番
COBOLがダメな理由がない限り使い続けるほうがいいに決まってる。
最新の〜〜だったらこんなこともあんなこともできてー
ってたいていは必要の無い機能だし。
東京海上日動の新システムはCOBOLを採用
http://itpro.nikkeibp.co.jp/article/NEWS/20080906/314277/
COBOLこそスピード経営に必要 BY ジャパネットたかた
http://itpro.nikkeibp.co.jp/article/COLUMN/20100319/345984/
2012/02/23(木) 20:20:58.97
COBOLが愛される理由は人海戦術でなんとかなるからじゃないの?
83デフォルトの名無しさん
2012/02/26(日) 03:12:44.16 IBM COBOLと富士通COBOLで標準語と大阪弁くらい違うという
噂を聞いたのだが実際どれくらい違うの?
つかどこのコンパイラ使ってる?
噂を聞いたのだが実際どれくらい違うの?
つかどこのコンパイラ使ってる?
84デフォルトの名無しさん
2012/02/28(火) 00:29:07.61 _
/ \―。
( / \_
/ / ヽ / ̄ ̄ ̄ ̄ ̄
...―/ _) < ちんちん シュッ!シュッ!シュッ!
ノ:::へ_ __ / \_____
|/-=o=- \/_
/::::::ヽ―ヽ -=o=-_(::::::::.ヽ
|○/ 。 /::::::::: (:::::::::::::)
|::::人__人:::::○ ヽ/
ヽ __ \ /
\ | .::::/.| /
\lヽ::::ノ丿 /
しw/ノ___-イ
∪
/ \―。
( / \_
/ / ヽ / ̄ ̄ ̄ ̄ ̄
...―/ _) < ちんちん シュッ!シュッ!シュッ!
ノ:::へ_ __ / \_____
|/-=o=- \/_
/::::::ヽ―ヽ -=o=-_(::::::::.ヽ
|○/ 。 /::::::::: (:::::::::::::)
|::::人__人:::::○ ヽ/
ヽ __ \ /
\ | .::::/.| /
\lヽ::::ノ丿 /
しw/ノ___-イ
∪
85デフォルトの名無しさん
2012/03/02(金) 00:45:00.00 かつては世界中の金融機関の勘定系(基幹系)システムは全部COBOLで動いていた。
設計思想がやたらと旧かったり、2000年問題の主役の一人だったりで嫌っているプログラマー多し。
だが、COBOLが愛される最大の理由は信頼性だろ
バグ1個で億単位の損害が出る分野には「枯れた技術」や「枯れた言語」が一番いい。
バグや障害などが出尽くした、またはバグがあっても対処方法などが判明している
大抵のとんでもないバグは摘出されているから、バグ1個で大損害とかというところでも安心して使える
COBOLがダメな理由がない限り使い続けるほうがいいに決まってる。
開発者は、新しい技術を扱っていた方が楽しかったりするので、
新しい技術を追いがちですが、未知のバグが潜んでいたり、その分スペックが要求されたりする
新しい言語(技術)に価値があるのではなく、何ができるかに価値があるのですから、別に新しい言語でなくても問題ない
東京海上日動の新システムはCOBOLを採用
http://itpro.nikkeibp.co.jp/article/NEWS/20080906/314277/
COBOLこそスピード経営に必要 BY ジャパネットたかた
http://itpro.nikkeibp.co.jp/article/COLUMN/20100319/345984/
不具合が最も多いのは Java アプリケーション、少ないのは COBOL
http://www.computerworld.com/s/article/9222503/Java_apps_have_most_flaws_Cobol_apps_the_least_study_finds
設計思想がやたらと旧かったり、2000年問題の主役の一人だったりで嫌っているプログラマー多し。
だが、COBOLが愛される最大の理由は信頼性だろ
バグ1個で億単位の損害が出る分野には「枯れた技術」や「枯れた言語」が一番いい。
バグや障害などが出尽くした、またはバグがあっても対処方法などが判明している
大抵のとんでもないバグは摘出されているから、バグ1個で大損害とかというところでも安心して使える
COBOLがダメな理由がない限り使い続けるほうがいいに決まってる。
開発者は、新しい技術を扱っていた方が楽しかったりするので、
新しい技術を追いがちですが、未知のバグが潜んでいたり、その分スペックが要求されたりする
新しい言語(技術)に価値があるのではなく、何ができるかに価値があるのですから、別に新しい言語でなくても問題ない
東京海上日動の新システムはCOBOLを採用
http://itpro.nikkeibp.co.jp/article/NEWS/20080906/314277/
COBOLこそスピード経営に必要 BY ジャパネットたかた
http://itpro.nikkeibp.co.jp/article/COLUMN/20100319/345984/
不具合が最も多いのは Java アプリケーション、少ないのは COBOL
http://www.computerworld.com/s/article/9222503/Java_apps_have_most_flaws_Cobol_apps_the_least_study_finds
2012/03/11(日) 01:07:27.92
OS4/XSPで1ファイル10GB位の容量のデータを処理したいんだが何か方法ってないかな?
2012/03/11(日) 12:22:35.24
2038年問題に備えてCOBOLを覚えようと思うんだがどれを覚えればいいの?
それともコンパイラメーカーに依存しない程度にはCOBOLって互換性高いの?
それともコンパイラメーカーに依存しない程度にはCOBOLって互換性高いの?
2012/03/11(日) 14:17:26.91
>>87 2038年問題が発生しないOSに差し替えればOK
2012/03/13(火) 18:06:43.64
今あるハードは20年後には死滅してるだろうけど
Erlangなら生き残ってるんじゃないかな
Erlangなら生き残ってるんじゃないかな
2012/03/13(火) 18:13:41.55
>>89
Erlangすら死に絶えて、Erlang VMだけが生き残ることすら考えられる
・Elixir - A modern approach to programming for the Erlang VM
http://elixir-lang.org
・Rubyist が今すぐ Elixir を使ってみるべき理由
http://m.igrs.jp/blog/2012/03/12/why-rubyists-should-try-elixir/
Erlangすら死に絶えて、Erlang VMだけが生き残ることすら考えられる
・Elixir - A modern approach to programming for the Erlang VM
http://elixir-lang.org
・Rubyist が今すぐ Elixir を使ってみるべき理由
http://m.igrs.jp/blog/2012/03/12/why-rubyists-should-try-elixir/
2012/05/24(木) 09:36:33.38
えっちなおじさん教えてください
日立COBOL85の変数の初期値って保証されてますか?
C言語みたく明示的に初期化しないとゴミデータが入る可能性ってありますか?
日立COBOL85の変数の初期値って保証されてますか?
C言語みたく明示的に初期化しないとゴミデータが入る可能性ってありますか?
2012/05/28(月) 00:53:59.86
ランタイム依存。あるいはリンケージオプションで保証される。
93デフォルトの名無しさん
2012/07/14(土) 08:55:30.70 最近はじめました。
質問があります。
DASDって言うのは、ハードディスクをさすんですか?
質問があります。
DASDって言うのは、ハードディスクをさすんですか?
2012/07/14(土) 10:11:18.73
汎用機版HDDだと思ってりゃいいよ w
2012/07/14(土) 15:00:30.36
民主党「韓国で反日が盛り上がっていてヤバイ… そうだ! 秋田のシェールガスを日韓で開発しよう!」
http://engawa.2ch.net/test/read.cgi/poverty/1342227537/
仙谷氏、韓国の“対日感情”高まりに懸念
民主党・仙谷政調会長代行は13日、「未来志向の日韓戦略協力」をテーマにした財団法人世界平和研究所の
シンポジウムで基調講演を行い、12月の韓国の大統領選挙を前に、対日ナショナリズムが韓国国内で高まるこ
とに懸念を示した。
仙谷氏「相当な鋭い言論によって、どうしても選挙を控えた、あるいは選挙があろうとなかろうと、政治の世界
がそこを無視できなくなる。政治家の仕事は、その種の過剰なナショナリズムに対して、どこまで踏ん張れるかと
いうのが最大の問題、最大の課題だと考えています」
その上で、仙谷氏は「日韓相互がウィン・ウィンの関係を作るべきだ」として、ロシアの天然ガスやアメリカの
シェールガス開発などを日韓共同事業体で行うことを提案した。
また、知的財産権の問題などで「日韓がある種の価値観を共有し、国際社会の中でリードするルール作りに積極
的に参加することが重要だ」として、日韓の連携強化の必要性を強調した。
http://www.news24.jp/articles/2012/07/14/04209493.html
http://engawa.2ch.net/test/read.cgi/poverty/1342227537/
仙谷氏、韓国の“対日感情”高まりに懸念
民主党・仙谷政調会長代行は13日、「未来志向の日韓戦略協力」をテーマにした財団法人世界平和研究所の
シンポジウムで基調講演を行い、12月の韓国の大統領選挙を前に、対日ナショナリズムが韓国国内で高まるこ
とに懸念を示した。
仙谷氏「相当な鋭い言論によって、どうしても選挙を控えた、あるいは選挙があろうとなかろうと、政治の世界
がそこを無視できなくなる。政治家の仕事は、その種の過剰なナショナリズムに対して、どこまで踏ん張れるかと
いうのが最大の問題、最大の課題だと考えています」
その上で、仙谷氏は「日韓相互がウィン・ウィンの関係を作るべきだ」として、ロシアの天然ガスやアメリカの
シェールガス開発などを日韓共同事業体で行うことを提案した。
また、知的財産権の問題などで「日韓がある種の価値観を共有し、国際社会の中でリードするルール作りに積極
的に参加することが重要だ」として、日韓の連携強化の必要性を強調した。
http://www.news24.jp/articles/2012/07/14/04209493.html
2012/07/14(土) 15:22:00.79
ネトウヨ王に、俺はなる!まで読んだ。
97デフォルトの名無しさん
2012/07/15(日) 00:06:28.90 DASDってのはハードディスクなんですね
ネットで検索すると仮装テープ装置の製品についてのページが出てきますが、
現状企業でこういったのは使われているんでしょうか?
普通の磁器テープを使用するのが一般的ですか?
ネットで検索すると仮装テープ装置の製品についてのページが出てきますが、
現状企業でこういったのは使われているんでしょうか?
普通の磁器テープを使用するのが一般的ですか?
2012/07/15(日) 00:37:48.25
2012/07/15(日) 03:23:21.61
100デフォルトの名無しさん
2012/07/15(日) 11:26:33.79 やんよ
ってどこの方言?
ってどこの方言?
101デフォルトの名無しさん
2012/07/15(日) 16:09:21.83 テープはまだ現役みたいだが
ttp://h50146.www5.hp.com/products/storage/highlights/news_release/100527.html
ttp://h50146.www5.hp.com/products/storage/highlights/news_release/100527.html
102デフォルトの名無しさん
2012/07/15(日) 17:12:09.98 東北とかじゃね?
関東では聞いたことない
関東では聞いたことない
103デフォルトの名無しさん
2012/07/15(日) 17:32:27.96 るをんに置き換えるのは神奈川じゃないの?
104デフォルトの名無しさん
2012/07/15(日) 17:34:32.09 神奈川に住んでますが、聞いたことない
105デフォルトの名無しさん
2012/07/15(日) 19:27:28.30 MSSとかあったよね…
106デフォルトの名無しさん
2012/07/15(日) 20:00:06.38 >>97
【ASPEN】メインフレーム万歳9【PFD】
http://kohada.2ch.net/test/read.cgi/prog/1331452865/
Googleで、DASD 日本語ページ 1週間以内 で検索したら
やたらAVがhitする件w
【ASPEN】メインフレーム万歳9【PFD】
http://kohada.2ch.net/test/read.cgi/prog/1331452865/
Googleで、DASD 日本語ページ 1週間以内 で検索したら
やたらAVがhitする件w
107デフォルトの名無しさん
2012/07/15(日) 20:34:15.25 皆様ありがとうございました
108デフォルトの名無しさん
2012/07/21(土) 09:44:48.49 欧州研究所が告白! 太陽光パネルで出力劣化しないのは日本製品とドイツ製品だけ!中韓メーカー発狂か
http://engawa.2ch.net/test/read.cgi/poverty/1342751788/
シャープ製太陽光パネル、「出力低下なし」お墨付き−欧最大の研究機関が評価
シャープは同社製の太陽光パネルに「PID」と呼ばれる産業用太陽電池特有の出力低下現象が起きないと欧州最大の研究機関に認められた。
フラウンホーファー研究機構(本部=独ミュンヘン)が欧州、北米、中国、韓国メーカーなどの太陽電池モジュール13製品を評価した。
欧州ではPID現象による太陽光パネルの出力低下が相次ぎ、品質問題として注目されている。PID現象が発生しなかったのは4製品だけ。
これまでに京セラ、ドイツの最大手Qセルズも現象が起きなかったと公表している。
詳細 2012/7/20
http://www.asahi.com/digital/nikkanko/NKK201207200019.html
http://engawa.2ch.net/test/read.cgi/poverty/1342751788/
シャープ製太陽光パネル、「出力低下なし」お墨付き−欧最大の研究機関が評価
シャープは同社製の太陽光パネルに「PID」と呼ばれる産業用太陽電池特有の出力低下現象が起きないと欧州最大の研究機関に認められた。
フラウンホーファー研究機構(本部=独ミュンヘン)が欧州、北米、中国、韓国メーカーなどの太陽電池モジュール13製品を評価した。
欧州ではPID現象による太陽光パネルの出力低下が相次ぎ、品質問題として注目されている。PID現象が発生しなかったのは4製品だけ。
これまでに京セラ、ドイツの最大手Qセルズも現象が起きなかったと公表している。
詳細 2012/7/20
http://www.asahi.com/digital/nikkanko/NKK201207200019.html
109デフォルトの名無しさん
2012/10/08(月) 07:59:50.83 え?
110デフォルトの名無しさん
2013/02/09(土) 23:12:26.01 やんよってどこの方言?
東北?
東北?
111デフォルトの名無しさん
2013/02/10(日) 23:23:12.83 IDENTIFICATION DIVISION.
PROGRAM-ID. CHAN2.
AUTHOR. DAREKA.
DATE-WRITTEN. 2013-02-07.
*****
ENVIRONMENT DIVISION.
*****
CONFIGURATION SECTION.
SOURCE-COMPUTER. CHAN2.
OBJECT-COMPUTER. CHAN2.
***
INPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT CHANNEL1 ASSIGN TO I1-DK.
SELECT CHANNEL2 ASSIGN TO I2-DK.
SELECT PR3 ASSIGN TO O1-PR.
PROGRAM-ID. CHAN2.
AUTHOR. DAREKA.
DATE-WRITTEN. 2013-02-07.
*****
ENVIRONMENT DIVISION.
*****
CONFIGURATION SECTION.
SOURCE-COMPUTER. CHAN2.
OBJECT-COMPUTER. CHAN2.
***
INPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT CHANNEL1 ASSIGN TO I1-DK.
SELECT CHANNEL2 ASSIGN TO I2-DK.
SELECT PR3 ASSIGN TO O1-PR.
112デフォルトの名無しさん
2013/02/10(日) 23:26:10.17 *****
DATA DIVISION.
*****
FILE SECTION.
FD CHANNEL1.
01 F1R.
02 F1-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F1-HH PIC 9(02).
02 FILLER PIC X(01).
02 F1-MM PIC 9(02).
02 FILLER PIC X(01).
02 F1-SS PIC 9(02).
FD CHANNEL2.
01 F2R.
02 F2-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F2-HH PIC 9(02).
02 FILLER PIC X(01).
02 F2-MM PIC 9(02).
02 FILLER PIC X(01).
02 F2-SS PIC 9(02).
FD PR3.
01 PR3R.
DATA DIVISION.
*****
FILE SECTION.
FD CHANNEL1.
01 F1R.
02 F1-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F1-HH PIC 9(02).
02 FILLER PIC X(01).
02 F1-MM PIC 9(02).
02 FILLER PIC X(01).
02 F1-SS PIC 9(02).
FD CHANNEL2.
01 F2R.
02 F2-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F2-HH PIC 9(02).
02 FILLER PIC X(01).
02 F2-MM PIC 9(02).
02 FILLER PIC X(01).
02 F2-SS PIC 9(02).
FD PR3.
01 PR3R.
113デフォルトの名無しさん
2013/02/10(日) 23:30:01.83 ***
WORKING-STORAGE SECTION.
***
77 DATEKBN PIC X(1) VALUE SPACE.
77 DAYKBN PIC X(1) VALUE SPACE.
77 CHANNEL1-STATUS PIC X(1) VALUE SPACE.
77 CHANNEL2-STATUS PIC X(1) VALUE SPACE.
77 PR3-STATUS PIC X(1) VALUE SPACE.
***
01 SYSTEM-DATE.
02 SYEAR PIC X(4) VALUE SPACE.
02 SMONTH PIC X(2) VALUE SPACE.
02 SDAY PIC X(2) VALUE SPACE.
***
01 SYSTEM-TIME.
02 SHH PIC X(2) VALUE SPACE.
02 SMM PIC X(2) VALUE SPACE.
02 SSS PIC X(2) VALUE SPACE.
***
01 W1-CHANNEL.
02 W1SKBN PIC X(1) VALUE SPACE.
02 FILLER PIC X(255).
WORKING-STORAGE SECTION.
***
77 DATEKBN PIC X(1) VALUE SPACE.
77 DAYKBN PIC X(1) VALUE SPACE.
77 CHANNEL1-STATUS PIC X(1) VALUE SPACE.
77 CHANNEL2-STATUS PIC X(1) VALUE SPACE.
77 PR3-STATUS PIC X(1) VALUE SPACE.
***
01 SYSTEM-DATE.
02 SYEAR PIC X(4) VALUE SPACE.
02 SMONTH PIC X(2) VALUE SPACE.
02 SDAY PIC X(2) VALUE SPACE.
***
01 SYSTEM-TIME.
02 SHH PIC X(2) VALUE SPACE.
02 SMM PIC X(2) VALUE SPACE.
02 SSS PIC X(2) VALUE SPACE.
***
01 W1-CHANNEL.
02 W1SKBN PIC X(1) VALUE SPACE.
02 FILLER PIC X(255).
114デフォルトの名無しさん
2013/02/10(日) 23:32:41.00 ***
01 W2-CHANNEL.
02 W2SKBN PIC X(1) VALUE SPACE.
02 FILLER PIC X(255).
***
01 O1-PR3.
02 O1SKBN PIC X(1) VALUE SPACE.
02 O1KINGAKU PIC ZZZZ,ZZ9.
*****
PROCEDURE DIVISION.
*****
MAIN-1 SECTION.
PERFORM MAESHORI THRU MAESHORI-EXIT.
*
PERFORM FILE-OPEN THRU FILE-OPEN-EXIT.
*
PARAGRAPH-1-1.
DISPLAY "Hello!" UPON CONSOLE.
*
PERFORM FILE-CLOSE THRU FILE-CLOSE-EXIT.
STOP RUN.
END PROGRAM 2CHAN.
01 W2-CHANNEL.
02 W2SKBN PIC X(1) VALUE SPACE.
02 FILLER PIC X(255).
***
01 O1-PR3.
02 O1SKBN PIC X(1) VALUE SPACE.
02 O1KINGAKU PIC ZZZZ,ZZ9.
*****
PROCEDURE DIVISION.
*****
MAIN-1 SECTION.
PERFORM MAESHORI THRU MAESHORI-EXIT.
*
PERFORM FILE-OPEN THRU FILE-OPEN-EXIT.
*
PARAGRAPH-1-1.
DISPLAY "Hello!" UPON CONSOLE.
*
PERFORM FILE-CLOSE THRU FILE-CLOSE-EXIT.
STOP RUN.
END PROGRAM 2CHAN.
115デフォルトの名無しさん
2013/02/11(月) 11:21:30.48116デフォルトの名無しさん
2013/02/11(月) 11:26:10.04117デフォルトの名無しさん
2013/02/14(木) 00:39:39.57 *****
MAESHORI SECTION.
*****
ACCEPT SYSTEM-DATE FROM DATE.
IF SMONTH IS NUMERIC
THEN IF SDAY IS NUMERIC
THEN MOVE "T" TO DATEKBN
ELSE MOVE SPACE TO DATEKBN
END-IF
ELSE MOVE SPACE TO DATEKBN
END-IF.
ACCEPT SYSTEM-TIME FROM TIME.
IF SHH IS NUMERIC
THEN IF SMM IS NUMERIC
THEN IF SSS IS NUMERIC
MAESHORI SECTION.
*****
ACCEPT SYSTEM-DATE FROM DATE.
IF SMONTH IS NUMERIC
THEN IF SDAY IS NUMERIC
THEN MOVE "T" TO DATEKBN
ELSE MOVE SPACE TO DATEKBN
END-IF
ELSE MOVE SPACE TO DATEKBN
END-IF.
ACCEPT SYSTEM-TIME FROM TIME.
IF SHH IS NUMERIC
THEN IF SMM IS NUMERIC
THEN IF SSS IS NUMERIC
118デフォルトの名無しさん
2013/02/14(木) 00:42:01.53 THEN MOVE "T" TO DAYKBN
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF.
MAESHORI-EXIT.
EXIT.
*****
FILE-OPEN SECTION.
*****
OPEN CHANNEL1.
OPEN CHANNEL2.
OPEN PR3.
FILE-OPEN-EXIT.
EXIT.
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF.
MAESHORI-EXIT.
EXIT.
*****
FILE-OPEN SECTION.
*****
OPEN CHANNEL1.
OPEN CHANNEL2.
OPEN PR3.
FILE-OPEN-EXIT.
EXIT.
119デフォルトの名無しさん
2013/02/14(木) 00:45:01.56 *****
FILE-CLOSE SECTION.
*****
CLOSE CHANNEL1.
CLOSE CHANNEL2.
CLOSE PR3.
FILE-CLOSE-EXIT.
EXIT.
*****
FILE-CLOSE SECTION.
*****
CLOSE CHANNEL1.
CLOSE CHANNEL2.
CLOSE PR3.
FILE-CLOSE-EXIT.
EXIT.
*****
120デフォルトの名無しさん
2013/02/14(木) 01:41:05.78 >>115
COBOLのソースコードじゃん。
COBOLのソースコードじゃん。
121デフォルトの名無しさん
2013/02/18(月) 20:33:40.70 なんだかなつかしいなあ
122デフォルトの名無しさん
2013/02/24(日) 22:14:28.26 PERFORM WRITE-RTN THRU WRITE-EXT
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).
123デフォルトの名無しさん
2013/02/25(月) 19:03:26.86 >>122WRITE-RTNからWRITE-EXTを、S-IDXを1から始めて1ずつカウントアップし、S-IDXが
10を超過するまで繰り返す…か。
10を超過するまで繰り返す…か。
124デフォルトの名無しさん
2013/02/25(月) 19:52:37.16 ADD 1 TO COBOL GIVING COBOL
125デフォルトの名無しさん
2013/03/10(日) 23:14:48.61 OCCURSはオカズ
126デフォルトの名無しさん
2013/03/29(金) 23:10:52.90 やんよってどこの方言?
東北のほう?
東北のほう?
127デフォルトの名無しさん
2013/04/11(木) 20:49:13.34 イメージとしては東海から中京
128デフォルトの名無しさん
2013/06/10(月) 02:01:01.54 COBOLのコードって大文字なのか?w
AKB総選挙7位の松井玲奈が1級持ってるっつーから、どんな言語だと思ったら……
AKB総選挙7位の松井玲奈が1級持ってるっつーから、どんな言語だと思ったら……
129デフォルトの名無しさん
2013/06/14(金) 01:02:45.75 どうせおまいらハゲだろ?
こぼらー=ハゲ
こぼらー=ハゲ
130デフォルトの名無しさん
2013/06/14(金) 01:04:51.29 すまん、フサフサだ・・・
131デフォルトの名無しさん
2013/06/14(金) 01:09:15.69 まじかでか!?オレらのシマはオールハゲ
132デフォルトの名無しさん
2013/06/20(木) 01:40:10.52 おっさん多いけどハゲの比率が少ないな
133デフォルトの名無しさん
2013/07/14(日) NY:AN:NY.AN COBOLで書かれた米国防総省の給与システム700万行、実質的に更新不可能
ttp://it.slashdot.jp/story/13/07/14/0555217/
ttp://it.slashdot.jp/story/13/07/14/0555217/
134デフォルトの名無しさん
2013/07/15(月) NY:AN:NY.AN それに関しては、システムがどうこうとかCOBOLがどうこうじゃなくて
社会的な影響で躊躇しているところ多そうだけどな
なんつっても訴訟王国アメリカ。
新システム移行のとき、もし過去の給与計算で誤計算が発覚したら
エライことになりそうだし。
だからバグも含めて移行⇒失敗てパターンなんじゃなかろうか。
社会的な影響で躊躇しているところ多そうだけどな
なんつっても訴訟王国アメリカ。
新システム移行のとき、もし過去の給与計算で誤計算が発覚したら
エライことになりそうだし。
だからバグも含めて移行⇒失敗てパターンなんじゃなかろうか。
135デフォルトの名無しさん
2013/07/23(火) NY:AN:NY.AN 60年代に書かれたコボルで数十年更新されてなくてドキュメントも無いとか無茶すぎるわ
そんなポンコツが現役稼働なこと自体驚きです
そんなポンコツが現役稼働なこと自体驚きです
136デフォルトの名無しさん
2013/07/24(水) NY:AN:NY.AN COBOLってもともとは簡単な事務処理をするためにデザインされたのに
どう見てもCOBOL向きで無い用途に使われてる。
その用途を満たすためにトリッキーなプログラムになって解読困難に
なってるんだよな。
プログラムの作り方自体も環境変数(プログラムAからプログラムBに値を渡したい時の
システム稼働中は保持される変数、正式にはなんて言うんだ?)を不用意に読み書き
出来る様になっている素人でもやらないようなめちゃめちゃ作り。。。。
まともな人なら近づかない、よって書き換え不可能w。
どう見てもCOBOL向きで無い用途に使われてる。
その用途を満たすためにトリッキーなプログラムになって解読困難に
なってるんだよな。
プログラムの作り方自体も環境変数(プログラムAからプログラムBに値を渡したい時の
システム稼働中は保持される変数、正式にはなんて言うんだ?)を不用意に読み書き
出来る様になっている素人でもやらないようなめちゃめちゃ作り。。。。
まともな人なら近づかない、よって書き換え不可能w。
137デフォルトの名無しさん
2013/07/26(金) NY:AN:NY.AN >>133
仕様書やドキュメントがない、上層部が事態を把握できないからメンテも移行も出来ないと受け取れる。
仕様書やドキュメントがない、上層部が事態を把握できないからメンテも移行も出来ないと受け取れる。
138デフォルトの名無しさん
2013/07/27(土) NY:AN:NY.AN 簡単に引き継げるようにしとくとクビ切られちゃうからな!!
139デフォルトの名無しさん
2013/08/23(金) NY:AN:NY.AN >>136
H/Wからくる制限、人間(開発者、利用者)からくる制限、S/W(主に言語)からくる制限からトリッキーになってしまう事なんて昔はどの言語でもあったわけで…
COBOLでリアルタイム処理をしなければいけない現実からPL/Iが産れたのにコンパイラを稼動させるのに256KB以上のメモリが必要とするのがネックとなって汎用機以外での導入が見送られた
オーバレイやSRAM(CMOS)を使った共有メモリ(排他制御、メモリの問題から一般的には非公開)も使った事があるけどサブルーチンかによるオーバヘッドとか無視できない時代もあったからね
H/Wからくる制限、人間(開発者、利用者)からくる制限、S/W(主に言語)からくる制限からトリッキーになってしまう事なんて昔はどの言語でもあったわけで…
COBOLでリアルタイム処理をしなければいけない現実からPL/Iが産れたのにコンパイラを稼動させるのに256KB以上のメモリが必要とするのがネックとなって汎用機以外での導入が見送られた
オーバレイやSRAM(CMOS)を使った共有メモリ(排他制御、メモリの問題から一般的には非公開)も使った事があるけどサブルーチンかによるオーバヘッドとか無視できない時代もあったからね
140デフォルトの名無しさん
2013/09/11(水) 15:14:34.12 こぼらず
こぼりたり
こほる
こぼるとき
こぼれども
こぼれ
こぼりたり
こほる
こぼるとき
こぼれども
こぼれ
141デフォルトの名無しさん
2013/09/13(金) 01:12:16.41 MF-COBOLって汎用機のCOBOLとどう違うの?
SQLのスキルが求められている仕事で、SQLを使った事がないと厳しい?
SQLを詳しくかいてあるほんで、おすすはある?
SQLのスキルが求められている仕事で、SQLを使った事がないと厳しい?
SQLを詳しくかいてあるほんで、おすすはある?
142デフォルトの名無しさん
2013/09/13(金) 08:48:51.02 SQLの入門書なんて本屋のデータベースのコーナーに行けばいっくらでもある。
対象DB(まぁだいたいOracleあたりだろうけど)の無料版も最近はこれまたいっくらでもある。
自分のPCに入れて勉強出来るよ
まぁ
>SQLのスキルが求められている仕事で、SQLを使った事がないと厳しい?
当たり前だけど「厳しい」だろw
サンプルソースは仕事場に行けばあるだろうけど。
対象DB(まぁだいたいOracleあたりだろうけど)の無料版も最近はこれまたいっくらでもある。
自分のPCに入れて勉強出来るよ
まぁ
>SQLのスキルが求められている仕事で、SQLを使った事がないと厳しい?
当たり前だけど「厳しい」だろw
サンプルソースは仕事場に行けばあるだろうけど。
143デフォルトの名無しさん
2013/09/15(日) 21:01:13.85 つか そんなじゃ汎用機のCOBOLもまともに出来てないような。
144デフォルトの名無しさん
2013/09/18(水) 15:11:58.43 ごめん、教えて。
MFcobolからCの関数を呼び出したい。
多分、事前に静的リンクさせればいいんだろうけど、
その方法がわからない。。。
MFcobolからCの関数を呼び出したい。
多分、事前に静的リンクさせればいいんだろうけど、
その方法がわからない。。。
レスを投稿する
ニュース
- 中国側が首相答弁の撤回要求、日本側拒否★3 [夜のけいちゃん★]
- 中国側が首相答弁の撤回要求、日本側拒否★4 [夜のけいちゃん★]
- 被爆者は「怒りが腹の底から湧いてくる」高市首相“非核三原則見直し報道”に被爆地で懸念や憤りの声《長崎》 [1ゲットロボ★]
- 債券・円・株「トリプル安」に…長期金利1.755%まで上昇、円は対ユーロで史上最安値 ★2 [蚤の市★]
- 【中国外務省】日中関係悪化は高市氏に責任と名指しで非難… ★7 [BFU★]
- 日本行き空路49万件キャンセル 中国自粛呼びかけ 日本行きチケット予約の約32%に相当 ★6 [ぐれ★]
- 【悲報】中国から輸入した物を食べ、輸入した服を着て、輸入したスマホ弄ってる日本人「中国と戦争するぞ!」 [616817505]
- 中国「台湾統一という偉業を成し遂げる」⇦これに反発してるやつ全員アメリカの手先です [271912485]
- リアルで下ネタ言える人すごい 恥ずかしさが勝って言えない
- おでんの大根って味クドくて嫌い、不味い
- ネトウヨ「中国人の来日自粛で数千兆円単位の損失?中国に賠償を要求すべき!」 戦後賠償をチャラにしてもらった恩を忘れてて草 [314039747]
- 社民党、新垣氏の離党承認 所属衆院議員ゼロに [377482965]
