トップページ⇒tech
1001コメント415KB

COBOLなら、オレに聞け！ <1>

レス数が1000を超えています。これ以上書き込みはできません。
0001おちこぼらーNGNG
何でも聞け！
0951デフォルトの名無しさんNGNG
おーい、906!
次の問題「貼り付けろ」や！
0952デフォルトの名無しさんNGNG
>>949
いちおう、
>>934
の答えね。天才906様のニーズにこたえられているか
ドキドキものです。
0953デフォルトの名無しさんNGNG
反応ねぇな906
0954デフォルトの名無しさんNGNG
906は仕様の変更を要求してきﾏｽﾀ(w
0955デフォルトの名無しさんNGNG
>>950
まあソレはそうだが
あんな1文をﾛｼﾞｯｸとはなかなか・・・
一連の手続きとなって　う〜ん
なんか違和感あるな
といいつつ>>908をかいた俺であった
0956デフォルトの名無しさんNGNG
でも、漏れの会社にも906みたいな奴いるんだよな・・・
0957デフォルトの名無しさんNGNG
906は新人
会社で出された宿題の答えをココでパクろうとしている
0958懲りずに906NGNG
A PIC X(9).

Aに入っているスペースをすべて0に置き換えるロジックを
描いてください。
0959デフォルトの名無しさんNGNG
>>955
SE,PGと話すときに
「ここのロジックが....」
と、複数行にわたるロジックの最も重要な一行のみを差して言うときもあるし
プログラムのたった１行で終わってる手続きを差して言うこともある。

こんなの使い分けるSE,PGを知らん。少なくともIBM,NEC,日立にはいない
0960デフォルトの名無しさんNGNG
>>958
はいはい、INSPECT使ってネ
0961デフォルトの名無しさんNGNG
>>958
A PIC X(9).
B PIC 9(9).

MOVE A TO B.

満足？

>>959
わかったよ悪かったな
0962デフォルトの名無しさんNGNG
>>958
くっさ〜
0963デフォルトの名無しさんNGNG
>>906
もう寝ろよ。
0964懲りずに906NGNG
>>961
データ例外で落ちますよ・・・
0965デフォルトの名無しさんNGNG
>>964
おちねえよ
COBOLのｿﾞｰﾝ10進の取り扱い勉強せえよ
Pl/Iならｺﾝﾊﾟｲﾙｴﾗｰだ
0966デフォルトの名無しさんNGNG
961も実務経験無しと判明しました。
0967デフォルトの名無しさんNGNG
>>966
お前も物を知らんのだな
COBOLではｿﾞｰﾝ10進数の上位4ビットはサインなしの場合は無視されるんだよ
0968デフォルトの名無しさんNGNG
906と966は大馬鹿
0969デフォルトの名無しさんNGNG
>>958
だから、INSPECTを使うんだって、
配列を９個作って９回ループって
一文字ずつ判断して0を代入するなんて
”ロジック””描くんじゃ”ねぇぞ(藁)
0970デフォルトの名無しさんNGNG
>>969
それじゃ当たり前すぎてクイズにならない
0971デフォルトの名無しさんNGNG
>>961
データ例外で落ちるはずだが？
Xタイプから9タイプへ転記できるの？
0972懲りずに906NGNG
>>969

958はそれで正解。
0973デフォルトの名無しさんNGNG
>>972
969よ宿題をといてやった報酬はないのかね？
0974デフォルトの名無しさんNGNG
↑
969→906
0975デフォルトの名無しさんNGNG
次スレ用意せねば。
0976デフォルトの名無しさんNGNG
>>971
下位4ビットが数字なら大丈夫
'A'はX'C1'こらは'F1'に変換される
SPACEはX'40'なのでX'F0'に変換される
SPACEを符号なしｿﾞｰﾝにMOVEするとZEROになるのだよ

IF文でｲｺｰﾙと判定されるから要注意
COBOLをやるならこれくらい知っとけ
0977デフォルトの名無しさんNGNG
>>967
ｱﾌｫ、英数字項目の1文字目の右4ビットがAからFまたは、
左4ビットが0から9のときには不正10進でデータ例外になる。
0978デフォルトの名無しさんNGNG
>>976
それって転記元データが制限されるジャンよ。
0979デフォルトの名無しさんNGNG
理論馬鹿>>976
0980デフォルトの名無しさんNGNG
>>977
今回の問題はSPACEをZEROに置換すると言う限定付なのだよ
0981デフォルトの名無しさんNGNG
>>979
クイズなんだぜ
0982デフォルトの名無しさんNGNG
>>980
だから実務経験ナインだろ？
0983デフォルトの名無しさんNGNG
>>979
実際にIF　〜　ZERO
って言う条件で新と判定されてトラブルを起こしたコードを見たこともあるぜ
0984デフォルトの名無しさんNGNG
もう正解出したジャン
漏れってもしかしたら天才だったのかなぁ・・・
あの難しいクイズを２つも解いたんだゼ！
0985デフォルトの名無しさんNGNG
>>982
お前こそ無いだろ
0986デフォルトの名無しさんNGNG
>>980
Ｘタイプがすべてスペースで埋まってるってどこに書いてる（w
「_AB______123__CD」とかいうデータは
「0AB00000012300CD」にするんだよ。
0987デフォルトの名無しさんNGNG
>>986
おお
よくみればすべてとは書いていなかった
ｽﾏｿ
しかしｸｲｽﾞとしては俺の答えのようなものを求めているものと思ったのだ
重ねてｽﾏｿ
0988デフォルトの名無しさんNGNG
>>985
あはは
0989デフォルトの名無しさんNGNG
だから実務経験無いだろってかいたんだが....スマンな>>987
官公庁へ提出するデータはこのようなへんてこな処理が多い。
0990デフォルトの名無しさんNGNG
>>989
俺は金融系で働いてるよ
もちろん実務ではあんな馬鹿げたことはしない
SPACEをZEROに置換なんてよくやってるよ
ﾁｪｯｸﾃﾞｨｼﾞｯﾄを求めるために空白を埋めるとかね
0991デフォルトの名無しさんNGNG
>>987
ていうか、これってクイズにもなってないし
0992デフォルトの名無しさんNGNG
>>991
あたりまえの手法以外の答えを求めていると思ったんだよう
酔ってるんだよ
許してくれよう
0993デフォルトの名無しさんNGNG
>>990
漏れもバーコード作るときにチェックディジットを求める
ために良く使うんだよ。
モジュラス10ウェイト3.1　とか７Ｓチェックなんて毎日のようにやってるよ
0994デフォルトの名無しさんNGNG
>>993
漏れもﾓｼﾞｭﾗｽ10とﾓｼﾞｭﾗｽ11をよくつかうｳｪｲﾄは7
0995デフォルトの名無しさんNGNG
お前らなんでもいいから次スレ立てなさい。
0996デフォルトの名無しさんNGNG
では、906ばりに、モジュラス１０のロジックを描いてみたまえ！！
ウェイト値は4.3ね。
なんつって
0997デフォルトの名無しさんNGNG
>>996
COBOLで？
桁数固定じゃないとめんどくさいな
0998デフォルトの名無しさんNGNG
1000
0999デフォルトの名無しさんNGNG
1000？
1000デフォルトの名無しさんNGNG
１０００
1001１００１Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。