【COBOL】コボラー集まれ！！！【事務処理】

**デフォルトの名無しさん** · 2006/05/01(月) 18:32:38

いるだろ？語ろうぜ

**デフォルトの名無しさん** · 2006/05/01(月) 18:39:45

ひょっとしたらマ板の方がいいんじゃない？

**デフォルトの名無しさん** · 2006/05/01(月) 18:56:10

てｓｔ

**デフォルトの名無しさん** · 2006/05/01(月) 19:56:12

コボラーの占有面積は異常に狭い

俺が某保険会社で実際に目撃したものだが、奴らは超旧式なまっ四角で超窮屈な事務机しか与えられていない

その占有面積は俺のデスクの半分以下！

それはきっとコボラーの社会的なステータス自体がドン詰まりである事を表しているに違いない

**デフォルトの名無しさん** · 2006/05/01(月) 20:16:43

こぼるのおっさん

**デフォルトの名無しさん** · 2006/05/01(月) 20:28:54

身も蓋もNothing

**デフォルトの名無しさん** · 2006/05/01(月) 21:49:35

集めたら一網打尽！

**デフォルトの名無しさん** · 2006/05/01(月) 21:58:53

CobolもOOPの時代らしいけど、
そこまでして使いたいものなんかと、小一時間。
それならJavaでええがな。

**デフォルトの名無しさん** · 2006/05/02(火) 11:49:54

COBOLはバカでもできるしオッサンでもできる
もうそこら辺は重々承知してるんでこれ以上イジメんといて下さい

**デフォルトの名無しさん** · 2006/05/04(木) 00:00:53

コボラー集めてどうするの？
やっぱあれ？

**デフォルトの名無しさん** · 2006/05/05(金) 12:04:47

集団自殺

**デフォルトの名無しさん** · 2006/05/05(金) 13:59:16

コボル一筋12年の俺が来ましたよ
しかし、もう辞めたが

**デフォルトの名無しさん** · 2006/05/05(金) 14:40:26

漏れ COBOL は高校でかじっただけだが
COBOL の OOP のコードって見たことないけど
どんなんなってんの？

*想像上のコード*
　
　WORKING-STORAGE SECTION.
　01　KURASU 　　　 PIC CLASS.
　　　　02 MESODDO PIC METHOD　～

*/想像上のコード*

とかそんな感じ？実例見てみてぇー。

**デフォルトの名無しさん** · 2006/05/06(土) 18:43:30

IDENTIFICATION DIVISION.
PROGRAM-ID. ******.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. ****.
OBJECT-COMPUTER. ****.
SPECIAL-NAMES. CONSOLE IS *.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
こんな感じ？

**デフォルトの名無しさん** · 2006/05/07(日) 17:57:13

大文字ってマジで見辛い。

OO機能追加する前に小文字使用をデフォルトにしてくれ

**デフォルトの名無しさん** · 2006/05/08(月) 23:22:10

>>14
項目が何も無いじゃない！
…べ、別に定義して欲しい訳じゃないからねっ！？

個人的にはデータが桁情報持ってたりとか
READ 構文がEOF判定までするところが変わってるなぁと思う

最近は古い言語も小文字デフォだったりするし
小文字の環境もあるんじゃないの？
実際の環境触ってないから分からんが。

**デフォルトの名無しさん** · 2006/05/10(水) 20:14:06

>>16

＞READ 構文がEOF判定までするところが変わってる

いや、オレにはこれが「事務処理特化型」の特徴の一つだと思うよ。

try{
　　read(xxFile);
}
catch(EofException e){
　　eof = true;
}
catch(IOException e){
　　・・・
}
catch(Exception e){
　　・・・
}

こんなのよりも；

READ XXFILE
　AT END MOVE "ON" TO FLAG-EOF.

この方がよっぽど単純だし、信頼性の高い汎用機で動かすなら
これで充分だと思う。

おまけにbuffer/streamなんかの類もコンパイラとOSのタッグで
意識せずに済む。なかなか素敵な話だと思うがね。

**デフォルトの名無しさん** · 2006/05/11(木) 01:41:53

COBOL知らない俺にフリーのCOBOL環境教えて君

**デフォルトの名無しさん** · 2006/05/11(木) 02:24:46

http://www.opencobol.org/

18 · 2006/05/11(木) 04:21:39

>>19
インスコ出来ねーぜちくしょう！
でも教えてくれただけでもまーいーや㌧クス

**デフォルトの名無しさん** · 2006/05/11(木) 15:51:35

>>17
streamの使い方が十分分かっていないのではないか？
上の記述が冗長に見えて、柔軟なのを分からないのが、とってもobsolete.

**デフォルトの名無しさん** · 2006/05/23(火) 11:27:00

ンモーすぐそんな事言う～～

**仕様書無しさん** · 2006/06/02(金) 00:24:15

編成ファイルって何？(ひきよう編成ってあるのか？)

**デフォルトの名無しさん** · 2006/06/02(金) 01:25:00

ttp://ja.wikipedia.org/wiki/%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E7%B7%A8%E6%88%90%E6%B3%95

**デフォルトの名無しさん** · 2006/06/07(水) 21:43:27

高校でCOBOLを習っているのですがテーブルって難しいですね。

**デフォルトの名無しさん** · 2006/06/11(日) 01:23:02

cobolの勉強をはじめました。
どこかにフリーソフトのエディターってあります？勉強で使う程度ですが。

**デフォルトの名無しさん** · 2006/06/12(月) 00:07:00

要点を抑えていないその質問だと、「メモ帳」と言う答えが関の山だと思われ

**デフォルトの名無しさん** · 2006/07/07(金) 18:14:52

いきなり質問で申し訳ないのですが、どなたかご教授願います。
当方COBOL85を使用しているのですが、Write命令で書き込みを
した際、書き込みレコードの後ろの半角文字が削除されてしまいます。
WriteするレコードをDisplayしたところ、きちんと半角文字が入っているの
は確認できます。

どなたか、原因はわかる方いますでしょうか？
宜しくお願いいたします。

**デフォルトの名無しさん** · 2006/07/08(土) 13:32:55

実行ジョブにレコード長という定義はありませんか？

**デフォルトの名無しさん** · 2006/07/08(土) 14:43:59

>>28

＞書き込みレコードの後ろの半角文字

意味ﾌﾒ。日本語ﾖﾛ。
人に説明する能力の不足を自覚してるなら、せめてソース晒してくれ。

>>29

その質問方法では答えようがない。いったい何を訊きたいのだろ。ハァ

**デフォルトの名無しさん** · 2006/07/20(木) 11:42:01

最近、コボルトをコボルといい間違える。
DDOやってて、コボル・アソールトとか言ってる。

**デフォルトの名無しさん** · 2006/07/20(木) 12:03:30

