COBOL？極めてやんよ シュッシュ!! (195ﾚｽ)
COBOL？極めてやんよ シュッシュ!! http://mevius.5ch.net/test/read.cgi/tech/1176986660/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
94: デフォルトの名無しさん [sage] 2012/07/14(土) 10:11:18.73 汎用機版HDDだと思ってりゃいいよ w http://mevius.5ch.net/test/read.cgi/tech/1176986660/94
95: デフォルトの名無しさん [sage] 2012/07/14(土) 15:00:30.36 民主党「韓国で反日が盛り上がっていてﾔﾊﾞｲ… そうだ！ 秋田のシェールガスを日韓で開発しよう！」 http://engawa.2ch.net/test/read.cgi/poverty/1342227537/ 仙谷氏、韓国の“対日感情”高まりに懸念 民主党・仙谷政調会長代行は１３日、「未来志向の日韓戦略協力」をテーマにした財団法人世界平和研究所の シンポジウムで基調講演を行い、１２月の韓国の大統領選挙を前に、対日ナショナリズムが韓国国内で高まるこ とに懸念を示した。 仙谷氏「相当な鋭い言論によって、
どうしても選挙を控えた、あるいは選挙があろうとなかろうと、政治の世界 がそこを無視できなくなる。政治家の仕事は、その種の過剰なナショナリズムに対して、どこまで踏ん張れるかと いうのが最大の問題、最大の課題だと考えています」 その上で、仙谷氏は「日韓相互がウィン・ウィンの関係を作るべきだ」として、ロシアの天然ガスやアメリカの シェールガス開発などを日韓共同事業体で行うことを提案した。 また、知的財産権の問題などで「日韓がある種の価値観を共有し、国際社会の中でリードするルール作りに積極 的に参加することが重要だ
」として、日韓の連携強化の必要性を強調した。 http://www.news24.jp/articles/2012/07/14/04209493.html http://mevius.5ch.net/test/read.cgi/tech/1176986660/95
96: デフォルトの名無しさん [sage] 2012/07/14(土) 15:22:00.79 ネトウヨ王に、俺はなる！まで読んだ。 http://mevius.5ch.net/test/read.cgi/tech/1176986660/96
97: デフォルトの名無しさん [] 2012/07/15(日) 00:06:28.90 DASDってのはハードディスクなんですね ネットで検索すると仮装テープ装置の製品についてのページが出てきますが、 現状企業でこういったのは使われているんでしょうか？ 普通の磁器テープを使用するのが一般的ですか？ http://mevius.5ch.net/test/read.cgi/tech/1176986660/97
98: デフォルトの名無しさん [sage] 2012/07/15(日) 00:37:48.25 >>97 DASDについては、マ板のメインフレームスレで質問したほうが 詳しい人が多いのでオヌヌメ http://mevius.5ch.net/test/read.cgi/tech/1176986660/98
99: デフォルトの名無しさん [sage] 2012/07/15(日) 03:23:21.61 >>97 磁気ディスク。ほとんどが固定式（ハード）だが一応換装できる 製品もあったような。 磁気テープは、一部のメインフレームで残ってるんじゃあないかな。 http://mevius.5ch.net/test/read.cgi/tech/1176986660/99
100: デフォルトの名無しさん [] 2012/07/15(日) 11:26:33.79 やんよ ってどこの方言？ http://mevius.5ch.net/test/read.cgi/tech/1176986660/100
101: デフォルトの名無しさん [sage] 2012/07/15(日) 16:09:21.83 テープはまだ現役みたいだが ttp://h50146.www5.hp.com/products/storage/highlights/news_release/100527.html http://mevius.5ch.net/test/read.cgi/tech/1176986660/101
102: デフォルトの名無しさん [] 2012/07/15(日) 17:12:09.98 東北とかじゃね？ 関東では聞いたことない http://mevius.5ch.net/test/read.cgi/tech/1176986660/102
103: デフォルトの名無しさん [sage] 2012/07/15(日) 17:32:27.96 るをんに置き換えるのは神奈川じゃないの？ http://mevius.5ch.net/test/read.cgi/tech/1176986660/103
104: デフォルトの名無しさん [] 2012/07/15(日) 17:34:32.09 神奈川に住んでますが、聞いたことない http://mevius.5ch.net/test/read.cgi/tech/1176986660/104
105: デフォルトの名無しさん [sage] 2012/07/15(日) 19:27:28.30 MSSとかあったよね… http://mevius.5ch.net/test/read.cgi/tech/1176986660/105
106: デフォルトの名無しさん [sage] 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する件ｗ http://mevius.5ch.net/test/read.cgi/tech/1176986660/106
107: デフォルトの名無しさん [] 2012/07/15(日) 20:34:15.25 皆様ありがとうございました http://mevius.5ch.net/test/read.cgi/tech/1176986660/107
108: デフォルトの名無しさん [sage] 2012/07/21(土) 09:44:48.49 欧州研究所が告白！ 太陽光パネルで出力劣化しないのは日本製品とドイツ製品だけ！中韓メーカー発狂か http://engawa.2ch.net/test/read.cgi/poverty/1342751788/ シャープ製太陽光パネル、「出力低下なし」お墨付き−欧最大の研究機関が評価 シャープは同社製の太陽光パネルに「ＰＩＤ」と呼ばれる産業用太陽電池特有の出力低下現象が起きないと欧州最大の研究機関に認められた。 フラウンホーファー研究機構（本部＝独ミュンヘン）が欧州、北米、中国、韓国メーカーなどの
太陽電池モジュール１３製品を評価した。 欧州ではＰＩＤ現象による太陽光パネルの出力低下が相次ぎ、品質問題として注目されている。ＰＩＤ現象が発生しなかったのは４製品だけ。 これまでに京セラ、ドイツの最大手Ｑセルズも現象が起きなかったと公表している。 詳細 2012/7/20 http://www.asahi.com/digital/nikkanko/NKK201207200019.html http://mevius.5ch.net/test/read.cgi/tech/1176986660/108
109: デフォルトの名無しさん [] 2012/10/08(月) 07:59:50.83 え？ http://mevius.5ch.net/test/read.cgi/tech/1176986660/109
110: デフォルトの名無しさん [] 2013/02/09(土) 23:12:26.01 やんよってどこの方言？ 東北？ http://mevius.5ch.net/test/read.cgi/tech/1176986660/110
111: デフォルトの名無しさん [sage] 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. http://mevius.5ch.net/test/read.cgi/tech/1176986660/111
112: デフォルトの名無しさん [sage] 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. http://mevius.5ch.net/test/read.cgi/tech/1176986660/112
113: デフォルトの名無しさん [sage] 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-CHA
NNEL. 02 W1SKBN PIC X(1) VALUE SPACE. 02 FILLER PIC X(255). http://mevius.5ch.net/test/read.cgi/tech/1176986660/113
114: デフォルトの名無しさん [sage] 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. http://mevius.5ch.net/test/read.cgi/tech/1176
986660/114
115: デフォルトの名無しさん [sage] 2013/02/11(月) 11:21:30.48 >>111 >>112 >>113 >>114 すみません。これはなんですか？ http://mevius.5ch.net/test/read.cgi/tech/1176986660/115
116: デフォルトの名無しさん [sage] 2013/02/11(月) 11:26:10.04 >>115 http://toro.2ch.net/test/read.cgi/tech/1358572977/ http://mevius.5ch.net/test/read.cgi/tech/1176986660/116
117: デフォルトの名無しさん [sage] 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 http://mevius.5ch.net/test/read.cgi/tech/1176986660/117
118: デフォルトの名無しさん [sage] 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. http://mevius.5ch.net/test/read.cgi/tech/1176986660/118
119: デフォルトの名無しさん [sage] 2013/02/14(木) 00:45:01.56 ***** FILE-CLOSE SECTION. ***** CLOSE CHANNEL1. CLOSE CHANNEL2. CLOSE PR3. FILE-CLOSE-EXIT. EXIT. ***** http://mevius.5ch.net/test/read.cgi/tech/1176986660/119
120: デフォルトの名無しさん [sage] 2013/02/14(木) 01:41:05.78 >>115 COBOLのソースコードじゃん。 http://mevius.5ch.net/test/read.cgi/tech/1176986660/120
121: デフォルトの名無しさん [] 2013/02/18(月) 20:33:40.70 なんだかなつかしいなあ http://mevius.5ch.net/test/read.cgi/tech/1176986660/121
122: デフォルトの名無しさん [sage] 2013/02/24(日) 22:14:28.26 PERFORM WRITE-RTN THRU WRITE-EXT VARYING S-IDX FROM 1 BY 1 UNTIL ( S-IDX > 10 ). http://mevius.5ch.net/test/read.cgi/tech/1176986660/122
123: デフォルトの名無しさん [sage] 2013/02/25(月) 19:03:26.86 >>122WRITE-RTNからWRITE-EXTを、S-IDXを１から始めて１ずつカウントアップし、S-IDXが 10を超過するまで繰り返す…か。 http://mevius.5ch.net/test/read.cgi/tech/1176986660/123
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 72 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.006s