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

1 名前：デフォルトの名無しさん [2006/05/01(月) 18:32:38 ] いるだろ？語ろうぜ 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に触れて（社内保守） そんなに経ってないんだけど ローカル変数が無いと確認する範囲が広すぎて落ち着かない・・・ 148 名前：デフォルトの名無しさん mailto:sage [2007/03/22(木) 21:17:44 ] そんな書き方したらテスト量が増えるだろ！ Sectionは関数じゃネーンだよ。 真のコボラーなら、余裕で問題無し。と感じるはず。 149 名前：デフォルトの名無しさん mailto:sage [2007/03/25(日) 00:57:57 ] >>148 テスト量も増えるし計算量も増えるよね…　＞147 同じループ2回も回さなくても… 150 名前：デフォルトの名無しさん mailto:sage [2007/03/29(木) 20:05:42 ] 普通は148-149の感覚で問題ないが、IX1をいじるバカがいる特殊な職場だと 146の気持ちもわからんでもない。 そんな糞ソースは普通レビュー段階でボコられるはずだが。 151 名前：デフォルトの名無しさん mailto:sage [2007/03/30(金) 00:07:24 ] COBOLにもFOR EACHが欲しい… 152 名前：デフォルトの名無しさん mailto:sage [2007/03/30(金) 01:54:45 ] ある意味コボルはアセンブラに近いなw 153 名前：デフォルトの名無しさん mailto:sage [2007/03/30(金) 13:22:47 ] ACOS-6 154 名前：デフォルトの名無しさん [2007/04/08(日) 10:09:03 ] 今年の4月から新入社員研修でCOBOLの勉強をしてるのですが、 家のパソコンで予習・復習したいのでCOBOLの環境（？）を 入れたいのですが、入れ方を教えてください！ 155 名前：デフォルトの名無しさん mailto:sage [2007/04/08(日) 21:02:38 ] >>154 FreeCOBOL.iNFO〜フリーのWindows用COBOLコンパイラまとめ〜 labs.netbata.com/cobol/ ここら辺りを見たら？ 156 名前：デフォルトの名無しさん mailto:sage [2007/04/08(日) 23:01:40 ] おすすめの参考書教えろ 157 名前：デフォルトの名無しさん [2007/04/09(月) 22:38:18 ] >>155 どうもありがとうございます！ 158 名前：デフォルトの名無しさん mailto:sage [2007/04/10(火) 13:12:44 ] >>152 生成されるコードはアセンブリとは程遠いんじゃまいか？ それとも最近は改善された？ 159 名前：デフォルトの名無しさん [2007/04/10(火) 21:49:27 ] こぼるはいい 命令10個おぼえれば仕事できる もう10年も前に足あらったが今はこぼるがいとおしい 160 名前：デフォルトの名無しさん mailto:sage [2007/04/10(火) 22:22:12 ] >>156 現場で動いてるグッチャグッチャなソース 161 名前：デフォルトの名無しさん mailto:sage [2007/04/11(水) 14:17:32 ] COBOLはもう滅ぶしかないのだろうか・・・ 162 名前：デフォルトの名無しさん mailto:sage [2007/04/11(水) 23:39:07 ] COBOLの参考書なんて見たことないな…。 教科書だったら明日から使うけど。 163 名前：デフォルトの名無しさん [2007/04/12(木) 22:20:35 ] すんません教えてください。 2chtable から　ita_bangou というデータを埋め込みsqlでとってくる。 fitchでITA-BANGOUにいれる。 ita_bangouがnullの場合、ITA-BANGOUには何がはいるんでしょうか？ 後に　IF ITA-BANGOU = NULL と同じ意味になる文を作りたいです。 164 名前：デフォルトの名無しさん mailto:sage [2007/04/13(金) 06:33:46 ] 初心者質問です。 データベースのtableにある小数点以下まである数値を SQLで読み込んで演算し結果を表示したいのですが、 小数点が表示されなくなったりしてうまくいきません。 どうすればよいか教えていただけないでしょうか？ 165 名前：デフォルトの名無しさん mailto:sage [2007/04/13(金) 08:47:38 ] PIC S999.99 で。 166 名前：デフォルトの名無しさん [2007/04/14(土) 14:47:51 ] 研修でコボルやってるんですけど難しくて 周りについていけないです（＞＜） 167 名前：デフォルトの名無しさん mailto:sage [2007/04/15(日) 23:44:00 ] >>166 あ、それはもう転職したほうがいい。。 別にプログラムできなくても人生なんにも困らん。 168 名前：デフォルトの名無しさん [2007/04/19(木) 15:39:31 ] 引数で与えられた秒数ＷＡＩＴさせる方法を教えてください。 169 名前：デフォルトの名無しさん [2007/04/19(木) 21:24:52 ] NET COBOLのコンパイルエラーについてどなたか教えてください。 「COPY コピー句名.」だとエラーは出ず、 「COPY コピー句名 DISJOINING AA JOINING BB AS PREFIX.」だと 展開されてるっぽいんだけど文字が置き換わってません。 これだけの情報でもし原因がわかる方がいたらお願いします。 170 名前：デフォルトの名無しさん [2007/04/19(木) 22:24:46 ] 研修中です。 仕様書に、レコード長５０、ブロック長５０って書いてあります。 BLOCK CONTAINS 50 RECORDS　でいいんですか？ 171 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 01:07:06 ] 英語分からんの？ 172 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 01:38:02 ] >>143 CURSOR変数にINTOしてやればFETCHできるんじゃない？ 173 名前：デフォルトの名無しさん mailto:sage [2007/04/20(金) 01:46:54 ] >>170 ブロック長って指定できたっけ？ >>168 COBOLにwait命令なんて無いから、ミドルウェアの機能を呼び出す。 なければ、Cライブラリのsleepでも呼び出す機能を自前で作る。 174 名前：デフォルトの名無しさん mailto:sage [2007/04/21(土) 00:58:16 ] >>143 CURSOR式のCURSORは親レコードがFETCHされた時暗黙でOPENされるから(次の行をFETCHする時CLOSEされる)、 OPENとかCLOSEとか考えずにFETCHすれば良い。 175 名前：デフォルトの名無しさん [2007/04/23(月) 21:18:46 ] 質問です。 COBOLでJAVAを読む方法を教えてください。 176 名前：デフォルトの名無しさん mailto:sage [2007/04/23(月) 23:02:54 ] READ A-REC. こんな感じか？ 177 名前：デフォルトの名無しさん [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.　でいいのでしょうか？ 178 名前：デフォルトの名無しさん mailto:sage [2007/04/24(火) 23:11:51 ] >>BLOCK CONTAINS 50 RECORDS　でいいんですか？ こりゃこれは1レコードを1ブロックとする指定 つーつブロックはJCLで指定しなさい 179 名前：デフォルトの名無しさん mailto:sage [2007/04/24(火) 23:12:43 ] あ、50レコードを1ブロックとする指定 ね 180 名前：デフォルトの名無しさん mailto:sage [2007/04/25(水) 01:10:32 ] >>177 >１かつ２なら １または２なら〜だろ。 >IF SHOHIN-CODE = 1 OR 2 THEN 文字だから'1'にしないと一致しないかも。あと SHOHIN-CODE = '1' OR SHOHIN-CODE = '2' 解釈確認するの面倒だから愚直に書くほうがいい。 181 名前：177 [2007/04/25(水) 23:47:41 ] >>180 ありがとうございます。 調べまくったのですが、ERR-KBN OF 集団項目 というふうにすればＯｋですか？ 182 名前：デフォルトの名無しさん mailto:sage [2007/04/25(水) 23:58:16 ] >>181 集団項目なくてもコンパイルは通る。いれるのは気分次第かね。

---

---

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

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