COBOL？極めてやんよシュッシュ!!

1 ◆fsI2ZBGai6 · 2007/04/19(木) 21:44:20

よーし、4，50代のコボラー共20台の俺様仕事で
COBOL使うんで覚えてやるからさっさと教えろよ。

因みに俺は多少Cは触れるから基礎はできてると思いやがれ

**デフォルトの名無しさん** · 2007/10/31(水) 14:12:58

つかＳＥやってた奴いないかな？このスレ。

**デフォルトの名無しさん** · 2007/11/03(土) 20:51:31

世間一般の人はCOBOLがなんだかも判らんだろうから田原発言を信じるだろうな…

**デフォルトの名無しさん** · 2007/11/25(日) 15:20:14

>>19
これ書いてる人もなんかちょっと…
「RISC以前のCISCのプロセッサはCOBOL向けアーキテクチャ」
とか、全然どうでもいいこって…

**デフォルトの名無しさん** · 2008/01/06(日) 22:00:58

２年もＣＯＢＯＬやらされて業界脱出したのにＷＥＢ系に今だに未練あります。。。

**デフォルトの名無しさん** · 2008/01/16(水) 18:08:14

ソース書くときに1行=92バイトって制限あるようでコンパイルエラーorz
改行を無効化するような制御ってあるんでしょうか？

**デフォルトの名無しさん** · 2008/02/16(土) 10:28:07

みなさんのお知恵をお借りしたいです。m(__ __)m
cobol + ORACLE10gです

下記のような事が可能と言われたのですが、
検証した結果無理でした。
再度、試みますが物理的に可能なんでしょうか？

手順①
INSERT
(COBOLE) PIC 9(09) COMP-3 ⇒ (ORACLE) CHAR 5
※この場合 ORACLE上では正しく表現されない事はOKとします。

手順②次に(上記の手順後)
(ORACLE) CHAR 5 ⇒ (COBOLE) PIC 9(09) COMP-3
この場合、INSERT時のCOBOLで入力した値が
正しく表現されると言われたのですが・・・
本当でしょうか？

検証した時には、
手順①
111111111 ⇒ 11111
手順②
11111 ⇒ 000012345

このように　再取得した値が000012345となり
当初の111111111ではなくなります。

**デフォルトの名無しさん** · 2008/02/28(木) 16:09:35

**デフォルトの名無しさん** · 2008/03/06(木) 23:59:30

>>28
２行に渡って書けばええやんｗｗ
もしくはアスタリスク入れるところにハイフンいれるとか
第一、８０カラムを超えるようなソース書いたことねーぞｗｗｗ

**デフォルトの名無しさん[]** · 2008/06/21(土) 08:27:30

SYSINファイルという考え方がしっくりきません。
誰かおせーてください。

**デフォルトの名無しさん** · 2008/06/28(土) 21:47:50

SYSINってJCL上からとかコンソール上から入れるパラメタぞ

**デフォルトの名無しさん** · 2008/09/12(金) 11:06:10

【IT】「COBOLは現役バリバリ」、東京海上日動がシステム全面再構築でCOBOLを選んだワケ　開発者向けセミナー「XDev2008」 [08/09/08]
http://gimpo.2ch.net/test/read.cgi/bizplus/1220822531/

**デフォルトの名無しさん** · 2009/01/07(水) 01:45:03

自宅のPCに勉強用のCOBOLの開発環境を作りたいんですけど
通常COBOLの開発環境ってどんなんですか？
Eclipseとか使ったりするのかな。

**デフォルトの名無しさん** · 2009/01/10(土) 21:35:14

PCにいれるのなら、NET　COBOLか
COBOL２００２だな。
Eclipseなんか使うわけないだろ！！

**デフォルトの名無しさん** · 2009/01/10(土) 21:41:19

>>35
FreeCOBOL.iNFO～フリーのWindows用COBOLコンパイラまとめ～
ttp://labs.netbata.com/cobol/
ひよこグミ
ttp://www16.plala.or.jp/hiyokogumi/
ここらへんを参考にしたら？

**デフォルトの名無しさん** · 2009/02/26(木) 00:48:03

それぞれの言語にはいろいろな特徴があって
長所もあれば短所もある
何のためにシステムを構築するのか
何故その言語を使うのか
よーく考えるといい