あんだｺﾗｧ!
くだらねぇこと言ってんとコボるぞﾃﾒｰ!!

**デフォルトの名無しさん** · 2006/07/20(木) 12:36:15

うわぁ、コボラーの猛攻撃だぁ

**デフォルトの名無しさん** · 2006/07/23(日) 02:08:40

質問です。
入力ファイルをチェックして、正常分と異常分に振り分ける
プログラムを作ろうとしています。
１レコード毎に振り分けるのなら簡単なのですが、自分が作ろうとしているのは、
連続した複数レコード単位にチェックして、その中で１レコードでも異常なら、
そのまとまったレコードを全て異常分に出力するという仕様になっていて、
どのように実装するか悩んでいます。

最初は、配列を使おうと思ったのですが、レコードの件数は不定で、
何万件もある場合もあるので、汎用性がないということでボツにしました。
そこで次に考えたのは、チェック結果が確定するまで、一時的に作業用の
出力ファイルに溜め込んでいって、判定が確定したら、作業用のファイルを
一旦クローズして、再度入力モードでオープン＆リードし、ＥＯＦまでそのまま
正常分か異常分に出力し、その後作業用ファイルをクローズ＆再度出力モードで
オープンし、次の連続レコードを溜め込む・・・というのを繰り返すという方法です。

このように、１つのファイルのオープン＆クローズを何度も行うやり方っていうのは
どうなんでしょうか？
一つのプログラムでやるとなると、これぐらいしか思いつかないのですが、
もっと賢いやり方はありますか？

**デフォルトの名無しさん** · 2006/07/24(月) 10:16:09

>>34
何で二つのプログラムに分けないの？

**デフォルトの名無しさん** · 2006/07/25(火) 01:49:37

　　　　　　　　　　　　 |
　　　　　　　　　　　 |　　なんでだろ～♪
　　　　　　　　　　　　　＼＿＿＿＿＿　＿＿＿＿＿
　　　　　　　　　　　　　　　　　　　　　　V
　　　　　　　_,ヾゝｰ'"'"'"ｰ､,;　　　　,.:-‐―‐-.､_
　　　　　　,ﾗ　　　､_　　　　ヽ,､　／　　　　　　　＼
　　　　　ｲ　 r-'ｰﾞ　"ー‐､,　ﾐ/　　　　　　　　　　ヽ
　　　　　 i!　 ,!　　　　　　　i! ミi　　　,ﾊ　　　　　　　 i
　　　　　 ,j　i /ニ=､　 ,r==､i ,,ﾊ ,ﾉヽi! ﾞ'ﾚ＞ヾ-､　,!r'
　　　　　 i V　<(･)>i　i!(･)>ﾞ!,i　 !!ｲ(･)） <.(･)>ﾞ　i /!i
　　　　　ﾞ!ji!　　　., j .i_　　 /j 　 i　　｡｡,　　　ﾄ-'
　　　　　　,ｨi:.　 ;" ｰ-‐' 　ﾄ'　　 .! 　 ,.=､　　 /￣￣ﾞｰ-､＿
　　　　__ノ !ﾊ　　 : 0 ;　 ,/　_,.-‐''＼ﾞ＝''　 ,／
　　／　　　＼＼　￣ ,／／　　　　　ﾞｰ-‐‐"
／　　　　　　＼.ﾞー-ｲ ,/

**デフォルトの名無しさん** · 2006/07/31(月) 21:37:18

>>34

マッチングしながら、ワークにデータをタンクしておいて
エラーがあったら出力でいいと思うよ。
適当にテーブルをワークをとっておき、自分の想定以上の
データ数が来たときには、ディスプレイで表示し後で
テーブルを修正。
効率は悪いけど、わかりやすいと思うよ。

>>28
書き込みしたファイルをコードで見れば
わかる。

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

今日､会社で手足を縛られた上、ｺﾎﾞﾙを無理やり教えられました。
明日も明後日もです・・・。
うう・・・ただの事務屋なのに・・・。
明日は朝からコーディングシートに鉛筆でなにやらかかされるそうです

**デフォルトの名無しさん** · 2006/09/01(金) 15:44:01

コボルをおぼえるなら今のうちだぞ。
現役コボラーのおじさん達が引退するのは
もう間もなくだ。
その後、コボルで作ったシステムの面倒を
誰が見るよ？
メンテするにもリプレースするにも
コボラーが必要になるんだよ。

**デフォルトの名無しさん** · 2006/09/02(土) 08:22:58

そのおじさん達にまともな仕様書を作らせておけば、
COBOLを熟知していない漏れが面倒みるのもやぶさかではないが。

まあ、長い人生において一度くらいは紙に鉛筆使って設計するのも
悪くない経験だろ。

役には立たんが。（ｗ

**デフォルトの名無しさん** · 2006/09/02(土) 08:59:33

一度ならな

**デフォルトの名無しさん** · 2006/09/08(金) 23:48:22

質問です。
PROCEDURE DIVISION.
MEIN.
PREFORM READ_RTN.
STOP RUN.
READ_RTN.
READ INFILE AT END FLG = 1
END-READ.
と
PROCEDURE DIVISION.
MEIN.
PERFORM UNTIL FLG = 1
PERFORM READ_RTN
END-PERFORM.
STOP RUN.
READ_RTN.
READ INFILE AT END FLG = 1
END-READ.
・・・は同じですか？

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

>42

釣り？

これ、コンパイル、通ります？

> READ INFILE AT END FLG = 1

これ
READ INFILE AT END
MOVE 1 TO FLG
END-READ.

だったら分かるんだけど、今の COBOL（ってオレが使ってるのは COBOL88だけど）
そんな代入できるの

**デフォルトの名無しさん** · 2006/09/09(土) 00:25:03

昔の二種Lvの俺の話で良いなら。

本当にコードがそれだけなら一緒だな。
INFILE読むだけで何もしてないからｗ

それ以前にOPENやCLOSEしてなくて大丈夫なのか？とか
ピリオドの位置ってそれで良いのか？とか
疑問は尽きないわけだが…

で、マジレスするなら
INFILEが空でない限り違うと思うぞ。

下のコードはループしてないから
ファイルが終端であろうとなかろうと
１レコード読んで終わるんでね？

**デフォルトの名無しさん** · 2006/09/09(土) 00:28:01

MEIN.

**デフォルトの名無しさん** · 2006/09/09(土) 00:29:28

>>45
そこは多分合ってるかと。
コボラー的には。

**デフォルトの名無しさん** · 2006/09/09(土) 15:55:11

COBOLerのローマ字文化はそこそこ理に適ってる

・予約語の数がハンパじゃない
・フルスペル
・環境によって存在する予約語とない予約語がまちまち

COBOLがこんなだからローマ字文化にもなる訳だが
他言語にまで持ち込むのは止めて欲しい罠

42 · 2006/09/10(日) 19:24:02

あ、すみません、初心者なので。。。
知りたいのは

PERFORM UNTIL ～～
PERFROM READ_RTN
END-PERFORM.
と
PERFORM READ_RTN.
だとREAD_RTNを通る回数が同じになるのかを知りたかったんです

**デフォルトの名無しさん** · 2006/09/10(日) 20:10:20

>>48
>>44

**デフォルトの名無しさん** · 2006/09/10(日) 20:11:44

あ、>>44は一部誤りがあるな。
ループしてないのは上のコード。

**デフォルトの名無しさん** · 2006/09/10(日) 20:15:40

つーか藻舞 UNTIL の意味解ってんの？
解ってたらこんな質問出ないハズ。

**デフォルトの名無しさん** · 2006/09/16(土) 10:12:06

openCOBOLは、変数名に漢字を使える？

**デフォルトの名無しさん** · 2006/09/16(土) 13:31:43

使えない

**デフォルトの名無しさん** · 2006/09/25(月) 00:27:31

COBOLerは、何故態度がでかいのでしょうか

**デフォルトの名無しさん** · 2006/09/25(月) 01:30:54

>>54
逆だよ。

歳ボケ＋歳のせいにする→他の言語を覚えない

実力主義の人→COBOLだけでは立場がないと考える
年功序列主義→年上が偉いと考える

つまりCOBOLerだから態度がでかいのではなく
そういう性格だからCOBOLerなんだよ

**デフォルトの名無しさん** · 2006/09/25(月) 23:25:07

お勧めの入門サイトある？

**デフォルトの名無しさん** · 2006/09/26(火) 04:52:15

>56
言語そのものの入門ならググればすぐ出てきたよ。

ひよこグミ
ttp://www16.plala.or.jp/hiyokogumi/
入門者にゃ良いかもな。
但し、コイツのギャグセンスに耐えられる人向けであることを補足しておく。

COBOL入門
ttp://ueno.cool.ne.jp/shirokaze185/htcobol.html
これで十分な人はこれで十分かも。

でも、一番の問題はセットアップかなぁ。

**デフォルトの名無しさん** · 2006/09/27(水) 22:16:56

>>57
ありがとうございます
そうなんです、NetCOBOL体験版をみつけたんですが
プログラムを始めるとこまでなかなかいけなくて……

**デフォルトの名無しさん** · 2006/09/29(金) 18:15:34

>>58
COBOL85はとっつきやすくてよいかも知れません。
もう使い方忘れたけど。

2006/09/30(土) 04:33:33

やっと、OpenCOBOL (Cygwin版) のインスコ出来たので報告。

1. Cygwin公式サイト(英語) から setup.exe を落とす。（Ｅみたいな形のアイコン）
2. 落とした setup.exe を起動して全部デフォルトで。インスコ始まったら待て。
3. インスコが終わったら、ショートカット作成するか訊いて来るがこの時点では関係なし。
4. もう一度 setup.exe を起動して、今度は途中のURLがズラーっと並んでる画面。
　　下の User URL: のボックスに（頭の h は補完してね）
　　ttp://members8.tsukaeru.net/pegstyle/cygwin/
　　と入れて次の画面へ。
5. Select Packages 画面。これはツリーになってるので + をクリックすれば展開できる。
　　Devel -> opencobol: COBOL compiler （かなり下の方にある）を見つける。
7. その行にリサイクルみたいなマークと Skip と書かれてる。
　　このマークは Skip -> バージョン番号 -> 別のバージョン番号 -> とクリックする度に変わる。
9. バージョン 0.32（正式版）か 0.33（テスト版）にして、次の画面へ。
10. 後はそのまま。最後にまたショートカット作成するか訊いて来るからチェック入れる。
11. 0.32 を入れた場合、cygltdl-3.dll のバージョンが新し過ぎて動かないので古いバージョンを入れる。
　　入手先は ttp://members8.tsukaeru.net/pegstyle/cygwin/cygltdl-3.zip 。

参考URL:
ttp://jp.opencobol.org/modules/mydownloads/
あとはCygwin関連のサイト諸々。

2006/09/30(土) 04:47:06

ショートカットから Cygwin 起動 → cat > test01.cob

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. TEST01.
000030*
000040 ENVIRONMENT DIVISION.
000050*
000060 DATA DIVISION.
000070*
000080 PROCEDURE DIVISION.
000090 MAIN.
000100 　　DISPLAY "TEST"
000110 　　STOP RUN.

Ctrl+D で入力終了。

（2chで空白の入れ方判らんから行番号付きにして、
　Ｂ領域の頭に入れる４つの半角スペースは全角２個で書いた）

cobc test01.cob でコンパイルして ./test01.exe で実行。

TEST

と出た時には感動と同時に４ヶ月半の疲れがどっと出たぜ……
もうなんか COBOL とかどうでも良くなったｗｗｗ

ちなみに上では cat > ファイル名でやっちゃったけど
エディタは EUC+LF改行に対応してるヤツを使えばＯＫぽい。

2006/09/30(土) 04:51:42

間違えた。SJIS+LF 臭い。何だ初めて聞いたぞこんな組み合わせ。

**デフォルトの名無しさん** · 2006/10/07(土) 23:37:00

ソースコード検索エンジンでCOBOLに対応しているところはないでしょうか？
http://koders.com/やhttp://www.krugle.com/では対応していませんでした。

**デフォルトの名無しさん** · 2006/10/08(日) 04:53:58

新人に汎用機のデカさやＴＳＳを嬉々として説明してる自分に老いを感じた

**デフォルトの名無しさん** · 2006/10/08(日) 11:06:40

COBOLScriptなんてブッ㌧だ代物が存在するんだな…ｗ
思えば書けるプログラムの規模はスクリプト並だが
書く時の面倒臭さは汎用言語を上回るCOBOLって救えねぇ…ｗ

**デフォルトの名無しさん** · 2006/10/10(火) 21:33:35

学校でCOBOL習ってるがさっぱりだ

**デフォルトの名無しさん** · 2006/10/10(火) 22:29:27

君にはプログラミングのセンスがありません

**デフォルトの名無しさん** · 2006/10/10(火) 23:06:57

辛辣な意見をありがとうございます

**デフォルトの名無しさん** · 2006/10/13(金) 01:52:05

高校普通科→大学文系→就職：プログラマー
これ最強コンボ

**RAG** · 2006/10/17(火) 19:57:35

始めまして。早速ですがわからないことがあるので教えて下さい。

例）
*ソート命令サンプルプログラム

－－－－－中略－－－－－

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. UP4800.
OBJECT-COMPUTER. UP4800.
*
INPUT-OUTPUT SECTION.
FILE-CONTROL.

