果たしてここで質問していいのだろうか?
solaris&cobol&form&meftと言う環境でwebアプリ書いてるんですが、
画面の入出力のタイミングが良くわからん。
画面を読み込まないと、変数に何が入力されたか分からない
みたいなんだが、エンターやファンクションキーは即座に押された事を
感知できるみたい。
なら、押されたときに変数の内容も拾ってこいよって感じなんだが...
うーむ
この辺の知識が有る人、いません?
COBOL?極めてやんよ シュッシュ!!
54デフォルトの名無しさん
2009/06/14(日) 08:47:3355デフォルトの名無しさん
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の関数を呼び出したい。
多分、事前に静的リンクさせればいいんだろうけど、
その方法がわからない。。。
145デフォルトの名無しさん
2013/09/21(土) 01:29:36.05 >>143
サブルーチンを呼び出すだけだから、SQLなんて使わないし。
サブルーチンを呼び出すだけだから、SQLなんて使わないし。
146デフォルトの名無しさん
2013/09/21(土) 03:13:21.84 (このスレの平均年齢がなんか気になった
(いやスルー歓迎で
(いやスルー歓迎で
147デフォルトの名無しさん
2014/01/04(土) 21:33:59.31 スルー?過疎スレだから…って見たら3ヶ月前のが最新なんかよ! w
それにしてもCOBOLにはメンテ以外の理由で存続する必然性が感じられんなぁ
それにしてもCOBOLにはメンテ以外の理由で存続する必然性が感じられんなぁ
148デフォルトの名無しさん
2014/01/04(土) 21:43:05.60 ム板はアマチュアの板だからCOBOLのような業務でしか使われない言語は
見向きもされないよ。
見向きもされないよ。
149デフォルトの名無しさん
2014/01/04(土) 23:15:14.21 大規模になるほどCOBOLの新規開発の効率のよさは表にでてくる
そのぐらい知らないから保守やらメンテの言語と錯覚するんだよ。
盲目で見通しが付かないほどそれがきわまるほどCOBOLの設計手法は
大規模の人数で分散作業するのに適している。
現在の少数精鋭のやり方だけしかしらない奴はそういう大規模のは
俺カンケネーで終わるだけだろ。
そのぐらい知らないから保守やらメンテの言語と錯覚するんだよ。
盲目で見通しが付かないほどそれがきわまるほどCOBOLの設計手法は
大規模の人数で分散作業するのに適している。
現在の少数精鋭のやり方だけしかしらない奴はそういう大規模のは
俺カンケネーで終わるだけだろ。
150デフォルトの名無しさん
2014/01/04(土) 23:25:12.64 新規は楽だけど保守していくとたちまちズタボロになるんだろ
151デフォルトの名無しさん
2014/01/05(日) 01:18:02.17 COBOLはJavaなんかと比べてどのへんが新規の効率高いんですか?
いえ煽りでなく、新規開発が一番ラクなのは他のどの言語でも一緒なんじゃないかと思ったもので。各モジュール個別開発して連結テストに進めるみたいな工程です。
どんな効率的な特徴があるのかなと。
いえ煽りでなく、新規開発が一番ラクなのは他のどの言語でも一緒なんじゃないかと思ったもので。各モジュール個別開発して連結テストに進めるみたいな工程です。
どんな効率的な特徴があるのかなと。
152デフォルトの名無しさん
2014/11/09(日) 14:23:11.78ID:iOEsToOb 早く質問に答えてください。
153デフォルトの名無しさん
2014/11/09(日) 17:05:11.83ID:EbU/SVlS 横だけど、特徴としては桁ベースのデータ構造じゃね
彼が効率として何を挙げたかったかは流石に俺も知らんが
彼が効率として何を挙げたかったかは流石に俺も知らんが
154デフォルトの名無しさん
2014/11/10(月) 00:40:08.73ID:ns5VzSEf javaやったことないから話半分に読んでくれ。
COBOLだって新規、改修で効率の良さは図れない。
大元は機能仕様辺りからの実装を考えない機能定義の正確さ。
そこから、COBOLで新規実装した時の、メンテのし易さを意識したコード。
言い換えれば実装モデルを持ってるかどうか。
モデル無しに時系列にコード化すれば、後の者が「なんでこうしたの?」に陥る。
COBOL改修は、その辺りを読み取って、モデル化してなきゃパッチ風な改修するしかない。
javaでも、実装時にモデル化できてないと、新規は楽ちん、その後のメンテは大変、なんじゃないか。
結局は、自分の手を離れたプログラムを後の人が改修し易い作りにできるかが、新規作成する人の資質、だと思う。
COBOLだって新規、改修で効率の良さは図れない。
大元は機能仕様辺りからの実装を考えない機能定義の正確さ。
そこから、COBOLで新規実装した時の、メンテのし易さを意識したコード。
言い換えれば実装モデルを持ってるかどうか。
モデル無しに時系列にコード化すれば、後の者が「なんでこうしたの?」に陥る。
COBOL改修は、その辺りを読み取って、モデル化してなきゃパッチ風な改修するしかない。
javaでも、実装時にモデル化できてないと、新規は楽ちん、その後のメンテは大変、なんじゃないか。
結局は、自分の手を離れたプログラムを後の人が改修し易い作りにできるかが、新規作成する人の資質、だと思う。
155デフォルトの名無しさん
2014/12/01(月) 20:54:56.12ID:tKfhd8xq 多数の言語やっているが、Javaはそんなに難しくないで
COBOLやっていたらできる
COBOLやっていたらできる
156デフォルトの名無しさん
2015/07/27(月) 03:26:01.00ID:o5qDZAwP 最近cobol触る機会があったので記念
157デフォルトの名無しさん
2015/10/05(月) 17:54:39.80ID:fykfA51D 最近、青い銀行の移行案件やることになったから記念書き込み
158デフォルトの名無しさん
2016/09/30(金) 23:02:11.98ID:ffUCDNKe 青銀行案件はその後どうなったんだろう…訊かないほうが良さげだが
159デフォルトの名無しさん
2016/11/19(土) 21:24:49.66ID:NB2bKCn7 ハローワーク求人128,214件の平均月給197,300円〜268,000円
その中からCOBOLの求人486件の平均月給251,800円〜432,000円
https://goo.gl/E3yXUJ
その中からCOBOLの求人486件の平均月給251,800円〜432,000円
https://goo.gl/E3yXUJ
160デフォルトの名無しさん
2017/10/28(土) 08:27:15.48ID:2dJcUWXI 遂にメガバンクも大量早期退職募集
地銀はもう残された時間は僅かと金融庁に言われ
COBOL事務員不要論が高まっている
未だ大阪の運送屋とか40-50代COBOL事務員が
いるらしいけどコイツら絶望的やね
地銀はもう残された時間は僅かと金融庁に言われ
COBOL事務員不要論が高まっている
未だ大阪の運送屋とか40-50代COBOL事務員が
いるらしいけどコイツら絶望的やね
161デフォルトの名無しさん
2017/11/17(金) 16:21:38.35ID:tQLykjgm >>141
マイクロフォーカスCOBOLなんて使ってるのユニシス系銀行ぐらいだろ
マイクロフォーカスCOBOLなんて使ってるのユニシス系銀行ぐらいだろ
162デフォルトの名無しさん
2018/05/23(水) 21:15:10.49ID:Au5e7VGg 僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
1E77W
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』
1E77W
163デフォルトの名無しさん
2018/07/05(木) 00:42:18.45ID:RfoszcD2 YHF
164デフォルトの名無しさん
2018/07/05(木) 16:36:34.27ID:TGIICDrt 要らない銀行員って、COBOL要員じゃないぞ。
165デフォルトの名無しさん
2018/07/06(金) 16:19:57.98ID:wbA5phZo >>161
それの案件が北上尾であったわあ。
それの案件が北上尾であったわあ。
166デフォルトの名無しさん
2018/07/06(金) 17:08:50.05ID:qtqoxO2d このゲーム最高
https://goo.gl/U5BA1Y
https://goo.gl/U5BA1Y
167デフォルトの名無しさん
2018/07/29(日) 17:38:57.08ID:8M0YDXYA >>161
りそなの新システムがMF-COBOL
りそなの新システムがMF-COBOL
168デフォルトの名無しさん
2018/07/31(火) 20:27:27.21ID:H8tSonqZ ACUCOBOLもいつのまにかMF-COBOLに移行されてるのな
169デフォルトの名無しさん
2018/09/19(水) 14:29:06.14ID:LHB0h8FS Javaにライセンス払うのとCOBOLに保守費用払うのと変わらん様になった
170デフォルトの名無しさん
2018/10/27(土) 20:31:09.77ID:o9OsEpkq 金融系企業もシステムのCOBOL→Java化は停止し始めたね
ランタイムライセンス化ゆえCOBOLで行く方が安くつく場合有る
ランタイムライセンス化ゆえCOBOLで行く方が安くつく場合有る
171デフォルトの名無しさん
2018/10/29(月) 13:45:03.42ID:YCrx44WC OpenCOBOL使う手も有るからねえ
172デフォルトの名無しさん
2018/11/08(木) 01:49:34.98ID:yfZXYR/D みずほもOpenCOBOLに気付いてれば、安く早く移行出来たのにね
経営陣がアホだとダメの典型
経営陣がアホだとダメの典型
173デフォルトの名無しさん
2018/11/30(金) 19:29:45.16ID:neXvz1fo174デフォルトの名無しさん
2018/12/01(土) 01:23:03.62ID:fxf61n8C AWS使いたい中小企業でCOBOL使ってる所(オフコン)は、これでオープン化を受け入れるって事だろうけど
日本で移行する所有るだろうか
日本で移行する所有るだろうか
175デフォルトの名無しさん
2019/02/24(日) 05:31:52.28ID:JrGnyIKf cobolって書いててつまらなくない?
176デフォルトの名無しさん
2019/02/25(月) 09:41:52.20ID:geD3m3AB 趣味のプログラミングじゃないから、面白いとかつまらないとか考えた事もなかったなぁ
177デフォルトの名無しさん
2019/02/25(月) 19:58:28.70ID:SacNhOXZ178デフォルトの名無しさん
2019/07/30(火) 19:46:30.76ID:ygNNDLRC バカヤクニンが試験科目から廃止したってことは、きっとこれから見直されるぞ。
179デフォルトの名無しさん
2019/08/03(土) 20:53:31.38ID:67Y3s33j 官公庁がCOBOL捨てても一般企業(金融とか)捨てる訳無い
180デフォルトの名無しさん
2020/01/16(木) 07:20:08.39ID:fN1AFiv8 COBOLとUTF-8の相性は最悪なの?
全角日本語3〜8バイトの可変長だがPIC Nは常に2バイトであるものと扱うとか
全角日本語3〜8バイトの可変長だがPIC Nは常に2バイトであるものと扱うとか
181デフォルトの名無しさん
2020/03/06(金) 07:15:01.43ID:NKw3TFFH 誰かCOBOLを現代的なプログラム言語に変換機作れない?
182デフォルトの名無しさん
2020/03/06(金) 10:40:18.75ID:PXf7IA2u COBOL一筋だったけど、VB.NETが開発言語として加わった
値の計算がめんどくさい
値の計算がめんどくさい
183デフォルトの名無しさん
2020/03/07(土) 23:08:18.55ID:o8Y+C245 COBOLパーサ作ってるけどENVIRONMENT DIVISIONとかが複雑すぎて萎える
省略したい気持ちでいっぱいです
仕事でCOBOLやってる方々はPROCEDURE DIVISION以外の場所ってどんな感じに使われてる?
省略したい気持ちでいっぱいです
仕事でCOBOLやってる方々はPROCEDURE DIVISION以外の場所ってどんな感じに使われてる?
184デフォルトの名無しさん
2020/03/07(土) 23:15:13.31ID:o8Y+C245 ちなみにちょうどいい感じのCOBOLの言語仕様書ってない?
185デフォルトの名無しさん
2020/03/09(月) 15:47:56.22ID:5CuWS1pF OpenCobolIDE (python)を救う会
186デフォルトの名無しさん
2020/03/11(水) 04:20:21.83ID:3EEjWMZU 情報処理学会が出してた1965年度版COBOL翻訳本が本棚にあったなぁ
NCRっていう米国の計算機屋のNEAT COBOLってやつのマニュアルもある(英語だけど)
やっぱり紙のマニュアルが一番いい感じだと思うんだ
NCRっていう米国の計算機屋のNEAT COBOLってやつのマニュアルもある(英語だけど)
やっぱり紙のマニュアルが一番いい感じだと思うんだ
187デフォルトの名無しさん
2020/04/06(月) 18:49:07.59ID:a0GoWO+s 【米国】「COBOLの使い手急募」新型コロナの影響で
https://asahi.5ch.net/test/read.cgi/newsplus/1586162983/
https://asahi.5ch.net/test/read.cgi/newsplus/1586162983/
188デフォルトの名無しさん
2022/04/09(土) 05:59:41.16ID:Yf63bYti ちんちんシュッ!シュッ!シュッ!
189デフォルトの名無しさん
2022/06/14(火) 09:28:24.34ID:A9b+lRr3 COBOLでSEARCH文をかいてみた
IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-TXT PIC X(42).
01 INP PIC X(3).
01 BLKTBL.
03 PIC X(6) VALUE "aaa".
03 PIC X(6) VALUE "bbb".
03 PIC X(6) VALUE "ccc".
03 PIC X(6) VALUE "ddd".
03 PIC X(6) VALUE "eee".
01 BLKTBL-R REDEFINES BLKTBL.
03 BLK-REC OCCURS 5 INDEXED BY IDX.
05 VAL PIC X(03).
PROCEDURE DIVISION.
ACCEPT INP.
SET IDX TO 1.
SEARCH BLK-REC
AT END
DISPLAY "入力した値は存在しません"
WHEN VAL(IDX) = INP
STRING
"入力した【" DELIMITED BY SIZE
VAL(IDX) DELIMITED BY SIZE
"】はありました。" DELIMITED BY SIZE
INTO TEST-TXT
DISPLAY TEST-TXT
END-SEARCH.
END PROGRAM MAIN.
IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-TXT PIC X(42).
01 INP PIC X(3).
01 BLKTBL.
03 PIC X(6) VALUE "aaa".
03 PIC X(6) VALUE "bbb".
03 PIC X(6) VALUE "ccc".
03 PIC X(6) VALUE "ddd".
03 PIC X(6) VALUE "eee".
01 BLKTBL-R REDEFINES BLKTBL.
03 BLK-REC OCCURS 5 INDEXED BY IDX.
05 VAL PIC X(03).
PROCEDURE DIVISION.
ACCEPT INP.
SET IDX TO 1.
SEARCH BLK-REC
AT END
DISPLAY "入力した値は存在しません"
WHEN VAL(IDX) = INP
STRING
"入力した【" DELIMITED BY SIZE
VAL(IDX) DELIMITED BY SIZE
"】はありました。" DELIMITED BY SIZE
INTO TEST-TXT
DISPLAY TEST-TXT
END-SEARCH.
END PROGRAM MAIN.
190デフォルトの名無しさん
2022/06/14(火) 09:30:27.22ID:A9b+lRr3 COBOLって人気なさ過ぎて、技術の共有もあまりないから
ネット、及び、書籍にわかりやすいものが少ない
ネットが使えない環境が多いから、アウトプットもしにくい
ネット、及び、書籍にわかりやすいものが少ない
ネットが使えない環境が多いから、アウトプットもしにくい
191デフォルトの名無しさん
2022/06/14(火) 11:23:33.27ID:Rf4XfD/C COBOちゃんってまだ使ってる所あるんだωωω
192デフォルトの名無しさん
2022/06/22(水) 10:14:34.91ID:N/5JiATv193デフォルトの名無しさん
2023/10/13(金) 15:07:12.36ID:MYZplDh4 COBOLでプログラムを書いて何をするか、
動機付けのところにゲームをつくったりソフトウェアの改良をして
素人さん達に役立ちリスペクトして貰える、
なんていう要素が皆無でしょ。
会計手続や事務手続の実現
おまえらやりたい?w
仕事で金になるならそりゃ勉強させてもらいますよ、
おまえらやりたい?w
動機付けのところにゲームをつくったりソフトウェアの改良をして
素人さん達に役立ちリスペクトして貰える、
なんていう要素が皆無でしょ。
会計手続や事務手続の実現
おまえらやりたい?w
仕事で金になるならそりゃ勉強させてもらいますよ、
おまえらやりたい?w
194デフォルトの名無しさん
2023/10/17(火) 07:26:00.18ID:jB4eJnzM こら、お前、なんしよんねん!
195デフォルトの名無しさん
2023/10/23(月) 14:46:06.38ID:vgQZUP0x 小奇麗でちょっといいセンスのガワを張って格好良くみせたい、
なんてのみ皆無じゃない。
おまえらやりたい?w
なんてのみ皆無じゃない。
おまえらやりたい?w
レスを投稿する
ニュース
- 中国側が首相答弁の撤回要求、日本側拒否 [夜のけいちゃん★]
- 債券・円・株「トリプル安」に…長期金利1.755%まで上昇、円は対ユーロで史上最安値 [蚤の市★]
- 日本行き空路49万件キャンセル 中国自粛呼びかけ 日本行きチケット予約の約32%に相当 ★5 [ぐれ★]
- 映画「鬼滅の刃」の興行収入急減、日本行き航空券大量キャンセル…中国メディア報道 [蚤の市★]
- 【音楽】Perfume・あ~ちゃんの結婚相手「一般男性」は吉田カバンの社長・吉田幸裕氏(41) 高身長で山本耕史似 [Ailuropoda melanoleuca★]
- 「タワマン天国」に飛びつく若者…SNSに転がる「成功体験」に続けるのか 湾岸エリアの業者が語った現実 [蚤の市★]
- ホリエモンが政治家達を呼んで台湾有事について議論する動画を公開したんだけどお前らはこれの内容についてどう思う [317527133]
- 【正論】玉木雄一郎「高市さんの答弁は米軍が攻撃を受けた場合を前提としており、撤回するのは難しい」特定野党を完全論破 [519511584]
- 麻生太郎氏、高市政権と距離を置きはじめる(´・ω・`) [399259198]
- フランス「G7に習近平主席を呼びたい」ドイツ「良い考えだ」 高市さん...? [237216734]
- 自閉症が「んなっしょい」と連呼するお🏡
- 俺と空条承太郎との共通点あげてけwwww
