107 :
デフォルトの名無しさん:2012/07/15(日) 20:34:15.25
皆様ありがとうございました
109 :
デフォルトの名無しさん:2012/10/08(月) 07:59:50.83
え?
110 :
デフォルトの名無しさん:2013/02/09(土) 23:12:26.01
やんよってどこの方言?
東北?
IDENTIFICATION DIVISION.
PROGRAM-ID. CHAN2.
AUTHOR. DAREKA.
DATE-WRITTEN. 2013-02-07.
*****
ENVIRONMENT DIVISION.
*****
CONFIGURATION SECTION.
SOURCE-COMPUTER. CHAN2.
OBJECT-COMPUTER. CHAN2.
***
INPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT CHANNEL1 ASSIGN TO I1-DK.
SELECT CHANNEL2 ASSIGN TO I2-DK.
SELECT PR3 ASSIGN TO O1-PR.
*****
DATA DIVISION.
*****
FILE SECTION.
FD CHANNEL1.
01 F1R.
02 F1-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F1-HH PIC 9(02).
02 FILLER PIC X(01).
02 F1-MM PIC 9(02).
02 FILLER PIC X(01).
02 F1-SS PIC 9(02).
FD CHANNEL2.
01 F2R.
02 F2-CNT PIC 9(04).
02 FILLER PIC X(01).
02 F2-HH PIC 9(02).
02 FILLER PIC X(01).
02 F2-MM PIC 9(02).
02 FILLER PIC X(01).
02 F2-SS PIC 9(02).
FD PR3.
01 PR3R.
***
WORKING-STORAGE SECTION.
***
77 DATEKBN PIC X(1) VALUE SPACE.
77 DAYKBN PIC X(1) VALUE SPACE.
77 CHANNEL1-STATUS PIC X(1) VALUE SPACE.
77 CHANNEL2-STATUS PIC X(1) VALUE SPACE.
77 PR3-STATUS PIC X(1) VALUE SPACE.
***
01 SYSTEM-DATE.
02 SYEAR PIC X(4) VALUE SPACE.
02 SMONTH PIC X(2) VALUE SPACE.
02 SDAY PIC X(2) VALUE SPACE.
***
01 SYSTEM-TIME.
02 SHH PIC X(2) VALUE SPACE.
02 SMM PIC X(2) VALUE SPACE.
02 SSS PIC X(2) VALUE SPACE.
***
01 W1-CHANNEL.
02 W1SKBN PIC X(1) VALUE SPACE.
02 FILLER PIC X(255).
***
01 W2-CHANNEL.
02 W2SKBN PIC X(1) VALUE SPACE.
02 FILLER PIC X(255).
***
01 O1-PR3.
02 O1SKBN PIC X(1) VALUE SPACE.
02 O1KINGAKU PIC ZZZZ,ZZ9.
*****
PROCEDURE DIVISION.
*****
MAIN-1 SECTION.
PERFORM MAESHORI THRU MAESHORI-EXIT.
*
PERFORM FILE-OPEN THRU FILE-OPEN-EXIT.
*
PARAGRAPH-1-1.
DISPLAY "Hello!" UPON CONSOLE.
*
PERFORM FILE-CLOSE THRU FILE-CLOSE-EXIT.
STOP RUN.
END PROGRAM 2CHAN.
*****
MAESHORI SECTION.
*****
ACCEPT SYSTEM-DATE FROM DATE.
IF SMONTH IS NUMERIC
THEN IF SDAY IS NUMERIC
THEN MOVE "T" TO DATEKBN
ELSE MOVE SPACE TO DATEKBN
END-IF
ELSE MOVE SPACE TO DATEKBN
END-IF.
ACCEPT SYSTEM-TIME FROM TIME.
IF SHH IS NUMERIC
THEN IF SMM IS NUMERIC
THEN IF SSS IS NUMERIC
THEN MOVE "T" TO DAYKBN
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF
ELSE MOVE SPACE TO DAYKBN
END-IF.
MAESHORI-EXIT.
EXIT.
*****
FILE-OPEN SECTION.
*****
OPEN CHANNEL1.
OPEN CHANNEL2.
OPEN PR3.
FILE-OPEN-EXIT.
EXIT.
*****
FILE-CLOSE SECTION.
*****
CLOSE CHANNEL1.
CLOSE CHANNEL2.
CLOSE PR3.
FILE-CLOSE-EXIT.
EXIT.
*****
121 :
デフォルトの名無しさん:2013/02/18(月) 20:33:40.70
なんだかなつかしいなあ
PERFORM WRITE-RTN THRU WRITE-EXT
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).
>>122WRITE-RTNからWRITE-EXTを、S-IDXを1から始めて1ずつカウントアップし、S-IDXが
10を超過するまで繰り返す…か。
ADD 1 TO COBOL GIVING COBOL
OCCURSはオカズ
126 :
デフォルトの名無しさん:2013/03/29(金) 23:10:52.90
やんよってどこの方言?
東北のほう?
イメージとしては東海から中京
128 :
デフォルトの名無しさん:2013/06/10(月) 02:01:01.54
COBOLのコードって大文字なのか?w
AKB総選挙7位の松井玲奈が1級持ってるっつーから、どんな言語だと思ったら……
129 :
デフォルトの名無しさん:2013/06/14(金) 01:02:45.75
どうせおまいらハゲだろ?
こぼらー=ハゲ
すまん、フサフサだ・・・
131 :
デフォルトの名無しさん:2013/06/14(金) 01:09:15.69
まじかでか!?オレらのシマはオールハゲ
132 :
デフォルトの名無しさん:2013/06/20(木) 01:40:10.52
おっさん多いけどハゲの比率が少ないな
それに関しては、システムがどうこうとかCOBOLがどうこうじゃなくて
社会的な影響で躊躇しているところ多そうだけどな
なんつっても訴訟王国アメリカ。
新システム移行のとき、もし過去の給与計算で誤計算が発覚したら
エライことになりそうだし。
だからバグも含めて移行⇒失敗てパターンなんじゃなかろうか。
60年代に書かれたコボルで数十年更新されてなくてドキュメントも無いとか無茶すぎるわ
そんなポンコツが現役稼働なこと自体驚きです
COBOLってもともとは簡単な事務処理をするためにデザインされたのに
どう見てもCOBOL向きで無い用途に使われてる。
その用途を満たすためにトリッキーなプログラムになって解読困難に
なってるんだよな。
プログラムの作り方自体も環境変数(プログラムAからプログラムBに値を渡したい時の
システム稼働中は保持される変数、正式にはなんて言うんだ?)を不用意に読み書き
出来る様になっている素人でもやらないようなめちゃめちゃ作り。。。。
まともな人なら近づかない、よって書き換え不可能w。
137 :
デフォルトの名無しさん:2013/07/26(金) NY:AN:NY.AN
>>133 仕様書やドキュメントがない、上層部が事態を把握できないからメンテも移行も出来ないと受け取れる。
簡単に引き継げるようにしとくとクビ切られちゃうからな!!
>>136 H/Wからくる制限、人間(開発者、利用者)からくる制限、S/W(主に言語)からくる制限からトリッキーになってしまう事なんて昔はどの言語でもあったわけで…
COBOLでリアルタイム処理をしなければいけない現実からPL/Iが産れたのにコンパイラを稼動させるのに256KB以上のメモリが必要とするのがネックとなって汎用機以外での導入が見送られた
オーバレイやSRAM(CMOS)を使った共有メモリ(排他制御、メモリの問題から一般的には非公開)も使った事があるけどサブルーチンかによるオーバヘッドとか無視できない時代もあったからね
こぼらず
こぼりたり
こほる
こぼるとき
こぼれども
こぼれ
141 :
デフォルトの名無しさん:2013/09/13(金) 01:12:16.41
MF-COBOLって汎用機のCOBOLとどう違うの?
SQLのスキルが求められている仕事で、SQLを使った事がないと厳しい?
SQLを詳しくかいてあるほんで、おすすはある?
SQLの入門書なんて本屋のデータベースのコーナーに行けばいっくらでもある。
対象DB(まぁだいたいOracleあたりだろうけど)の無料版も最近はこれまたいっくらでもある。
自分のPCに入れて勉強出来るよ
まぁ
>SQLのスキルが求められている仕事で、SQLを使った事がないと厳しい?
当たり前だけど「厳しい」だろw
サンプルソースは仕事場に行けばあるだろうけど。
つか そんなじゃ汎用機のCOBOLもまともに出来てないような。
144 :
デフォルトの名無しさん:2013/09/18(水) 15:11:58.43
ごめん、教えて。
MFcobolからCの関数を呼び出したい。
多分、事前に静的リンクさせればいいんだろうけど、
その方法がわからない。。。
145 :
デフォルトの名無しさん:2013/09/21(土) 01:29:36.05
>>143 サブルーチンを呼び出すだけだから、SQLなんて使わないし。
(このスレの平均年齢がなんか気になった
(いやスルー歓迎で
147 :
デフォルトの名無しさん:2014/01/04(土) 21:33:59.31
スルー?過疎スレだから…って見たら3ヶ月前のが最新なんかよ! w
それにしてもCOBOLにはメンテ以外の理由で存続する必然性が感じられんなぁ
148 :
デフォルトの名無しさん:2014/01/04(土) 21:43:05.60
ム板はアマチュアの板だからCOBOLのような業務でしか使われない言語は
見向きもされないよ。
大規模になるほどCOBOLの新規開発の効率のよさは表にでてくる
そのぐらい知らないから保守やらメンテの言語と錯覚するんだよ。
盲目で見通しが付かないほどそれがきわまるほどCOBOLの設計手法は
大規模の人数で分散作業するのに適している。
現在の少数精鋭のやり方だけしかしらない奴はそういう大規模のは
俺カンケネーで終わるだけだろ。
新規は楽だけど保守していくとたちまちズタボロになるんだろ
COBOLはJavaなんかと比べてどのへんが新規の効率高いんですか?
いえ煽りでなく、新規開発が一番ラクなのは他のどの言語でも一緒なんじゃないかと思ったもので。各モジュール個別開発して連結テストに進めるみたいな工程です。
どんな効率的な特徴があるのかなと。
152 :
デフォルトの名無しさん:2014/11/09(日) 14:23:11.78 ID:iOEsToOb
早く質問に答えてください。
横だけど、特徴としては桁ベースのデータ構造じゃね
彼が効率として何を挙げたかったかは流石に俺も知らんが
javaやったことないから話半分に読んでくれ。
COBOLだって新規、改修で効率の良さは図れない。
大元は機能仕様辺りからの実装を考えない機能定義の正確さ。
そこから、COBOLで新規実装した時の、メンテのし易さを意識したコード。
言い換えれば実装モデルを持ってるかどうか。
モデル無しに時系列にコード化すれば、後の者が「なんでこうしたの?」に陥る。
COBOL改修は、その辺りを読み取って、モデル化してなきゃパッチ風な改修するしかない。
javaでも、実装時にモデル化できてないと、新規は楽ちん、その後のメンテは大変、なんじゃないか。
結局は、自分の手を離れたプログラムを後の人が改修し易い作りにできるかが、新規作成する人の資質、だと思う。
多数の言語やっているが、Javaはそんなに難しくないで
COBOLやっていたらできる