SELECT OTFILE1 ASSIGN TO OTFILE1-MSD
ORGANIZATION SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS FO1-STATUS.

－－－－－中略－－－－－

OPEN OUTPUT OTFILE1.

続きます。。。

**RAG** · 2006/10/17(火) 19:58:53

上のようなプログラムの場合なんですが、このOUTPUT【OTFILE1】は
どこに出力されるのですか？
他のCOBOL関係のサイトを見てみたんですが、

例２）
INPUT-OUTPUT SECTION. *>入出力節の宣言文
FILE-CONTROL. *>ファイル管理段落の宣言文
SELECT F1 ASSIGN TO "C:\dat\c005.dat". *>利用ファイルの詳細

みたいに他ではパスとファイル名まで書かれているのにこのOUTPUT【OTFILE1】は
『OTFILE1-MSD』に出力する（？）みたいな事になっています。
イメージとして『OTFILE1-MSD』はなんかの定数で
別で『OTFILE1-MSD ＝ "C:\dat\c005.dat"』
のようなモジュール（？）があるのでしょうか？

わかりにくくてすみません。
わかる方がいらっしゃいましたら教えて下さい。

**デフォルトの名無しさん** · 2006/10/17(火) 23:05:06

>>71
製品によるけど環境変数等で設定されてるはず

**デフォルトの名無しさん** · 2006/10/17(火) 23:23:33

Windowsの統合開発環境か何かでやってるかい？
であれば実行時に環境変数を指定するウインドウとか出てこない？

**デフォルトの名無しさん** · 2006/10/18(水) 00:11:14

久しぶりに無性にJCLを書きたくなってしまって書いた。
現場を離れてみて思い起こすと、未だにあの使いにくいCUIでコーディング・テストとか
やってるなんて浮世離れしている感があるなあ…

//TEST　　JOB CLASS=U,MSGCLASS=X
//JOBLIB　　DISP=SHR,DSN=HOGE.LIB
//JOBCAT　DISP=SHR,DSN=HOGE.CAT
//TEST01 EXEC PGM=HOGE01
//OTFILE-1MSD　DD　DISP=(NEW,CATLG),DSN=TEST.HOGE,
//　　　　　　UNIT=DASD,VOL=SER=HOGEVL,
//　　　　　　DCB=(RECFM=FB,LRECL=115,BLKSIZE=23000),
//　　　　　　SPACE=(TRK,(1,1),RLSE)
//SYSOUT　 SYSOUT=*

**デフォルトの名無しさん** · 2006/10/18(水) 09:20:24

>>72
>>73 さん

回答、ありがとうございます。
詳しくは言えないのですが、現状、手元には上記にのソースがある(.cobファイル)のみで
Ａ-ＣＯＳをＡＳＰ．ＮＥＴにオープン化する際の解析段階の事をしています。

環境変数等で設定されているという事はソース上では分からないという事でいいんですよね？
>>72
>>73 さん
その他の方々、よろしければ返事をお願いします。

**デフォルトの名無しさん** · 2006/10/18(水) 23:30:36

どこかでOTFILE1-MSDをACCEPTしてない？

**デフォルトの名無しさん** · 2006/10/19(木) 00:14:51

>>75
NetCOBOLならIDEから設定できる

**デフォルトの名無しさん** · 2006/10/20(金) 00:02:12

COBOLってどんな仕事やってる？
大至急覚えないといけなくなったんだけど
文法覚えた後なにしようか迷う

**デフォルトの名無しさん** · 2006/10/20(金) 01:46:49

ファイルの読み込み→編集→ファイル出力または帳票出力
が王道パターン。Oracleと組み合わせてPro*COBOLなんかも。

**デフォルトの名無しさん** · 2006/10/20(金) 04:07:31

>>78
メンテ

**デフォルトの名無しさん** · 2006/10/20(金) 23:11:00

そしておいらにもメンテの仕事がまわってきたよ
ソース解析するのに便利なツールなんかある？

**デフォルトの名無しさん** · 2006/10/29(日) 03:14:06

俺はコボラーでいまだに、コボルで開発やっている。
先がないのは、わかっているので、今後を見据えて
Ｊａｖａ、ＶＢ．ＮＥＴ、ＶＢ６、ＡＣＣＥＳＳを
かじった。今後専門的に伸ばしていくには
どれがよいか教えて。

**デフォルトの名無しさん** · 2006/10/29(日) 16:43:02

DB2,OracleなどのRDBの基礎とSQLだろ。

別にExcel+VBAでもエキスパートになれば食う分には困らんと思うが。

**デフォルトの名無しさん** · 2006/11/04(土) 20:42:44

>>82
コボラ（上がり）は何故全角文字を使いたがるのだろう？
教えてけれ。

**デフォルトの名無しさん** · 2006/11/10(金) 00:03:05

COBOLって全角半角混在できないでしょ？

**デフォルトの名無しさん** · 2006/11/10(金) 21:59:13

漏れはそれよりもソースリストの注釈をｶﾞﾝｶﾞｯﾃ半角カナで入れられる
方がなんとなくムカつくんだけど。

**デフォルトの名無しさん** · 2006/11/11(土) 13:14:44

S9(3) COMP-3 から　X(2)　に項目移送するってできんの？？

**デフォルトの名無しさん** · 2006/11/11(土) 15:34:10

>>87

なにがしたいんだ？

3桁の数値しかもパック項目をX（２）って・・・

俺だったら一旦、
S9(3)COMP-3 → S9(3) →　X(3)

にするが、＋-がわからなくなってしまうので考慮が必要。

87 · 2006/11/11(土) 21:38:56

X(3)の間違いでした。。すみません。
やっぱS9(3)を挟まないとダメなんですかね？

**デフォルトの名無しさん** · 2006/11/12(日) 00:01:31

01 NULLPO COMP-3.
　03 A PIC S9(03)　VALUE -111.
01 GATT.
　03 B PIC X(02).
******

MOVE NULLPO TO GATT.

↑のコーディングで
Bの中身は「111D」（パックで-111）になるはずだけど、
こういう何をやりたいのかわかりにくいコーディングは糞なのでおすすめしない。

**デフォルトの名無しさん** · 2006/11/12(日) 00:30:04

ああ、>>89見てなかった。

基本的には　S9　→　X　はダメ。
ただし、S9をREDEFINESや集団項目でXタイプにみたてて送り出すなら転記可能。

しかし、X(3)の中にどういうデータを入れたいのか明確にしないとバグになるぞ。

-111だとしたら
「F1F1F1」ならS9(3)COMP-3 → 9(3) →　X(3)
「F1F1D1」ならS9(3)COMP-3 → S9(3) →　X(3)
「60F1F1F1」ならS9(3)COMP-3 → -(4) →　X(4)

**デフォルトの名無しさん** · 2006/11/12(日) 00:56:34

