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

1 名前：デフォルトの名無しさん [2006/05/01(月) 18:32:38 ] いるだろ？語ろうぜ 47 名前：デフォルトの名無しさん mailto:sage [2006/09/09(土) 15:55:11 ] COBOLerのローマ字文化はそこそこ理に適ってる ・予約語の数がハンパじゃない ・フルスペル ・環境によって存在する予約語とない予約語がまちまち COBOLがこんなだからローマ字文化にもなる訳だが 他言語にまで持ち込むのは止めて欲しい罠 48 名前：42 mailto:sage [2006/09/10(日) 19:24:02 ] あ、すみません、初心者なので。。。 知りたいのは PERFORM UNTIL 〜〜 PERFROM READ_RTN END-PERFORM. と PERFORM READ_RTN. だとREAD_RTNを通る回数が同じになるのかを知りたかったんです 49 名前：デフォルトの名無しさん mailto:sage [2006/09/10(日) 20:10:20 ] >>48 >>44 50 名前：デフォルトの名無しさん mailto:sage [2006/09/10(日) 20:11:44 ] あ、>>44は一部誤りがあるな。 ループしてないのは上のコード。 51 名前：デフォルトの名無しさん mailto:sage [2006/09/10(日) 20:15:40 ] つーか藻舞 UNTIL の意味解ってんの？ 解ってたらこんな質問出ないハズ。 52 名前：デフォルトの名無しさん mailto:sage [2006/09/16(土) 10:12:06 ] openCOBOLは、変数名に漢字を使える？ 53 名前：デフォルトの名無しさん mailto:sage [2006/09/16(土) 13:31:43 ] 使えない 54 名前：デフォルトの名無しさん [2006/09/25(月) 00:27:31 ] COBOLerは、何故態度がでかいのでしょうか 55 名前：デフォルトの名無しさん mailto:sage [2006/09/25(月) 01:30:54 ] >>54 逆だよ。 歳ボケ＋歳のせいにする→他の言語を覚えない 実力主義の人→COBOLだけでは立場がないと考える 年功序列主義→年上が偉いと考える つまりCOBOLerだから態度がでかいのではなく そういう性格だからCOBOLerなんだよ 56 名前：デフォルトの名無しさん mailto:sage [2006/09/25(月) 23:25:07 ] お勧めの入門サイトある？ 57 名前：デフォルトの名無しさん mailto:sage [2006/09/26(火) 04:52:15 ] >56 言語そのものの入門ならググればすぐ出てきたよ。 ひよこグミ ttp://www16.plala.or.jp/hiyokogumi/ 入門者にゃ良いかもな。 但し、コイツのギャグセンスに耐えられる人向けであることを補足しておく。 COBOL入門 ttp://ueno.cool.ne.jp/shirokaze185/htcobol.html これで十分な人はこれで十分かも。 でも、一番の問題はセットアップかなぁ。 58 名前：デフォルトの名無しさん mailto:sage [2006/09/27(水) 22:16:56 ] >>57 ありがとうございます そうなんです、NetCOBOL体験版をみつけたんですが プログラムを始めるとこまでなかなかいけなくて…… 59 名前：デフォルトの名無しさん mailto:sage [2006/09/29(金) 18:15:34 ] >>58 COBOL85はとっつきやすくてよいかも知れません。 もう使い方忘れたけど。 60 名前：大分前にOpenCOBOLのインスコに挫折してた人 mailto:sage [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関連のサイト諸々。 61 名前：大分前にOpenCOBOLのインスコに挫折してた人 mailto:sage [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改行 に対応してるヤツを使えばＯＫぽい。 62 名前：大分前にOpenCOBOLのインスコに挫折してた人 mailto:sage [2006/09/30(土) 04:51:42 ] 間違えた。SJIS+LF 臭い。何だ初めて聞いたぞこんな組み合わせ。 63 名前：デフォルトの名無しさん mailto:sage [2006/10/07(土) 23:37:00 ] ソースコード検索エンジンでCOBOLに対応しているところはないでしょうか？ koders.com/やwww.krugle.com/では対応していませんでした。 64 名前：デフォルトの名無しさん mailto:sage [2006/10/08(日) 04:53:58 ] 新人に汎用機のデカさやＴＳＳを嬉々として説明してる自分に老いを感じた 65 名前：デフォルトの名無しさん mailto:sage [2006/10/08(日) 11:06:40 ] COBOLScriptなんてブッ�dだ代物が存在するんだな…ｗ 思えば書けるプログラムの規模はスクリプト並だが 書く時の面倒臭さは汎用言語を上回るCOBOLって救えねぇ…ｗ 66 名前：デフォルトの名無しさん [2006/10/10(火) 21:33:35 ] 学校でCOBOL習ってるがさっぱりだ 67 名前：デフォルトの名無しさん mailto:sage [2006/10/10(火) 22:29:27 ] 君にはプログラミングのセンスがありません 68 名前：デフォルトの名無しさん [2006/10/10(火) 23:06:57 ] 辛辣な意見をありがとうございます 69 名前：デフォルトの名無しさん mailto:sage [2006/10/13(金) 01:52:05 ] 高校普通科→大学文系→就職：プログラマー これ最強コンボ 70 名前：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. 続きます。。。 71 名前：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"』 のようなモジュール（？）があるのでしょうか？ わかりにくくてすみません。 わかる方がいらっしゃいましたら教えて下さい。 72 名前：デフォルトの名無しさん mailto:sage [2006/10/17(火) 23:05:06 ] >>71 製品によるけど環境変数等で設定されてるはず 73 名前：デフォルトの名無しさん mailto:sage [2006/10/17(火) 23:23:33 ] Windowsの統合開発環境か何かでやってるかい？ であれば実行時に環境変数を指定するウインドウとか出てこない？ 74 名前：デフォルトの名無しさん mailto:sage [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=* 75 名前：デフォルトの名無しさん [2006/10/18(水) 09:20:24 ] >>72 >>73 さん 回答、ありがとうございます。 詳しくは言えないのですが、現状、手元には上記にのソースがある(.cobファイル)のみで Ａ-ＣＯＳをＡＳＰ．ＮＥＴにオープン化する際の解析段階の事をしています。 環境変数等で設定されているという事はソース上では分からないという事でいいんですよね？ >>72 >>73 さん その他の方々、よろしければ返事をお願いします。 76 名前：デフォルトの名無しさん mailto:sage [2006/10/18(水) 23:30:36 ] どこかでOTFILE1-MSDをACCEPTしてない？ 77 名前：デフォルトの名無しさん mailto:sage [2006/10/19(木) 00:14:51 ] >>75 NetCOBOLならIDEから設定できる 78 名前：デフォルトの名無しさん mailto:sage [2006/10/20(金) 00:02:12 ] COBOLってどんな仕事やってる？ 大至急覚えないといけなくなったんだけど 文法覚えた後なにしようか迷う 79 名前：デフォルトの名無しさん [2006/10/20(金) 01:46:49 ] ファイルの読み込み→編集→ファイル出力または帳票出力 が王道パターン。Oracleと組み合わせてPro*COBOLなんかも。 80 名前：デフォルトの名無しさん mailto:sage [2006/10/20(金) 04:07:31 ] >>78 メンテ 81 名前：デフォルトの名無しさん mailto:sage [2006/10/20(金) 23:11:00 ] そしておいらにもメンテの仕事がまわってきたよ ソース解析するのに便利なツールなんかある？ 82 名前：デフォルトの名無しさん mailto:sage [2006/10/29(日) 03:14:06 ] 俺はコボラーでいまだに、コボルで開発やっている。 先がないのは、わかっているので、今後を見据えて Ｊａｖａ、ＶＢ．ＮＥＴ、ＶＢ６、ＡＣＣＥＳＳを かじった。今後専門的に伸ばしていくには どれがよいか教えて。 83 名前：デフォルトの名無しさん mailto:sage [2006/10/29(日) 16:43:02 ] DB2,OracleなどのRDBの基礎とSQLだろ。 別にExcel+VBAでもエキスパートになれば食う分には困らんと思うが。 84 名前：デフォルトの名無しさん mailto:sage [2006/11/04(土) 20:42:44 ] >>82 コボラ（上がり）は何故全角文字を使いたがるのだろう？ 教えてけれ。 85 名前：デフォルトの名無しさん mailto:sage [2006/11/10(金) 00:03:05 ] COBOLって全角半角混在できないでしょ？ 86 名前：デフォルトの名無しさん mailto:sage [2006/11/10(金) 21:59:13 ] 漏れはそれよりもソースリストの注釈をｶﾞﾝｶﾞｯﾃ半角カナで入れられる 方がなんとなくムカつくんだけど。 87 名前：デフォルトの名無しさん [2006/11/11(土) 13:14:44 ] S9(3) COMP-3 から　X(2)　に項目移送するってできんの？？ 88 名前：デフォルトの名無しさん mailto:sage [2006/11/11(土) 15:34:10 ] >>87 なにがしたいんだ？ 3桁の数値しかもパック項目をX（２）って・・・ 俺だったら一旦、 S9(3)COMP-3 → S9(3) →　X(3) にするが、＋-がわからなくなってしまうので考慮が必要。 89 名前：87 [2006/11/11(土) 21:38:56 ] X(3)の間違いでした。。すみません。 やっぱS9(3)を挟まないとダメなんですかね？ 90 名前：デフォルトの名無しさん mailto:sage [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）になるはずだけど、 こういう何をやりたいのかわかりにくいコーディングは糞なのでおすすめしない。 91 名前：デフォルトの名無しさん mailto:sage [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) 92 名前：デフォルトの名無しさん mailto:sage [2006/11/12(日) 00:56:34 ] くそう、コードを書かれだすと叩きにくくなるな。 何書いてあるのかさっぱりわからん。 93 名前：87 [2006/11/12(日) 01:13:29 ] >91 理解しました。有難う御座います。 94 名前：デフォルトの名無しさん [2006/11/13(月) 20:03:54 ] >>92 ぷ 95 名前：RAG ◆nOA3ItxPxI [2006/11/14(火) 16:06:31 ] すみません，またまた質問させて下さい。 ---------------------------------------------- 01 WK-NUM. 02 WK-NUM01 PIC ------.999. ---------------------------------------------- 上記の『 WK-NUM01 』に「-123456.123」をｾｯﾄすると ｱﾎﾞｰﾄしちゃいますか？ 96 名前：デフォルトの名無しさん mailto:sage [2006/11/15(水) 03:50:39 ] 桁あふれは一般的には切り捨て。 ていうか、そういうのは文法書みるとか、マニュアルみるとかしな。 97 名前：デフォルトの名無しさん mailto:sage [2006/11/15(水) 17:22:07 ] マニュアル、でふと思った 無料でオンラインの文法書ってあります？ 98 名前：デフォルトの名無しさん [2006/11/15(水) 18:51:39 ] >>97 たくさんあるよ、ただ版がね 99 名前：デフォルトの名無しさん mailto:sage [2006/11/17(金) 01:10:24 ] 他の高級言語と違って、COBOLの文法は初見だとよく分からん。 100 名前：デフォルトの名無しさん mailto:sage [2006/11/17(金) 10:55:31 ] >>99 他の高級言語の範囲が広くなるとそうもいってられない。 というか、COBOLぐらいなんてことはない。 むしろ、よさが分かる。[EOR] 101 名前：デフォルトの名無しさん mailto:sage [2006/11/18(土) 09:26:19 ] >99 俺の場合、文法よりもデータ構造に戸惑った 各itemの定義（数値n桁や文字x桁）の仕方だけでなく レコードと各要素の関係まで全て桁がベースになってるのには驚いたよ 例えばレコードＲの各要素にデータ突っ込んで Ｒを取り出したら繋がった内容が出て来たりとか 逆にＲに１行突っ込むと勝手に桁で区切って 各要素に分解されたりとかそのへん 102 名前：デフォルトの名無しさん mailto:sage [2006/11/18(土) 20:43:21 ] >>101 Cobolいいよね＾＾ 103 名前：デフォルトの名無しさん mailto:sage [2006/11/18(土) 20:58:29 ] >102 良いか悪いかはまた別の話 104 名前：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(?)バイトのものがデフォルト設定 出来るのですか？ 教えて下さい。 105 名前：デフォルトの名無しさん [2006/11/29(水) 21:12:02 ] stop run 106 名前：デフォルトの名無しさん mailto:sage [2006/11/30(木) 22:32:03 ] >>104 釣りか？ 3F75と3F76って何かしってる？ 107 名前：デフォルトの名無しさん [2006/11/30(木) 22:42:32 ] go to >>105 108 名前：RAG ◆nOA3ItxPxI [2006/12/01(金) 08:51:31 ] >>106 レスありがとうございました。 書き込みが遅くなりましたが、あの後自己解決（？）しました。 ネットで調べてみると”漢字”の前後に付加するコードなんですね。 でも仕事で見ている他のプログラムは付けていないのもあってどういう 時にコードを付加するのかは未だに理解できてません。 とりあえず，ありがとうございました。 109 名前：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 という解釈でよろしいのでしょうか？ どなたかご回答をお願いします。 110 名前：デフォルトの名無しさん mailto:sage [2006/12/07(木) 07:43:26 ] 符号部は桁落ちしないだろ。 B=-23456.123 111 名前：RAG ◆nOA3ItxPxI [2006/12/07(木) 16:49:46 ] >>110　さん ありがとうございました。 112 名前：デフォルトの名無しさん [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に変換された後で編集されることになります。 113 名前：デフォルトの名無しさん mailto:sage [2006/12/17(日) 20:00:51 ] ピリオドが必要だったり不要だったりしてややこしい。 114 名前：デフォルトの名無しさん mailto:sage [2006/12/17(日) 23:53:10 ] COBOLって関数(値を返すサブルーチン)はないのでしょうか？ 115 名前：デフォルトの名無しさん mailto:sage [2006/12/18(月) 00:48:06 ] 組み込み関数くらいならあるでしょう。 FUNCTION LENGTHとかFUNCTION 〜って奴。 あと、特殊名称とかで戻り値を拾って来れたはず。 116 名前：デフォルトの名無しさん mailto:sage [2006/12/18(月) 08:04:33 ] program-status 117 名前：デフォルトの名無しさん mailto:sage [2006/12/18(月) 08:15:31 ] ユーザ定義関数は、2002にはある。 ＞www.cobol.gr.jp/knowledge/next_standard/standard0002/chap08.pdf が、使ってるところはありそうもないな。 118 名前：デフォルトの名無しさん mailto:sage [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　に定義してるんですけど… どなたか教えていただけませんでしょうか 119 名前：デフォルトの名無しさん [2007/01/21(日) 23:01:06 ] ＣＯＢＯＬは永遠に不滅なり〜！ 120 名前：Taku [2007/01/21(日) 23:03:42 ] Performを使えば構造化出来て、GO TO使えば生産性の良いプログラムが作れるＣＯＢＯＬは 情報処理を行う技術者の永遠の救世主なり！ 121 名前：デフォルトの名無しさん [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. 失敬！！！ 122 名前：デフォルトの名無しさん mailto:sage [2007/01/21(日) 23:52:50 ] ローカルでしか使わない変数どうやって管理すればいいんだよぅ 123 名前：デフォルトの名無しさん mailto:sage [2007/01/22(月) 00:10:46 ] 真のコボラーは、ローカル／グローバルなんて意識しません。 すべてグローバルでいいんです。 そんなの意識するから生産性が落ちるんですよ！！！！！ 124 名前：デフォルトの名無しさん mailto:sage [2007/01/24(水) 01:57:23 ] コボルって随分と時間が止まってるんですね 125 名前：デフォルトの名無しさん mailto:sage [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. 126 名前：デフォルトの名無しさん mailto:sage [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. 127 名前：デフォルトの名無しさん mailto:sage [2007/01/25(木) 23:56:02 ] INITIALIZEってCで言うmemsetみたいなものって認識でいいの？ 128 名前：デフォルトの名無しさん mailto:sage [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 で大抵は事足りるだろうから 必ずしも使うかと言うとそうでも無いんじゃね？ 複合項目なら使うかもね、文字数字複合レコードとか。 129 名前：デフォルトの名無しさん mailto:sage [2007/01/26(金) 01:45:32 ] 何でコボルってあんな仕様なんだよ変数宣言だけで1500ステップってｗｗｗｗｗｗｗｗｗ 130 名前：デフォルトの名無しさん mailto:sage [2007/01/26(金) 03:44:54 ] >>129 それだけ業務が大きいってことさ。 行数が減ってもテスト量は減らんぞ。 131 名前：デフォルトの名無しさん [2007/01/27(土) 03:00:01 ] >127 主に集団項目(Cでいう構造体)の初期化に使うという意味では、 あたらずも遠からずというところでしょうか。Cの構造体の場合 memsetで、一色、たとえば0x00で初期化してしまえば事足りることが 多いです。しかし、COBOLの場合、メンバのデータ型に応じた初期化が必要と なることが多いです。INITIALIZE文は、ゾーン１０進メンバは0xf0f0...f0、 パック１０進メンバは0x000...0c、２進メンバは0x0、英数字メンバは 半角スペース、日本語メンバは全角スペース、ポインタメンバはNULLと いったように、メンバ毎にメンバのデータ型で一番自然な初期値で 初期化を行います。もちろん、「英数字メンバはデータ項目A、日本語 メンバはデータ項目Bの値で初期化する」といった指定も可能です。 132 名前：デフォルトの名無しさん mailto:sage [2007/03/01(木) 08:25:27 ] こぼるを馬鹿にする奴は天に唾吐いてるのと同じ 133 名前：デフォルトの名無しさん [2007/03/01(木) 19:22:47 ] 新規での開発でコボルを使うなんてとんでももない 134 名前：デフォルトの名無しさん [2007/03/01(木) 21:51:03 ] それがあるんだよ。新規で。COBOLでWebアプリケーション。しかもWindowsserver。ドットネットは使用禁止。 135 名前：デフォルトの名無しさん mailto:sage [2007/03/01(木) 21:59:38 ] それはそれでチャレンジ精神をくすぐられるというかなんというか・・・。 客からすれば動けばいいんだろうけど、それって JavaとかPHPとか.NETよりも開発コスト低いのか？ どー考えても、JavaやPHPの方が3〜10倍ほど効率よく開発できると思うが。 136 名前：デフォルトの名無しさん [2007/03/01(木) 23:11:38 ] COBOLって大文字だけで書くの？ ひょっとして、タイピングは昔の機械式タイプライターみたいのでやるの？ 137 名前：デフォルトの名無しさん mailto:sage [2007/03/02(金) 01:09:29 ] >136 汎用機にだってスクリーンエディタはちゃんとある。 それより昔だとパンチカードになるんじゃないか？ Windows用のCOBOLなんかだと、好みのエディタを使っても良いかと。 138 名前：デフォルトの名無しさん mailto:sage [2007/03/03(土) 16:49:59 ] COBOL.Netじゃないのか 139 名前：デフォルトの名無しさん [2007/03/05(月) 12:01:37 ] Dをでーと読む Tをてーと読む 140 名前：デフォルトの名無しさん mailto:sage [2007/03/05(月) 12:16:45 ] >>136 ダ・ダ・ダ・ダ・ダーっと右手に紙テープが出てくる。 141 名前：デフォルトの名無しさん mailto:sage [2007/03/05(月) 20:51:00 ] 隊長！東京湾に怪獣が出現しました！！ 142 名前：デフォルトの名無しさん mailto:sage [2007/03/05(月) 21:05:56 ] メモリーはCore(CPUではない!)だから、不揮発性だ。 143 名前：デフォルトの名無しさん mailto:sage [2007/03/13(火) 07:01:40 ] PRO*COBOLで↓みたいなSQLをフェッチしたいんだけどどうやればいい? ひょっとしてCOBOLではできないんだろうか…? SELECT DISTINCT 会社,CURSOR( 　SELECT DISTINCT 支店,CURSOR( 　　SELECT 明細NO,ROWNUM 　　FROM 支店別明細 　),ROWNUM 　FROM 支店別明細 ),ROWNUM FROM 支店別明細 144 名前：デフォルトの名無しさん mailto:sage [2007/03/13(火) 16:33:39 ] できるに決まってる もうちょっと調べれ 145 名前：デフォルトの名無しさん mailto:sage [2007/03/17(土) 01:00:20 ] >>144 CURSOR式のところで別のCURSORオープンして、3重ループで回すのかな? コンパイル通るんだろうか… 146 名前：デフォルトの名無しさん mailto:sage [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). 略 既存のソースでこういうのを見ると吐き気が・・・ 147 名前：デフォルトの名無しさん mailto:sage [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に触れて（社内保守） そんなに経ってないんだけど ローカル変数が無いと確認する範囲が広すぎて落ち着かない・・・

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef