COBOL？極めてやんよシュッシュ!!

COBOL？極めてやんよシュッシュ!! (195ﾚｽ)
上下前次 1-新

109: 2012/10/08(月)07:59 AAS
え？

110: 2013/02/09(土)23:12 AAS
やんよってどこの方言？

東北？

111(1): 2013/02/10(日)23:23 AAS
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.

112(1): 2013/02/10(日)23:26 AAS
*****
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.

113(1): 2013/02/10(日)23:30 AAS
***
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).

114(1): 2013/02/10(日)23:32 AAS
***
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.

115(2): 2013/02/11(月)11:21 AAS
>>111 >>112 >>113 >>114
すみません。これはなんですか？

116: 2013/02/11(月)11:26 AAS
>>115
2chｽﾚ:tech

117: 2013/02/14(木)00:39 AAS
*****
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

118: 2013/02/14(木)00:42 AAS
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.

119: 2013/02/14(木)00:45 AAS
*****
FILE-CLOSE SECTION.
*****
CLOSE CHANNEL1.
CLOSE CHANNEL2.
CLOSE PR3.
FILE-CLOSE-EXIT.
EXIT.
*****

120: 2013/02/14(木)01:41 AAS
>>115
COBOLのソースコードじゃん。

121: 2013/02/18(月)20:33 AAS
なんだかなつかしいなあ

122(1): 2013/02/24(日)22:14 AAS
PERFORM WRITE-RTN THRU WRITE-EXT
VARYING S-IDX FROM 1 BY 1
UNTIL ( S-IDX > 10 ).

123: 2013/02/25(月)19:03 AAS
>>122WRITE-RTNからWRITE-EXTを、S-IDXを１から始めて１ずつカウントアップし、S-IDXが
10を超過するまで繰り返す…か。

124: 2013/02/25(月)19:52 AAS
ADD 1 TO COBOL GIVING COBOL

125: 2013/03/10(日)23:14 AAS
OCCURSはオカズ

126: 2013/03/29(金)23:10 AAS
やんよってどこの方言？

東北のほう？

127: 2013/04/11(木)20:49 AAS
イメージとしては東海から中京

128: 2013/06/10(月)02:01 AAS
COBOLのコードって大文字なのか？w

AKB総選挙7位の松井玲奈が1級持ってるっつーから、どんな言語だと思ったら……

129: 2013/06/14(金)01:02 AAS
どうせおまいらハゲだろ？
こぼらー＝ハゲ

130: 2013/06/14(金)01:04 AAS
すまん、フサフサだ・・・

131: 2013/06/14(金)01:09 AAS
まじかでか！？オレらのシマはオールハゲ

132: 2013/06/20(木)01:40 AAS
おっさん多いけどハゲの比率が少ないな

133(1): 2013/07/14(日) NY:AN:NY.AN AAS
COBOLで書かれた米国防総省の給与システム700万行、実質的に更新不可能
外部ﾘﾝｸ:it.slashdot.jp

134: 2013/07/15(月) NY:AN:NY.AN AAS
それに関しては、システムがどうこうとかCOBOLがどうこうじゃなくて
社会的な影響で躊躇しているところ多そうだけどな

なんつっても訴訟王国アメリカ。
新システム移行のとき、もし過去の給与計算で誤計算が発覚したら
エライことになりそうだし。

だからバグも含めて移行⇒失敗てパターンなんじゃなかろうか。

135: 2013/07/23(火) NY:AN:NY.AN AAS
60年代に書かれたコボルで数十年更新されてなくてドキュメントも無いとか無茶すぎるわ
そんなポンコツが現役稼働なこと自体驚きです

136(1): 2013/07/24(水) NY:AN:NY.AN AAS
COBOLってもともとは簡単な事務処理をするためにデザインされたのに
どう見てもCOBOL向きで無い用途に使われてる。
その用途を満たすためにトリッキーなプログラムになって解読困難に
なってるんだよな。
プログラムの作り方自体も環境変数（プログラムAからプログラムBに値を渡したい時の
システム稼働中は保持される変数、正式にはなんて言うんだ？）を不用意に読み書き
出来る様になっている素人でもやらないようなめちゃめちゃ作り。。。。

まともな人なら近づかない、よって書き換え不可能ｗ。

137: 2013/07/26(金) NY:AN:NY.AN AAS
>>133
仕様書やドキュメントがない、上層部が事態を把握できないからメンテも移行も出来ないと受け取れる。

138: 2013/07/27(土) NY:AN:NY.AN AAS
簡単に引き継げるようにしとくとクビ切られちゃうからな！！

上下前次 1-新書関写板覧索設栞歴

あと 57 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.006s