くそう、コードを書かれだすと叩きにくくなるな。
何書いてあるのかさっぱりわからん。

87 · 2006/11/12(日) 01:13:29

>91
理解しました。有難う御座います。

**デフォルトの名無しさん** · 2006/11/13(月) 20:03:54

>>92
ぷ

**RAG** ◆nOA3ItxPxI · 2006/11/14(火) 16:06:31

すみません，またまた質問させて下さい。

----------------------------------------------
01 WK-NUM.
02 WK-NUM01 PIC ------.999.
----------------------------------------------

上記の『 WK-NUM01 』に「-123456.123」をｾｯﾄすると
ｱﾎﾞｰﾄしちゃいますか？

**デフォルトの名無しさん** · 2006/11/15(水) 03:50:39

桁あふれは一般的には切り捨て。
ていうか、そういうのは文法書みるとか、マニュアルみるとかしな。

**デフォルトの名無しさん** · 2006/11/15(水) 17:22:07

マニュアル、でふと思った
無料でオンラインの文法書ってあります？

**デフォルトの名無しさん** · 2006/11/15(水) 18:51:39

>>97
たくさんあるよ、ただ版がね

**デフォルトの名無しさん** · 2006/11/17(金) 01:10:24

他の高級言語と違って、COBOLの文法は初見だとよく分からん。

**デフォルトの名無しさん** · 2006/11/17(金) 10:55:31

>>99
他の高級言語の範囲が広くなるとそうもいってられない。
というか、COBOLぐらいなんてことはない。
むしろ、よさが分かる。[EOR]

**デフォルトの名無しさん** · 2006/11/18(土) 09:26:19

>99
俺の場合、文法よりもデータ構造に戸惑った

各itemの定義（数値n桁や文字x桁）の仕方だけでなく
レコードと各要素の関係まで全て桁がベースになってるのには驚いたよ

例えばレコードＲの各要素にデータ突っ込んで
Ｒを取り出したら繋がった内容が出て来たりとか

逆にＲに１行突っ込むと勝手に桁で区切って
各要素に分解されたりとかそのへん

**デフォルトの名無しさん** · 2006/11/18(土) 20:43:21

>>101
Cobolいいよね＾＾

**デフォルトの名無しさん** · 2006/11/18(土) 20:58:29

>102
良いか悪いかはまた別の話

**RAG** ◆nOA3ItxPxI · 2006/11/29(水) 15:44:18

すみません。またまた質問させてください。

----------------------------
02 WK-A PIC X(02) VALUE ""3F75"".
02 WK-B PIC X(02) VALUE ""3F76"".
----------------------------

これって何で2バイト領域に6(?)・4(?)バイトのものがデフォルト設定
出来るのですか？
教えて下さい。

**デフォルトの名無しさん** · 2006/11/29(水) 21:12:02

stop run

**デフォルトの名無しさん** · 2006/11/30(木) 22:32:03

>>104
釣りか？

3F75と3F76って何かしってる？

**デフォルトの名無しさん** · 2006/11/30(木) 22:42:32

go to >>105

**RAG** ◆nOA3ItxPxI · 2006/12/01(金) 08:51:31

>>106
レスありがとうございました。
書き込みが遅くなりましたが、あの後自己解決（？）しました。
ネットで調べてみると”漢字”の前後に付加するコードなんですね。

でも仕事で見ている他のプログラムは付けていないのもあってどういう
時にコードを付加するのかは未だに理解できてません。

とりあえず，ありがとうございました。

**RAG** ◆nOA3ItxPxI · 2006/12/06(水) 18:24:06

ここのみなさま方，お疲れ様です。

すみません！！最後にしますので，教えていただけないでしょうか？

>>95 が解決しませんでした＿|￣|○

01　A　PIC　------9.999;
01　B　PIC　 -----9.999;　

が宣言されていて

『-123456.123』

をAとBにｾｯﾄすると

A＝-123456.123
B＝123456.123

という解釈でよろしいのでしょうか？

どなたかご回答をお願いします。

**デフォルトの名無しさん** · 2006/12/07(木) 07:43:26

符号部は桁落ちしないだろ。
B=-23456.123

**RAG** ◆nOA3ItxPxI · 2006/12/07(木) 16:49:46

>>110　さん
ありがとうございました。

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

補足しちゃいます。
---.99の場合、---と－が３つありますが、このような数字編集を浮動挿入編集と
いいます。－の挿入位置が次のように浮動するからです。
|－|？|？|．|？|？|
|△|－|？|．|？|？|
|△|△|－|．|？|？|
浮動挿入の場合、先頭の－は、符号確保用で数字が入ることはありません。
続く２つの－は符号・数字を格納する桁です。すなわち、---.99と同等の
キャパシティを持ったゾーン10進は、
　PIC S999.99 USAGE IS DISPLAY.
ではなく、
PIC S99.99 USAGE IS DISPLAY.
です。私の知っているCOBOLコンパイラは、一旦このような相当するゾーン
10進に変換した後で、編集を行うようなオブジェクトを出しているようです。
PIC -----9.999ですと、PIC S99999.999 USAGE IS DISPLAYですので、
-123456.123は、-23456.123に変換された後で編集されることになります。

**デフォルトの名無しさん** · 2006/12/17(日) 20:00:51

ピリオドが必要だったり不要だったりしてややこしい。

**デフォルトの名無しさん** · 2006/12/17(日) 23:53:10

COBOLって関数(値を返すサブルーチン)はないのでしょうか？

**デフォルトの名無しさん** · 2006/12/18(月) 00:48:06

組み込み関数くらいならあるでしょう。
FUNCTION LENGTHとかFUNCTION ～って奴。
あと、特殊名称とかで戻り値を拾って来れたはず。

**デフォルトの名無しさん** · 2006/12/18(月) 08:04:33

program-status

**デフォルトの名無しさん** · 2006/12/18(月) 08:15:31

ユーザ定義関数は、2002にはある。
＞http://www.cobol.gr.jp/knowledge/next_standard/standard0002/chap08.pdf
が、使ってるところはありそうもないな。

**デフォルトの名無しさん** · 2006/12/20(水) 16:51:57

すいません、質問なんですけど
SELECT ○○○ ASSIGN ○○○-DS
ORGANIZATION RELATIVE
ACCESS DYNAMIC
KEY ○○○-KEY.
というファイルを　I-O　で　OPEN　して
ACCEPT　○○○-KEY.
READ ○○○ RECORD INVALID
MOVE "1" TO W-INVFLG
END-READ.
という風に書くとコンパイルできないんですけど何故なんでしょう？
○○○-KEYはWORKING　STRAGE　に定義してるんですけど…
どなたか教えていただけませんでしょうか

**デフォルトの名無しさん** · 2007/01/21(日) 23:01:06