**デフォルトの名無しさん** · 2009/03/04(水) 13:51:31

やべぇ、COBOL半年やってたらJAVAとかVB忘れそうだわ・・

>>31
INSPECTとか使ったら80バイトなんか直ぐに到達するぞ。
てか、改行で解決。
>>38
主にCOBOLが未だ死なない理由は・・・
・夜間処理等、定時で動くバッチシステムとしては比較的軽量。
UNIXサーバのシェルとの相性も悪くない。
・半世紀前からあるようなホスト現役の所とか、誤差がダメ！ゼッタイな金融機関等々、
大幅システム再構築を嫌がる所では重宝される。

**デフォルトの名無しさん** · 2009/03/04(水) 14:44:41

COBOL って割り算したときの有効桁未満の decimal の
扱いってどうなっての?

10.00
----- を計算するとは 1.66 ? それとも 1.67 ?
6.00

**デフォルトの名無しさん** · 2009/03/04(水) 15:44:00

>>40
試せばすぐ分かることなのに
なぜ時間かけて訊くの？

**デフォルトの名無しさん** · 2009/03/04(水) 19:09:32

>>41

1. COBOL で書いてあったデータのメンテナンスを要求する仕事の声がかかった
2. COBOL の処理系は手元にないし、使ったことがない
3. 言語仕様を読む限りは, その辺が曖昧に読める

てなところかな…

前の質問にさらに付け加えると、

各ベンダの処理系の個体差ってあるのないの?

が、加わった

41 · 2009/03/04(水) 22:59:10

>>42
基本切捨てが行われる。
ROUNDED 指定を書くと四捨五入。

>2. COBOL の処理系は手元にないし、使ったことがない
OpenCOBOLをインスコしてみてはどうだろう。

>3. 言語仕様を読む限りは, その辺が曖昧に読める
え？どの言語仕様読んでるの？
はっきり書いてるよ。

>各ベンダの処理系の個体差ってあるのないの?
あるよ。

**デフォルトの名無しさん** · 2009/03/05(木) 13:26:18

>>42
本当に言語使用読んだのか？
ひょっとしてCOMPUTEとDIVIDEの使い所もわからんのじゃないか？

**デフォルトの名無しさん** · 2009/04/23(木) 00:45:07

JCLが理解不能でクビになりますた

**デフォルトの名無しさん** · 2009/04/23(木) 01:37:29

GOSのJCLは良く書いてたけど、１から何も見ずはかけないわ・・・・

**デフォルトの名無しさん** · 2009/04/27(月) 22:46:49

ここでいいのかな？

EASYPLUSっていうCOBOLみたいなやつやってるんですが、

LINE　#15 項目A

みたいに書かれてるソースを見たんですが、
#15とかの意味ってなんでしょうか？
マニュアル見ても出てないし・・・・・

**デフォルトの名無しさん** · 2009/05/01(金) 23:37:12

>>15
15行目って意味じゃねーの？

EASYPLUSって使ったこと無いから知らんけど。

**デフォルトの名無しさん** · 2009/05/03(日) 14:39:07

>>47
マニュアルのってる

**デフォルトの名無しさん** · 2009/05/15(金) 08:56:23

oracle COBOLで、カーソルフェッチしてマスタ読んでるプログラム例が、
たくさん載ってる本とかサイトとかないですか？
知ってたら教えていただけませんか？

**デフォルトの名無しさん** · 2009/05/16(土) 00:48:09

>>50
カーソルか
http://set.bbspink.com/feti/

**デフォルトの名無しさん** · 2009/05/19(火) 11:25:11

COBOL初心者です。
IBMや富士通ではVSAM、ISAMを使ってデータを格納してる場合が多いですよね。
DB2やORACLEを実装した場合、SQLでそれらのデータセットをガチでアクセスできますか？

**デフォルトの名無しさん** · 2009/05/21(木) 07:02:17

>>52
書いている意味がよく判らん。
RDBにデータを移行したら当然SQLでアクセス出来る。
SQLでVSAMやISAMからデータを取得したいって意味なら、そんなこと出来る訳がない。

**デフォルトの名無しさん** · 2009/06/14(日) 08:47:33

