【COBOL】コボラー集まれ！2【事務処理】PIC
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2007/11/19(月) 00:36:030655デフォルトの名無しさん
2008/07/19(土) 01:21:10>20代のコボラー
20代は「COBOLも（やれと言われれば）できます」くらいが望ましい
COBOL案件はシステム単位のまっさらな新規受注なんざマジで
皆無（※私感。もしかして、ある所にはあるのか・・・？）。
保守と引き継ぎ、改良依頼だけで家族養うには無難。
やりがい求めたところで乗り切れないぜ。どこに投げ込まれてもやる事は変わらないからね。
会議に出された際に、阿呆web系SEに言いくるめられない程度の
知識、話術があるべきだろうな。実務はどうあれ出来るかぎり把握しておくべき。
やりがいだけで生きたいなら院でうまいこと研究職見つけて
関数型言語中心の屋を目指した方がいい
0656デフォルトの名無しさん
2008/07/19(土) 01:39:56大卒だけどオープン系やるつもりだった、それがCOBOLの部に回された
たしかにいまだ完全な新規はないですね
今後の糧に、有りがたく言葉を受け取っておきます
0657デフォルトの名無しさん
2008/07/19(土) 08:03:42そこに３年以上同じ事の繰り返しだとモチベーションが維持できないだろうなぁ。
そしてウチの会社の例だけどCOBOLの部に５年以上いたら
壊れるまでCOBOLに付き合わされる。俗に言う墓場。
しかし、若い人材だと可能性やら適正やら見る意味で色々な部にまわされると思う。
0658デフォルトの名無しさん
2008/07/19(土) 09:27:47さみしいのう。
0659デフォルトの名無しさん
2008/07/19(土) 13:24:11あの閉塞感は新規開発がないせいか～。
わかることだけ、できるとこだけやっていればいいという雰囲気だーね。
0660デフォルトの名無しさん
2008/07/19(土) 20:29:45動けばいいプログラムつくるな
0661デフォルトの名無しさん
2008/07/19(土) 21:06:06そして、「動くプログラムは全て美しい」だ。
0662デフォルトの名無しさん
2008/07/19(土) 21:20:38なんか久しぶりに見てみたくなりました
ジャンルは問いませんが出来ればサンプルとかじゃなく実用のものを・・・
0663デフォルトの名無しさん
2008/07/19(土) 23:50:30感じるが。
0664デフォルトの名無しさん
2008/07/20(日) 00:16:333案件以上前のソースは残しておいて何か意味あるのかねー…。
COBOLでもリファクタリングしたいよ。
0665デフォルトの名無しさん
2008/07/20(日) 01:51:51コボラーの人たちは外に出てきてほしくありません
つか、組み込みの親分になられるとすごく困ります
0666デフォルトの名無しさん
2008/07/20(日) 02:02:180667デフォルトの名無しさん
2008/07/20(日) 02:48:14でもコボラーを長くなってる人の業務知識はなかなのもんだよ
0668デフォルトの名無しさん
2008/07/20(日) 08:04:470669デフォルトの名無しさん
2008/07/20(日) 08:08:49コボルつったら大型の汎用機で、しかも特定の業務に特化したシステムが当たり前だから
オープンソースってのは難しいだろう。
いまでも、商業系の学校以外じゃ学生が勉強するのは難しいって言われているんだから
（opencobolなんてのもあって、敷居は下がっているけど）
0670デフォルトの名無しさん
2008/07/20(日) 09:29:49COBOL専門にやってたオッサンが、組み込み系事業部の
親分になってしまったんですorz
0671デフォルトの名無しさん
2008/07/20(日) 10:16:32諦めろ。
それかもっと上の上司に相談汁。
0672デフォルトの名無しさん
2008/07/20(日) 18:59:230673デフォルトの名無しさん
2008/07/20(日) 22:10:350674デフォルトの名無しさん
2008/07/20(日) 22:27:40ＩＢＭや富士通とはちょっと違うらしいね。
0675デフォルトの名無しさん
2008/07/21(月) 10:40:380676デフォルトの名無しさん
2008/07/21(月) 19:34:50Cobol/sです。
まだあるのですかね。
0677デフォルトの名無しさん
2008/07/21(月) 21:39:560678デフォルトの名無しさん
2008/07/21(月) 23:09:32ソースコードがそのままドキュメント（詳細設計書）になりますって
うたい文句は良かったんだけどね。
記号だらけの日本語コボルなんて、かえって読みにくくなるだけだったというオチ。
0679デフォルトの名無しさん
2008/07/22(火) 07:47:00Nはそちらの方面弱いので、流通と運輸と官公庁に残っているのみ。
官公庁も汎用機は随意契約につながるから辞めろという命令がTOPから
出ていてお先真っ暗。
0680デフォルトの名無しさん
2008/07/22(火) 10:15:25汎用機、なんでダメなんでしょうねえ・・・。
仕掛けが単純で間違いが起こりにくくていいと思うんですけどねえ。
バリバリ並列処理もできるし。
0681デフォルトの名無しさん
2008/07/22(火) 13:04:150682デフォルトの名無しさん
2008/07/22(火) 19:30:38Ｗｅｂでいいんじゃないでしょうかねえ。
http://www16.plala.or.jp/hiyokogumi/3/300.html
ココとかどうですか？
はあ、仕事が見つからない・・・。
俺の人生をＲＥＤＥＦＩＮＥＳしたい。
ＯＣＣＵＲＳ １００くらいで。
人生のループ、終わっちゃったかな・・・。
もう、ＳＴＯＰ ＲＵＮの時間かも。
あ、そんなの使わないよね。
ＧＯＢＡＣＫします。
0683デフォルトの名無しさん
2008/07/22(火) 21:11:580684デフォルトの名無しさん
2008/07/22(火) 22:01:34並列処理？
マルチプロセル・マルチスレッドならハードと言うよりプログラミングの問題
⇒汎用機でもバッチジョブはシングルスレッド
デュアルシステムなら汎用機の強みだが、最近はオープンでも実現している
⇒NEC ftサーバ
0685デフォルトの名無しさん
2008/07/22(火) 23:38:42使えなさすぎる
0686デフォルトの名無しさん
2008/07/22(火) 23:40:0920年位前に名前変わったぞ。
何だったかは忘れたけど。
0687デフォルトの名無しさん
2008/07/23(水) 00:03:10うちんところは毎月動いているPGにCOBOL/Sの奴があるよ。
それとかGOTOしまくりとかいろいろある。
0688デフォルトの名無しさん
2008/07/23(水) 00:29:55出力できるけどELSE NEXT SENTENCE と GO TOの嵐。
普通にコーディングした5～6倍くらいはあったと思う。
0689デフォルトの名無しさん
2008/07/23(水) 18:08:30仕様書はYACII
さすがにYPSは使ってない
0690デフォルトの名無しさん
2008/07/24(木) 21:40:460691lovelace
2008/07/24(木) 22:02:58受付日と今日の日付を比較して1ヶ月経過したデータと振り分ける。
1ヶ月経過したものは、削除分のデータとしてディスクに保存
1ヶ月経過していないものは、保存分のデータとしてディスクに保存
ただし、入力データは、受付日（6桁）に書かれているのは6桁（例：080524）
本日の日付は、システム時間で8桁（例:20080824）
このままでは、桁数が違うので、比較することができないため、受付日を8桁にしたいと考えています。
つまり、「'20'+受付日」としたいのです。
この場合、どのようにすればよろしいのでしょうか？
よろしくお願いします。
0692デフォルトの名無しさん
2008/07/24(木) 22:10:4601 WK受付日８.
03 FILLER PIC X(02) VALUE "20".
03 WK受付日６ PIC X(06).
・・・・・・
MOVE 受付日 TO WK受付日６.
この後、WK受付日８と、システム時間とを比較して何とかする。
0693デフォルトの名無しさん
2008/07/24(木) 22:18:3702 ウケツケビA PIC 9(02).
02 ウケツケビB PIC 9(06).
として、
MOVE 20 TO ウケツケビA
MOVE データウケツケビ TO ウケツケビB
IF （ウケツケビ（の1ヶ月後） ＜ 本日日付）
ホゲホゲ
ELSE
ホゲホゲ
END-IF
とやれば出来るけど、このプログラムの難しいのは
「○月○日の1ヶ月後は×月×日」
の判定だと思う。（「○月○日の×日後」は簡単だけど）
まあ、そういう関数なり、サブルーチンが有れば良いけど、この判定は
各業務によって違うから注意が必要。
0694lovelace
2008/07/24(木) 22:21:29書き忘れたことがあるのですが、判定するのは、年月のみで日は関係ありません。
0695デフォルトの名無しさん
2008/07/24(木) 23:05:3301 WK受付日６.
03 WK受付年月.
05 WK受付年 PIC 9(02).
05 WK受付月 PIC 9(02).
03 FILLER PIC 9(02).
01 WKシステム時間８
03 FILLER PIC 9(02).
03 WKシステム年月.
05 WK受付年 PIC 9(02).
05 WK受付月 PIC 9(02).
05 FILLER PIC 9(02).
・・・・
MOVE 受付日 TO WK受付日６.
MOVE システム時間 TO WKシステム時間８.
IF WK受付月 = 12 THEN
ADD 1 TO WK受付年
MOVE 1 TO WK受付月
ELSE
ADD 1 TO WK受付月
END-IF.
IF WK受付年月 < WKシステム年月 THEN
削除分
ELSE
保存分
END-IF.
0696デフォルトの名無しさん
2008/07/24(木) 23:22:400697lovelace
2008/07/24(木) 23:37:36今考えているのは、
「現在年月の1ヶ月前の年月を別のエリアで計算する」
という方法です。
また、受付年月は、
01 WORK-AREA.
05 WK-UKETUKEBI
10 WK-UKETUKE-YM PIC X(04).
10 FILLER PIC X(02).
01 DATE-AREA.
05 SISUTEMU-DATE.
10 SISUTEMU-NENGETU PIC X(06).
10 FILLER PIC X(02).
と記述します。
0698デフォルトの名無しさん
2008/07/25(金) 10:11:02ＣＯＢＯＬやってる人だったら普通にできると思うけど、
そういうの自分で考えないと覚えないよ。
0699デフォルトの名無しさん
2008/07/26(土) 00:10:23人に聞くことの問題だとは思わんが
未だにファイルに日付を6桁で保持するって
0700デフォルトの名無しさん
2008/07/26(土) 06:16:022000年問題のとき「IF YY >76 THEN 1900年代 ELSE 2000年代」
で逃げているソースがあちらこちらに。
システム作り直しが早いか、2076年が早いか。
0701デフォルトの名無しさん
2008/07/26(土) 21:04:080702デフォルトの名無しさん
2008/07/26(土) 21:12:140703デフォルトの名無しさん
2008/07/26(土) 22:11:140704wolf ◆8VH3XAqjlU
2008/07/27(日) 21:15:57ISAMだけかな
http://opencobol.no-ip.org/download.html
open-cobol-1.0.tar.gz
000000031524 typeck.c 04384 CB_FILE (file)->access_mode == COB_ACCESS_SEQUENTIAL) {
000000031525 typeck.c 04385 /* READ NEXT/PREVIOUS */
000000031526 typeck.c 04386 if (next == cb_int2) {
000000031527 typeck.c 04387 if (CB_FILE (file)->organization != COB_ORG_INDEXED) {
000000031528 typeck.c 04388 cb_error_x (CB_TREE (current_statement),
000000031529 typeck.c 04389 _("READ PREVIOUS only allowed for INDEXED SEQUENTIAL files"));
0705デフォルトの名無しさん
2008/07/29(火) 10:19:02コボルがあるわけないだろ（笑）。
0706デフォルトの名無しさん
2008/07/29(火) 12:43:27そんな事もできるんだ・・・。
0707デフォルトの名無しさん
2008/07/29(火) 23:21:45って笑ってた会社が結構あったが、それはそれで
「昭和100年問題＝2025年問題」を抱えてるんだよな。
今から17年後だが、はたしてCOBOLは消えてくれるでしょうか…
0708デフォルトの名無しさん
2008/07/29(火) 23:28:040709デフォルトの名無しさん
2008/07/30(水) 01:57:26メーカーも対応する予定がなかったため
システムの日付を和暦にして対応した。
0710デフォルトの名無しさん
2008/07/30(水) 07:12:43その調子で、今後はイスラム暦とか中華民国暦とか、
使えるやつを探して乗り切るんだ。
0711デフォルトの名無しさん
2008/07/30(水) 11:26:062040年問題は発生するが、さすがにそこまでは持たないかな。
0712デフォルトの名無しさん
2008/07/30(水) 18:26:510713デフォルトの名無しさん
2008/07/31(木) 23:59:08北朝鮮にでも輸出するのかｗ
0714デフォルトの名無しさん
2008/08/01(金) 18:11:46PREVIOUSについては書いた後で気づいたよ
しかし他にも無いものが多すぎる
0715デフォルトの名無しさん
2008/08/01(金) 18:26:52個人的にＣＯＢＯＬのイヤなところは、可変長を非常に扱いづらいところ。
0716デフォルトの名無しさん
2008/08/02(土) 11:31:52まだまだ使われている？？
日本語資料がIBMの正規マニュアルしかない…。
その上、意味が分からない。
0717デフォルトの名無しさん
2008/08/02(土) 16:30:04オンラインですよねえ。
そういう仕事は、現場のやり方に従えば、いいですよ。
特別に勉強しなきゃということもないと思いますけど、
ＴＳＯを使えるようになっときゃ大丈夫なんじゃないでしょうかねえ。
(ＴＳＯの操作も、現場で充分覚えられると思いますよ)
0718デフォルトの名無しさん
2008/08/02(土) 16:51:210719デフォルトの名無しさん
2008/08/02(土) 23:46:29そんなに可変長って扱いにくいかなぁ
あまり意識したことないけど
0720デフォルトの名無しさん
2008/08/03(日) 06:33:040721デフォルトの名無しさん
2008/08/03(日) 08:52:47File/DB IOサブルーチンで全てのCOMP-3をUNPACKに、可変長を最大Lengthを取る固定長に変換してた。
0722デフォルトの名無しさん
2008/08/04(月) 13:33:310723デフォルトの名無しさん
2008/08/05(火) 00:24:530724デフォルトの名無しさん
2008/08/05(火) 00:51:030725デフォルトの名無しさん
2008/08/05(火) 06:02:530726デフォルトの名無しさん
2008/08/05(火) 07:07:37贅沢いえるほど仕事の選択肢がない
0727デフォルトの名無しさん
2008/08/05(火) 22:48:310728デフォルトの名無しさん
2008/08/06(水) 00:45:340729デフォルトの名無しさん
2008/08/06(水) 13:41:00昔のソース（ＰＬ／Ｉ）がやばすぎて、
ＣＯＢＯＬで作り直す仕事あったよ。
0730デフォルトの名無しさん
2008/08/06(水) 14:05:550731デフォルトの名無しさん
2008/08/06(水) 14:16:08ＣＯＢＯＬは、数値の扱いが、
他の言語で言うところの通貨型のみだから、
誤差が出なくていいかもね。
0732デフォルトの名無しさん
2008/08/06(水) 14:34:15似たようなことやったことあるけど、有意な桁数を計算しようとすると
計算が終わらない
つか、1日まわして答えが出なかったんで途中でやめた
# 計算途中の結果はあってたんだけどね
0733デフォルトの名無しさん
2008/08/06(水) 15:06:54それはウソでしょ。
純粋に計算するだけでしょ？
ファイルアクセスとかしないんでしょ？
だったらそんなに時間はかからないはずだよ。
コンピューターだよ？
８ビットのパソコンでもできるでしょそのくらい。
0734デフォルトの名無しさん
2008/08/06(水) 18:48:42なら以前やった（フォートランの部分は別の人間が担当してた
0735デフォルトの名無しさん
2008/08/06(水) 19:12:30問題の計算はFORTRANで書いても数時間かかったが
0736デフォルトの名無しさん
2008/08/06(水) 19:45:02難しい技術計算向けの言語ですからねえ。
それでも時間がかかるのですか。
そんな式、扱ったことがないです・・・。
0737lovelace
2008/08/06(水) 22:14:43入力データに記載されている受付日は2000年以降のものしかないため、受付日の先頭に20を追加します。
なお、判定日の1ヶ月前年月はサブモジュールで実装しています。
振り分けの条件では、年月のみで比較します。
（例）
受付日 080629 →200806 （'20'）を追加
判定日 20080806 →200808
また、Copy句ファイル(BSCP10A)には、
10 'XXX-KEY-KOMOKU'
15 'XXX'-RIYOU-YMD PIC X(06).
15 'XXX'-RIYOU-ZIKOKU PIC X(06).
と定義されています。
以下のように実装してみました。（抜粋）
WORKING-STORAGE SECTION.
01 DATA-IN. COPY BS10A SUPPRESS PREPLACING =='XXX'==BY==BS10A==.
01 DATA-OUT1. COPY BS10A SUPPRESS PREPLACING =='XXX'==BY==BS10A==.
01 DATA-OUT2. COPY BS10A SUPPRESS PREPLACING =='XXX'==BY==BS10A==.
01 WORK-AREA. //ここに受付日を8桁にする方法を記述？
05 WK-DATA-RIYOBI.
PROCEDURE DIVISION.
*--<主処理>--
MOVE BS10A-RIYOU-YMD TO WK-DATA-RIYOBI.
//以下に振り分け条件記述
6桁にした受付日と判定日の1ヶ月前年月を比較
入力データの受付日に20を追加して6桁にする方法を教えてください。どうか皆様のお力を貸してください。
お願いします。
0738デフォルトの名無しさん
2008/08/06(水) 22:42:180739デフォルトの名無しさん
2008/08/06(水) 23:00:380740デフォルトの名無しさん
2008/08/07(木) 01:49:19FORTRANで数時間かかる問題をCOBOLにやらせる意味がわからんし
そんな計算をjavaでやっても1日かかっておわるのか?
計算に関してはFORTRAN以上に早い言語は今のところないんじゃないの
円周率の計算も未だにFORTRANだったとおもう
0741デフォルトの名無しさん
2008/08/07(木) 02:53:190742デフォルトの名無しさん
2008/08/07(木) 11:46:28言語の問題なの？？
お前ら言ってる事おかしくない？？？
0743733_736_742だけど
2008/08/07(木) 11:55:28そんなに遅いか？？？
一応言い分は聞いてやろうと思って折れると、
調子に乗る奴らだな。
0744lovelace
2008/08/07(木) 22:57:08ありがとうございます。
TSOにて開発しているのですが、コンパイル（COBOLⅡ）すると、
MOVE BS10A-RIYOU-YMD TO WK-DATA-RIYOBI.
の部分で、「BS10A WAS NOT A UNIQUELY DEFINED NAME.」
というメッセージが出てしまいます。
これを解決するにはどうすればよいでしょうか？
0745デフォルトの名無しさん
2008/08/07(木) 23:59:16COBOLⅡってマジかよ？
今あるのか？
BS10Aが一意でない定義名って意味だよ。
ハイフン抜けてるんじゃない？
0746デフォルトの名無しさん
2008/08/08(金) 05:26:47変数定義が重複していないか確認だーね。
>>718
ASABASってなんであんなにFIND遅いの？
READもDBⅡより激遅。
0747デフォルトの名無しさん
2008/08/08(金) 14:11:25ソースで取り込んでいるＣＯＰＹ句の中に、同じ変数名があるんだと思う。
ＷＯＲＫＩＮＧ－ＳＴＯＲＡＧＥ ＳＥＣＴＩＯＮの、
ＣＯＰＹ なんちゃら の部分のコトです。
基本的にＣＯＰＹ句の変数名は変えられないけど、
どうしてもそっちを変えたければ、
ＣＯＰＹ ＢＳ１０Ａ ＲＥＰＬＡＣＩＮＧ なんちゃら で変えられるはず。
0748デフォルトの名無しさん
2008/08/08(金) 16:12:43ちょっと書式が違うかもです・・・。
すみません。
そのへんは、資料やマニュアルなどを、
見て頂けませんでしょうか。すみません。
0749デフォルトの名無しさん
2008/08/08(金) 17:53:54これって総務とか経理で使えない奴がやらされる奴だよね？
0750デフォルトの名無しさん
2008/08/08(金) 19:05:25事実上、COBOLとFORTRANしかなかった時代もあるんだけどね。
0751デフォルトの名無しさん
2008/08/08(金) 22:10:13あったとしてもサポート切れてるだろ？
0752デフォルトの名無しさん
2008/08/08(金) 23:07:540753デフォルトの名無しさん
2008/08/08(金) 23:12:34マジか、今年就職したんだけど、今COBOLやってる！
いきなり使えないと判断されたんだろうか。
0754デフォルトの名無しさん
2008/08/08(金) 23:49:49涙が止まりません・・・
まあ、なんというか・・・
所詮、仕事なんか怒られない程度にやっとけ
仕事以外で充実した人生を送れ
■ このスレッドは過去ログ倉庫に格納されています