ＣＯＢＯＬは永遠に不滅なり～！

**Taku** · 2007/01/21(日) 23:03:42

Performを使えば構造化出来て、GO TO使えば生産性の良いプログラムが作れるＣＯＢＯＬは
情報処理を行う技術者の永遠の救世主なり！

**デフォルトの名無しさん** · 2007/01/21(日) 23:42:51

PERFORM SUB-SEX-RTN THRU SUB-SEX-END UNTIL SYASEI-SW = 1.
...
SUB-SEX-RTN.
COMPUTE ROUNDED MANKO = TINPO * SEIEKI.
IF MANKO > 100
MOVE 1 TO SYASEI-SW.
SUB-SEX-END.
EXIT.

失敬！！！

**デフォルトの名無しさん** · 2007/01/21(日) 23:52:50

ローカルでしか使わない変数どうやって管理すればいいんだよぅ

**デフォルトの名無しさん** · 2007/01/22(月) 00:10:46

真のコボラーは、ローカル／グローバルなんて意識しません。
すべてグローバルでいいんです。
そんなの意識するから生産性が落ちるんですよ！！！！！

**デフォルトの名無しさん** · 2007/01/24(水) 01:57:23

コボルって随分と時間が止まってるんですね

**デフォルトの名無しさん** · 2007/01/25(木) 00:02:27

COBOLに関して質問なんですが、どなたか教えていただけないでしょうか？
主キー(RECORD KEY)のみを指定して、
索引ファイル(REIDAI)を、順呼び出しで読む場合、
下記の様なプログラムで主キーの昇順に最初から最後までレコードを
読めるのでしょうか？
それとも主キーの昇順に最初から最後までレコードを読むためには
READ文の前に何か位置を決めるような処理が必要だったり、
READに何か付け足したりする必要があったりするのでしょうか？

OPEN INPUT REIDAI.
KURIKAESHI.
READ REIDAI
AT END
GO TO OWARI
NOT AT END
GO TO KURIKAESHI
END-READ.
OWARI.
CLOSE REIDAI..
STOP RUN.

**デフォルトの名無しさん** · 2007/01/25(木) 00:06:30

OPEN INPUT REIDAI.
スペースが…
　　　　OPEN　INPUT　REIDAI.
KURIKAESHI.
　　　　READ　REIDAI
　　　　　　AT END
　　　　　　　　　GO TO OWARI
　　　　NOT AT END
　　　　　　　　　GO TO KURIKAESHI
　　　　　　END-READ.
OWARI.
　　　　CLOSE REIDAI..
　　　　STOP RUN.

**デフォルトの名無しさん** · 2007/01/25(木) 23:56:02

INITIALIZEってCで言うmemsetみたいなものって認識でいいの？

**デフォルトの名無しさん** · 2007/01/26(金) 01:35:12

>127
C言語のソレは知らんけど…この辺が参考になるか？

ttp://www.ginga.co.jp/kenshu/cobol/initialize.html
ttp://www16.plala.or.jp/hiyokogumi/dic/a_init.html

VALUE句で初期化出来るし、後から初期化するにしても
単体の項目なら MOVE で大抵は事足りるだろうから
必ずしも使うかと言うとそうでも無いんじゃね？

複合項目なら使うかもね、文字数字複合レコードとか。

**デフォルトの名無しさん** · 2007/01/26(金) 01:45:32

何でコボルってあんな仕様なんだよ変数宣言だけで1500ステップってｗｗｗｗｗｗｗｗｗ

**デフォルトの名無しさん** · 2007/01/26(金) 03:44:54

>>129
それだけ業務が大きいってことさ。
行数が減ってもテスト量は減らんぞ。

**デフォルトの名無しさん** · 2007/01/27(土) 03:00:01

>127
主に集団項目(Cでいう構造体)の初期化に使うという意味では、
あたらずも遠からずというところでしょうか。Cの構造体の場合
memsetで、一色、たとえば0x00で初期化してしまえば事足りることが
多いです。しかし、COBOLの場合、メンバのデータ型に応じた初期化が必要と
なることが多いです。INITIALIZE文は、ゾーン１０進メンバは0xf0f0...f0、
パック１０進メンバは0x000...0c、２進メンバは0x0、英数字メンバは
半角スペース、日本語メンバは全角スペース、ポインタメンバはNULLと
いったように、メンバ毎にメンバのデータ型で一番自然な初期値で
初期化を行います。もちろん、「英数字メンバはデータ項目A、日本語
メンバはデータ項目Bの値で初期化する」といった指定も可能です。

**デフォルトの名無しさん** · 2007/03/01(木) 08:25:27

こぼるを馬鹿にする奴は天に唾吐いてるのと同じ

**デフォルトの名無しさん** · 2007/03/01(木) 19:22:47

新規での開発でコボルを使うなんてとんでももない

**デフォルトの名無しさん** · 2007/03/01(木) 21:51:03

それがあるんだよ。新規で。COBOLでWebアプリケーション。しかもWindowsserver。ドットネットは使用禁止。

**デフォルトの名無しさん** · 2007/03/01(木) 21:59:38

それはそれでチャレンジ精神をくすぐられるというかなんというか・・・。

客からすれば動けばいいんだろうけど、それって
JavaとかPHPとか.NETよりも開発コスト低いのか？

どー考えても、JavaやPHPの方が3～10倍ほど効率よく開発できると思うが。

**デフォルトの名無しさん** · 2007/03/01(木) 23:11:38

COBOLって大文字だけで書くの？
ひょっとして、タイピングは昔の機械式タイプライターみたいのでやるの？

**デフォルトの名無しさん** · 2007/03/02(金) 01:09:29

>136
汎用機にだってスクリーンエディタはちゃんとある。
それより昔だとパンチカードになるんじゃないか？

Windows用のCOBOLなんかだと、好みのエディタを使っても良いかと。

**デフォルトの名無しさん** · 2007/03/03(土) 16:49:59

COBOL.Netじゃないのか

**デフォルトの名無しさん** · 2007/03/05(月) 12:01:37

Dをでーと読む
Tをてーと読む

**デフォルトの名無しさん** · 2007/03/05(月) 12:16:45

>>136 ダ・ダ・ダ・ダ・ダーっと右手に紙テープが出てくる。

**デフォルトの名無しさん** · 2007/03/05(月) 20:51:00

隊長！東京湾に怪獣が出現しました！！

**デフォルトの名無しさん** · 2007/03/05(月) 21:05:56

メモリーはCore(CPUではない!)だから、不揮発性だ。

**デフォルトの名無しさん** · 2007/03/13(火) 07:01:40

PRO*COBOLで↓みたいなSQLをフェッチしたいんだけどどうやればいい?
ひょっとしてCOBOLではできないんだろうか…?