果たしてここで質問していいのだろうか?
solaris&cobol&form&meftと言う環境でwebアプリ書いてるんですが、
画面の入出力のタイミングが良くわからん。
画面を読み込まないと、変数に何が入力されたか分からない
みたいなんだが、エンターやファンクションキーは即座に押された事を
感知できるみたい。
なら、押されたときに変数の内容も拾ってこいよって感じなんだが...
うーむ
この辺の知識が有る人、いません?

**デフォルトの名無しさん** · 2009/09/20(日) 01:11:48

【コンピュータ】まだまだ現役：プログラミング言語のCOBOLが誕生50周年 [09/09/19]
ttp://anchorage.2ch.net/test/read.cgi/bizplus/1253376523/

**デフォルトの名無しさん** · 2009/09/25(金) 23:34:31

>>54
押されたときに変数の内容を拾うようにプログラムを
記述すればいいじゃん。

FORM と MEFT と COBOL のマニュアル読めよ。

**デフォルトの名無しさん** · 2009/10/21(水) 10:08:59

COBOL生誕50年にからんで検索して
見つけたんで記念にｶｷｺ
>>7補足。73桁目は既に補足されてるようなので
7桁目に/を記述すると、改ﾍﾟｰｼﾞ
Dを記述すると、単独ではｺﾒﾝﾄ扱いだが
たしか、SOUCEｰCOMPUTER行にWITH DEBUGGING MODE句
を記述すると有効になる。但し、ｽﾍﾟﾙ間違いは
勘弁して。それと、Dに関しては
ｺﾒﾝﾄ扱いになってるかも

**デフォルトの名無しさん** · 2010/05/25(火) 15:02:01

COBOL誕生50周年
http://iiyu.asablo.jp/blog/2010/05/25/5111701

**デフォルトの名無しさん** · 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

廃止しなくても終わってるでしょう。
いまＣＯＢＯＬの仕事ってないでしょう。

**デフォルトの名無しさん** · 2011/03/08(火) 14:57:48.25

どこかないかねぇ、ＣＯＢＯＬの仕事

**デフォルトの名無しさん** · 2011/05/22(日) 18:28:24.78

