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

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

102: 2012/07/15(日)17:12 AAS
東北とかじゃね？
関東では聞いたことない

103: 2012/07/15(日)17:32 AAS
るをんに置き換えるのは神奈川じゃないの？

104: 2012/07/15(日)17:34 AAS
神奈川に住んでますが、聞いたことない

105: 2012/07/15(日)19:27 AAS
MSSとかあったよね…

106: 2012/07/15(日)20:00 AAS
>>97
【ASPEN】メインフレーム万歳9【PFD】
2chｽﾚ:prog

Googleで、DASD 日本語ページ 1週間以内で検索したら
やたらAVがhitする件ｗ

107: 2012/07/15(日)20:34 AAS
皆様ありがとうございました

108: 2012/07/21(土)09:44 AAS
欧州研究所が告白！太陽光パネルで出力劣化しないのは日本製品とドイツ製品だけ！中韓メーカー発狂か
2chｽﾚ:poverty

シャープ製太陽光パネル、「出力低下なし」お墨付き−欧最大の研究機関が評価

シャープは同社製の太陽光パネルに「ＰＩＤ」と呼ばれる産業用太陽電池特有の出力低下現象が起きないと欧州最大の研究機関に認められた。
フラウンホーファー研究機構（本部＝独ミュンヘン）が欧州、北米、中国、韓国メーカーなどの太陽電池モジュール１３製品を評価した。
欧州ではＰＩＤ現象による太陽光パネルの出力低下が相次ぎ、品質問題として注目されている。ＰＩＤ現象が発生しなかったのは４製品だけ。
これまでに京セラ、ドイツの最大手Ｑセルズも現象が起きなかったと公表している。

詳細 2012/7/20
外部ﾘﾝｸ[html]:www.asahi.com

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
まじかでか！？オレらのシマはオールハゲ

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

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

ぬこの手ぬこTOP 0.005s