SELECT DISTINCT 会社,CURSOR(
　SELECT DISTINCT 支店,CURSOR(
　　SELECT 明細NO,ROWNUM
　　FROM 支店別明細
　),ROWNUM
　FROM 支店別明細
),ROWNUM
FROM 支店別明細

**デフォルトの名無しさん** · 2007/03/13(火) 16:33:39

できるに決まってる
もうちょっと調べれ

**デフォルトの名無しさん** · 2007/03/17(土) 01:00:20

>>144
CURSOR式のところで別のCURSORオープンして、3重ループで回すのかな?
コンパイル通るんだろうか…

**デフォルトの名無しさん** · 2007/03/22(木) 17:31:48

ループカウンタに関して

A-RTN　　　　　　　　　SECTION.
　　PERFORM VARYING IX1 FROM 1 BY 1 UNTIL IX1 > 10
　　　　PERFORM B-RTN.
　　　　PERFORM C-RTN.
　　END-PERFORM.
　　　：
A-EXIT.
　　EXIT.

B-RTN　　　　　　　　　SECTION.
　　MOVE　WK-XXX (IX1)　　TO　SPA-XXX(IX1).
　　　：　　　：　　　　　　　　　　：
B-EXIT.
　　EXIT.

C-RTN　　　　　　　　　SECTION.
　　MOVE　WK-YYY (IX1)　　TO　SPA-YYY(IX1).
略

既存のソースでこういうのを見ると吐き気が・・・

**デフォルトの名無しさん** · 2007/03/22(木) 17:38:06

A-RTN　　　　　　　　　SECTION.
　　PERFORM B-RTN.
　　PERFORM C-RTN.
A-EXIT.
　　EXIT.

B-RTN　　　　　　　　　SECTION.
　　PERFORM VARYING IX1 FROM 1 BY 1 UNTIL IX1 > 10
　　　　MOVE　WK-XXX (IX1)　　TO　SPA-XXX(IX1).
　　　　　：　　　：　　　　　　　　　　：
　　END-PERFORM.
B-EXIT.
　　EXIT.

C-RTN　　　　　　　　　SECTION.
　　PERFORM VARYING IX1 FROM 1 BY 1 UNTIL IX1 > 10
略

こう書いてくれると助かる。
就職してから初めてCOBOLに触れて（社内保守）そんなに経ってないんだけど
ローカル変数が無いと確認する範囲が広すぎて落ち着かない・・・

**デフォルトの名無しさん** · 2007/03/22(木) 21:17:44

そんな書き方したらテスト量が増えるだろ！
Sectionは関数じゃネーンだよ。
真のコボラーなら、余裕で問題無し。と感じるはず。

**デフォルトの名無しさん** · 2007/03/25(日) 00:57:57

>>148
テスト量も増えるし計算量も増えるよね…　＞147
同じループ2回も回さなくても…

**デフォルトの名無しさん** · 2007/03/29(木) 20:05:42

普通は148-149の感覚で問題ないが、IX1をいじるバカがいる特殊な職場だと
146の気持ちもわからんでもない。
そんな糞ソースは普通レビュー段階でボコられるはずだが。

**デフォルトの名無しさん** · 2007/03/30(金) 00:07:24

COBOLにもFOR EACHが欲しい…

**デフォルトの名無しさん** · 2007/03/30(金) 01:54:45

ある意味コボルはアセンブラに近いなw

**デフォルトの名無しさん** · 2007/03/30(金) 13:22:47

ACOS-6

**デフォルトの名無しさん** · 2007/04/08(日) 10:09:03

今年の4月から新入社員研修でCOBOLの勉強をしてるのですが、
家のパソコンで予習・復習したいのでCOBOLの環境（？）を
入れたいのですが、入れ方を教えてください！

**デフォルトの名無しさん** · 2007/04/08(日) 21:02:38

>>154
FreeCOBOL.iNFO～フリーのWindows用COBOLコンパイラまとめ～
http://labs.netbata.com/cobol/
ここら辺りを見たら？

**デフォルトの名無しさん** · 2007/04/08(日) 23:01:40

おすすめの参考書教えろ

**デフォルトの名無しさん** · 2007/04/09(月) 22:38:18

>>155
どうもありがとうございます！

**デフォルトの名無しさん** · 2007/04/10(火) 13:12:44

>>152
生成されるコードはアセンブリとは程遠いんじゃまいか？
それとも最近は改善された？

**デフォルトの名無しさん** · 2007/04/10(火) 21:49:27

こぼるはいい
命令10個おぼえれば仕事できる
もう10年も前に足あらったが今はこぼるがいとおしい

**デフォルトの名無しさん** · 2007/04/10(火) 22:22:12

>>156
現場で動いてるグッチャグッチャなソース

**デフォルトの名無しさん** · 2007/04/11(水) 14:17:32

COBOLはもう滅ぶしかないのだろうか・・・

**デフォルトの名無しさん** · 2007/04/11(水) 23:39:07

COBOLの参考書なんて見たことないな…。
教科書だったら明日から使うけど。

**デフォルトの名無しさん** · 2007/04/12(木) 22:20:35

すんません教えてください。
2chtable から　ita_bangou というデータを埋め込みsqlでとってくる。
fitchでITA-BANGOUにいれる。
ita_bangouがnullの場合、ITA-BANGOUには何がはいるんでしょうか？

後に　IF ITA-BANGOU = NULL と同じ意味になる文を作りたいです。

**デフォルトの名無しさん** · 2007/04/13(金) 06:33:46

初心者質問です。
データベースのtableにある小数点以下まである数値を
SQLで読み込んで演算し結果を表示したいのですが、
小数点が表示されなくなったりしてうまくいきません。
どうすればよいか教えていただけないでしょうか？

**デフォルトの名無しさん** · 2007/04/13(金) 08:47:38

PIC S999.99 で。

**デフォルトの名無しさん** · 2007/04/14(土) 14:47:51

研修でコボルやってるんですけど難しくて
周りについていけないです（＞＜）

**デフォルトの名無しさん** · 2007/04/15(日) 23:44:00

>>166
あ、それはもう転職したほうがいい。。
別にプログラムできなくても人生なんにも困らん。

**デフォルトの名無しさん** · 2007/04/19(木) 15:39:31

引数で与えられた秒数ＷＡＩＴさせる方法を教えてください。

**デフォルトの名無しさん** · 2007/04/19(木) 21:24:52

NET COBOLのコンパイルエラーについてどなたか教えてください。

「COPY コピー句名.」だとエラーは出ず、
「COPY コピー句名 DISJOINING AA JOINING BB AS PREFIX.」だと
展開されてるっぽいんだけど文字が置き換わってません。

これだけの情報でもし原因がわかる方がいたらお願いします。

**デフォルトの名無しさん** · 2007/04/19(木) 22:24:46

