COBOLなら、オレに聞け！ <1>
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001おちこぼらー
NGNG0893デフォルトの名無しさん
NGNG確かに
何のためにいちいちDIVISIONなんてあるのかね？
Aﾏｰｼﾞﾝ､Bﾏｰｼﾞﾝも何のために存在するんだろう？
初めてCOBOLｿｰｽをｺﾝﾊﾟｲﾙしたときに書き始めのｶﾗﾑでｴﾗｰでまくりだった
0894apholist ◆AuRHfPwE
NGNGMKEditor使うといいよ。
HPにCobol用の強調定義ファイルあるし。
７文字目？と80文字目？に縦線ひいたりすると
書きやすい。
0895デフォルトの名無しさん
NGNGお気に入りも何も、ASPENのエディタしか利用できない…
0896デフォルトの名無しさん
NGNGパンチカードでコーディングするためじゃ！
パンチカードは一枚で80文字が記録できるのじゃ。
うっかり、バラバラにすると目もあてられんのじゃ。w
一度つかってみ！ｗ
0897デフォルトの名無しさん
NGNGパンチカードといえば、昔、休日出勤で移行作業のとき、どうしてもパンチカードでデータを投入しなきゃならなくなり（本番JCLの変更など許されない）、パンチ機の使い方が分からず困っていたら、たまたま通りかかった某部長、
「え、分からないの？どれどれ」
あっという間に作ってくれました。
老人敬うべし。
0898デフォルトの名無しさん
NGNGスキー屋?
0899デフォルトの名無しさん
NGNGてか、スキー屋って何？
0900896
NGNGそれは貴重な体験をされたのぅ。
ここに居るほとんどは、パンチカードの実物など見たこと無いじゃろうからな。
そういうワシもパンチカードで仕事をしたことはないのじゃがな。
遙か昔、学校で実習につかっただけじゃ。
青春時代のちょっとした思いでじゃ。。。ｗ
0901デフォルトの名無しさん
NGNG有難うございます!
こんなすばらしいソフトがフリーなんですね。
>ASPENのエディタしか利用できない…
ってのはどういう環境なのでしょうか?
0902デフォルトの名無しさん
NGNGAﾏｰｼﾞﾝはそう思えるけどBﾏｰｼﾞﾝはそう思えないんだけど
>>901
日立のﾒｲﾝﾌﾚｰﾑを使ってて端末が昔ながらのﾎﾞﾛPC(DOSで動いてる)
状況じゃないの
でもASPENはよくできてるよ
0903893
NGNG作った本人じゃないので実際のところはわからんが、
LABELと命令が区別しやすいようにしてあるのじゃろう。
もう、うろ覚えなのじゃがパンチカードライターでTABキー使えば8桁分いどうする。
つまり１打鍵でAマージンの頭からBマージンの頭まで移動するのじゃ。
タイプライター文化のない我らには想像しにくいが、あれはあれで理にかなってるのじゃ。
なお、DIVISIONがある理由もパンチカードにあるとにらんどるぞ。
ちょっと理由を考えてみなされ。ｗ
0904896
NGNG名前欄
893×
896○
カードを差し替えておくれ
0905デフォルトの名無しさん
NGNGなるほどね
DIVISIONごとに使いまわせるってか
それどころか01レベルとかでも使いまわせるな
そんな理由だったら何故もっと早くSECTIONとか思いつかなかったのだろう？
0906デフォルトの名無しさん
NGNGただし、IF分は使わないこと！
0907デフォルトの名無しさん
NGNG0908デフォルトの名無しさん
NGNG01 A PIC S9(5) COMP-3.
01 B PIC S9(5).
MOVE A TO B.
0909デフォルトの名無しさん
NGNGおいおい
0910906
NGNGそれだと符合が反映されないでしょ
907さんが言ってるようなことをIF文なしでやって
0911デフォルトの名無しさん
NGNG符合は反映されますが・・・
そもそもﾊﾟｯｸ10進数とｿﾞｰﾝ10進数をご存知ですか?
0912デフォルトの名無しさん
NGNGS.？
0913デフォルトの名無しさん
NGNG0914デフォルトの名無しさん
NGNG0915906
NGNGでは、Aに-354という数字が入っていたとしよう。
で、908のとおりにやってみてから
DISPLAY B
と書くとどういう結果が出ますか？
ちゃんと-354って表示されますか？されますか？されますか？されますか？されますか？されますか？されますか？されますか？されますか？されますか？
0916デフォルトの名無しさん
NGNG0917デフォルトの名無しさん
NGNGされませんよ
ソレは最初の問いがおかしいのです
あなたが求めているのはピクチャー編集された文字列です
0918デフォルトの名無しさん
NGNG01 A PIC S9(5) COMP-3.
01 B.
03 CPIC SSSS9
MOVE A TO C.
DISPLAY B.
で満足？
0919デフォルトの名無しさん
NGNGで、結局どうやんの？
0920デフォルトの名無しさん
NGNG俺に聞くなよｿﾞｰﾝ10進数を知らない>>906に聞いてくれ
0921デフォルトの名無しさん
NGNGSが1個足りなかったな
0922906
NGNGあい、満足でぇす・・・
01 A PIC S9(5) COMP-3.
01 B PIC ----9.
MOVE A TO B.
DISPLAY B.
でもいいんじゃない？
0923デフォルトの名無しさん
NGNG+符号が出ないよそれじゃあ
0924デフォルトの名無しさん
NGNG0925デフォルトの名無しさん
NGNGゾーン十進数!!
懐かしい響きだ・・・・
0926デフォルトの名無しさん
NGNG0927デフォルトの名無しさん
NGNG0928デフォルトの名無しさん
NGNG言っとくけど
PIC ----9とかは文字列だからね！
0929デフォルトの名無しさん
NGNGDISPLAY C だとどうなるの？
0931デフォルトの名無しさん
NGNG正の数字なら+123
負の数字なら-123てなかんじ
0932デフォルトの名無しさん
NGNG失礼DISPLAY Cの場合ね
ちゃんと出るかな？正直自信ないわ
0933デフォルトの名無しさん
NGNG0934懲りずに906
NGNGただし、連番は1〜12までで、12の次には1を貼り付けてください。
これもIF文なしで
0935デフォルトの名無しさん
NGNG貼り付けるって？
0936懲りずに906
NGNG次のファイルには2を・・・次は3・・・と貼り付けていって、
13番目のファイルには13ではなく1を貼り付ける感じで
0937懲りずに906
NGNG数字をMOVEしてください。
0938デフォルトの名無しさん
NGNG貼り付けるって？
全然意味わかんねーよ。貼り付けなんてできませんよ。
0939デフォルトの名無しさん
NGNG1番最初に読んだレコードじゃねえのか？
0940デフォルトの名無しさん
NGNGファイル、一体いくつアサインすんの？
0941懲りずに906
NGNG0942デフォルトの名無しさん
NGNGどっかの新人研修の宿題でもやらせてんじゃねえのか？
あほくさ
0943デフォルトの名無しさん
NGNGふつー間違えて表現しませんよ。
0944デフォルトの名無しさん
NGNGﾊﾟｯｸとｿﾞｰﾝもわかってないしな
0945デフォルトの名無しさん
NGNG0946デフォルトの名無しさん
NGNGがﾛｼﾞｯｸときたもんだ
ﾛｼﾞｯｸはｺﾝﾊﾟｲﾗが作ってんだろーが
0947デフォルトの名無しさん
NGNG「業務ロジックを記述...」とか一般的に言うけどね。
0948デフォルトの名無しさん
NGNG単純転送をﾛｼﾞｯｸというのは初耳です
0949デフォルトの名無しさん
NGNGAを貼り付ける数字(藁)とすると
BにAを12で割った余りを代入し、
BをAで割った値をAにかけてAに1を加える
ってとこだろ。
こんなん消防でもできるさ
0950デフォルトの名無しさん
NGNG「これはMOVE命令だからロジックと言わない」なんてことはしない。
いちいち区別して言い分けたりしないよ。
0951デフォルトの名無しさん
NGNG次の問題「貼り付けろ」や！
0952デフォルトの名無しさん
NGNGいちおう、
>>934
の答えね。天才906様のニーズにこたえられているか
ドキドキものです。
0953デフォルトの名無しさん
NGNG0954デフォルトの名無しさん
NGNG0955デフォルトの名無しさん
NGNGまあソレはそうだが
あんな1文をﾛｼﾞｯｸとはなかなか・・・
一連の手続きとなって う〜ん
なんか違和感あるな
といいつつ>>908をかいた俺であった
0956デフォルトの名無しさん
NGNG0957デフォルトの名無しさん
NGNG会社で出された宿題の答えをココでパクろうとしている
0958懲りずに906
NGNGAに入っているスペースをすべて0に置き換えるロジックを
描いてください。
0959デフォルトの名無しさん
NGNGSE,PGと話すときに
「ここのロジックが....」
と、複数行にわたるロジックの最も重要な一行のみを差して言うときもあるし
プログラムのたった１行で終わってる手続きを差して言うこともある。
こんなの使い分けるSE,PGを知らん。少なくともIBM,NEC,日立にはいない
0960デフォルトの名無しさん
NGNGはいはい、INSPECT使ってネ
0961デフォルトの名無しさん
NGNGA PIC X(9).
B PIC 9(9).
MOVE A TO B.
満足？
>>959
わかったよ悪かったな
0962デフォルトの名無しさん
NGNGくっさ〜
0963デフォルトの名無しさん
NGNGもう寝ろよ。
0964懲りずに906
NGNGデータ例外で落ちますよ・・・
0965デフォルトの名無しさん
NGNGおちねえよ
COBOLのｿﾞｰﾝ10進の取り扱い勉強せえよ
Pl/Iならｺﾝﾊﾟｲﾙｴﾗｰだ
0966デフォルトの名無しさん
NGNG0967デフォルトの名無しさん
NGNGお前も物を知らんのだな
COBOLではｿﾞｰﾝ10進数の上位4ビットはサインなしの場合は無視されるんだよ
0968デフォルトの名無しさん
NGNG0969デフォルトの名無しさん
NGNGだから、INSPECTを使うんだって、
配列を９個作って９回ループって
一文字ずつ判断して0を代入するなんて
”ロジック””描くんじゃ”ねぇぞ(藁)
0970デフォルトの名無しさん
NGNGそれじゃ当たり前すぎてクイズにならない
0971デフォルトの名無しさん
NGNGデータ例外で落ちるはずだが？
Xタイプから9タイプへ転記できるの？
0973デフォルトの名無しさん
NGNG969よ宿題をといてやった報酬はないのかね？
0974デフォルトの名無しさん
NGNG969→906
0975デフォルトの名無しさん
NGNG0976デフォルトの名無しさん
NGNG下位4ビットが数字なら大丈夫
'A'はX'C1'こらは'F1'に変換される
SPACEはX'40'なのでX'F0'に変換される
SPACEを符号なしｿﾞｰﾝにMOVEするとZEROになるのだよ
IF文でｲｺｰﾙと判定されるから要注意
COBOLをやるならこれくらい知っとけ
0977デフォルトの名無しさん
NGNGｱﾌｫ、英数字項目の1文字目の右4ビットがAからFまたは、
左4ビットが0から9のときには不正10進でデータ例外になる。
0978デフォルトの名無しさん
NGNGそれって転記元データが制限されるジャンよ。
0979デフォルトの名無しさん
NGNG0980デフォルトの名無しさん
NGNG今回の問題はSPACEをZEROに置換すると言う限定付なのだよ
0981デフォルトの名無しさん
NGNGクイズなんだぜ
0982デフォルトの名無しさん
NGNGだから実務経験ナインだろ？
0983デフォルトの名無しさん
NGNG実際にIF 〜 ZERO
って言う条件で新と判定されてトラブルを起こしたコードを見たこともあるぜ
0984デフォルトの名無しさん
NGNG漏れってもしかしたら天才だったのかなぁ・・・
あの難しいクイズを２つも解いたんだゼ！
0985デフォルトの名無しさん
NGNGお前こそ無いだろ
0986デフォルトの名無しさん
NGNGＸタイプがすべてスペースで埋まってるってどこに書いてる（w
「_AB______123__CD」とかいうデータは
「0AB00000012300CD」にするんだよ。
0987デフォルトの名無しさん
NGNGおお
よくみればすべてとは書いていなかった
ｽﾏｿ
しかしｸｲｽﾞとしては俺の答えのようなものを求めているものと思ったのだ
重ねてｽﾏｿ
0988デフォルトの名無しさん
NGNGあはは
0989デフォルトの名無しさん
NGNG官公庁へ提出するデータはこのようなへんてこな処理が多い。
0990デフォルトの名無しさん
NGNG俺は金融系で働いてるよ
もちろん実務ではあんな馬鹿げたことはしない
SPACEをZEROに置換なんてよくやってるよ
ﾁｪｯｸﾃﾞｨｼﾞｯﾄを求めるために空白を埋めるとかね
0991デフォルトの名無しさん
NGNGていうか、これってクイズにもなってないし
0992デフォルトの名無しさん
NGNGあたりまえの手法以外の答えを求めていると思ったんだよう
酔ってるんだよ
許してくれよう
レス数が950を超えています。1000を超えると書き込みができなくなります。