　　　　　 υ
　　　／⌒丶　⌒`　ヽ
　　（_／（_/し＼ノヽゝノ
　　　|^　 ⌒　　|∴∵：|
　　　|．　．　　|∵∴：|
　　　ｃ　　　　　∂∵：| 　／　僕のスレは
　　　 (＿　　　　ヽ∵/ 　＼　　　ここですか？
　　　　ヽ＿＿　　／

**デフォルトの名無しさん** · 2011/05/29(日) 17:59:44.96

COBOLの教本ならこれでしょ。

http://www.total7.com/

**デフォルトの名無しさん** · 2011/06/12(日) 15:09:46.67

俺のIDENTIFICATION DIVISIONが（ｒｙ

天使 ◆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

http://itpro.nikkeibp.co.jp/db/article/10005336/

**デフォルトの名無しさん** · 2011/08/21(日) 22:36:52.50

四月から就職してこっち系に配属されてから
いまだにプログラミングができません。
むいてないのかな•••？

**デフォルトの名無しさん** · 2011/08/30(火) 21:56:58.17

>>71
新人さんですか？覚えることたっくさんあるだろうけど、今しばらくは頑張ってみてくださいな

**デフォルトの名無しさん** · 2011/09/03(土) 10:59:21.02

>>71
流れ図(フローチャート)は書けているのかな？
どんな言語も頭の中が整理されてないと形にできないよ。

**デフォルトの名無しさん** · 2011/10/02(日) 13:37:47.41

>>72 >>73
ありがとうございます。
普通なら二ヶ月でマスターできるって上司に聞いたのですが本当ですか？

**デフォルトの名無しさん** · 2011/11/06(日) 01:30:52.99

COBOL って　vim とかemacs
の習得が一番大事じゃないか？

**デフォルトの名無しさん** · 2012/01/27(金) 16:00:49.13

先輩方に聞きたいのだが
cobol入門書として良さげなのあるかな
プログラム組んだこと無いｋｓにご教示お願いします。

文系大学の授業の一環でちょっとCとVB見たぐらい

**デフォルトの名無しさん** · 2012/01/30(月) 21:03:35.69

入門書、、、、、、本自体が少ないと思うが、、、、、
入門書ねぇ

俺は現場でソース見て覚えさせられた口なんで、、、w

**デフォルトの名無しさん** · 2012/02/12(日) 01:44:50.99

COBOLの技術者って絶滅危惧種ということで、引く手あまたってのは
本当なのかい？

**デフォルトの名無しさん** · 2012/02/13(月) 03:27:29.52

産業廃棄物

**デフォルトの名無しさん** · 2012/02/19(日) 22:03:14.74

思い返すとCOBOLについては一切身銭を切ったことがないけど、
困ることが何もなかったのは色々と考えさせられますな。
最近の流行の言語は機能は豊富だけど、学習コストが高すぎるのよね。

**デフォルトの名無しさん** · 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/

**デフォルトの名無しさん** · 2012/02/23(木) 20:20:58.97

COBOLが愛される理由は人海戦術でなんとかなるからじゃないの？

**デフォルトの名無しさん** · 2012/02/26(日) 03:12:44.16

IBM COBOLと富士通COBOLで標準語と大阪弁くらい違うという
噂を聞いたのだが実際どれくらい違うの？
つかどこのコンパイラ使ってる？

**デフォルトの名無しさん** · 2012/02/28(火) 00:29:07.61

　　　　　　　　　　　　　　＿
　　　　　　　　　　　　　 /　　＼―。
　　　　　　　　　　　　（　　　　/　　＼＿
　　　　　　　　　　　　 /　　　　　　　/　　ヽ　　　／￣￣￣￣￣
　　　　　　　　 ...―/　　　　　　　　　　＿）　　＜　ちんちんシュッ！シュッ！シュッ！
　　　　　　　　ノ:::へ＿　＿＿　　　　/　　　　　＼＿＿＿＿＿
　　　　　　　　|／-=o=-　　　　　＼/_
　　　　　　　/::::::ヽ―ヽ　-=o=-＿（::::::::.ヽ
　　　　　　｜○/　。　　/:::::::::　　（:::::::::::::）
　　　　　　｜::::人＿＿人:::::○　　　　ヽ/
　　　　　　ヽ　　　＿＿　＼　　　　　　/
　　　　　　　＼　 |　.::::/.|　　　　　　　/
　　　　　　　　＼lヽ::::ﾉ丿　　　　　／
　　　　　　　　　　しｗ/ﾉ＿＿_-イ
　　　　　　　　　　　∪

**デフォルトの名無しさん** · 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

**デフォルトの名無しさん** · 2012/03/11(日) 01:07:27.92

OS4/XSPで1ファイル10GB位の容量のデータを処理したいんだが何か方法ってないかな？

**デフォルトの名無しさん** · 2012/03/11(日) 12:22:35.24

2038年問題に備えてCOBOLを覚えようと思うんだがどれを覚えればいいの？
それともコンパイラメーカーに依存しない程度にはCOBOLって互換性高いの？

**デフォルトの名無しさん** · 2012/03/11(日) 14:17:26.91

>>87 2038年問題が発生しないOSに差し替えればOK

**デフォルトの名無しさん** · 2012/03/13(火) 18:06:43.64

今あるハードは２０年後には死滅してるだろうけど
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/

**デフォルトの名無しさん** · 2012/05/24(木) 09:36:33.38

えっちなおじさん教えてください
日立COBOL85の変数の初期値って保証されてますか？
C言語みたく明示的に初期化しないとゴミデータが入る可能性ってありますか？

**デフォルトの名無しさん** · 2012/05/28(月) 00:53:59.86

ランタイム依存。あるいはリンケージオプションで保証される。

**デフォルトの名無しさん** · 2012/07/14(土) 08:55:30.70

最近はじめました。
質問があります。

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/

仙谷氏、韓国の“対日感情”高まりに懸念

　民主党・仙谷政調会長代行は１３日、「未来志向の日韓戦略協力」をテーマにした財団法人世界平和研究所の
シンポジウムで基調講演を行い、１２月の韓国の大統領選挙を前に、対日ナショナリズムが韓国国内で高まるこ
とに懸念を示した。

　仙谷氏「相当な鋭い言論によって、どうしても選挙を控えた、あるいは選挙があろうとなかろうと、政治の世界
がそこを無視できなくなる。政治家の仕事は、その種の過剰なナショナリズムに対して、どこまで踏ん張れるかと
いうのが最大の問題、最大の課題だと考えています」

　その上で、仙谷氏は「日韓相互がウィン・ウィンの関係を作るべきだ」として、ロシアの天然ガスやアメリカの
シェールガス開発などを日韓共同事業体で行うことを提案した。

　また、知的財産権の問題などで「日韓がある種の価値観を共有し、国際社会の中でリードするルール作りに積極
的に参加することが重要だ」として、日韓の連携強化の必要性を強調した。

http://www.news24.jp/articles/2012/07/14/04209493.html

**デフォルトの名無しさん** · 2012/07/14(土) 15:22:00.79

ネトウヨ王に、俺はなる！まで読んだ。

**デフォルトの名無しさん** · 2012/07/15(日) 00:06:28.90

DASDってのはハードディスクなんですね
ネットで検索すると仮装テープ装置の製品についてのページが出てきますが、
現状企業でこういったのは使われているんでしょうか？
普通の磁器テープを使用するのが一般的ですか？

**デフォルトの名無しさん** · 2012/07/15(日) 00:37:48.25

>>97
DASDについては、マ板のメインフレームスレで質問したほうが
詳しい人が多いのでオヌヌメ

**デフォルトの名無しさん** · 2012/07/15(日) 03:23:21.61

>>97
磁気ディスク。ほとんどが固定式（ハード）だが一応換装できる
製品もあったような。
磁気テープは、一部のメインフレームで残ってるんじゃあないかな。

**デフォルトの名無しさん** · 2012/07/15(日) 11:26:33.79

やんよ

ってどこの方言？

**デフォルトの名無しさん** · 2012/07/15(日) 16:09:21.83

テープはまだ現役みたいだが

ttp://h50146.www5.hp.com/products/storage/highlights/news_release/100527.html

**デフォルトの名無しさん** · 2012/07/15(日) 17:12:09.98

東北とかじゃね？
関東では聞いたことない

**デフォルトの名無しさん** · 2012/07/15(日) 17:32:27.96

るをんに置き換えるのは神奈川じゃないの？

**デフォルトの名無しさん** · 2012/07/15(日) 17:34:32.09

神奈川に住んでますが、聞いたことない

**デフォルトの名無しさん** · 2012/07/15(日) 19:27:28.30

MSSとかあったよね…

**デフォルトの名無しさん** · 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する件ｗ

**デフォルトの名無しさん** · 2012/07/15(日) 20:34:15.25

皆様ありがとうございました

**デフォルトの名無しさん** · 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

**デフォルトの名無しさん** · 2012/10/08(月) 07:59:50.83

え？

**デフォルトの名無しさん** · 2013/02/09(土) 23:12:26.01

やんよってどこの方言？

東北？

**デフォルトの名無しさん** · 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.

**デフォルトの名無しさん** · 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.

**デフォルトの名無しさん** · 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).

**デフォルトの名無しさん** · 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.

**デフォルトの名無しさん** · 2013/02/11(月) 11:21:30.48

>>111 >>112 >>113 >>114
すみません。これはなんですか？

**デフォルトの名無しさん** · 2013/02/11(月) 11:26:10.04

>>115
http://toro.2ch.net/test/read.cgi/tech/1358572977/

**デフォルトの名無しさん** · 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

**デフォルトの名無しさん** · 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.

**デフォルトの名無しさん** · 2013/02/14(木) 00:45:01.56

*****
FILE-CLOSE SECTION.
*****
CLOSE CHANNEL1.
CLOSE CHANNEL2.
CLOSE PR3.
FILE-CLOSE-EXIT.
EXIT.
*****

**デフォルトの名無しさん** · 2013/02/14(木) 01:41:05.78

>>115
COBOLのソースコードじゃん。

**デフォルトの名無しさん** · 2013/02/18(月) 20:33:40.70

なんだかなつかしいなあ

**デフォルトの名無しさん** · 2013/02/24(日) 22:14:28.26

PERFORM WRITE-RTN THRU WRITE-EXT
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).

**デフォルトの名無しさん** · 2013/02/25(月) 19:03:26.86

>>122WRITE-RTNからWRITE-EXTを、S-IDXを１から始めて１ずつカウントアップし、S-IDXが
10を超過するまで繰り返す…か。

COBOL？極めてやんよ シュッシュ!!

COBOL？極めてやんよシュッシュ!!