研修中です。
仕様書に、レコード長５０、ブロック長５０って書いてあります。
BLOCK CONTAINS 50 RECORDS　でいいんですか？

**デフォルトの名無しさん** · 2007/04/20(金) 01:07:06

英語分からんの？

**デフォルトの名無しさん** · 2007/04/20(金) 01:38:02

>>143
CURSOR変数にINTOしてやればFETCHできるんじゃない？

**デフォルトの名無しさん** · 2007/04/20(金) 01:46:54

>>170
ブロック長って指定できたっけ？

>>168
COBOLにwait命令なんて無いから、ミドルウェアの機能を呼び出す。
なければ、Cライブラリのsleepでも呼び出す機能を自前で作る。

**デフォルトの名無しさん** · 2007/04/21(土) 00:58:16

>>143
CURSOR式のCURSORは親レコードがFETCHされた時暗黙でOPENされるから(次の行をFETCHする時CLOSEされる)、
OPENとかCLOSEとか考えずにFETCHすれば良い。

**デフォルトの名無しさん** · 2007/04/23(月) 21:18:46

質問です。
COBOLでJAVAを読む方法を教えてください。

**デフォルトの名無しさん** · 2007/04/23(月) 23:02:54

READ A-REC.
こんな感じか？

**デフォルトの名無しさん** · 2007/04/24(火) 22:51:02

先週研修はじめましたが、詰まっています。
入力ファイルの
SHOHIN-CODE　PIC X(１) の中身が１かつ２なら正常でそのまま出力ファイルの同項目に書き込み、それ以外なら、
ERR-KBN PIC X(1) （注：OCCURS　5　TIMES になっている）のエラー区分(1)に１を入力するという
処理なのですが、IF SHOHIN-CODE = 1 OR 2 THEN CONTINUE ELSE MOVE 1 TO
ERR-KBN(1) END-IF.　でいいのでしょうか？

**デフォルトの名無しさん** · 2007/04/24(火) 23:11:51

>>BLOCK CONTAINS 50 RECORDS　でいいんですか？
こりゃこれは1レコードを1ブロックとする指定
つーつブロックはJCLで指定しなさい

**デフォルトの名無しさん** · 2007/04/24(火) 23:12:43

あ、50レコードを1ブロックとする指定ね

**デフォルトの名無しさん** · 2007/04/25(水) 01:10:32

>>177
>１かつ２なら
１または２なら～だろ。

>IF SHOHIN-CODE = 1 OR 2 THEN
文字だから'1'にしないと一致しないかも。あと
SHOHIN-CODE = '1' OR SHOHIN-CODE = '2'
解釈確認するの面倒だから愚直に書くほうがいい。

**177** · 2007/04/25(水) 23:47:41

>>180
ありがとうございます。
調べまくったのですが、ERR-KBN OF 集団項目というふうにすればＯｋですか？

**デフォルトの名無しさん** · 2007/04/25(水) 23:58:16

>>181
集団項目なくてもコンパイルは通る。いれるのは気分次第かね。

**177** · 2007/04/26(木) 22:35:24

エディターでプログラム入力するとき、スペースキーを使ってはいけないって
本当ですか？
MOVE A TO B　などのように、語と語の間は空白をあけますが、
十字キーでカーソル移動しないと、スペースキーだと空白と認識してしまい、
ビルドしたときにエラーの嵐で大変だと聞いたことがあります。

**デフォルトの名無しさん** · 2007/04/27(金) 07:28:36

クラスごとに小計を出して最後に合計を出すんですけど
どのような命令を出せばいいんですか?
初心者なんでよくわからないんです
誰か教えてください

**デフォルトの名無しさん** · 2007/04/27(金) 08:09:14

>>183
スペースキーでいいよ。ただ漢字の全角空白だとエラーになる。

>>184

COMPUTE SYOKEI-A = 1 + 2 + 3

**デフォルトの名無しさん** · 2007/04/27(金) 20:25:54

COBOLって何ですか？

**デフォルトの名無しさん** · 2007/04/28(土) 00:06:16

僕らには関係ない言語さ

**183** · 2007/04/28(土) 00:38:03

>>185
エディターで最初に全部右シフトとかしないといけなかったようです。
どうもありがとう。

**デフォルトの名無しさん** · 2007/04/28(土) 09:10:34

>>184
そのファイルがクラスの昇順になっているものとして

1 クラスをキーとしてワークエリアに定義しておく
eg 03 WK-KEY01
05 WK-CLASS01 PIC 9(XX)
03 WK-KEY02
05 WK-CLASS02 PIC 9(XX)

2 ファイルを読み出す
3 クラスをキーに入れる
4 最初のみ WK-KEY01をWK-KEY02にセットする
5 ファイルを読んでいく
6 集計するものはこの間にクラス計と全合計に加算
7 キーが違えば集計分を出力クラス計の変数を初期化
8 最後までこの繰り返し
9 最後になればクラス計と全合計を出力して終了

**デフォルトの名無しさん** · 2007/04/28(土) 13:28:03

WORKING STORAGE SECTION　にも　FILE SECTION　にもPICTURE　がありますが、
２つのセクションんってどうちがうんですか？

**デフォルトの名無しさん** · 2007/04/28(土) 13:53:05

>190
その単語が意味する通り。

FILE SECTION はファイル入出力用の領域。
WORKING-STORAGE SECTION は作業用の一時領域。

**デフォルトの名無しさん** · 2007/04/28(土) 23:09:13

Ansiコードで3行改行って指定できないですよね？
出力で3行以上空けてから文字を打ち出したいときはどうしたらいいのでしょうか。

**デフォルトの名無しさん** · 2007/04/28(土) 23:28:58

>>192
１行改行を３回書けばいいだろ。

**デフォルトの名無しさん** · 2007/04/28(土) 23:39:20

でもAnsiコードって1バイト分しか取れないですよね？
すみません、よく理解していなくて。

**デフォルトの名無しさん** · 2007/04/29(日) 00:31:01

>>194
だから、改行文字を３文字書けよ。

**デフォルトの名無しさん** · 2007/04/29(日) 01:51:24

warata

**デフォルトの名無しさん** · 2007/04/29(日) 01:54:04

いいぞ
その調子だ

**デフォルトの名無しさん** · 2007/04/29(日) 12:37:34

そういや、1行戻るってのもあるんだよな
これいっぱい出力したらどうなるかぁ

**デフォルトの名無しさん** · 2007/04/30(月) 12:49:24

初めて来たけど、ACOSの人、多いな。

**デフォルトの名無しさん** · 2007/05/01(火) 19:26:50

研修中です。
二つのファイルのマッチングをやるんですが、なぜ事前にソートするのか？って
聞かれました。効率がいいからではないんですか？ソートしていないバラバラの
状態では、マッチングできないんですか？